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000 30 




OORG 2218 






02218 




00040 


• 




SYMBOL TABLE PARAMETERS 








00050 


SPBL 


OS 


t 40,, 




SECTORS PER BLOCK 


00040 


0 


00060 


SMPBL 


OS 


. 235,, 




SYMBOLS PER BLOCK 


00235 


0 


00070 


SVNTBL 


OS 


, 16003, 




HI-ORDER POSITION OF SYMBOL TABLE 


16003 


0 


00080 


L0SYM6 


OS 


, SYMTBL*SMPBL»t7-l, 


LO- ORDER POSITION OF SYMBOLIC BLOCK 


19997 


0 


00090 


SBFAOD 


OS 


, L0SYMB-SPBL»100*l, 


SYMBOLIC BLOCK 01 SK ADDRESS 


15998 


0 


00100 


LBL IM 


OS 


, LOSYMB+12, 




LO-ORDER BLOCK LIMIT 


20009 


0 
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MAX L IM 


OS 


, SYMTBL-6, 




MAXIMUM LIMIT 
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0 


00120 


• 




EMPIRICAL SFCTOR ASSIGNMENT PARAMETERS 






001 30 


1PTSPB 


OS 


, 1500, 




l-PASS TOTAL SECTORS PER SYM. BLOCK 


01500 


0 


00 1*0 


2PTSPB 


OS 


, 600, 




2-PASS TOTAL SECTORS PER SYM. BLOCK 


00600 


0 


OU I 50 


BP20K 


OS 


,5, 




SYMBOLIC BLOCKS PER 20K CORE 


00005 


0 


00160 


2PRTI0 


DS 


,20000, 




2-PASS RATIO— INTERN. /FINAL SECTORS 


20000 


0 


001 70 






SPS DISC ASSIGNMENT 


PARAMETERS 






00 180 


A IDAD 


_ 


, 18600, 




CONTROL STATEMENTS, PH. A SUBROUTINS 


18600 


0 


00 1 90 


A 1 SC T 


OS 


, 137 






00137 


0 


00200 


A20A0 


OS 


, 18800, 




NORMAL PROCESSING — FREQUENT STMTS. 


18800 


0 


002 10 


A2SCT 




, 54 






00054 


0 


00220 


A30AD 


nc 


• 18854, 




TRA, CALL, GET-PUT AND ASSOC DECL 


18854 


0 


00 / Id 


A 3SCT 


nc 


,22 






00022 


0 


00/40 


A40A0 


nc 


,18876, 




OMES, OVLC PROCESS 


18876 


0 


002S0 


A4SCT 


nc 


,23 






0002 3 


0 


002ftO 


A5DA0 


nc 


,18737, 




DEN6, TCD, AND SYMBOL TABLE LIST 


18737 


0 


00 2 70 


A5SC T 


nc 


,29 






00029 


o 


00 280 


SSTDAD 


OS 


,18899, 




SYSTEM SYMBOL TABLE 


1 8899 


o 


00290 


SSTSC T 


OS 


.35 






00035 


o 


00 300 


MSTOAO 




,SSTDAD*SSTSCT, 




MASTER SYMBOL TABLE 


1 8934 


o 


00 310 


MOSOAO 


OS 


,19663, 




MONITOR COMM SECTOR DISK ADDRESS 


1 9663 


o 


00320 


8 10A0 


OS 


,18969, 




PHASE B INITIALIZATION 


18969 


o 


00 3 30 


B I SC T 


OS 


,20 






00020 


o 


00 340 


B20A0 




• 19200, 




INPUT, BRANCH TABLE, SCAN 


19200 


o 


00350 


B2SCT 


nc 


.52 






00052 


o 


00 360 


B3DAD 


OS 


, 19000, 




LINPRT, I NSTRN,DC , DSDNB , DAS , DORG 


19000 


o 


00 370 


8 3SC T 


DS 


,69 






00069 


o 


00 380 


8 3MA0 




,09100, PHASE B3 MEMORY 


ADDRESS 


09100 


o 


00390 


B4DA0 


nc 
DS 


, 19069, 




RSTR ,OAC,ALOW,DMES,DSB,DVLC, DGM 


19069 


o 


00400 


B4SCT 


°c 


.53 






00053 


o 


00410 


B50AO 




• 19122, 




DSA .MACRO, DDA, TRA, DEND 


19122 


o 


00420 


B5SC T 


c 


.29 






00029 


o 


004 30 


B60A0 


nc 


• 19151, 




CALL LINK, LOAD, EXIT 


19151 


o 


00440 


86SCT 


DS 


.29 






00029 


0 


00450 


OIMOAO 


DS 


,04800, 




DIM ENTRY FOR EQUIV. TABLE 


04800 


o 


00460 


D I M SC T 


DS 


, 1 






0000 1 


o 






DS 


,0, 




EQUIVALENCE TABLE 


00000 


o 


00480 


EQSC t 


DS 


,4 






00004 


o 


00490 


PHC OAO 


DS 


, 19252 






19252 


o 




PHC SC T 




,40 








o 


005 10 


SUBDAO 


DS 


,04808, 




SPS SUBROUTINE DIM ENTRIES 


04808 


o 


00520 






MONITOR COMMUNICATION PARAMETERS 






00530 


MOSCT 


DS 


• 16000, 




MONITOR COMM SECTOR MEMORY ADDRESS 


16000 


0 


00540 


MODOC 


DS 


,M0SCT*22, 




DISC OUTPUT COOE 


16022 


0 


00550 


MOCTOC 


DS 


,M0SCT*23, 




CD-TP OUTPT CODE 


16023 


0 


00560 


MONAME 


DS 


,M0SCT*35, 




NAME 


16035 


0 


00570 


MQIONO 


DS 


.M0SCTO9, 




ID NUMBER 


16039 


0 


00580 


M(JM(_ 


DS 


,M0SCT*41, 




MANT. LENGTH 


16041 


0 
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00590 


MOSBNO 


DS 


,M0SCT+43, 




SUB. SET 


16043 


0 


00600 


MONOIS 


DS 


,M0SCT+44, 




NOISE DIGIT 


16044 


0 


00610 


MOEXEC 


DS 


,426, 




EXECUTE CONTROL AND SPS INPUT 


00426 


0 


00620 


MOM AD 


DS 


,415, 




MEMORY ADDR 


00415 


0 


00630 


SYSCAL 


DS 


.475, 




SYSTEM COMMON ACTION LOCATION 


00475 


0 


00640 


NONEX 


DS 


,457, 




NON-EXECUTE FOR JOB ERROR 


00457 


0 


00650 


PCK 


DS 


,2365 






02365 


0 


00660 






IORT ENTRIES 










00670 


IORT 


DS 


,565 






00565 


0 


00680 


IOPT 


DS 


.532 






00532 


0 


00690 


IOGT 


DS 


,566 






00566 


0 


00700 


IORBC 


DS 


.520 






00520 


0 


00710 


IOSK 


DS 


,554 






00554 


0 


00720 


IOCAL 


DS 


,00716 






00716 


0 


007 30 


MONCAL 


DS 


,00796 






00796 


0 


00740 


IOCSAD 


OS 


, 19783, ADDRESS OF THE LOADER • CALLER 


19783 


0 


00750 


• 














00760 


» 




SPS COMMUNICATION 


AREA 








00770 
















00780 


OUT 


DS 


1 






02218 


1 


00790 




DS 


80 






02298 


80 


00800 


ZEPO 


DS 


2 






02300 


2 


00810 




DS 


81 






02381 


81 


00820 




DC 








02382 


1 


00830 


LNTH 


DS 


5 






02387 


5 


00840 




DC 


l.« * 






02388 


1 


00850 


AJUST 


DC 


11,2121212121,, 




INSTRUCTION PARITY TABLE 


02399 


11 






-2121212121 










00860 


THINGS 


DC 


21,0010203040506070000* 




02420 


21 






-0010203040506070000 










00870 


COLL 


DS 


19 






02439 


19 


00880 




DS 


2 






02441 


2 


00890 


NUMB 


OC 


7,« 






02448 


7 






-00000* 










00900 


JSTBL 


OC 


11,3232323232,, 




ALPHA PARITY TABLE 


02459 


11 






-3232323232 










00910 


EVOOD 


OC 


10,0101010101,, 




OMES PARITY TABLE 


02469 


10 






-101010101 










00920 


• 




PROCESSOR CONTROL 


SWITCHES— FLAGGED 1-ON, UNFLAGGED O-OFF 






00930 


STPCSW 


DS 


1., 




PUNCH SYMBOL TABLE 


02470 




00940 


STTYSW 


DS 


1*. 




TYPE SYMBOL TABLE 


02471 




00950 


STPRSW 


OS 


1,, 




PRINT SYMBOL TABLE 


02472 




00960 


TYINSW 


DS 


1.. 




BEGIN TYPEWRITER INPUT 


02473 




00970 


CDINSM 


OC 


1*1,, 




BEGIN CARO INPUT 


02474 




00980 


PTINSW 


J 

OS 


It, 




BEGIN PAPER TAPE INPUT 


02475 




00990 


ERSTSW 


DS 


1*. 




ERROR STOP 


02476 




01000 


2PSSW 


DS 


1,, 




TWO PASS MOOE 


02477 




01010 


RELSW 


OS 


l»t 




ASSEMBLE RELOCATABLE 


02478 




01020 


LSCDSW 


DS 


It* 




LIST CARD 


02479 




01030 


LSTVSW 


OS 


I * * 




LIST TYPEWRITER 


02480 




01040 


LSPRSW 


DS 


l«* 




LIST PRINTER 


02481 




01050 


PCNUSM 


OS 


1*, 




PUNCH RESEQUENCED SOURCE DECK 


02482 




01060 


INTRSW 


OS 


1*, 




INTERRUPT 


02483 
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01070 


Ml SUB 


OS 


Iff 


NO SUBROUT INES 


02484 








oioto 


CTVT 


oc 


5*0 




02489 












-0000 












01090 


IMC ODE 


DC 


2,5 




02491 








01100 


OBJCRE 


-5 
OS 


ftf 


OiJECT NACHINE SUE 


02498 








Oil 10 


PROCRE 


OS 


Itf 


PROCESSOR NACHINf SIZE 


02497 








01120 




OSA 


•-• 




02502 






X 












02502 




-0000 




01 130 


HCL IN 


OSA 


Lit IN 




02507 






X 












02507 




K0009 




01 140 




OC 
• 






02508 








01 150 


STCNT 


oc 


5,1,, 


STATf Mf MT COUNT 


02513 












-0001 












01160 


HUOD 


oc 


5,0,, 


HIGH ADDRESS 


02518 












-0000 












Oil 70 




OS 


2,, 


LfM&TM OP MANTISSA 


02520 








01 180 


NOISE 


OS 


1 




02521 








01 190 


SUBNO 


OS 


2 




02523 








01200 


PICKUP 


OS 


5 




02528 








01210 




OC 


1,1 




02529 








01220 


I ST A7 


J 

OC 


30,0* 




02559 




30 








-0000000000000000000000000000* 










01230 


SPSGN 


OGN 






02580 










INKRM 


OS 


5 




02565 








01250 




oc 


l,« 




02566 








01260 


TEMPR 


OS 


5 




02571 








01270 




oc 

* 


1,* 




02572 










RMRK 


OS 


3 




02575 












DC 
t 






02576 












oc 


10,1 




02586 




10 








-000000001 












01310 


* 
















0 1 320 






IOCS CALL-LOAD 


PROCESSOR SECTION-NO WLRC 




























01340 




OS 


5 




02591 




5 




01350 


CFF 


TFN 


IQRT, #*23 




02592 


16 


00565 








8 


IOGT, CFFOEF, 


7 


02604 


49 


00566 




01370 




B7 


CFF-1,,6 


ABSOLUTE DISK NOT WRONG LENGTH 


02616 


49 


0259J 




01380 


CFFOEF 


OSC 


2,22,* 


02623 




2 








22 














01390 


CFFA 


OSA 


• -• 




02629 




5 


X 












02629 




-0000 




01400 




DC 


It" 




02630 




1 






AUK I 


OS 


I 




02631 




1 




01420 


IOAOOR 


oc 


5,0,, FILE ADDRESS Of INTERNED! ATE OUTPUT 


02636 
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01430 SVMTAD DC 

-2600 

01440 S80UT DC 2,0 
-0 

01450 • 

01460 • END SPS COMMUNICATION AREA 

01470 • 

01480 TYPIN OSA INPUT-10 



01490 DC 3,06* 

-6» 

01500 TAP IN OSA INPUT-10 



01510 DC 3,01* 

-8' 

01520 CARDIN OSA INPUT-10 



01530 

01340 SBMAX 
01550 SBC NT 



OC 
JO' 
DC 
-0 
DC 
-0 

01560 AODCOM DS 
01570 OS 
01580 ALPHA DS 
01590 BETA OS 
01600 OIGITS OS 
01610 CLERER DC 



3,10* 
2,00 
2.0 

5, PICKUP 
1 

10 
10 

3 

1,0 



01620 OSC 26,0 

OOOOOOOOOOOOOOOOOOOOOOOOOO 
01630 OSC 27, • 

OOOOOOOOOOOOOOOOOOOOOOOOOO • 
01640 INSAV OAS 61 
01650 OAC 5, ,,, 

01660 INPUT OAS 6 

01670 OAS 4 

01680 OAS 66 

01690 OC 



I* 



01700 OAS 1 

01710 1NPUT2 OSS 217 
01720 SUBENT OS 5 
01730 OMSV OS 5 
01740 OMSVM OS 5 
01750 PLACE OS 5 
01760 ERRBIG DS 1 
01770 OC 5,0 

-0000 

01780 LIMITS OC 5,0 
-0000 



02641 
02643 



026*8 


5 


X 


1 


02648 


-2873 






02651 


3 






02656 


5 


X 


I 


02656 


-2873 






02659 


3 






02664 


5 


X 


1 


02664 


-2873 






02667 


3 






02669 


2 






02671 


2 






02528 


5 






02672 


1 






02682 


10 






02692 


10 






02695 


3 






02696 


1 






02697 


26 






02723 


27 






02751 


61 


X 


2 


02673 


5 


X 


2 


02883 


6 


X 


2 


02895 


4 


X 


2 


02903 


46 


X 


2 


03033 


1 






03035 


1 


X 


2 


03036 


217 






03237 


5 






03262 


5 






03267 


5 






03272 


5 






03873 


1 






03278 


5 






03283 


5 
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01790 




DC 
t 


lt» 




03284 




1 




01 too 


ADDRS 


DS 


11 




032*5 




11 




01810 




DC 
• 


it* 




03294 




1 




01820 


ERLAB 


DAS 


4 




03299 




6 


X 2 


01830 




DAC 


2, + * 




03311 




2 


X 2 


01840 


LOPOUT 


DC 


10t0 




03323 




10 








-000000000 












018S0 




DAC 
* 


2, • 




03329 




2 


X 2 


01860 


LAB 


DS 


12 




03339 




12 




01870 




DC 
• 


l.« 




033*0 




1 




01880 


FLGRM 


DC 


1.',, 


FLAGGED RECORD MARK 


03341 




1 




01890 


SMOOE 


OS 


1 




03342 




1 




01900 


OGSV 


DS 


I 




03343 




1 




01910 




DS 


I 




03344 




1 




01920 


TEMP 


DS 


5 




03349 




5 




01930 


CORN 


DAC 


22t RE-ENTER STATEMENT. 


i 


03351 




22 


X 2 






RE 


-ENTER STATEMENT.' 












01940 


5ALPH0 


DAC 


5,00000 




03395 




5 


X 2 






00000 












01950 


• 
















01960 


• 


READ 


INPUT 












01970 


• 
















01980 


PHASEA 


TOM 


ERRDI G,0 




03404 


15 


03273 


00000 


01990 




80 


READ2, CDINSW 




03416 


43 


03636 


02474 


02000 




BO-V 


READ I , PTINSW 




03428 


43 


03604 


02475 


02010 


• 
















02020 


• 


REAP TYPEWRITER 












02030 


• 
















02040 


READ3 


RCTY 






03440 


34 


00000 


00102 


02050 




TFM 


**30, INPUT*18, , 


OVERLAY INPUT AREA WITH 


03452 


16 


03482 


-2901 


02060 




AM 


«>ia,2,io, 


RECORD MARKS 


03464 


11 


03482 


000-2 


02070 




TFM , ■ 




03476 


16 


00000 


-0000 


02080 








03487 




1 


X 2 


02090 




CM' • 


•-6, INPUTM40 




03488 


14 


03482 


-3023 


02100 




BL 


•-36 




03500 


47 


03464 


01300 


02110 




TF 


INPUT-2, CLERER+9 




03512 


26 


02881 


02705 


02120 




TF 


INPJIT+IO. CLERER+ 1 I 




03524 


26 


02893 


02707 


02130 




TF 


INPumS, CLERER+7 




03536 


26 


02901 


02703 


02140 




TFM 


10RT,»*23 




03548 


16 


00565 


-3571 


02150 




B 


I0GT,TYPIN-4,7 




03560 


49 


00566 


-2644 


02160 




BNC4 


PROSTM 




03572 


47 


03912 


00400 


02170 




WATY 


CORM 




03584 


39 


03351 


00100 


02180 




B7 


READ3 




03596 


49 


03440 




02190 


• 
















02200 


• 


READ PAPER TAPE 












02210 


















02220 


REA01 


TFM 


I0RT,»+23 




03604 


16 


00565 


-3627 


02230 




B 


IOGT, TAP1N-4, 7 




03616 


49 


00566 


-2652 


02240 




B7 


PROSTM 




03628 


49 


03912 
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02250 • 

02260 • READ STATEMENT FROM CARD 

02270 • 



02280 


READ2 


TFM 


I0RT,»+23 


03636 


16 


00565 


-3659 


02290 




B 


I0GT,CARDIN-4, 7 


03648 


49 


00566 


-2660 


02300 




BNF 


RSCAN,PCNUSW 


03660 


44 


03804 


02482 


02310 




BNR 


•♦24, INPUT-10 


03672 


45 


03696 


02873 


02320 




TFM 


INPUT-10,00,10 


03684 


16 


02873 


000-0 


02330 




CM 


INPUT-10,14,10 


03696 


14 


02873 


000J4 


02340 


R2BE 


BE 


RSCAN 


03708 


46 


03804 


01200 


02350 




TF 


INPUT-02,5ALPH0*8 


03720 


26 


02881 


03403 


02360 




TO 


INPUT-04,STCNT 


03732 


25 


02879 


02513 


02370 




TO 


INPUT -06, STCNT-1 


03744 


25 


02877 


02512 


02380 




TO 


I NPUT-08 , STCNT-2 


03756 


25 


02875 


02511 


02390 




TD 


INPUT-10, STCNT-3 


03768 


25 


02873 


02510 


02400 




TFM 


I0RT,«*23 


03780 


16 


00565 


-3803 


02410 




B 


I0PT,CARDIN-4,7 


03792 


49 


00532 


-2660 



02420 • 



02430 • FIND RIGHTMOST CHARACTER OF STATEMENT ANO PLACE A 

02440 • RECORD MARK AFTER IT 

02450 • 



02460 


RSCAN 


TFM 


RSBD-LINPUT+139 


03804 


16 


03875 


-3022 


02470 




TFM 


RSBD+ll,INPUT*140 


03816 


16 


03887 


-3023 


02480 




TFM 


RSBD+11,,6 


03828 


16 


0388P 


00000 


02490 




DAC 


!,»,• 


03839 




1 


X 2 


02500 




SM 


RSBD-1,2,10 


03840 


12 


03875 


000-2 


02510 




SM 


RSBD+11,2,10 


03852 


12 


03887 


000-2 


02520 




BD 


PROSTM, •-• 


03864 


43 


03912 


00000 


02530 


RS8D 


BD 


PROSTM, •-• 


03876 


43 


03912 


00000 


02540 




CM 


RSB0*11,INPUT*18 


03888 


14 


03887 


-2901 


02550 




BH 


RSCAN+24 


03900 


46 


0382S 


01100 



02560 • 



02570 • CLEAR FOR INTERMEDIATE OUTPUT 

02580 • 



02590 


PROSTM 


B 


PROCON 




03912 


49 


11014 


00000 


02600 




BNR 


•♦24, INPUT+20 




03924 


45 


03949 


02903 


02610 




TFM 


INPUT+22, 00000 




03936 


14 


02905 


-0000 


02620 




OAC 






03947 




1 


X 2 


02630 




TR 


INPUT2, CLERER+46 




03948 


31 


03034 


02742 


02640 




TR 


INSAV-l,lNPUm9 




03960 


31 


02750 


O2902 


02650 




AM 


STCNT,1,10 




03972 


11 


02513 


000-1 


02660 




TOM 


LOABSW, 1,11 




03984 


15 


08308 


OOOOJ 


02670 




BD 


R3E, 2PSSW 




03996 


43 


04032 


02477 


02680 




TDM 


INPUT2^99 




04008 


19 


03135 


00000 


02690 




OC 
< 


1,%» 




04019 




I 




02700 




TR 


INPUT2+8, INPUT-li 




04020 


31 


03044 


02972 


02710 


R3E 


AM 


INK AM, 1,10 




04032 


11 


02949 


000-1 


02720 




INK 


•♦24,1NPUT-10 




04044 


49 


04049 


02971 


02710 




TPM 


INPUT-IO.00,10 




04096 


14 


01979 


000-0 


02740 




TP 


PLACI, AODCOW 




04048 


24 


03272 


02929 


02790 




CM 


ADDCOM, 94499 




04040 


14 


02929 


89999 


02780 




•f 


•♦48 




04042 


44 


04140 


01200 


02770 




C 


AODCOW, HtAOD,, 


MI ADDRESS TO H1A00 


04104 


24 


02529 


02919 
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02780 


BNM 


•♦2* 


04116 


47 


04140 


01100 


02790 


TF 


HlADOf ADDCOW 


04121 


26 


0251 8 


02528 


02800 


BNR 


•♦20, INPUT 


04140 


49 


04160 


02883 


02S10 


87 


Eft2 


04192 


49 


04280 




02S20 


CM 


INPUT, 14,10 


04160 


14 


02883 


000 J4 


02890 


BNE 


RLOPl 


04172 


47 


04220 


01200 


02840 


80 


•♦24,ERRDIG 


04184 


43 


04208 


03273 


02850 


BO 


PHASE A , 2PSSW 


0419* 


43 


03404 


02477 


02860 


BTM 


OUTPUT, PHASEA 


04208 


17 


09958 


-3404 



02870 • 



02880 • CHECK FOR RECORD MARK IN LABEL FIELD. 

02890 • 



02900 


RLOPl 


TFN 


RLOP* 11, INPUT- 2 


04220 


16 


04279 


-2881 


02910 




AN 


RL0P*11,2,10 


04232 


11 


04279 


000-2 


02920 




CM 


RtOP*ll,INPUTU2 


04244 


14 


042 79 


-2895 


02930 




BE 


OP 


04256 


46 


04352 


01200 


02940 


RLOP 


BNR 


• -36 


04268 


45 


04232 


00000 


02950 


• 


RECORO NARK IN LABLE FIELD* 










02960 


ER2 


TFM 


EVALER-1, 20000 


04280 


16 


07343 


KOOOO 


02970 




OC 
• 


!,•♦• 


04291 




1 




02980 




BT 


EPRINT.EPRINT-l 


04292 


27 


07604 


07603 


02990 




TF 


INPUTMO, CLERER+U 


04304 


26 


02893 


02707 


03000 




BD 


•♦24, 2PSSW 


04316 


43 


04340 


02477 


03010 




TR 


INPUT2*8, INPUT-11 


04328 


31 


03044 


02872 


03020 




BD 


ERCOR, ERSTSW 


04340 


43 


07468 


02476 


03030 


OP 


C 


CLERER+ll,INPUmO 


04352 


24 


02707 


02893 


03040 




BE 


• ♦36 


04364 


46 


04400 


01200 


03050 




TF 


ERLAB*lO,INPUmo 


04376 


26 


03309 


02893 


03060 




TFM 


INKRM.O 


04388 


16 


02565 


-0000 


03070 


• 














03080 


• 


PROCESS OP CODE 










03090 


• 














03100 


• 


CHECK FOR RECORD MARK I N OP CODE. 










031 10 




TFM 


RMOP*ll, INPUTM0 


04400 


16 


04459 


-2893 


03120 




AM 


RMOPMl,2,10 


04412 


11 


04459 


000-2 


03130 




CM 


RMOPMl, INPUT+20 


04424 


14 


04459 


-2903 


03140 




BE 


OPl 


04436 


46 


04504 


01200 


03150 


RMOP 


BNR 


•-36, »»0, 7 


04448 


45 


04412 


-0000 


03160 




TF 


INPUT+18, CLERER+7 


04460 


26 


02901 


02703 


03170 




BD 


•♦24, 2PSSW 


04472 


43 


04496 


02477 


03180 




TR 


INPUT2+8, INPUT-11 


04484 


31 


03044 


02872 


03190 




B7 


ER3 


04496 


49 


04844 




03200 


• 




TEST FOR ABSOLUTE OP CODE 










03210 


OPl 


TO 


•♦46.INPUT+11 


04504 


25 


04550 


02894 


03220 




TO 


•♦35.INPUT+13 


04516 


25 


04551 


02896 


03230 




CM 


•♦23,77,10 


04528 


14 


04551 


000P7 


03240 




BNE 


ALFOP 


04540 


47 


04612 


01200 


03250 




C 


CLERERO.INPUT+18 


04552 


24 


02699 


02901 


03260 




BNE 


ALFOP 


04564 


47 


04612 


01200 


03270 




TD 


INPUT2, INPUM-12 


04576 


25 


03036 


02895 


03280 




TO 


INPUT2+1, INPUTH4 


04586 


25 


03037 


02897 


03290 




BTM 


INSTRN, 0QINSU24 


04600 


17 


10528 


J0656 


03300 


• 




SCAN OPCODE TABLE 










03310 


ALFOP 


TFM 


SHF*ll,INPUTU8 


04612 


16 


04755 


-2901 


03320 




TFM 


ALFLPI + ll, 0PLCTBM5 


04624 


16 


04667 


-4923 



6 
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03330 




BO 


SHF,INPUT*ll 








04636 


43 


04744 


02894 


03340 




87 


ER3 








04648 


49 


04844 




03350 


ALFLPI 


TF 


ZP411, •-• 








04656 


26 


04811 


00000 


03360 




TF 


ALFLP*ll, SHF*li 








04668 


26 


04 723 


04755 


03370 




TF 


2P+18, SHF+li 








04680 


26 


04818 


04755 


03380 




SM 


ALFLPUl, INPUT + 7 








04692 


12 


04723 


-2890 


03390 




B7 


• ♦20 








04704 


49 


04724 




03400 


ALFLP 


AM 


2P+11. •-• 








04712 


11 


04611 


-0000 


03410 




BNR 


ZP, ZP+ll,ll 








04724 


45 


04800 


0481 J 


03420 




B7 


ER3 








04736 


49 


04844 




03430 


SHF 


C 


CLERER*1, •-• 








04744 


24 


02697 


00000 


03440 




BNE 


ALFLPI 








04756 


47 


04656 


01200 


03450 




SM 


ALFLPIM1, 5,10 








04768 


12 


04667 


000-5 


03460 




SM 


SHF*U,2,10 








04780 


12 


04755 


000-2 


03470 




B7 


SHF 








04792 


49 


04744 




03480 


ZP 


TF 


ZEPO+30, •-• 








04800 


26 


02330 


00000 


03490 




C 


•-•, ZEPO+27 








04812 


24 


00000 


02327 


03500 




BE 


OK 








04824 


46 


04924 


01200 


03510 




B7 


ALFLP 








04836 


49 


04712 




03520 


• 


INVALID OP CODE 
















03530 


ER3 


TFM 


EVALER-1, 30000 








04844 


16 


07343 


LOOOO 


03540 




OC 


!,*,• 








04855 




1 




03550 




BT 


EPRINT,EPRINT-1 








04856 


27 


07604 


07603 


03560 




BD 


ERCOR, ERSTSW 








04868 


43 


07468 


02476 


03570 




TFM 


INPUT2+1, 041, 9 








04880 


16 


03037 


00-41 


03580 




BTM 


INSTRN, LOLBL 




TABLE 




04892 


17 


10528 


-8686 


03590 


• 


LOCATIONS OF SECTIONS OF 


OP-COOE 












03600 


OPLCTB 


OSA 


A, B, C, D 








04908 




5 


X 4 
















04908 




J3B71 


















04913 




J3928 


















04918 




J42S2 


















04923 




J4884 




03610 


• 




















03620 


• 


USING THE LAST DIGIT 


OF THE 


OPCODE ENTRY 


GOOOB IS 










03630 


• 


MODIFIED TO BRANCH TO THE CORRECT ENTRY 


IN 8TBL 










03640 


• 




















03650 


OK 


TFM 


G0006 ♦6,8TBL 








04924 


16 


04978 


-5054 


03660 




TD 


GOODB+li.ZEPOOO 








04936 


25 


04983 


02330 


03670 




A 


GOODB^S,GOODB^U 








04948 


21 


04977 


04983 


03680 




SF 


2EP0^27 








04960 


32 


02327 


00000 


03690 


GOOOB 


B 


,,10 








04972 


49 


00000 


000-0 


03700 




B 


SAVRST,,,-7 








04984 


49 


05376 


00000 


03710 




OORG 


*-l 








04994 








037; 0 




a 


OVLCC, -6 








04994 


49 


11452 


00000 






OORG 


• -I 








05004 








. <#*0 




8 


OECL,,, -5 








05004 


49 


05144 


00000 


03750 




OORG 


•-1 








05014 








03760 




8 


BONK,,, -4 








05014 


49 


05304 


00000 


03770 




OORG 


• -1 








05024 








03780 




8 


MCCALL, ,,-3 








05024 


49 


11476 


00000 


03790 




OORG 


•-1 








05034 








03800 




8 


ADC,.. -2 








05034 


49 


05292 


00000 


03810 




OORG 


•-1 








05044 








03820 




8 


MACRO,,, -I 








05044 


49 


11584 


00000 
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03830 




DORC 


9—1 


0509* 








03840 


BTBL 


g 


I NST tit 0 




49 


05280 


nonon 

uwuvv 


03850 




OORG 


• -1 


05064 








03860 




8 


s i or . . . ♦ i 

w I Uw . . . w A 


05064 


49 


05344 


00000 


03870 




OORG 


•~ 1 


05074 








03880 




g 


01 SK» » , +2 


05074 


49 


05340 


00000 


03890 




DORG 


•— 1 


05084 








03900 




g 


RDW (tt ♦ 3 


05084 


49 


05328 


WWW WW 


03910 




DORG 


•— 1 


05094 








03920 




g 


K » » . *4 


05094 


49 


05352 


00000 


039 30 








n*in2 








03940 




g 


V JUflD . . . ▼ 3 








UUUUU 


0 3950 








05114 








03960 




B 


B I » » » *6 


05 114 


49 


05316 


nnonn 

UUUUU 


039 10 




DORG 


* J _ 


05124 








n^oon 






BNI Ml ♦? 


n*i «2 




05316 


nnnnn 
UUUUU 


ninnn 




nnor 
OORG 


•— I 


n* i »2 








r\Jn i n 






UCNUL iff tB 


ncif 2 


49 


13056 


UUUUU 






nnor 


•— 1 


AKl22 














GUUUo2*o tBIBLI 


? J 






~5192 


rLn n 




I 


GUUUB2* I I » 1 1 PU»Z9 


n« i2<t 




nci ai 


ncfo? 








(>UUUD<t) i GUODD2+ 1 1 




f o 


05 185 






finn nn 5 


u 


f f 10 


n*i an 

r?* , 


2q 


nnnnn 
UUUUU 


000 0 




B TBL2 




DCf f f 0 


05 192 


49 


1 3096 


OUOOO 


n2n«n 




nnor 
DORG 


•— 1 


05202 








n2n 






DORGf f f +1 


05202 


49 


12880 


00000 






DORG 


• * 1 


05212 








HA 1 ft 

04100 




8 


DAC iff ♦ 2 


05212 


49 


1 1 768 


00000 


n2 ! 5° 




OORG 


• - 1 


05222 








n2 \ 




B 


DSAfff *3 


05222 


49 


1 3604 


00000 


n2 i 




DORG 


*- 1 


05232 














DAS. , , *4 


05232 


49 


1 1 688 


00000 


( 2 i n 




nnor 
DORG 


J 


05242 














HE ADc Km i*5 


05242 


49 


05 388 


00000 


n2 i a 




DORG 


1 


05252 








r if !! 






OSBfff *6 


05252 


49 


12376 


00000 


n2?nn 




nnor 
DORG 




05262 








n2o i n 






DGMf f f *7 


05262 


49 


11516 


00000 






nnor 
DORG 


1 


05272 














nuc cri ▲ a 
UHfc bL L t t t *o 


05272 


49 


11412 


00000 






nne - 
















OTU 


INiiKNiDulNSI 


05280 


1 7 


10528 


J0632 




*nr 


ATM 




05292 


1 7 


10528 


J0724 


J? ,5 


B0MK 


HTM 


I NS TRN, DO BOMK 


05304 


17 


10528 


J0804 




B I 




I NSTRN, DOB I 


05316 


1 7 


10528 


J0872 


04280 


BN I 


OS 


f B I 


05316 




0 




04290 


ROW 


8TM 


I NSTRN, DORDW 


05328 


17 


10528 


J0940 


C4 300 


DISK 


BTM 


I NSTRNf DODI SK 


05340 


17 


10528 


J1332 






BTM 


INSTRNiDOK 


05352 


17 


10528 


J 1008 


04320 


S I OC 


BTM 


INSTRN.OOSIOC 










04330 


SAVRST 


BTM 


INSTRNiDOSVRS 


05376 


17 


10528 


J1252 


04340 


• 














04350 




HEADER ROUTINE 










04360 


• 














04370 


HEADER 


TFM 


HEDf, 10 


05388 


16 


10509 


000-0 


04380 




TDM 


HEADER+7 


05400 


15 


05395 


00000 



1 0 
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04390 




BNR 


COMA f I NPUT*20 


05412 


45 


05460 


02903 


04400 




TFM 


INPUT2M, 030,9 11 


05424 


16 


03037 


00-3- 


04410 




TF 


INPUT2*6, HED 


05436 


26 


03042 


10509 


04420 




BTM 


OUTPUT* PHASEA 


05448 


17 


09958 


-3404 


04430 


COMA 


CM 


INPUT*20,23,10 


05460 


14 


02903 


000K3 


04440 




BE 


HE ADE R* 36 


05472 


46 


05424 


01200 


04450 


• 


HEADER OPERAND GREATER THAN ONE CHARACTER 










04460 




BD 


ER12,HEADER*7 


05484 


43 


05620 


05395 


04470 




CM 


INPUT*20,,10 


05496 


14 


02903 


000-0 


04480 




BE 


• ♦60 


05508 


46 


05568 


01200 


04490 




CM 


INPUT+20,40,10 


05520 


14 


02903 


000M0 


04500 


• 




SPECIAL CHARACTER USED AS HEADER 










04510 




BL 


ERll 


05532 


47 


05588 


01300 


04520 




TF 


HED, INPUT+20 


05544 


26 


10509 


02903 


045 30 




TDM 


HEADER*7, I 


05556 


15 


05395 


00001 


04540 




TR 


INPUT*19,INPUT*21 


05568 


31 


02902 


02904 


04550 




B7 


HEADER+24 


05580 


49 


05412 




04560 


ERll 


TFM 


EVALER-l, 17100 


05588 


16 


07343 


J7100 


04570 




DC 


l.».» 


05599 




1 




04580 




TFM 


HED, ,10 


05600 


16 


10509 


000-0 


04590 




87 


• ♦20 


05612 


49 


05632 




04600 


ER12 


TFM 


EVALER-l. 17200 


05620 


16 


07343 


J7200 


04610 




DC 


l.*.« 


05631 




I 




04620 




BT 


EPRINT.EPRINT-l 


05632 


27 


07604 


07603 


04630 




BD 


ERCQR . ERSTSW 


05644 


43 


07468 


02476 


04640 




BT 


HEADER+36 


05656 


49 


05424 




04650 
















04660 


• 


THE FOLLOWING CLOSEO SUBROUTINE EVALUATES 










04670 


• 


THE STATEMENT OPERANO 










04680 
















04690 




NOP 




05664 


41 


00000 


00000 


04700 


EVALAD 


TF 


ADDRS.CLERER+9 


05676 


26 


03295 


02705 


04710 




TFM 


RLOCSW.0.8 


05688 


16 


08307 


0-000 


04720 




TFM 


EVALAD-9, 100,9 


05700 


16 


05667 


O0JO0 


04730 




TF 


BE T A. ONE Z 


05712 


26 


02692 


02586 


04740 




TFM 


ALPHA 


05724 


16 


02682 


-0000 


04750 




SF 


HEO-2 


05736 


32 


10507 


00000 


04760 




SF 


EVALAO-5 


05748 


32 


05671 


00000 


04770 




TDM 


BSW.l.ll 


05760 


15 


08309 


0000J 


04780 




TDM 


A0RSM.1 


05772 


15 


06169 


00001 


04 790 




TOM 


RETURN* I. 9 


05784 


15 


06265 


00009 


04800 




TR 


C0LL-18.THINGS-20 


05796 


31 


02421 


02400 


04810 




TFM 


LABL.1.10 


05808 


16 


05959 


000-1 


04820 




TFM 


DOL.,10 


05820 


16 


05957 


000-0 


04830 




BNF 


BCMSPC.EVALAD-7 


05832 


44 


06044 


05**9 


04840 




TR 


C0LL-18.THIN6S-20 


05844 


31 


02421 


02400 


04850 




SF 


HEO-2 


05856 


32 


10507 


00000 


04860 




TFM 


LABL.1.10 


05868 


16 


05959 


000- 1 


04870 




TFM 


DOL.,10 


05880 


16 


05957 


000-0 


04880 




87 


BCMSPC-12 


05892 


49 


06032 




04890 


• 


CHECK FOR SPECIAL CHARACTER 










04900 


COMSPC 


CM 


INPUT*20.70,10 


05900 


14 


02903 


000P0 


04910 




BL 


SPEC 


05912 


47 


0607* 


01100 


04920 




TOM 


BSW.O 


05924 


15 


08309 


00000 



1 1 
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0*930 




TP 


C0LL*INPUT*20 






0593* 


2* 


02439 


02903 


04940 


LABI 


CP 


COLL-1 






0594B 


33 


0243B 


00000 


049 SO 


OS 








05959 




0 




049*0 


001 


OS 


t—Z 






05957 




0 




04970 




AM 


DOLtlf 10 






059*0 


11 


05957 


000-1 


04980 




TOM 


E VALAD- 1 1 






05972 


15 


05**5 


00000 


04990 




TR 


COLL-17, COLL-15 






05984 


31 


02422 


02424 


05000 




CM 


COLL-17. 7, 10 






0599* 


14 


02422 


000-7 


05010 




BNE 


•♦24 






0600B 


4 7 


06032 


01200 


05020 


• 




SYMBOL IN OPERANO CONTAINS 


MORE THAN SIX CHARACTERS 








05030 


• 


OR NUMBER IN OPERAND HAS 


MORE THAN FIVE OIGITS 










05040 


ERLNTH 


BTM 


EVALER,50000 






0*020 


17 


07344 


NOOOO 


05050 




DC 


1,»,« 






06031 




1 




05060 




TR 


INPUT*19,INPUT>21 






06032 


31 


02902 


02904 


05070 


• 


CHECK TO SEE IF OPERAND 1 


I S 


PRESENT 










05080 


BCMSPC 


BNR 


C0MSPC,INPUT*20 






06044 


45 


05900 


02903 


05090 


COM HER 


TDM 


RETURN* 1 1 1 






06056 


15 


06265 


00001 


05100 




B7 


GET1 






060*8 


49 


06132 


05110 


• 


CHECK FOR ♦ OR - 














05120 


SPEC 


BD 


Sit INPUT+20 






06076 


43 


06480 


02903 


05130 


• 


CHECK FOR BLANK 














05140 




BD 








06088 


43 


06108 


02902 


05150 












06100 


49 


06032 




05160 




TDM 








06108 


15 


08309 


00000 


05170 






ACCTll 1 1 MDIITl 1 Q 

Ait 1 ♦ I I » INPUI*19 






06120 


25 


06239 


02902 


05180 


GET I 


on 


a no c cwai ah. i i 
AUK ijtVALAU- 11 






06132 


43 


06168 


05665 


05190 




BTM 


GE T » 1 2 






06144 


17 


06726 


-6156 


05200 




BT 


MUL T , MUL T-l 






06156 


27 


07068 


07067 


05210 


AORS 


A 


ADDRS f ALPHA tO 






06168 


Kl 


03295 


02682 


05220 




TD 


RETURN-1 I , AORS+l 






06180 


25 


06253 


06169 


05230 




TFM 


EVALAD-9, 100,9 






0619? 


16 


05667 


OOJOO 


052*0 




TF 


BF TA , ONE Z 






06204 


?6 


02692 


02586 


05250 




TOM 


MPYSW, 0 






06216 


15 


08310 


00000 


05260 


ASET 


TDM 


AORS* 1,1 






06228 


15 


06169 


00001 


05270 




BNF 


•♦24,RSYMSW 






06240 


44 


06264 


08306 


05280 




AM 


RCTR, 1,10 






06252 


11 


08305 


000-1 


05290 


RETURN 


B 


COMSPC-56 






06264 


49 


05844 


00000 


05300 




SF 


ADDRS-4 






06276 


32 


03291 


00000 


05310 




BNF 


TOBB.RELSW 






06288 


44 


06460 


02478 


05320 




BNF 


•♦20,EVALAD-1 






06300 


44 


06320 


05675 


05330 




B7 


TOBB 






06312 


49 


06460 




05340 




CM 


RCTR, 0, 10 






06320 


14 


08305 


000-0 


05350 




BE 


SRELM2 






06332 


46 


06460 


01200 


05360 




CM 


RCTR, 1,10 






06344 


14 


08305 


000- 1 


05370 




BNE 


• ♦24 






06356 


47 


06380 


01200 


05380 




dNF 


SREL.AOORS 






06368 


44 


06448 


03295 


05390 




CM 


RCTR, -1,10 






06380 


14 


08305 


000-J 


05400 




BNF 


•♦24, ADDRS 






06392 


44 


06416 


03295 


05410 




BE 


SREL 






06404 


46 


06448 


01200 


05420 


RELER 


TFM 


EVALER-2, 71770,, 




RELOCATION ERROR 


06416 


16 


07342 


P1770 


05430 




BT 


EPR 1 NT , E PRI NT- 1 






06428 


27 


07604 


07603 


05*40 




87 


EV1 






06440 


49 


07380 




05450 


SREL 


TDM 


RLOCSW.1,11 






06448 


15 


08307 


OOOOJ 


05460 


TOBB 


CF 


E VALAD- 1 






06460 


33 


05675 


00000 


05470 


BBACK 


B7 


EVALAO-1.,6 






06472 


49 


0567N 
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05480 


• 


CHECK FOR COMMA 










05490 


SI 


CM 


INPUT*20,23, 10 


06480 


14 


02903 


000K3 


05500 




BE 


COMMER 


06492 


46 


06056 


01200 


05510 




TDM 


BSW,0 


06504 


15 


08309 


00000 


05520 


• 


CHECK FOR ASTERISK 










05530 




CM 


INPUT+20,14,10 


06516 


14 


02903 


000J4 


05540 




BE 


ASTER 


06528 


46 


07118 


01200 


05550 


• 


CHECK FOR DOLLAR SIGN 










05560 




CM 


INPUT+20, 13, 10 


06540 


14 


02903 


000J3 


05570 




BE 


DOLLAR 


06552 


46 


06584 


01200 


05580 




TDM 


LABL 


06564 


15 


05959 


00000 


05590 




87 


COMSPC+24 


06576 


49 


05924 




05600 


DOLLAR 


BD 


•♦32,D0L 


06584 


43 


06616 


05957 


05610 




TFM 


COLL , ,10 


06596 


16 


02439 


000-0 


05620 




87 


• ♦44 


06608 


49 


06652 




05630 




CM 


DDL ,1 ,10 


06616 


14 


05957 


000-1 


05640 




BNE 


ERCHAR 


06628 


47 


06708 


01200 


05650 




SF 


COLL-3 


06640 


32 


02436 


00000 


05660 




CF 


HED-2 


06652 


33 


10507 


00000 


05670 




TDM 


EVALAD-11,1 


06664 


15 


05665 


00001 


05680 




TDM 


LABL 


06676 


15 


05959 


00000 


05690 




BD 


BCMSPC-12.D0L 


06688 


43 


06032 


05957 


05700 




87 


BCMSPC-60 


06700 


49 


05984 




05710 


• 


DOLLAR SIGN IMPROPERLY PLACEO 










05720 


ERCHAR 


BTM 


EVALER, 50000 


06708 


17 


07344 


NOOOO 


05730 




DC 




06719 




1 




05740 
















05750 


• 


CLOSED ROUTINE TO EVALUATE COLLECTED SYMBOL OR INTEGER 










05760 


• 














05770 




DS 


5 


06724 




5 




05780 


GET 


TDM 


RSYMSW.O 


06726 


15 


08306 


00000 


05790 




BD 


TRNUMB, LABL 


06738 


43 


06910 


05959 


05800 




CM 


COLL-17, 05,10 


06750 


14 


02422 


000-5 


05810 




BH 


6CHAR 


067*2 


46 


06866 


01100 


05820 




BE 


5CHAR 


0*774 


46 


06834 


01200 


05830 




TOM 


COLL* 0 


06786 


15 


02439 


00000 


05840 




TR 


COLL-17, COLL-15 


0*798 


31 


02422 


02424 


05850 




CM 


COLL-17, 05,10 


0*810 


14 


02422 


000-5 


05860 




BNE 


•-36 


0*822 


47 


06786 


01200 


05870 


5CHAR 


BNF 


LBA00-24, HED-2 


06834 


44 


07838 


10507 


05 880 




TF 


COLL-12, HEO 


0*84* 


26 


02427 


10509 


05890 




87 


LBAOO 


0*858 


49 


07862 




05900 


6CHAR 


BNF 


LBAOD, HED-2 


0*866 


44 


07862 


10507 


05910 




SF 


COLL- 13 


0*878 


52 


02426 


00000 


05920 




SF 


COLL-2 


0*890 


32 


02437 


00000 


'■3 V » 0 




B7 


LBADO 


0*902 


49 


07862 




04 940 


TRNUMB 


CM 


COLL-14,6060 


06910 


14 


02425 


-6060 


05950 




BH 


ERLNTH 


06922 


4* 


06020 


01100 


059*0 




TOM 


NUMB- 1 , , 1 1 


0*934 


IS 


02447 


0000- 


05970 




TFM 


TRNUNH1 1, COLL-2 


0*946 


1* 


07005 


-2437 


059B0 




S 


TRNUNUil, COLL-17 


06958 


22 


07005 


02422 


05990 




S 


TRNUMIMI, COLL-17 


06970 


22 


07005 


02422 


06000 




TR 


NUMB- 5* NUMB- 4 


06982 


31 


02443 


02444 


06010 


TRNUM1 


TO 


NUM8-1 


0*994 


25 


02447 


00000 


0*020 




TR 


COLL-17, COLL-15 


0700* 


31 


02422 


02424 



13 
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• • 

•♦2 3»»— I J 


07018 


24 


07041 


07001 


aIaaa 




•MA 




07010 


49 


04982 


00000 


AAA4A 




7FM 


ALPHA 


07092 


14 


02482 


-0000 


06060 






Al tUi.MIMI- 1 


07019 


21 


02482 


02447 


06070 




§82 


9 tO 


07044 


M2 








Mill T 


m 


Al DMA. BETA 


07048 


21 


02482 


02492 


AAAttA 






90 


07044 


12 


00090 


00040 


aa t aa 




t ^ 


ALPHA 1 99 


07092 


24 


02482 


00099 


06 1 10 






BE TA # 99 


07109 


24 


02692 


00099 


nil »a 




882 


t »o 


07118 


N2 




01441 


aa i f a 


----- 


80 


TVtTI.EWAI A A— 1 1 
IC3I JfE VAL AU~ 1 1 


07118 


43 


07210 






51" 




07110 


1 f 


04724 


-7142 


06190 




BT 


Mill T Mill T— t 


07142 


27 


07048 


07047 


2* » 




TFM 


tuii a A— in i i .in 


07119 


14 


01444 


000 J 1 


061 70 


ASH 


BNF 


— 4.14. iCl (U 

• ♦ 36, RELSW 


07144 


44 


07202 


02478 


061 80 




TDM 


yi wfu 1 t t 

"rT5»» Itll 




!§ 


08110 


U WWW W 


06 1 90 




80 




07190 


43 


04414 


08104 


06200 




87 


CONSPC— 56 


07202 


49 


01844 




062 10 


_____ 
TEST3 


80 


vrinft full AH 1 A 

1 r ADD, C VAL AD- 10 






07214 


01446 


06220 




80 


aWZ,EVALAD-V 


07222 


43 


07302 


05647 


06230 


I r ADD 


TF 


ai tui innrnu 
ALPHA f ADDlUM 


07214 


24 


02482 


02128 


06240 




8T 


Ml II V Ml II T _ 1 


07244 


27 


07068 


07047 


06250 




TFM 


Cull A f"l CI t f f\ 

t VALAD-9, 1 t 10 


07218 


14 


01447 


000-1 


06260 




TDM 


Q — WM C LJ 1 11 


07270 


15 


08106 


0OO0J 


06270 




8D 


SREL-32 »NPVSW 


07282 


43 


04414 


06310 


06280 




87 


C0HSPC-56 


07294 


44 


01844 




06290 


SW2 


TOM 


E VALAD— 9 


07102 


15 


05667 


00000 


06300 




87 


ASR 


07114 


44 


07166 




06310 




DAS 


5 






5 


X 2 


06320 




BNR 


59007 






59007 


00000 


06330 




DAC 




07343 






X 2 


06340 


* 














06350 


• 


EVALER IS THE ERROR ROUTINE 










06360 


• 














06370 


EVALER 


BT 


EPRlNTf EPRINT-1 




* ' 


07604 


- 


06380 




SPTV 








AAAAA 




06390 




MATY 


C0LL-12,,, TYPE UNDEFINEO SYMBOL 


07148 


39 


02427 


00100 


06400 


EV1 


80 


ERCOR f ERSTSN 


07380 


43 


07468 


02476 


06410 


CHKND 


TFM 


AODRS 


07392 


16 


03291 


-0000 


06420 




BNR 


CHK2 * INPUT + 20 






07424 


02903 


06430 




87 


TOBB 


07414 


49 






06440 


CHK2 


CM 


INPUT*20.23,10 


07424 


14 


02903 


000K3 


06450 




BE 


TOBB 




tf 






06460 




TR 


INPUT*19tINPUT*21 


07448 


31 


02902 


02904 


06470 




B7 


CHKND+12, #2 




to 






06480 


ERCOR 


WATY 


CORN,,, ERROR CORRECTION ON-LINE 






03351* 


00100 


0649C 




RCTY 




07480 




AAAAA 

uuooo 




06500 




TR 


INPUT+19.INSAV-1 


07492 


31 


02902 


02750 






WATY 


INPUT-10 


07504 


39 


02873 


00100 


06520 




TF 


ADOCOW, PLACE 


07516 


26 


02528 


03272 


06530 




TDM 


ERRDIG, l.ll 


07128 


11 


03273 


0000J 


O6540 




SM 


INKRM.ltlO 


07540 


12 


02565 


000- 1 


06550 




SM 


STCNT,1,10 


07552 


12 


02513 


000-1 


06560 




TFM 


CFFA,NCDCF1 


07544 


16 


02629 


-7588 


06570 




BTM 


CFF.READ3 


07574 


17 


02592 


-3440 



J 4 
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06580 


NC0CF1 


DOA 


, 0«A2DAD»A2SCT, INSTRN 


07588 




14 








OJ8800-54J0128 










06590 




DC 
• 


It 1 


07602 




I 




06600 


• 














06610 


• 


EPRINT PRINTS THE ERROR MESSAGE AND REFERENCE TO 










06620 


• 


INDICATE THE STATEMENT IN ERROR 










06630 


• 














06640 


EPRINT 


RCTY 




07604 


34 


00000 


00102 


06650 




TF 


LOPOUT, INPUT-2 


07616 


26 


03323 


02881 


06660 




WATY 


LOPOUT-8 


07628 


39 


03315 


00100 


06670 




WATY 


ERLAB 


07640 


39 


03299 


00100 


06680 




WNTY 


INKRM-3 


07612 


38 


02542 


00100 


06690 




WATY 


EVALER-2 I 


07664 


39 


07323 


00100 


06700 




BD 


•♦24.ERSTSW 


07676 


43 


07700 


02476 


06710 




SF 


NONEX,,, KILL AUTO EXECUTION 


07688 


32 


00457 


00000 


06720 




BB2 




07700 


42 






06730 


• 














06740 


• 




TEST IF SUE OF OBJECT CORE HAS BEEN EXCEEDED. 










06750 


• 




LINKAGE - BTM CTEST. **12 (RETURN AOORESS IF ERROR). 










06760 


■ 














06770 




OS 


6 


07707 




6 




06780 


CTEST 


CM 


ADOCOW, 99999 


07708 


14 


02528 


R9999 


06790 




BE 


ERl-2 


07720 


46 


07768 


01200 


06800 




C 


ADOCOW, OBJCRE 


07732 


24 


02526 


02496 


06810 




BI 


ER 1.1300 


07744 


46 


07770 


01300 


06820 


CT1 


TDM 


CTH-10,00 


07714 


15 


07766 


00000 


06830 




882 




07768 


42 






06840 


ER1 


80 


• -2,CT1U0 


07770 


43 


07768 


07766 


06850 




TFM 


EVALER-1,10000 


07782 


16 


07343 


JOOOO 


06860 




DC 
• 


lf«t« 


07793 




1 




06870 




BT 


EPRINT, EPRINT-l 


07794 


27 


07604 


07603 


06880 




TDM 


CTl*l0,0l 


07804 


15 


07766 


00001 


06890 




SF 


NONEX 


07818 


32 


00457 


00000 


06900 




B7 


CTEST-1,,6 


07810 


49 


0770P 




06910 


• 














06920 


■ 


THE SYMBOL TA8LE IS SEARCHED FOR EQUIVALENCE 










06930 


• 














06940 




TOM 


COLL, 0 


07818 


15 


02439 


00000 


06950 




TR 


C0LL-17, C0LL-15 


07810 


31 


02422 


02424 


06960 


LBAOO 


BNF 


LB2 , EVALAO-1 


07842 


44 


07876 


01675 


06970 




862 




07874 


42 






06980 


LB2 


TF 


8 SENT, COLL-2 


07876 


24 


08681 


02437 


06990 




BT 


BS, BS-1 


07888 


27 


08392 


08391 


07000 




BNF 


NIC, EQSW 


07900 


44 


08004 


08431 


07010 




AM 


BSBF-1,3,10 


07912 


11 


08411 


000-1 


07020 




TF 


ALPHA, BSBF-l, 11 


07924 


24 


02482 


0841N 


07030 


LADOR 


BNF 


•♦40, RELSW 


07914 


44 


07994 


02478 


07040 




BNF 


•♦48 t ALPHA 


07948 


44 


07994 


02482 


07090 




BD 


SftfL-12*MPVSN 


07944 


41 


04414 


08110 


07040 




TOM 


MVMltt.l.U 


07972 


tl 


04104 


OOOOJ 


07070 




CF 


ALPHA 


07914 


11 


02481 


40000 


07080 




•7 


filT-1,,6 


07994 


49 


0472N 




07090 


NIC 


CM 


S80UT, 00,10 


08004 


14 


02441 


004-0 


07100 




BNE 


• ♦14 


08014 


67 


08440 


01200 
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BTM 


EVALER, 50000 






08028 


17 


07344 


NOOOO 


07120 




DC 


it* #• 






06039 




I 




07130 




CH 


6SBF- 1 , LBLlM 






08040 


14 


08655 


K0009 


07140 




BNL 


•-24 






080S2 


46 


06028 


01300 


07150 




TO 


OGSVt L0SYM8+1 






08064 


25 


03343 


19998 


07 160 




TO 


LOSYMBM, SPSGM 






08076 


25 


19998 


02560 


07170 


* 


WR I T£ 


DISK-WLRC — SAVE CORE SYMBOLS 














07180 




TFM 


IORT»»*2 3 






08088 


16 


00565 


-•111 


07190 




B 


IORBCt S0EF1 »7 






08100 


49 


00520 


J 04 11 


07200 




TF 


82DCF*5» B10CF*5 






08112 


26 


10465 


10449 


07210 




TF 


SBCNT • SBOUT 






08124 


26 


02671 


02643 


07220 




TFM 


LlNITS-5, MAXL1M 






08136 


16 


03278 


J5997 


07230 




TFM 


LIMITS* LBLIM 






08148 


16 


03283 


K0009 


07240 


ROBLK 


AM 


BZDtr*5* 5PBL 






08160 


11 


10465 


-0040 


07250 


* 


READ 


DISK-WLRC— READ SYMBOL BLOCK 














07260 




TFM 


lORTt »*23 






08172 


16 


00565 


-8195 


07270 




8 


I0GT,SDEF2 » 7 






08184 


49 


00566 


J0419 


07280 




BT 


BSt BS-l 






08196 


27 


08392 


08391 


07290 




BO 


LBFND, EQSW 






08208 


43 


08312 


08631 


07 300 




SM 


SBCNT * It 10 






08220 


12 


02671 


000- 1 


07310 




BP 


ROBLK 






08232 


46 


08160 


01100 


07320 


* 


READ 


DISK-MLRC — RESTORE C0RE-ER5 














07330 




TFM 


I0RT,»+23 






08244 


16 


00565 


-8267 


07340 




B 


I0GT,S0EF1,7 






08256 


49 


00566 


J0411 


07350 




TO 


LOSYMB* 1 t DGSV 






08266 


25 


19998 


03343 


07360 




TR 


LIMITS-9, PRTLIM-4 






08280 


31 


03274 


02498 


07370 




BTM 


EVALER, 50000 






08292 


17 


07344 


NOOOO 


07380 




DC 
t 








08303 




1 




07390 


RCTR 


OS 


2,, RELOCATION COUNTER 




08305 




2 




07400 


RSYMSW OS 


1 * » ON FOR 


RELOCATABLE 


SYMBOL 


08306 




1 




07410 


RLOCSW OS 


L,» ON FOR 


RELOCATABLE 


EXPRESSION 


08307 




1 




07420 


LDABSW OS 


1,, ON FOR 


RELOCATABLE 


SYMBOL TO TABLE 


08308 




1 




07430 


8SW 


OS 


1»* ON INDICATES BLANK 


OPERANO 


08309 




I 




07440 


MPYSW 


OS 


I 






08310 




1 




07450 


LBFNO 


AM 


BSBF-l, 5, 10 






08312 


11 


08655 


000-5 


07460 




TF 


ALPHA, BSBF-1, 11 






08324 


26 


02682 


0865N 


07470 


• 


READ 


DISK-WLRC— RESTORE CORE 














07480 




TFM 


IORT,»*23 






08336 


16 


00565 


-8359 


07490 




B 


I0GT,SDEF1,7 






08348 


49 


00566 


J0411 


07500 




TO 


LOS YMB+ I t DGSV 






08360 


25 


19998 


03343 


075 10 




TR 


LIM1TS-9, PRTLIM-4 






08372 


31 


03274 


02498 


07520 




B7 


LADDR # » 2 






08384 


49 


-7936 




07530 


• 


BINARY SYMBOL TABLE SEARCH SUBROUTINE 














07540 


BS 


TR 


LIM-9, L1MITS-9 






08392 


31 


08663 


032 74 


07550 


8SCYC 


TF 


BS8F t CLERER+5 






08404 


26 


08656 


02701 


07560 




A 


BSBF, LIM 






08416 


21 


08656 


08672 


07570 




A 


BS8F, LIM-5 






08428 


21 


08656 


06667 


07580 




TF 


8SAV, BSBF 






08440 


26 


08662 


08656 


07590 




A 


BSBF, BSBF 






08452 


21 


08656 


08656 






A 


BSBF, BSBF 






08464 


2 1 


08656 


08656 


07610 




A 


BSBF, 8SAV 






08476 


21 


08656 


08662 


07620 




BO 


•♦24, BSBF 






08488 


43 


08512 


08656 


07630 




AM 


BSBF-1, 8,10 






08500 


11 


08655 


000-8 


07640 




SM 


BSBF-l, 8,10 






08512 


12 


08655 


000-8 



16 
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07650 




C 


BSBF-l, LIM-5 






08524 


24 


08655 


08667 


07660 




BNE 


• ♦26 






08536 


47 


08562 


01200 


07670 




TDM 


EQSW, 0 






08548 


15 


08631 


00000 


07680 




BB2 








08560 


42 






07690 




C 


BSENT, BSBF-l, 11 






08562 


24 


08685 


0865N 


07700 




BNE 


BSNEQ 






08574 


47 


08600 


01200 


07710 




TDM 


EQSW, 1,11 






08586 


15 


08631 


OOOOJ 


07720 




882 








08598 


42 






07730 


BSNEQ 


BH 


BSHI 






08600 


46 


08632 


01100 


07740 




TF 


LIM, BSBF-1 






08612 


26 


08672 


08655 


07750 




87 


BSCYC 






08624 


49 


08404 




07760 


BSHI 


TF 


LIM-5, BSBF-l 






08632 


26 


08667 


08655 


07770 




87 


BSCYC 






08644 


49 


08404 




07780 


EQSW 


OS 


, BSHI-1 






08631 




0 




07790 


BSBF 


DC 


6,0 






08656 




6 








-00000 














07800 


BSAV 


DC 


6,0 






08662 




6 








-00000 














07810 


LIM 


OC 


10,0 






08672 




10 








-000000000 














07820 




DC 


I,* 






08673 




1 




07830 


BSENT 


OS 


12 






08685 




12 




07840 


• 


















07850 


• 


ROUTINE TO LOAD LABELS 


INTO SYMBOL 


TABLE 










07860 


• 


















07870 


LDLBL 


C 


CLERERM1, INPUmO 






08686 


24 


02707 


02893 


07880 




BNE 


• ♦24 






08698 


47 


08722 


01200 


07890 


SNOTCD 


BTM 


OUTPUT, PHASEA 






08710 


17 


09958 


-3404 


07900 




TDM 


TSPEC, I 






08722 


15 


10520 


00001 


07910 




TF 


LAB, INPUT^O 






08734 


26 


03339 


02893 


07920 




BO 


LBCK2 , LAB 






08746 


43 


08802 


03339 


07930 




BO 


LBCK2, LAB- I 






08756 


43 


08802 


03338 


07940 




TF 


LAB, LAB-2 






08770 


26 


03339 


03337 


07950 




B7 


• -36 






08782 


49 


08746 




07960 




TF 


LAB, LAB-2 






08790 


26 


03339 


03337 


07970 


L8CK2 


C 


X03,LAB,, 


. OK 




08802 


24 


10517 


03339 


07980 




BE 


• ♦84 






08814 


46 


08898 


01200 


07990 




C 


X21,LAB, , 


/ OK 




08826 


24 


10519 


03339 


08000 




BE 


•♦60, it 


<>♦-•$, 


AND BLANK ARE NOT ALLOWED 


08838 


46 


08898 


01200 


08010 




C 


X33, LAB 






08B50 


24 


10515 


03339 


08020 




BH 


ER2B 






08862 


46 


09770 


01100 


08030 




C 


X69, LAB 






08874 


24 


10513 


03339 


08040 




BL 


• ♦24 






08866 


47 


08910 


01300 


08050 




TDM 


TSPEC ,0 






08898 


15 


10520 


00000 


08060 




BNF 


LBCK2-12, LAB-l 






08910 


44 


08790 


03338 


0807- 




80 


ER2B, TSPEC 






06922 


43 


09770 


10520 


06 . <•) 




TF 


BSENT, INPUmO 






08934 


26 


08665 


02893 


08090 




SF 


BSENT 






08946 


32 


08685 


00000 


08100 




BD 


• ♦60, INPUTS 10 






08958 


43 


09018 


02893 


08110 




BD 


•♦48, INPUT* 9 






08970 


43 


09018 


02892 


08120 




TF 


BSENT, INPUTS 






08982 


26 


08685 


02891 


08130 




CF 


8SENT-9 






08994 


33 


08676 


00000 


08140 




TF 


BSENT-10, HEO 






09006 


26 


08675 


10509 


08150 




BT 


BS, BS-l 






09018 


27 


08392 


08391 


08160 




BD 


ER4A, EQSW 






09030 


43 


09866 


08631 



17 
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PACE 17 



08170 




CM 


BSBF-l, LBLIM 




09042 


14 


08655 


K0009 


0S180 




8NL 


LOSOK 




09094 


46 


09330 


01300 


08190 




CM 


S80UT, 00.10 




09046 


14 


02643 


000-0 


08200 




BE 


LOSOK 




0907B 


46 


09330 


01200 


08210 




TO 


DGSV, LOSVMBH 




09090 


25 


03343 


19998 


08220 




TD 


L0SYM6+1, SPSGM 




09102 


25 


19998 


02560 


08230 


• 


IOCS 


CALL-WRITE DISK WLRC 












08240 




TFM 


I0RT,»*23 




09114 


16 


00565 


-9137 


08250 




8 


I DRBC * SDEF 1 • 7 




09126 


49 


00520 


J04U 


08260 




TFM 


LIMITS* LBLIM 




0913C 


16 


03283 


K0009 


08270 




TFM 


LlMITS-5, MAXLIM*. 


LEFT FULL BLOCK LIMIT 


09150 


16 


03276 


J5997 


08280 




TF 


SBCNT* SBOUT 




09162 


26 


P2671 


02643 


08290 




TF 


B2DCF*5, B10CF»5 




09174 


26 


10465 


10449 


08300 




TF 


LDSR+11, BSBF-l 




09186 


26 


09329 


08655 


08910 


LODSCV 


AM 


B2DCF+5, SPBL.10 




0919B 


11 


10465 


OOOMO 


08320 


• 


READ 


DISK-WLRC 












08330 




TFM 


I0RT«t>*23 




09210 


16 


00565 


-9233 


08340 




8 


IOGT.SDEF2.7 




09222 


49 


00566 


J0419 


08350 




8T 


BS* BS-l 




09234 


27 


08392 


08391 


08360 




BD 


ER4* EQSW 




09246 


43 


09818 


08631 


08370 




SM 


SBCNT * 1,10 




09258 


12 


02671 


000-1 


08380 




BNZ 


LDDSCY 




09270 


47 


09198 


01200 


08390 


• 


IOCS 


CALL-READ DISK WLRC 












08400 




TFM 


I0RT, #>*23 




092B2 


16 


00565 


-9305 


08410 




B 


1QGT* SDEF 1 , 7 




09294 


49 


00566 


J04U 


08420 




TO 


L0SYM8«-1. DGSV 




09306 


25 


19998 


03343 


08430 


LOSR 


TFM 


BSBF-l, •-• 




09318 


16 


08655 


-0000 


08440 


LOSOK 


SM 


PRTLIM, 17,10 




09330 


12 


02502 


000J7 


08450 




CM 


PRTLIM, MAXLIM 




09342 


14 


02502 


J5997 


08460 




BL 


TABFUL 




09354 


47 


09594 


01300 


08470 




TR 


LIMITS-9, PRTLIM-* 












08480 




TF 


SVOG+ll, BSBF-l 




09378 


26 


09413 


08655 


08490 




AM 


SVOG+ll, 6*10 




09390 


11 


09413 


000-6 


08500 


SVDG 


TD 


DGSV, •-• 




09402 


25 


03343 


00000 


08510 




TF 


• ♦18, SVDG*- 1 1 




09414 


26 


09432 


09413 


08520 




TDM 


SVDG+11,,6 




09426 


15 


094 1 L 


00000 


08530 




DC 


1,' ,• 




09437 




1 




08540 




SM 


LDTR* 6, 17,10 




09438 


12 


09468 


000J7 


08550 




SM 


LDTR* 11* 17,10 




09450 


12 


09473 


00OJ7 


08560 


LDTR 


TR 


•>-•), •-•,, 


SHIFT SYMBOLS 


09462 


31 


00000 


00000 


08570 




TF 


BSBF-l, BSENT , 6 




09474 


26 


0865N 


08685 


08580 




BNF 


•*48,RELSW 




09486 


44 


09534 


02478 


08590 




SF 


ADDRS 




09498 


32 


03295 


00000 


08600 




BD 


**24, LDABSW 




09510 


43 


09534 


08308 


08610 




CF 


ADDRS 




09522 


33 


03295 


00000 


08620 




TF 


•♦30, BSBF-l 




09534 


26 


09564 


08655 


08630 




AM 


•♦18, 5,10 




09546 


11 


09564 


000-5 


08640 




TF 


♦-•, ADDRS 




09558 


26 


00000 


03295 


08650 




TD 


SVDG*ll, DGSV, 6 




09570 


25 


0941L 


03343 


08660 




BTM 


OUTPUT* PHASEA 




09582 


17 


09958 


-3404 


08670 


TABFUL 


AM 


B2DCF*5, SPBL,10 




09594 


11 


10465 


OOOMO 


08680 




C 


SBOUT * SB MAX 




09606 


24 


02643 


02669 


08690 




BNL 


ER19 




09618 


46 


09886 


01300 


08700 




AM 


SBOUT, 1,10 




09630 


11 


02643 


000-1 


08710 




TD 


DGSV, LOSYMB+1 




09642 


25 


03343 


19998 



18 
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PAGE 


08720 




TD 


LOSYMB+1, SPSGM 


09654 


25 


19998 


02560 


08730 


• 


IOCS 


CALL-WRITE DISK WLRC 










08740 




TFM 


I0RT,»*23 


09666 


16 


00565 


-9689 


08750 




B 


IORBC ,SDEF2 , 7 


09678 


49 


00520 


J0419 


08760 




TD 


LOSYMB+l, DGSV 


09690 


25 


19998 


03343 


08770 




TFM 


PRTLIM, LBLIM-17 


09702 


16 


02502 


J9992 


08780 




TFM 


LOTR+U, LBLIM-ll 


09714 


16 


09473 


J9998 


08790 




TFM 


LDTR* 6, LBLIM-28 


09726 


16 


09468 


J9981 


08800 




TF 


LOSYMB, CLERER*52 


09738 


26 


19997 


02748 


08810 




TFM 


BSBF-l, LBLIM-17 


09750 


16 


08655 


J9992 


08820 




B7 


LDSOK 


09762 


49 


09330 




08830 


ER2B 


TFM 


EVALER-l, 20000 


09770 


16 


07343 


KOOOO 


08840 




DC 
• 


I * * • • 


09781 




1 




08850 




BT 


EPRINT, EPRINT-l 


09782 


27 


07604 


07603 


08860 




BO 


ERCOR. ERSTSW 


09794 


43 


07468 


02476 


08870 




BTM 


OUTPUT, PHASEA 


09806 


17 


09958 


-3404 


08880 


• 


READ 


DISK-WLRC 










08890 


ER4 


TFM 


I0RT,»*23 


09818 


16 


00565 


-9841 


08900 




B 


I0GT,S0EFl,7 


09830 


49 


00566 


J04U 


08910 




TR 


LIMITS-9, PRTLIM-4 


09842 


31 


03274 


02498 


08920 




TO 


LOSYMB+l, DGSV 


09854 


25 


19998 


03343 


08930 


ER4A 


TFM 


EVALER-l* 40000 


09866 


16 


07343 


MOOOO 


08940 




DC 


1* • *• 


09877 




1 




08950 




87 


ER2B*12 


09878 


49 


09782 




08960 


ER19 


TFM 


EVALER-l, 17900 


09886 


16 


07343 


J7900 


08970 




OC 
i 


l.'.« 


09897 




I 




08980 




TOM 


ASTSW»1*11 


09898 


15 


10521 


OOOOJ 


08990 




NOP 


OUTPUT, PHASEA 


09910 


41 


09958 


03404 


09000 




BT 


EPRINT, EPRINT-l 


09922 


27 


07604 


07603 


09010 




TFM 


•-23,17,10, 


CHANGE NOP TO BTM 09934 


16 


09911 


000J7 


09020 




B7 


• -36 


09946 


49 


09910 




09030 


• 














09040 


• 


OUTPUT ROUTINE 










09050 


• 














09060 




OS 


5 


09957 




5 




09070 


OUTPUT 


TF 


OT2DCF*5,OUT0CF*5 


09958 


26 


10497 


10481 


09080 




S 


OT2DCF+5. SVMTAO 


09970 


22 


10497 


02641 


09090 




CM 


OT2DCF*3,-2.10 


09982 


14 


10497 


000-K 


09100 




BH 


ER20,,, 


INTER SECTOR OVERFLOW 09994 


46 


10344 


01100 


09110 




BD 


2PASS* 2PSSW 


10006 


43 


10154 


02477 


09120 




BNR 


2SECT, INPUT2+99 


10016 


45 


10098 


03135 


09130 




TO 


INPUT2*99, SPSGM 


10030 


25 


03135 


02560 


09140 




TOM 


OUTDCF+8* I 


10042 


15 


10484 


00001 


09150 


• 


WRITE 


DISK-NO WLRC 










09160 




TFM 


I0RT***23 


10054 


16 


00565 


J0077 


09170 




B 


IORBC»OUT0Fl*7 


10066 


49 


00520 


J0427 


09160 




AM 


OUTOCF*S, I 


10076 


11 


10461 


-0001 


09190 




B7 


OUTPUT-1,,6,, 


RETURN 10090 


49 


0995P 




09200 


2SECT 


TDM 


OUTDCP+Bt 2 


10098 


IS 


10464 


00002 


09210 


• 


IOCS 


CALL-WRITE DISK-NO WLRC 










09220 




TFM 


I0RT,**2J 


10110 


16 


00S4I 


J01II 


09230 




B 


IORBCtOUTDPl.7 


10122 


69 


00S20 


J0427 


09240 


2S 


AM 


OUTDCP+St 2 


10134 


11 


10461 


-0002 



SPS tl-D PHASE A JULY ll,lt*3 



PACE It 



09290 




87 


OUTPUT-lt,* 


09260 


2PASS 


CM 


2PT**6 t INPUT2*208 


09270 




BL 


• ♦24 


09210 




BTN 


2PS0UT,»*12 


09290 




TR 


2PBUF , 1 NPUT2 


09300 




TO 


2PBUF*7 f ERRDIG 


09310 


2PTR 


TR 


INPUT2*8,2PBUF,2 


09320 




AM 


2PTR»*,8,10 


09330 




87 


OUTPUT-1,,6 


09340 




OS 


5 


09350 


2PS0UT 


TF 


0T2DCF*5, 0UTDCF*5 


09360 




AM 


0UTDCF*5,2,10 


09370 




TO 


INPUT2*208, SPS6M 


09360 


• 


IOCS 


CALL-WRITE DISK WITH 


09390 




TFM 


I0RT,**23 


09*00 




B 


I0RBC,0UTDF2,7 


09410 




TFM 


2PTR»6,INPUT2*8 


09420 


2PRE 


B 


2PS0UT-1,,6 


09430 


2PBUF 


DSC 


9,0* 






00000000* 


09440 


ER20 


NOP 


OUTPUT-1 , ,6 


09450 




TOM 


ASTSW,l,ll 


09460 




TFM 


E VALER-1 1 27000 


09470 




DC 
1 


U* *• 


09480 




BT 


EPRINTtEPRINT-i 


09490 




TFM 


ER20*1,49,10 


09500 




87 


OUTPUT-1,,6 


09510 


SDEFl 


OSC 


2,00,, 1 






00 




09520 




DSA 


B1DCF 


09530 




DC 
t 


l.« 


09540 


SDEF2 


OSC 


2,00,, 1 






00 




09550 




DSA 


B2DCF 


09560 




DC 


It" 


09570 


0UTDF1 


OSC 


2,02,, 1 






02 




09580 




DSA 


OUTDCF 


09590 




DC 
• 


l.« 


09600 


0UTDF2 


DSC 


2*00., ! 






00 




09610 




DSA 


0T2DCF 


09620 




DC 


It" 



PLUS DISK WITH WRONG LENGTH 



PLUS OISK WITH WRONG LENGTH 



PLUS DISK NOT WRONG LENGTH 



PLUS OISK WITH WRONG LENGTH 



1016* 


49 


0999P 




10194 


14 


10220 


-3244 


101*6 


47 


10190 


01300 


10178 


1? 


10290 


J0190 


10190 


31 


10334 


0303* 


10202 


25 


10341 


03273 


10214 


31 


-3044 


10334 


10226 


11 


10220 


000-8 


10238 


49 






10249 




5 




10250 


26 


10497 


10481 


102*2 


11 


10481 


000-2 


10274 


25 


03244 


02560 




16 






10298 


49 


00520 


J0435 


10310 


16 


10220 


-3044 


10322 


49 


1024R 


00000 


10334 




9 




10344 


41 


0995P 


00000 


10356 


15 


10521 


OOOOJ 


10368 


16 


07343 


K7000 


10379 




1 




10380 


27 


07604 


07*03 


10392 


14 


10345 


00OM9 


10404 


49 


0995P 




10411 




2 




10417 




5 


X 1 


10417 




J0444 




10418 




1 




10419 




2 




10425 




5 


X 1 


10425 




J0460 




10426 




I 




10427 




2 




10433 




5 


X 1 


10433 




J0476 




10434 




1 




10435 




2 




10441 




5 


X 1 


10441 




J0492 




10442 




1 
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09630 


B10CF 


OOA 




10444 




14 








0-0000-40J5998 










09640 




DC 


I.' 


10458 








09650 


82DCF 


OOA 


,O f »-»,SPBL,SBFADD 


104*0 




14 








0-0000-40J5998 










09660 




OC 
• 


it* 


10474 




1 




09670 


OUTDCF 


OOA 


,0,»-«,l,INPUT2 


10476 




14 








0-0000-01-3036 










09680 




DC 




10490 




1 




09690 


0T2DCF ODA 


,0,*-»,2,INPUT2*8 


10492 




14 








0-0000-02-3044 










09700 




DC 


lt» 


10506 




1 




09710 




DS 


I 


10507 




1 




09720 


HED 


OC 


2,0 


10509 




2 




09730 


CNTR 


-0 
DS 


2 


10511 




2 




09740 


X69 


DC 


2* 69 


10913 




2 




09750 


X33 


09 
DC 


2, 33 


10915 




2 




09760 


X03 


L3 
OC 


2,03 


10917 




2 




09770 


X21 


-3 
DC 


2,21 


10919 




2 




09780 


TSPEC 


Kl 
DS 


1 


10920 




1 




09790 


ASTSW 


OS 


I 


10921 




1 




09800 


• 














09810 


• 


PHASE 


A 1 — INITIALIZATION 










09820 


• 














09830 


START 


TFM 


I0RT,»*23 


10922 


16 


005*5 


J0545 


09840 




B 


I OGT, MCADEF , 7 


10534 


49 


00566 


J5622 


09850 




TDM 


MOCTOCO 


10546 


15 


16023 


00000 


09860 




TDM 


MODOC, 0 


10558 


15 


16022 


00000 


09870 




TF 


MONAME, CLERER+l 1 


10570 


26 


16035 


02707 


09880 




TF 


MOIDNOtCLERER+3 


10582 


26 


16039 


02699 


09890 




TFM 


NOMAD, 99999 


10594 


16 


00415 


R9999 


09900 




TFM 


INKRM,99999 


10606 


16 


02565 


R9999 


09910 




TFM 


ADDC0W»2401 


10618 


16 


02528 


-2401 


09920 




TF 


L.MOML 


10630 


26 


02520 


16041 


09930 




TO 


NOISE fMONOIS 


10642 


25 


02521 


16044 


09940 




TF 


SUBNO.MOSBNO 


10654 


26 


02523 


16043 


09<»" ? 


START2 


TDM 


0,0 


10666 


15 


00000 


00000 


r *<W 




TR 


19999, CLERER+52 


10*78 


31 


19999 


02748 


09970 




8NR 


#♦44,0 


10*90 


45 


10734 


00000 


09980 




TDM 


PROCRE.2,11 


10702 


19 


02497 


OOOOK 


09990 




TFM 


HCL IM ,LBL IN 


10714 


1* 


02507 


K0009 


10000 




87 


A1C1 


1072* 


49 


10814 




10010 




TR 


39999, CLERER*52 


10734 


31 


39999 


02748 


10020 




BNR 


• ♦44 


1074* 


49 


10790 


00000 


10030 




TDM 


PR0CRE,4,11 


1075* 


19 


02497 


OOOOM 


10035 




TFM 


HCLIM,IBLIM*1176M7 


10770 


1* 


02507 


MOOOl 


10040 




87 


A1CI 


10782 


49 


10814 





2! 
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10060 




TOM 


PROCRE.6,11 




10790 


15 


02497 


00000 


10070 




TFM 


MCLIM,LBL1M*2M1T6»17 




10802 


16 


02507 


N9993 

02497 


10060 


A1C1 


TO 


0BJCRE-4,PR0CRE 




10814 


25 


02492 


10090 


TF 


PRTLIM, HCLIM 




10826 


26 


02502 


02507 


10100 




SM 


PRTLIM, 17*10 




10838 


12 


02502 


000J7 


10110 




TR 


LIMITS-9, PRTLIM-4 




106S0 


31 


03274 


02496 


10120 




TF 


LDTR* 1 1 » LIMITS 




108*2 


26 


09473 


03263 


10130 




TF 


LDTR* 6, LIMITS 




10874 


26 


09468 


03263 


10140 




SM 


LDTRMl, 11.10 




10886 


12 


09473 


000 J 1 


10150 




SM 


LOTR* 6, 28*10 




10898 


12 


09468 


000K8 


10160 




TF 


•♦30, OB JCRE 




10910 


26 


10940 


02496 


10170 




SM 


•♦18,1,10 




10922 


12 


10940 


000- 1 


10180 




TF 


•-• »CLERER*52 




10934 


26 


00000 


02748 


10190 




TO 


INCODE.NOEXEC 




10946 


25 


02491 


00426 


10200 




CF 


INCOOE 




10956 


33 


02491 


00000 


10210 




CM 


INCODE.03,10 




10970 


14 


02491 


000-3 


10220 


ST2L 


BL 


C15P 




10962 


47 


13424 


01300 


10230 




BE 


CUP 




10994 


46 


13368 


01200 


10240 




B7 


C13P 




11006 


49 


13312 


02873 


10250 


PROCON 


BNR 


•♦24.INPUT-10 




11014 


45 


11038 


10260 




TFM 


INPUT-10,00, 10 




11026 


16 


02873 


000-0 


10270 




TFM 


•♦30, INPUT-ll 




11038 


16 


11068 


-2872 


10280 




AM 


•♦18,2,10 




11050 


11 


11066 


000-2 


10290 




CF 


• -• 




11062 


33 


00000 


00000 


10300 




CM 


• -6#INPUTM5l 




11074 


14 


11066 


-3034 


10310 




BL 


•-36 




11086 


47 


11050 


01300 


10320 




CM 


INPUT-10,14,10 




11098 


14 


02673 


000J4 


10330 




BNE 


CALLA2 




11110 


47 


13972 


01200 


10340 




BO 


•♦36,TVINSW 




11122 


43 


11158 


02473 


10350 




RCTY 






11134 


34 


00000 


00102 


10360 




WATY 


INPUT-10, , , 


TYPE CONTROL STATEMENT 


11146 


39 


02873 


00100 


10370 




TFM 


SBNRM1.INPUT-10,, 


COMPRESS BLANKS 


11158 


16 


11193 


-2873 


10380 


SIP 


AM 


SBNR+11,2, 10 




11170 


11 


11193 


000-2 


10390 


SBNR 


BNR 


•♦20, •-• 




11182 


45 


11202 


00000 


10400 




87 


SLPX 




11194 


49 


11294 




10410 




C 


CLERER+l,SBNR*li,ll 




11202 


24 


02697 


U19L 


10420 




BNE 


SLP 




11214 


4? 


11170 


01200 


10430 




TF 


STR+ll,SBNR*ll 




11226 


26 


11285 


11193 


10440 




TF 


STR^6,SBNRM1 




11238 


26 


11280 


11193 


10450 




SM 


STR*6,1, 10 




11250 


12 


11280 


000- 1 


10460 




AM 


STRM1,1,10 




11262 


11 


11285 


000-1 


10470 


STR 


TR 






11274 


31 


00000 


00000 


10480 


B7 


SBNR 




11266 


49 


11182 


-2895 


10490 


SLPX 


CM 


SBNR*ll,INPUT-10*2»ll,, 


RECOGNIZE CONTROL STATEMENT 


11294 


14 


11193 


10500 




BL 


• ♦36 


11306 


47 


11342 


01300 


10510 




C 


INPUT-10^2»10,C1+2M0 




11318 


24 


02893 


14869 


10520 




BE 


C1P 




11330 


46 


12672 


01200 


10530 




CM 


SBNR* 11, INPUT-10+2»14 




11342 


14 


11193 


-2901 


10540 




BL 


• ♦36 




11354 


47 


11390 


01300 


10550 




C 


INPUT-10+2»13,C2+2»13 




1 1366 


24 


02899 


14897 


10560 




8E 


C2P 




11378 


46 


12752 


01200 


10570 




CM 


SBNR+ll,INPUT-l0^2»15 




11390 


14 


11193 


-2903 


10580 




BL 


• ♦36 




11402 


47 


11438 


01300 


10590 




C 


INPUT-10^2«14,C3^2»14 




11414 


24 


02901 


14927 


10600 




BE 


C3P 




11426 


46 


12872 


01200 


10610 




CM 


SBNRMl, INPUT- 10+2«11 




11438 


14 


11193 


-2895 
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PAGE 


10620 


BL 


• ♦36 


11450 


47 


11486 


01300 


10630 


C 


INPUT-10 + 2M0,C4^2«10 


11462 


24 


02893 


14949 


10640 


BE 


C4P 


11474 


46 


13052 


01200 


10650 


CM 


SBNR^11,INPUT-10+2«10 


11486 


14 


11193 


-2893 


10660 


BL 


• ♦36 


11498 


47 


11534 


01300 


10670 


C 


INPUT-l0+2»9,C5+2»9 


11510 


24 


02891 


14969 


10680 


BE 


C5P 


11522 


46 


13072 


01200 


10690 


CM 


SBNR+il,INPUT-l0^2»20 


11534 


14 


11193 


-2913 


10700 


BL 


• ♦36 


11546 


47 


11582 


01300 


10710 


C 


INPUT-10+2«19,C6+2»19 


11558 


24 


02911 


15009 


10720 


BE 


C6P 


11570 


46 


13092 


01200 


10730 


CM 


SBNR+ll, INPUT-10+2M6 


11582 


14 


11193 


-2905 


10740 


BL 


• ♦36 


11594 


47 


11630 


01300 


10750 


C 


INPUT-10+2»15,C7*2»15 


11606 


24 


02903 


15041 


10760 


BE 


C7P 


11618 


46 


13112 


01200 


10770 


CM 


SBNR+ll,INPUT-10^2»ll 


11630 


14 


11193 


-2895 


10780 


BL 


• ♦36 


11642 


47 


11678 


01300 


10790 


C 


INPUT-10+2»10,C8+2«10 


11654 


24 


02893 


15063 


10800 


BE 


CBP 


11666 


46 


13132 


01200 


10810 


CM 


SBNR+11,INPUT-10^2«5 


11678 


14 


11193 


-2883 


10820 


BL 


• ♦36 


11690 


47 


11726 


01300 


10830 


C 


INPUT-10^2»4,C9^2«4 


11702 


24 


02881 


15073 


10840 


BE 


C9P 


11714 


46 


13152 


01200 


10850 


CM 


SBNR+ 11, INPUT- 10^2»16 


11726 


14 


11193 


-2905 


10860 


BL 


• ♦36 


11738 


47 


11774 


01300 


10870 


C 


INPUT-10^2«15,C10^2»15 


11750 


24 


02903 


15105 


10880 


BE 


C10P 


11762 


46 


13232 


01200 


10890 


CM 


SBNRM1,!NPUT-10+2«17 


11774 


14 


11193 


-2907 


10900 


BL 


• ♦36 


11786 


47 


11822 


01300 


10910 


C 


INPUT-10^2»16,CIU2»16 


11798 


24 


02905 


15139 


10920 


BE 


CUP 


11810 


46 


13252 


01200 


10930 


CM 


SBNRM1, INPUT-10+2M7 


11822 


14 


11193 


-2907 


10940 


BL 


• ♦36 


11834 


47 


11870 


01300 


10950 


C 


INPUT-10+2»16,C11A^2«16 


11846 


24 


02905 


15173 


10960 


BE 


CHAP 


11858 


46 


13272 


01200 


10970 


CM 


S8NR^ll,INPUT-lO+2»lO 


11670 


14 


11193 


-2893 


10980 


BL 


• ♦36 


11882 


47 


11918 


01300 


10990 


C 


INPUT-10+2»9,C12^2»9 


11894 


24 


02891 


15193 


11000 


BE 


CUP 


11906 


46 


13292 


01200 


11010 


CM 


SBNR^ll, INPUT-10+2»15 


11918 


14 


11193 


-2903 


11020 


BL 


• ♦36 


11930 


47 


11966 


01300 


11030 


C 


INPUT-10^2»14, C13^2*14 


11942 


24 


02901 


15223 


11040 


BE 


C13P 


11954 


46 


13312 


01200 


11050 


CM 


S8NR>il,INPUT-10^2»20 


11966 


14 


11193 


-2913 


11060 


BL 


• ♦36 


11976 


47 


12014 


01300 


11070 


C 


INPUT-10+2»19,C14+2»19 


11990 


24 


02911 


15263 


11080 


BE 


C14P 


12002 


46 


13366 


01200 


11090 


CM 


S6NR>lltINPUT-10*2*21 


12014 


14 


11193 


-2915 


11100 


BL 


• ♦36 


12026 


47 


12062 


01300 


11110 


C 


INPUT-10^2»20.Cl5+2»20 


12038 


24 


02913 


15305 


11120 


BE 


C15P 


12050 


44 


13424 


01200 


11130 


CM 


S6NR+ 11 , I NPUT-10^2»9 


12062 


14 


11193 


-2891 


11140 


BL 


•♦36 


12074 


47 


12110 


01300 


11150 


C 


INPUT-10^2«8,C16^2M 


12066 


24 


02689 


15323 


11160 


BE 


C16P 


12096 


46 


13468 


01200 


11170 


CM 


S6Nft>ll,INPUT-l0^2*15 


12110 


14 


11193 


-2903 



23 



SPS 11-0 PHASE A JULY 



11,1963 



PACE 23 



into 


•L 


•♦3* 


12122 


47 


12158 


01300 


11190 


C 


INPUT- 10*2« 14,Cl7+2« 14 


12134 


24 


02901 


19393 


11200 


6E 


C17P 


12146 


44 


13498 


01200 


11210 


cm 


S6NR+U, INPUT-10+2«12 


12158 


14 


11193 


-2897 


11220 


BL 


• ♦36 


12170 


47 


12206 


01300 


11230 


C 


INPUT- 10+2* 1 l,C17A+2« 11 


12182 


24 


02895 


15377 


112*0 


BE 


CI7AP 


12194 


44 


13508 


01200 


11230 


CM 


S8NA+ U t INPUT- 10*2*19 


12206 


14 


11193 


-2903 


11260 


BL 


• ♦36 


12218 


47 


12254 


01300 


11270 


C 


INPUT-lO*2«14tC18*2M4 


12230 


24 


02901 


11407 


11280 


BE 


CIBP 


12242 


46 


13528 


01200 


11290 


CM 


SBNR+U , INPUT-10+2»14 


12294 


14 


11193 


-2905 


11300 


BL 


• ♦36 


12266 


47 


12302 


01300 


11310 


C 


INPUT-10+2M5,C19+2»15 


12278 


24 


02903 


15439 


11320 


BE 


C19P 


12290 


46 


13572 


01200 


11330 


CM 


SBNR+11, INPUT- 10*2* 18 


12302 


14 


11193 


-2909 


11340 


BL 


• ♦36 


12314 


47 


12350 


01300 


11350 


C 


INPUT-10+2»l7iC20+2»l7 


12326 


24 


02907 


15475 


11360 


BE 


C20P 


12338 


46 


13592 


01200 


11370 


CM 


SBNR+U,INPUT-10+2«12 


12350 


14 


11193 


-2897 


11380 


BL 


• ♦36 


12362 


47 


12398 


01300 


11390 


C 


INPUT-lO+2»ll,C21+2«il 


12374 


24 


02895 


15499 


11400 


BE 


C21P 


12386 


46 


13768 


01200 


11410 


CM 


SBNR^llt INPUT- 10+2M4 


12398 


14 


11193 


-2901 


11420 


BL 


• ♦36 


12410 


47 


12446 


01300 


11430 


C 


INPUT-10+2»l3tC22+2»l3 


12422 


24 


02899 


15527 


11440 


BE 


C22P 


12434 


46 


13788 


01200 


11450 


CM 


SBNR^ll,INPUT-10+2»5 


12446 


14 


11193 


-2883 


11460 


BL 


• ♦36 


12458 


47 


12494 


01300 


11470 


C 


INPUT-10^2»4,C23+2«4 


12470 


24 


02881 


15537 


11480 


BE 


C23P 


12482 


46 


13808 


01200 


11490 


CM 


SBNR+ll,INPUT-l0^2«9 


12494 


14 


11193 


-2891 


11500 


BL 


• ♦36 


12506 


47 


12542 


01300 


11510 


C 


INPUT-10*2»8.C24+2»8 


12518 


24 


02 889 


15555 


11520 


BE 


C24P 


12530 


46 


13864 


01200 


11530 


CM 


SBNR+ll. INPUT-10^2»5 


12542 


14 


11193 


-2883 


11540 


BL 


• ♦36 


12554 


47 


12590 


01300 


11550 


C 


lNPUT-10+2»4, C25^2»4 


12566 


24 


02881 


15565 


11560 


BE 


C25P 


12578 


46 


13932 


01200 


11570 


CM 


SBNR+ll,INPUT-lO*2«27 


12590 


14 


11 193 


-2927 


1 1580 


BL 


• ♦36 


12602 


47 


12638 


01300 


11590 


C 


INPUT-l0*2»26,C26+2»26 


12614 


24 


02925 


15619 


11600 


BE 


C26P 


12626 


46 


13952 


01200 


11601 


WATY 


IOMES 


12638 


39 


12659 


00100 


11610 


B7 


PHASE* 


12650 


49 


03404 





11615 IOMES DAC 07, (ID)' 12659 7 X 2 

1 ID>« 



11620 


C1P 


TFM 


OBJCRE, 0, , 


OBJECT CORE N 


12672 


16 


02496 


-0000 


11630 




TO 


OBJCRE-4, INPUT-l0+2»ll 




12684 


25 


02492 


02895 


11640 




SF 


OBJCRE-4 




12696 


32 


02492 


00000 


11650 




CM 


OBJCRE, 20000 




12708 


14 


02496 


KOOOO 


1 1660 




BNL 


• ♦24 




12720 


46 


12744 


01300 


11670 




TFM 


OBJCRE, 20000 




12732 


16 


02496 


KOOOO 


11680 




B7 


PHASEA 




12744 


49 


03404 




11690 


C2P 


SNA 


• ♦20,INPUT-10^2M5,, 


SUBROUTINE NUMBER NN 


12752 


45 


12772 


02903 


11700 




B7 


C2PI 




12764 


49 


12796 
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24 



11710 




C 


C70, INPUT-10+2M5 


11720 




BNH 


C2P2 


11730 


C2P1 


TFM 


SUBNO,O0,lO 


11740 




TO 


SU8N0,INPUT-10+2»14 


11750 




87 


PHASEA 


11760 


C2P2 


TD 


SUBNO,INPUT-10*2»15 


11770 




TO 


SUBN0-l,INPUT-l0+2»14 


11780 




SF 


SUBNO-1 


11790 




B7 


PHASEA 


11800 


C3P 


BNR 


•♦20, INPUT-10+2«16,, 


11810 




B7 


C3P1 


11820 




C 


C70,INPUT-10+2M6 


11830 




BNH 


C3P2 


11840 


C3PI 


TFM 


L,00,10 


11850 




TD 


L * INPUT- 10+2* I 5 


11860 




87 


C3P3 


11870 


C3P2 


TD 


L,INPUT-10+2»16 


11880 




TO 


L-l,INPUT-lO*2«l5 


11890 




SF 


L-l 


11900 


C3P3 


CM 


L,2,10 


11910 




BL 


• ♦36 


11920 




CM 


L, 45, 10 


11930 




BNH 


♦ ♦24 


1 1940 




TF 


LtMOML 


1 1950 




B7 


PHASEA 


11960 


C4P 


TD 


NOISE , INPUT- 10^2*11«, 


11970 




87 


PHASEA 


11980 


C5P 


TDM 


ERSTSW,1,U, 


11990 




87 


PHASEA 


12000 


C6P 


TOM 


RELSW,1,U, 


12010 




87 


PHASEA 


12020 


C7P 


TDM 


MOCT0C,l,U, 


12030 




87 


PHASEA 


12040 


C8P 


TOM 


MOCTOCO.U, 


12050 




87 


PHASEA 


12060 


C9P 


TD 


CTVT .INPUT+8,, 


12070 




TD 


CTVT-l.iNPUT+6 


12080 




TO 


CTVT-2t INPUT+4 


12090 




TD 


CTVT-3.INPUT+2 


12100 




TD 


CTVT-4, INPUT 


12110 




SF 


CTVT-4, 


12120 




B7 


PHASEA 


12130 


C10P 


TOM 


STTYSMtl ,11 » , 


12140 




B7 


PHASEA 


12130 


CUP 


TOM 


STPCSN.l.ll, 


'.J 60 




87 


PHASEA 


iii70 


CHAP 


TOM 


STPR$W,l,ll, 


12180 




67 


PHASEA 


12190 


C12P 


TOM 


iNTASWf l.ll. 


12200 




87 


PHASEA 


12210 


C13P 


TOM 


COINS*, 1,11, 


12220 




TON 


PTINSWtO 


12230 




TON 


TV1NSN»0 


12240 




TON 


INC00E,5 


12290 




87 


PHASEA 


12260 


C14P 


TDM 


PTINSW,l,ll, 





12772 


24 


15621 


02903 




12784 


47 


12828 


01100 




12796 


16 


02523 


000-0 




12808 


25 


02523 


02901 




12820 


49 


03404 






12828 


25 


02523 


02903 




12840 


25 


02522 


02901 




12852 


32 


02522 


00000 




12864 


49 


03404 




MANTISSA LENGTH NN 


12872 


45 


12892 


02905 




12884 


49 


12916 






12892 


24 


15621 


02905 




12904 


47 


12948 


01100 




12916 


16 


02520 


000-0 




12926 


25 


02520 


02903 




12940 


49 


12984 






12948 


25 


02520 


02905 




12960 


25 


02519 


02903 




12972 


32 


02519 


00000 




12984 


14 


02520 


000-2 




12996 


47 


13032 


01300 




13008 


14 


02520 


O0OM5 




13020 


47 


13044 


01100 




13032 


26 


02520 


16041 




13044 


49 


03404 




NOISE DIGIT N 


13052 


25 


02521 


02895 




13064 


49 


03404 




ERROR STOP 


13072 


15 


02476 


OOOOJ 




13084 


49 


03404 




ASSEMBLE RELOCATE* \Z 


13092 


15 


02478 


OOOOJ 




13104 


49 


03404 




OUTPUT PAPER TAPE 


13112 


15 


16023 


OOOOJ 




13124 


49 


03404 




OUTPUT CARO 


13132 


15 


16023 


0000- 




13144 


49 


03404 




CTVT NNNMN 


13152 


25 


02489 


02691 




13164 


25 


02488 


02669 




13176 


29 


02467 


02667 




13166 


25 


02486 


02669 




13200 


25 


02485 


02663 




13212 


32 


02485 


00000 




13224 


49 


03404 




TYPE SYMBOL TABLE 


13232 


19 


02471 


OOOOJ 




13244 


49 


03404 




PUNCH SYMBOL TABLE 


13252 


19 


02470 


OOOOJ 




13264 


49 


03404 




PRINT SYMBOL TABLE 


13272 


19 


02472 


OOOOJ 




11284 


49 


03404 




INTERRUPT XXX 


13292 


19 


02483 


OOOOJ 




13304 


49 


03404 




BEGIN CARO INPUT 


13312 


15 


02474 


OOOOJ 




13324 


15 


02475 


00000 




13334 


19 


02473 


00000 




13349 


19 


02491 


00009 




13360 


49 


03404 




616 IN PAPER TAPE INPUT 


13368 


15 


02479 


OOOOJ 
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PACE 23 



12270 




TOM 


TYINSW,0 




133BO 


15 


02473 


00000 


12280 




TOM 


COINS*, 0 




13392 


15 


02474 


00000 


12290 




TDM 


ENCODE.) 




13404 


15 


02491 


00003 


12)00 




87 


PHASE A 




13414 


49 


03404 




12)10 


C15P 


TOM 


TVINSN,1,U, 


BEGIN TYPEWRITER INPUT 


13424 


15 


02473 


OOOOJ 


12320 




TDM 


CDINSW.O 




1)4)4 


15 


02474 


00000 


12)30 




TDM 


PTINSW.O 




1)448 


15 


02475 


00000 


12)40 




87 


PHASEA 




1)440 


49 


03404 




12350 


CUP 


TDM 


LSCDSM.1,11 t 


LIST CARD 


1)448 


15 


02479 


OOOOJ 


12360 




87 


PHASEA 




13480 


49 


03404 




12370 


C17P 


TDM 


LSTYSW,l,ll, 


LIST TYPEWRITER 


13488 


15 


02480 


OOOOJ 


12380 




87 


PHASEA 




13300 


49 


03404 




12390 


C17AP 


TDM 


LSPRSW,l,ll, 


LIST PRINTER 


1)508 


15 


02481 


OOOOJ 


12400 




87 


PHASEA 




13520 


49 


03404 




12410 


C18P 


BNF 


PHASEA, ISTAT-30,, 


STORE CORE IMAGE 


13528 


44 


03404 


02529 


12420 




TO 


ISTAT-)0, FLGAH 


13540 


25 


02529 


03341 


12430 




TOM 


MODOC, 0,11, 




13552 


15 


16022 


0000- 


12440 




87 


PHASEA 




13544 


49 


03404 




12450 


C19P 


TDM 


MODOC ,1,11, 


STORE RELOADABLE 


13572 


15 


16022 


OOOOJ 


12460 




B7 


PHASEA 




13584 


49 


03404 




12470 


C20P 


BO 


PHASEA, SSTSW, ,, 


SYSTEM SYMBOL TABLE 


13592 


43 


03404 


13767 


12*80 




TF 


SSTDCF*13,HCL!M 




13604 


26 


13765 


02507 


12490 


C20P2 


SH 


SSTDCF*l3,SSTSCT«100*ll 




13616 


12 


13765 


-3511 


12S00 




TFM 


IORT,«*23 




13628 


16 


00565 


J3651 


12510 




8 


I0GT,SSTDF,7 




13640 


49 


00566 


J3743 


12520 




TF 


C20PI*11,SST0CF*13 




13652 


26 


13687 


13765 


12530 




AH 


C20Pl*ll*4,10 




13664 


11 


13687 


000-4 


12540 


C20P1 


S 


PRTL I M, •-• 




13676 


22 


02502 


00000 


12550 




TR 


LIMITS- 9, PR TLI M-4 




1 3688 


31 


03274 


02498 


12560 




S 


LDTR*ll,C20Pl>li,ll 




13700 


22 


09473 


1368P 


12570 




S 


LDTR* 6,C20P1* 1 1 , 1 1 




13712 


22 


09468 


1 368P 


125BO 




TOM 


SSTSW, I, 11 




13724 


15 


13767 


OOOOJ 


12590 


C20P4 


87 


PHASEA 




13736 


49 


03404 




1 2600 


SSTOF 


osc 


2,22* * ABSOLUTE 


DISK NOT WRONG LENGTH 


1 3743 




2 




12610 


C20P3 


22 
OSA 


SSTDCF 




13749 




5 


X I 












1 3 749 








12620 




OC 


I, • 




13750 




1 




12630 


SSTDCF 


DDA 


,0,SSTOAD,SSTSCT,«-» 
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17 


02592 


J0848 


14920 


FFIOCF 


OOA 


,0,A4DAD,A4SCT, INSTAN 


11434 




14 








0J8676-23J0326 










14930 




OC 
t 


!•• 


11450 




1 




14940 


OVLCC 


TFM 


CFFA, FFIOCF 


11452 


16 


02629 


J1436 


14950 




BTM 


CFF,OVLC 


11444 


17 


02592 


J2214 


14960 


MCCALL 


TFM 


CFFA, A3DCF 


11474 


16 


02629 


J 1500 


14970 




BTM 


CFF.MACA02 


11488 


17 


02592 


J0526 


14980 


A3DCF 


OOA 


,Q,A3DAD,A3SCT, INSTAN 


11500 




14 








0J6B54-22J0928 










14990 




OC 
1 




11514 




1 




15000 


DGM 


TOM 


INPUT2, 5 


11514 


15 


010)4 


OOOOf 


15010 




BTM 


EVALAOf •♦12, 4 


11 526 


IT 


0S076 


11140 


15020 




BNF 


DAC3-32,BSW 


11540 


64 


12300 


06109 


15030 




AM 


AOOCOMt 1 


11*52 


11 


02528 


-0001 



SI 



SP$ II-D PHASE A JULY 11 i It* J 



PAGE 31 



190*0 










1 1 96* 


26 


03295 


02528 


19090 




87 


OAC J* 32 




11976 


*9 


12300 






MACRO 


TO 


•♦« Jt ADDCOW 




1191* 


25 


11607 


02929 


i «n?n 




IE 


If A JUST 




11996 


29 


11619 


02399 


19010 




AM 


ADDCOW, » 10 




11608 


11 


02928 


000-0 


19090 




SF 


Z§P0*2» 




11620 


32 


02329 


00000 


19100 




TP 


INPUT2+6. IEF0>29 




11632 


26 


03042 


02329 


19110 


















19 120 




SET ONE TO INDICATE SUBROUTINE IS REQUIRED 










191 90 


* 
















191*0 




TFM 


•♦30.ISTAT-30 




116*4 


16 


11674 


^■2929 


19190 




A 


•♦16,ZEP0^29 




11696 


21 


11674 


02329 


19160 




TON 


•-•• 1 




11668 


19 


00000 


00001 


19170 




87 


DSA,,,T0 OSA ROUTINE 


TO COUNT NUMBER OF OPERANOS 


11690 


*9 


13604 




151 80 


* 


EVALUATE LENGTH OF DAS 




























1 5200 


DAS 


8TM 


EVALAD.^12,4 




11688 


17 


09076 


11700 


15210 




TF 


LNTHt ADORS 




11700 


26 


02387 


03295 


15220 




TF 


TEMPR , LNTH 




11712 


26 


02571 


02387 


15230 




A 


TEMPR f TEMPR 




11724 


21 


02571 


02571 


152*0 




TON 


INPUT2, 2 




11736 


15 


03036 


00002 


15250 




TD 


INPUT2*6» ZEP0*29 




117*8 


25 


03042 


02329 


15260 




87 


DAC 3 




11760 


49 


12332 




15270 


* 
















15280 




EVALUATE LENGTH OF DAC 












15290 


• 
















15900 


OAC 


TON 


INPUT2, 0 




11768 


15 


03036 


00000 


15310 




TFM 


STCHAR+llt 00,10 




11780 


16 


12095 


000-0 


15320 




OAC 
t 


lt«t» 




11791 




1 


X 2 


15330 




BTM 


EVALAD,»*l2t4 




11792 


17 


05076 


11804 


15340 




TF 


LNTHf ADDRS 




1180* 


26 


02387 


03295 


15350 




CM 


LNTHt 51 




11816 


14 


02387 


-0051 


15360 




BN 


• ♦80 




11828 


47 


11908 


01300 


15370 




TFM 


EVALER-l , 80000,. 


ER 8, LENGTH TOO BIG 


11840 


16 


07343 


QOOOO 


15380 




DC 


!,»,• 




1 1851 




1 




15390 




TFM 


LNTH, 00050 




1 1852 


16 


02387 


-0050 


15*00 




TFM 


TEMPR, 100 




! 1864 


16 


02571 


-0100 


15410 


DACER 


BT 


E PRINT, EPRlNT-l 




1 1876 


27 


07604 


07603 


15420 




BO 


ERCOR, ERSTSW 




11888 


43 


07468 


02476 


15430 




B7 


DACR 




1 1900 


49 


12156 




15440 




A 


ADDRS, ADDRS 




11908 


21 


03295 


03295 


15450 




TF 


TEMPR, ADDRS 




11920 


26 


02571 


03295 


15460 




BNR 


•♦20,INPUT*20 




11932 


45 


11952 


02903 


15470 




B7 


ER9DAC 




11944 


49 


11964 




15480 




BNR 


•♦32, INPUT*22 




11952 


45 


11984 


02905 


15490 


ER9DAC 


TFM 


EVALER-l, 90000,, 


CONSTANT NOT SPECIFIED 


11964 


16 


07343 


ROOOO 


15500 




DC 


it»t» 




11975 




1 




155 10 




B7 


DACER 




1 1976 


49 


11876 




15520 




TFM 


• ♦35, INPUU19 




11984 


16 


12019 


-2902 


15530 




A 


•♦23, TEMPR 




1 1996 


2 1 


12019 


02571 


15540 


CHVALD 


TR 


0UT^2 




12008 


31 


02220 


00000 


15550 




BNR 


•♦32, OUT* 3 




12020 


45 


12052 


02221 


15560 


E10DAC 


TFM 


EVALER-l, 17000,, 


MIS-COUNT OF CONSTANT LENGTH 


12032 


16 


07343 


J7000 



32 
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15570 




DC 


!.•,• 


12043 




I 




15580 




87 


DACER 


12044 


49 


11876 




15590 




BNR 


•♦20,0UT+5 


12052 


45 


12072 


02223 


15600 




B7 


• ♦32 


12064 


49 


12096 




15610 




CM 


0UT^5,23,10 


12072 


14 


02223 


000K3 


15620 


STCHAR 


BNE 


E10DAC 


12084 


47 


12032 


01200 


15630 




TD 


STCHAR+ll.OUT+5 


12096 


25 


12095 


02223 


15640 




AM 


CHVALD* 1 1,3 


12108 


11 


12019 


-0003 


15650 




TFM 


CHVALDm,,6 10 


12120 


16 


1201R 


000-0 


15660 




DC 
• 


!,»,• 


12131 




1 




15670 




AM 


CHVALD+11,1,10 


12132 


11 


12019 


000- 1 


15680 




TR 


INPUT+2l,CHVALD+ll,ll 


12144 


31 


02904 


1201R 


15690 


DACR 


TF 


INPUT2+6, ZEP0^29 


12156 


26 


03042 


02329 


15700 




TO 


INPUT2^4, LNTH 


12168 


25 


03040 


02387 


15710 




TD 


INPUT2^3, LNTH- I 


12180 


25 


03039 


02386 


15720 




BNR 


DAC3,STCHARm 


12192 


45 


12332 


12095 


15730 


• 


ADDRESS ASSIGNED BY PROCESSOR 










15740 


• 














15750 


NOSINE 


TO 


•♦23,ADDC0W 


12204 


25 


12227 


02528 


15760 




TD 


•♦23, JSTBL 


12216 


25 


12239 


02459 


15770 




AM 


ADDCOW,, 10 


12228 


11 


02528 


000-0 


15780 




TF 


ADDRS, ADDCOW 


12240 


26 


03295 


02528 


15790 




A 


ADDCOM, TEMPR 


12252 


21 


02528 


02571 


15800 




SM 


ADDCOW, 2, 10 


12264 


12 


02528 


000-2 


15810 




BO 


•♦24.ZEP0+28 


12276 


43 


12300 


02328 


15820 




TF 


ADDRS, ADDCOW 


12288 


26 


03295 


02528 


15830 




BTM 


CTEST, •♦12 


12300 


17 


07708 


J2312 


15840 




TDM 


I NPUT2* 1 , 0,11 


12312 


15 


03037 


0000- 


15850 




B7 


LDLBL 


12324 


49 


08686 




15860 


OAC 3 


BTM 


EVALAD,»+12,5 


12332 


17 


056P6 


12344 


15870 




BD 


NOSINE, BSN 


12344 


43 


1220* 


08309 


15880 




TD 


LDABSWtRLOCSW 


12356 


25 


08308 


08307 


15890 




B7 


DAC 3- 32 


12368 


49 


12300 




15900 


• 














15910 


• 


EVALUATE LENGTH OF DS8 










15920 


• 














15930 


OSB 


TDM 


INPUT2,4 


12376 


15 


03036 


00004 


15940 




TDM 


INPUT2+6, 1 


12388 


15 


030*2 


00001 


15950 




TFM 


EVALER-l, 70000 


12*00 


16 


07343 


POOOO 


15960 




DC 
» 




12*11 




I 




15970 




BTM 


EVALAD, •♦I2t 4 


12*12 


17 


05076 


12424 


15980 




TF 


LNTH, ADORS 


12*24 


26 


02387 


03295 


15990 




BTM 


EVALAO, •♦12, 5 


12436 


17 


056P6 


12448 


16000 




TF 


TEMPR t ADORS 


12**8 


26 


02571 


03295 


16010 




BNF 


•♦48, BSW 


12*60 


4* 


12508 


08309 


16020 




BT 


EPRINT, EPRINT-1 


12*72 


27 


07604 


07603 


16030 




80 


ERCOR, ERSTSW 


12*9* 


43 


07468 


02*76 


16040 




TFM 


TEMPR » 00001 


12*96 


16 


02571 


-0001 


16050 




BTM 


EVALAO, •♦12,5 


12908 


1? 


056P6 


12520 


16060 




TO 


LDABSWtRLOCSW 


12920 


25 


08308 


06307 


16070 




BNF 


OAC 3- 32 • 8SW 


12932 


4* 


12300 


08309 


16080 




TOM 


L0ABSW,l,ll 


129** 


15 


08308 


OOOOJ 


16090 




TF 


ADORS, AOOCOW 


12996 


26 


03295 


02928 



3 3 
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16100 




A 


AOORSt LNTH 


12566 


21 


03295 


02387 


161 10 




M 


LNTH, TEMPR 


12990 






02971 


16120 




A 


AOOCOU. 99 




2| 


02526 


00099 


16130 




67 


DAC3-32 


12404 


49 


12300 




16140 


• 














16130 


• 


EVALUATE LENGTH OF OS OR 01 










16160 


• 














16170 


DSDNB 






12612 


U 


05076 


12624 


16180 




TO 




12624 


25 


03042 


02329 


16190 




TO 


INPUIZ»5» ZcPD>28 


12636 






02328 


16200 




TF 


LNTH* AODRS 


12649 


26 


02387 


03295 


16210 






1 4JOI IT 9 1 1 I 

INrUTZ, %»11 


12*60 


15 


03036 


OOOON 


16220 




BO 


• ♦84, ZEPO+29 


12672 






02329 


16230 




CM 


LNTH, 99 






02387 


-0099 


16240 




BNP 


• ♦60 






12756 


01 100 


16250 




TFM 


EVALER-1 * 80000 


12706 


16 


07343 


nnnnn 


16260 




DC 


!,».• 


12719 








16270 




BT 


EPRINT, EPRINT-1 


12720 


2 7 






16260 




BO 


ERCOR* ERSTSH 


12732 












TFM 


LNTH, 00050 


12744 


1 6 


02387 


«««« 
—0050 


1 6 100 


N ASS 


BTH 


EVALAO, • ♦12, 5 


12756 




natnt 




16 310 




TO 


LOABSW, RLOCSW 


12768 




i Sinn 




16320 




BNF 


DAC3-32, BSM 


12780 






0830 


















16340 




ADDRESS ASSIGNED BY PROCESSOR 








16350 


* _ 














16360 




TF 


AODRS, ADDCOM 


12792 








16370 




TDM 


LDABSM, 1 , 1 1 


12804 


IK 




0000 J 






A 


ADDCOWt LNTH 


12816 


21 


02528 


02387 






BD 


DSS, 2EPD*28 


12828 












A 


AODRS , LNTH 


12840 






02387 


16410 




B7 


DAC3-32 


12852 




1 llftA 

if 




1 6420 


DSS 


AM 


AODRS, 1,10 


12860 


ii 


, w * 


000-1 


i fuHn 




B7 


DAC3- 32 


12872 




1 2300 




J _ 




BTM 


EVALAD,«*12,4 


12880 


1 7 




12892 






BNF 


•♦84, RELSW 


12892 








16460 




BO 


•♦72, RLOCSW 


12904 




707 


na*n? 


1 6470 




TFM 


EVALER-2 , 71770, , 


RELOCATION ERROR 12916 


i * 
i* 




oi Tin 
n\t,rvx 






BT 


EPRINT, EPRINT-1, , 


IGNORE ABSOLUTE OORG 12928 




?I « 




16490 




BD 


ERCOR, ERSTSN 


12940 






no t 


1 6500 




TFM 


INPUT2M ,06,10, 


IN RELOCATABLE ASSEMBLY 12952 




n»n»7 




16510 




BTM 


OUTPUT, PHASEA 


12964 


17 










TF 


ADDCOW, ADDRS 


12976 


26 


02528 


03295 


i n 




BTM 


CTEST, »*12 


12988 


17 


07708 


J3000 


















i s«n 


* 


SET ADDRESS COUNTER TO NEW 


VALUE 








i c n 


* 














16570 




SM 


ADDCOW, 1,10 


13000 


1 2 


0252 8 


000— 1 


16580 




TDM 


INPUT2,l,ll 


13012 


15 


03036 


OOOOJ 


16590 




BNF 


•♦24, ADDCOW 


13024 


44 


13048 


02528 


16600 




TFM 


ADDCOW, 99999 


13036 


16 


02528 


R9999 


16610 




B7 


DAC3-20 


13048 


49 


12312 




16620 


DENDC 


TFM 


CFFA, CA5DCF 


13056 


16 


02629 


J3080 


16630 




BTM 


CFF.DEND 


13068 


17 


02592 


J1192 


16640 


CA5DCF 


DDA 


,0,A50AD,A5SCT,1NSTRN 


13080 




14 





0J8737-29J0528 



3 4 
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PAGE 


16650 




DC 


l.« 


13094 




1 




16660 


• 


DEFINE CONSTANT AND DEFINE SPECIAL CONSTANT 










16670 


• 














16680 


DC 


TDM 


INPUT2, 2,11 


13096 


15 


03036 


OOOOK 


16690 




TO 


DC-UZEPO+28 


13108 


25 


13095 


02328 


16700 




TF 


INPUT2^6, 2EP0^29 


13120 


26 


03042 


02329 


16710 




BTM 


EVALAO, •♦12,4 


13132 


17 


05076 


13144 


16720 




TF 


LNTH, AODRS 


13144 


26 


02387 


03295 


16730 


CCON 


TFM 


TEMPR, -00001 


13156 


16 


02571 


-OOOJ 


16740 




AM 


TEMPR, I 


13168 


11 


02571 


-0001 


16750 




TR 


INPUTM9, INPUT+21 


13180 


31 


02902 


02904 


16760 




BNR 


CCN2-36,INPUT*20 


13192 


45 


13272 


02903 


16770 




CM 


TEMPR, 0 


13204 


14 


02571 


-0000 


16780 




BNE 


CCN2 


13216 


47 


13308 


01200 


16790 




TFM 


E VALER-1 , 90000 


13228 


16 


07343 


ROOOO 


16800 




DC 


lt«,» 


13239 




1 




16810 




BT 


EPRINT, EPRINT-l 


13240 


27 


07604 


07603 


16820 




BO 


ERCOR, ERSTSW 


13252 


43 


07468 


02476 


16830 




B7 


CCN2 


13264 


49 


13306 




16840 




CM 


INPUT+20, 23,10 


13272 


14 


02903 


000K3 


16850 




BH 


CC0N+12 


13284 


46 


13168 


01100 


16860 




BL 


CCON+24 


13296 


47 


13180 


01300 


16870 


CCN2 


C 


TEMPR, LNTH 


13308 


24 


02571 


02387 


16880 




BNP 


• ♦60 


13320 


47 


13380 


01100 


16890 




TFM 


EVALER-1, 17000 


13332 


16 


07343 


J7000 


16891 




DC 


1*«»» 


13343 




1 




16892 




BT 


EPRINT, EPRINT-l 


13344 


27 


07604 


07603 


16900 




BD 


ERCOR, ERSTSW 


13356 


43 


07468 


02476 


16910 


DCRN 


TF 


LNTH, TEMPR 


13368 


26 


02387 


02571 


16920 




CM 


LNTH, 51 


13380 


14 


02387 


-0051 


16930 




BN 


• ♦72 


13392 


47 


13464 


01300 


16940 




TFM 


EVALER-1, 80000 


13404 


16 


07343 


QOOOO 


16950 




OC 


!*•»• 


13419 




1 




16960 




BT 


EPRINT, EPRINT-l , , ER 8 LENGTH TOO 6IG 


13416 


27 


07604 


07603 


16970 




BO 


ERCOR, ERSTSW 


13428 


43 


07468 


02476 


16980 




TFN 


LNTH, 00090 


13440 


16 


02387 


-0030 


16990 




TFM 


TEMPR, 50 


13492 


16 


02371 


-0090 


17000 




BTM 


EVALAO, •♦12, 5 


134*4 


17 


056P6 


13476 


17010 




TO 


LDABSW, RLOCSW 


13476 


25 


08308 


08307 


17020 




BNF 


CCN3, BSW 


13486 


44 


13572 


08309 


17030 




TOM 


LOABSW, 1,11 


13500 


15 


08308 


OOOOJ 


17040 




TF 


AOORS, ADDCOW,, MACHINE ASSIGNS ADDRESS 


13512 


26 


03299 


02926 


17050 




AM 


ADDAS, 1 


13924 


U 


03299 


-0001 


17060 




A 


ADDCOW, LNTH 


1393* 


21 


02926 


02367 


17070 




60 


•♦24, DC-l 


13946 


43 


13372 


13099 


17060 




TF 


ADDRS, ADOCOW 


139*0 


26 


03299 


02928 


17090 


CCN3 


$F 


TEMPR- I 


13972 


32 


02970 


00000 


17100 




TF 


INPUT2*4 t TEMPR 


13984 


26 


09040 


02371 


17110 




67 


0AC3-32 


1339* 


49 


12300 




17120 


OSA 


TFM 


LNTH, 00000 


19*04 


1* 


02997 


-0000 


17130 




67 


0SA1 


13*1* 


49 


19436 




17140 




TR 


INPUTS, INPUTS I 


13*24 


31 


02902 


02904 
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17150 


0SA1 


6TN 








13616 


|7 


05074 


1 3440 


17160 




AM 


1 MTM . (.in 
mini 7itu 






I !!!! 




02367 


000*5 


17170 




§NA 








13660 




1 3624 


02901 


171 SO 


0SA2 


CM 


i mtm. novo 
Lninj UU9U 






1 1672 




02387 


'0050 


17190 






EROSA 






11664 


46 






17200 




Tf 












03295 


02528 


17210 




AM 


Anntt. to 






1 47AA 


1 1 


03295 


000-5 


17220 






Annrnu. i mtm 






J? If? 


^ 


02528 


02167 


1 7230 




TOM 


INPUT2, 1 






1 3712 


15 






17240 




BNF 


Die i- w . /FPn»?a 










12300 


02126 


17250 




AM 


ADOmM. 19.10 






if I?? 


1 1 


02528 


000J9 


17260 




SM 








13768 


12 






17270 




TDM 


I MP t IT ? . ft. 1 i 
tlrUItt lift I 






13760 


15 


?f ?f J 


0000— 


17260 




BTM 








13792 


17 


07708 


J 3 804 


17290 




B 


LDLBL 






11604 


49 


08666 


00000 


17300 




OORO 


•-3 






13612 








17310 


ERDSA 


TFM 


FWAI FP.-1 . 60000 






1 3612 


16 




flnnnn 


1 7320 




OC 


I t ' t* 






1 3823 




* 




17330 




BT 


FPBIMT.FPBI kj T— 1 






1 3824 


27 




07603 








earns cotTcu 






13836 


43 


07468 


02476 


17350 




TFM 


LNTH, 00050 






1 3846 


16 


02387 


-0050 


1 7360 




87 


DSA2*2* 






13860 


49 


13696 




J Z\V1 






















* 


OPERATION CODE TABLE 














i non 
























DC 


5,*1210,, 


ADD 


A 


13871 




5 








M1210 














17*10 




DC 


5,62220,. 




S 


1 3876 




5 








02220 














1 7*20 




DC 


5,5*230,, 


mi ii t i ni v 
™UL I I PL T 


M 


1 3681 




5 








N*230 














1 7*30 




DC 


5,**290,, 


DI V I DE 


0 


1 3886 




5 








M*290 














I 7**0 




DC 


5,*32*0,, 


COMPARE 


c 


13891 




5 








M32*0 














I 7*50 




OC 


5,*2*90,, 


B K * NL n 


B 


13896 




5 








M2*90 














1 7*60 




DC 


5,523*0, , 


LUN 1 KUL 


K 


1 3901 




5 








N23*0 














1 7*70 




DC 


5,*8480,, 


HAL T 


H 


13906 




5 








M8*80 














1 7*80 




DC 


5,60000, , 


miMMv no r nnc 
UUBHT Or LUUC 




13911 




5 








00000 














17*90 




DC 


5,60000,, 


n i lyuv no r nnc 
OUnHT Ur LUUc 




1 3916 




5 








□ 0000 














1 7500 




DC 


5,* 






1 3921 




5 








-000« 
















17510 




OC 


7,*15*U0, , 


ADD inntDI Alt 


AM 


1 3928 




7 








M15*U0 














1 75Z0 




DC 


7,625*120, , 


Cuatd »TT tuyeni ITC 
bUDI kali inntul Al t 


5M 


1 3935 




7 








025*120 














1 7530 




DC 


7,5*5*130, , 


MlJLTfPlY IMMFHIATF 
nut i l rt i inncui *i C 


MM 


13942 












N*5*130 














175*0 


XB7 


DC 


7,*277*90,, 


7-CHAR. BRANCH 


B7 


13949 




1 








M277490 
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17550 


DC 7,*35*1*0, 




COMPARE IMMEDIATE 


CM 


13956 








M35*l*0 
















17560 


OC 7,634*250, 




TRANSMIT DIGIT 


TD 


13963 








03**250 
















17570 


OC 7,63*6260, 




TRANSMIT FIELD 


TF 


13970 








□3*6260 
















17580 


DC 7,6359310, 




TRANSMIT RECORD 


TR 


13977 








0359310 
















17590 


DC 7,*263270, 




BRANCH 


AND TRANSMIT 


BT 


13984 








M263270 
















17600 


OC 7,4242420, 




BRANCH 


BACK 


88 


13991 








M2*2*20 
















17610 


DC 7,6246320, 




SET FLAG 


SF 


13998 








02*6320 
















17620 


DC 7,4346330, 




CLEAR FLAG 


CF 


14005 








M3*6330 
















17630 


DC 7,5*46710, 




MOVE FLAG 


MF 


14012 








N**6710 
















176*0 


DC 7,*244*30, 




BRANCH 


DIGIT 


BD 


14019 








M2***30 
















17650 


DC 7,4249460, 




BRANCH 


INDICATOR 


BI 


14026 








M249460 
















17660 


DC 7,4253137, 




BRANCH 


LOW 


BL 


14033 








M253137 
















17670 


DC 7,4255137,, 




BRANCH 


NEGATIVE 


BN 


1*040 








M255137 
















17680 


DC 7,42*8116,, 




BRANCH 


HIGH 


BH 


14047 








M2*8116 
















17690 


DC 7,4257116,, 




BRANCH 


POSITIVE 


BP 


14034 








M257U6 
















17700 


DC 7,42*5126,, 




BRANCH 


EQUAL 


BE 


14061 








M2*5126 
















17710 


DC 7,*269126,, 




BRANCH 


ZERO 


BZ 


14068 








M269126 
















17720 


DC 7,42651*6,, 




BRANCH 


OVERFLOW 


BV 


14075 








M265146 
















17730 


DC 7,*2*1196,, 




BRANCH 


ANY DATA CHECK 


8A 


14082 








M241196 
















177*0 


DC 7,-4256704, 


t 


BRANCH 


OUT, LOAD IRS 


60 


14089 








M25670M 
















17750 XDS 


DC 7,4462015, 




DEFINE 


SYMBOL 


DS 


14096 








M462015 
















17760 


DC 7,-4443005, 


• 


DEFINE 


CONSTANT 


DC 


14103 








M44300N 
















17770 


OC 7,-4641031, 




FLOATING ADO SUB. 


FA 


14110 








M64103J 
















17780 


DC 7,-4662021, 


> 


FLOATING SUBTRACT SUB* 


FS 


14117 








M66202J 














17790 


OC 7,-4654041, 


» 


FLOATING MULTIPLY SUB. 


PM 


14124 








M65404J 














17800 


OC 7,-4644051, 


f 


FLOATING DIVIDE SUB. 


PD 


14111 








M64405J 














17810 


OC 7,5144280m 




LOAD DIVIDEND 


LD 


14116 








N144260 












17820 


OC 7,4454190,, 




DIVIDE 


IMMEDIATE 


OM 


14145 







K4S4H0 
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17SIO 




DC 7,-6241412,, 


SELECT ADDRESS 


SA 


14192 








024141* 










17840 




DC 7,-5452614,, 


MASK INTERRUPTS 


MK 


14159 








N45241N 










ITifO 




DC 7,4252412,, 


SEEK 


SK 


14144 








0252412 










1 7840 




DC 7,5955360,, 


RE AO NUMERICALLY 


RN 


14173 








M935340 










1TB70 




DC 7,5941370,, 


REAO ALPHAMERIC ALLY 


RA 


14180 








N941170 










lTtao 




DC 7,4455350,, 


OUMP NUMERICALLY 


ON 


14187 








N4S5350 










17890 




DC 7,4655380,, 


WRITE NUMERICALLY 


WN 


14194 








0455380 










17900 




DC 7,4641390,, 


WRITE ALPHAMERICALLV 


WA 


14201 








0441390 










17910 




DC 7,-4444263,, 


OEFINE DISK 


DO 


14208 








M44426L 










17920 




DC 7,6060000, , 


OUMMV OP CODE 




14215 








0060000 










17930 




OC 7,6060000, , 


OUMMV OP COOE 




14222 








0060000 










17940 




OC 7,6060000,, 


OUMMY OP COOE 




14229 








0060000 










17950 




OC 7,6060000,, 


DUMMY OP COOE 




14234 








0060000 










17960 




OC 7,' 






14243 








-00000* 










17970 


C 


DC 9,634654160,, 


TRANSMIT FIELD IMMEDIATE 


TFM 


14252 








034654160 










17910 




DC 9,634454150,, 


TRANSMIT DIGIT IMMEDIATE 


TDM 


14241 








034454150 










17990 




OC 9,425546440,, 


BRANCH NO FLAG 


BNF 


14270 








N25546440 










18000 




OC 9,425559450,, 


BRANCH NO RECORD MARK 


BNR 


14279 








M25559450 










18010 




OC 9,425549470,, 


BRANCH NO INDICATOR 


BNI 


14288 








H25549470 










18020 




OC 9,425548117,, 


BRANCH NOT HIGH 


BNH 


14297 








N25548U7 










18030 




OC 9,425557117,, 


BRANCH NOT POSITIVE 


BNP 


14306 








H25557117 










18040 




DC 9,425545127,, 


BRANCH NOT EQUAL 


BNE 


14315 








M25545127 










18050 




DC 9,425569127,, 


BRANCH NOT ZERO 


BNZ 


14324 








H25569127 










18060 




OC 9,425553136,, 


BRANCH NOT LOW 


BNL 


14333 








M25553136 










18070 




DC 9,425555136,, 


BRANCH NOT NEGATIVE 


BNN 


14342 








M25555136 










18080 




DC 9,426765156,, 


BRANCH EXPONENT CHECK 


BXV 


14351 








M267651S6 










18090 




OC 9,425565147,, 


BRANCH NO OVERFLOW 


BNV 


14360 








N25565147 










18100 




DC 9,425541197,, 


BRANCH NOT ANY DATA CHECK 


BNA 


14369 


9 






M25541197 
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18110 




DC 9,425343096,, 


BRANCH LAST CARD 


BLC 


14378 


9 






M25343096 










18120 




DC 9,424371016,, 


BRANCH CONSOLE SWITCH 1 ON 


BCl 


14387 


9 






M24371016 










18130 




DC 9,424372026,, 


BRANCH CONSOLE SNITCH 2 ON 


BC2 


14396 


9 






M24372026 










18140 




DC 9,424373036,, 


BRANCH CONSOLE SWITCH 3 ON 


BC3 


14405 


9 






M24373036 










18150 




DC 9,424374046,, 


BRANCH CONSOLE SWITCH 4 ON 


BC4 


14414 


9 






M24374046 










18160 




DC 9,426354170,, 


BRANCH AND TRANSMIT I MM. 


BTM 


14423 


9 






N26354170 










18170 


XBB2 


OC 9,424272420,, 


2-CHAR. BRANCH BACK 


BB2 


14432 


9 






M24272420 










18180 




DC 9,-645452604,, 


UNMASK INTERRUPTS 


UMK 


14441 


9 






04545260ft 










18190 




DC 9,555657410,, 


NO OPERATION 


NOP 


14450 


9 






N55657410 










18200 




DC 9,-444965011 ,, 


DIVIDE SUB, 


DIV 


14459 


9 






M4496501J 










18210 




OC 9,-464567111,, 


FLOATING NATURAL EXP. SUB. 


FEX 


14468 


9 






M6456711J 










18220 




OC 9,-465355131,, 


FLOATING NATURAL LOG. SUB. 


FLN 


14477 


9 






M6535513J 










18230 




OC 9,-635941003,, 


TRANSFER TO LOAD 


TRA 


14486 


9 






03S94100L 










18240 


XOSS 


OC 9,446262115,, 


DEFINE SPECIAL SYMBOL 


DSS 


14495 


9 






M4626211S 










18250 




DC 9,-446243105,, 


DEFINE SPECIAL CONSTANT 


DSC 


14504 








M4624310N 










18260 


XOAS 


DC 9,-444162145,, 


DEFINE ALPHA SYMBOL 


DAS 


14513 








M4416214N 










18270 




OC 9,-444143125,, 


DEFINE ALPHA CONSTANT 


OAC 


14522 


9 






M4414312N 










18280 




OC 9,-446241035,, 


DEFINE SYMBOLIC ADDRESS 


DSA 


14531 


9 






M4624103N 










18290 




OC 9,-446242065,, 


DEFINE SYMBOLIC BLOCK 


DSB 


14540 


9 






M4624206N 










18300 




DC 9*445542005,, 


DEFINE NUMERIC BLANK 


DNB 


14549 


9 






M45542005 










18310 




DC 9,-444754075,, 


OEFINE GROUP MARK 


DGM 


14558 


9 






M4475407N 






14567 




18320 




DC 9,425547550,, 


BRANCH NO GROUP NARK 


BNG 


9 






M255475S0 










18330 




OC 9,634344018,, 


TRANSFER TO PROCESS 


TCD 


14574 


9 






034344018 










18340 




DC 9,425659401, , 


BRANCH OUTPUT RECORO MARK 


BOR 


14585 


9 






M25659401 










18350 




DC 9,425945411,, 


BRANCH END OF RECORO 


BRE 


14594 


9 






N25945411 










18360 




DC 9,425443421,, 


BRANCH MODE SHIFT 


BNC 


14403 








M25443421 










18370 




DC 9,424959441,, 


BRANCH REAO INPUT READY 


BIR 


14412 








M24959441 










18380 




OC 9,424342441 ,, 


BRANCH SIOC CHANNEL BUSY 


ICR 


14421 





M24342441 



SB 
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18390 


0C 9,824156840,, 


SELECT ADDRESS ANO OPERATE 


SAO 


14*30 


9 




024156840 










18*00 


DC 9,59*155682, , 


READ DISK TRACK NUM. M/0 CP. MK • 


RTN 


14*39 


9 




N96 355662 










18410 


OC 9,594435622,, 


READ DISK WITHOUT CROUP MARK 


RON 


14*46 


9 




N94455622 










18420 


DC 9,666355662,, 


WRITE DISK TRACK NUM. M/0 GP. MK. 


WTN 


14*57 


9 




0663558*2 










18430 


OC 9,8*4455822,, 


WRITE DISK WITHOUT GROUP MARK 


WDN 


14*** 


9 




064455822 










18440 


DC 9,43*355672,, 


CHECK DISK TRACK NUN. M/0 GP. MK. 


CTN 


14*75 


9 




M36355672 










18450 


OC 9,434455632,, 


CHECK DISK WITHOUT GROUP MARK 


CDN 


14*84 


9 




M34455632 










18460 


OC 9,634653060,, 


TRANSMIT FLOATING 


TFL 


14693 


9 




034653060 










18470 


OC 9,466253050,, 


FLOATING SHIFT LEFT 


FSL 


14702 


9 




M66253050 










18480 


OC 9,466259080,, 


FLOATING SHIFT RIGHT 


FSR 


14711 


9 




M66259080 










18490 


OC 9,635562720,, 


TRANSMIT NUMERIC STRIP 


TNS 


14720 


9 




035562720 










18500 


OC 9,635546730,, 


TRANSMIT NUMERIC FILL 


TNF 


14729 


9 




035546730 










18510 


OC 9,-444441073,, 


DEFINE OISK ADDRESS 


OOA 


14738 


9 




M4444107L 










18520 


OC 9,534454180,, 


LOAD DIVIDEND IMMEDIATE 


LOM 


14747 


9 




N34454180 










185)0 


OC 9,-474563013,, 


IOCS READ 


GET 


14756 


9 




M7456301L 










18540 


DC 9,-576463023,, 


IOCS WRITE 


PUT 


14765 


9 




N7646302L 










18550 


OC 9,-446355053,, 


DEFINE TYPEWRITER NUMERIC 


DTN 


14774 


9 




M4635505L 










18560 


DC 9,-444355253,, 


DEFINE CARD NUMERIC 


DCN 


14783 


9 




M4435525L 










18570 


DC 9,-446341353,, 


DEFINE TYPEWRITER ALPHA 


OTA 


14792 


9 




M4634135L 










18580 


DC 9,-444341553,, 


DEFINE CARD ALPHA 


DCA 


14801 


9 




M44 34155L 










18590 


DC 9,-444466063,, 


DEFINE DISK WITH WLRC 


DDW 


14810 


9 




M4446606L 










18600 


DC 9,606060000,, 


DUMMY OP COOE 




14819 


9 




006060000 










18610 


DC 9,606060000,, 


DUMMY OP CODE 




14828 


9 




006060000 










18620 


DC 9,606060000,, 


DUMMY OP CODE 




14837 


9 




006060000 










18630 


DC 9,606060000,, 


DUMMY OP CODE 




14846 


9 




006060000 










18640 


DC 9,606060000,, 


DUMMY OP CODE 




14855 


9 




006060000 










18650 


DC 9,606060000,, 


DUMMY OP CODE 




14864 


9 




006060000 










18660 


OC 9,* 






14873 


9 




-0000000* 
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18670 D 


DC 11,42554371017,, 


BRANCH CONSOLE SWITCH 1 OFF 


BNCl 


14884 


1 1 




M2554371017 










18680 


DC 11,42554372027,, 


BRANCH CONSOLE SWITCH 2 OFF 


BNC2 


14895 


1 1 




M2554372027 










18690 


DC 11,42554373037,, 


BRANCH CONSOLE SWITCH 3 OFF 


BNC3 


14906 






M2554373037 










18700 


DC 11,42554374047,, 


BRANCH CONSOLE SWITCH 4 OFF 


BNC4 


14917 






M2554374047 










18710 


DC 11,42555343097,, 


BRANCH NOT LAST CARD 


BNLC 


14928 






M2555343097 










18720 


DC 11,42556765157,, 


BRANCH NOT EXPONENT CHECK 


BNXV 


14939 


1 1 




M2556765157 










18730 


DC 11,59556368613,, 


READ NUMERIC TYPEWRITER 


RNTY 


14950 


1 1 




N9556368613 










18740 


DC 11,59555763633,, 


READ NUMERIC PAPER TAPE 


RNPT 


14961 






N9555763633 










18750 


DC 11,66556368813,, 


WRITE NUMERIC TYPEWRITER 


WNTY 


14972 






D6556368813 










18760 


DC 11,66555763823,, 


WRITE NUMERIC PAPER TAPE 


WNPT 


14983 


1 1 




06555763823 










18770 


DC 11,44556368513,, 


DUMP NUMERIC TYPEWRITER 


DNTY 


14994 


1 1 




M4556368513 










18780 


DC 11,44555763523,, 


DUMP NUMERIC PAPER TAPE 


DNPT 


15005 


1 1 




M4555763523 










18790 


DC 11,59416368713,, 


READ ALPHA TYPEWRITER 


RATY 


15016 


1 1 




N9416368713 










18800 


DC 11,59415763733,, 


READ ALPHA PAPER TAPE 


RAPT 


15027 


1 1 




N9415763733 










18810 


DC 11,66416368913,, 


WRITE ALPHA TYPEWRITER 


WATY 


15038 






06416368913 










18820 


DC 11,66415763923,, 


WRITE ALPHA PAPER 


WAPT 


1 5049 






06415763923 










18830 


DC 11,66414344943,, 


WRITE ALPHA CARD 


WACO 


15060 






06414344943 










18840 


DC 11,59414344753,, 


READ ALPHA CARD 


RACD 


15071 






N94 14344753 










18850 


DC 11,44554344543,, 


DUMP NUMERIC CARD 


DNCO 


15082 


n 




M4554344543 










18860 


DC 11,66554344843,, 


WRITE NUMERIC CARD 


WNCD 


15093 






06554344843 










18870 


DC 11,59554344653,, 


READ NUMERIC CARD 


RNCD 


15104 


n 




N9554344653 










18880 


DC 11,63426368184,, 


TABULATE TYPEWRITER 


TBTV 


15115 


1 1 




03426368184 










18890 


DC 11,59436368124,, 


RETURN CARRAIGE TYPEWRITER 


RCTV 


15126 


11 




N9436368124 










18900 


DC 11,625763*8114,, 


SPACE TYPEWRITER 


Si' TV 


15137 


11 




02576368114 










18910 


DC 11,59*34755*42,, 


READ DISK TRACK NUM. W/GP. MK. 


RTGN 


151*8 






N9634755642 










18920 


DC 11,59444755*02,, 


READ OISK WITH GROUP MARK 


ROGN 


15159 


n ■ 




N9444755602 










18930 


DC 11,66634755842,, 


WRITE OSSK TRACK NUM. W/GP. MK. 


WTGN 


151T0 






06634755842 










18940 


DC 11,8*444755*02,, 


WRITE DISK WITH GROUP MARK 


WOGN 


15181 






06444755802 
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18950 


0C 11,41634755652,, 
M383475S652 


CHECK DISK TRACK NUM. tf/GP. MK. 


CTGN 


15192 


109*0 


OC 11.43444795*12.1 
M3444T5S612 


CHECK DISK WITH CROUP MARK 


COGN 


15203 


18970 


OC 11.-429*5344714.. 
M2S6534471M 


•RANCH OUT, LOAO IR1 


BOLD 


19214 


18980 


OC 11.-466258590*1,, 
M66258S906J 


FLOATING SQUARE ROOT SU8. 


FSOR 


19229 


18990 


OC 11,-46435662071,, 
N*435**207J 


FLOATING COSINE SUR. 


FCOS 


1923* 


19000 


OC 11, -4*624955081. , 
M662495509J 


FLOATING SINE SUB. 


FSIN 


19247 


19010 


OC 11,-4*41*355091,, 


FLOATING ARCTANGENT SUB. 


FATN 


1929B 




M641635509J 


FLOATING EXP. BASE 10 SUB. 






19020 


DC 11,-46456763101,, 
H645676310J 


FEXT 


192*9 


19030 


DC 11,-46535647121.. 
M653564712J 


FLOATING LOG. BASE 10 SUB. 


FLOG 


15280 


19040 


OC 11,-46625962141,, 
M662596214J 


FLOATING SHIFT RIGHT SUB. 


FSRS 


15291 


19050 


OC 11,-46625362151,, 
M662536215J 


FLOATING SHIFT LEFT SUB. 


FSLS 


15302 


19060 


DC 11,-63465362161,, 
0346536216J 


TRANSMIT FLOATING SUB. 


TFLS 


15313 


19070 


OC 11,46414444010,, 
N6414444010 


FLOATING AOD 


FADD 


15324 


19080 


OC 11,46626442020,, 
M6626442020 


FLOATING SUBTRACT 


FSUB 


15335 


19090 


OC 11,46546453030,, 
M6546453030 


FLOATING MULTIPLY 


FMUL 


1534* 


19100 


DC 11,46444965090,, 
M6444965090 


FLOATING DIVIDE 


FDIV 


15357 


19110 


OC 11,42634653070,, 
M2634653070 


BRANCH AND TRANSMIT FLOATING 


BTFL 


153*8 


19120 


OC 11,62535955860,, 
02535955860 


SELECT READ NUMERICALLY 


SLRN 


15379 


19130 


OC 11,-42634662171,, 
M263466217J 


BR. AND TRANS. FLOAT. SUB. 


BTFS 


15390 


19140 


OC 11,-44624143025,, 
M462414302N 


DEFINE SPECIAL ALPHA CONSTANT 


DSAC 


15401 


19150 


OC 11,-44565947015,, 
M456594701N 


DEFINE ORIGIN 


DORG 


15412 


19160 XM6AD 


DC 11,-48454144055,, 
M845414405N 


HEAD 


HEAD 


15423 


19170 


DC 11,-62416545007,, 
□241654500P 


SAVE PRODUCT AREA 


SAVE 


15434 


19180 


DC 11,-59626359017,, 
N962635901P 


RESTORE PROOUCT AREA 


RSTR 


15445 


19190 


DC 11,42555659401,, 
M2555659401 


BRANCH NO OUTPUT RECORD MARK 


BNOR 


15456 


19200 


DC 11,42555945411,, 
M255594541 1 


BRANCH NO END OF RECORD 


BNRE 


15467 


19210 


DC 11,42555443421,, 
M2555443421 


BRANCH NO MODE SHIFT 


BNMC 


15478 


19220 


DC 11,42554959441,, 


BRANCH NO READ INPUT READY 


BNIR 


15489 



M2554959441 
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19230 


DC 11,42435542461, 




M2435542461 


19240 


OC 11,-62534144662 




0253414466K 


19250 


DC 11,-59554943652 




N955494365K 


19260 


DC 11,-62414356422 




0241435642K 


19270 


DC 11,-62415662432 




0241566243K 


19280 


DC 11,-62536341612 




0253634161K 


19290 


DC 11,-62534159622 




0253415962K 


19300 


DC 11,-62536343642 




0253634364K 


19310 


OC 11,-62534342672 




0253434267K 


19320 


DC 11,-62535445682 




0253544568K 


19330 


DC 11,-62534943652 




0253494365K 


19340 


DC 11,-59414943752 




N941494375K 


19350 


DC 11,-66555643852 




0655564385K 


19360 


OC 11,-66415643952 




0641564395K 


19370 


OC 11,-43415353033 




M341535303L 


19380 


OC 11,-62454552043 




0245455204L 


19390 


OC 11,-44576341453 




M457634145L 


19400 


OC 11,-44576355153 




M457635515L 


19410 


DC 11,-44655343006 




M4655343000 


19420 


OC 11,-44544562085 




M454496208N 


19430 


OC 11.44455544008. 




M4455544008 


19440 


DC 11.60*0*060*06. 




0060*060*0* 


19450 


OC 11.60*060*0*06, 




006060*0*06 


19460 


DC 11,606060*060*. 




00*060*0606 


19470 


OC 11.60*0*060606. 




00606060*0* 


19480 


OC 11.60*06060606. 




0060*0*0*0* 


19490 


OC lit 60*0*060606 . 




0060*0*0*0* 


19500 


OC 11 9*0*0*06060*. 




00*060*0*0* 
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BRANCH SIOC CHANNEL NOT BUSY 
SELECT ADC AND INCREMENT 
READ NUMERIC INPUT CHANNEL 
SELECT ADDRESS AND CONTACT OPER. 
SEL. ADDRS.AND PROVIDE OUTPUT SIG. 
SELECT T AS 
SELECT ADC REGISTER 
SELECT REAL-TIME CLOCK 
SELECT CONTACT BLOCK 
SELECT MANUAL ENTRY SWITCHES 
SELECT INPUT CHANNEL 
READ ALPHA INPUT CHANNEL 
WRITE NUMERIC OUTPUT CHANNEL 
WRITE ALPHA OUTPUT CHANNEL 
CALL IOCS OR EXEC PKG. ROUTINE 
IOCS SEEK OISK 
DEFINE PAPER TAPE ALPHA 
DEFINE PAPER TAPE NUMERIC 
DEFINE VARIABLE LENGTH CONSTANT 
DEFINE MESSAGE 
OEFINE ENO 



DUMMY 


OP 


CODE 


DUMMY 


OP 


CODE 


DUMMY 


OP 


CODE 


DUMMY 


OP 


COOE 


DUMMY 


OP 


CODE 


DUMMY 


OP 


COOS 


DUMMY 


0P 


CODE 



BCNB 


15500 


SL AD 


15511 


RNIC 


15522 


SACO 


15533 


SAOS 


15544 


SLTA 


15555 


SLAR 


15566 


SLTC 


15577 


SLCB 


15588 


SLME 


15599 


SLIC 


15610 


RAIC 


15621 


WNOC 


15632 


WAOC 


15643 


CALL 


15654 


SEEK 


15665 


DPT A 


15676 


DPTN 


15687 


DVLC 


15698 


ONES 


15709 


OEND 


15720 




19731 




19742 




19793 




197*4 




19779 




1578* 




15797 
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MCE 4 3 



19310 




OC 


11.60606060606,, 


DUMMY 


OP 


COOE 


15808 




1 1 








00606060606 
















19520 




OC 


11,60606060606,, 


DUMMY 


OP 


COOE 


15819 




1 1 








00606060606 
















19530 




OC 


11,60606060606,, 


DUMMY 


OP 


CODE 


15830 




1 1 








00606060606 
















19540 




OC 


11,60606060606,, 


DUMMY 


OP 


CODE 


15841 




1 1 








00606060606 
















19550 




OC 


11,60606060606,, 


DUMMY 


OP 


CODE 


15892 




1 1 








00606060606 
















19560 




OC 


11, • 








15863 




U 








-000000000* 
















19570 


FILE 


34 


FOCF, 00701 








15864 


34 


15912 


00701 


19580 




38 


FOCF, 00702 








15876 


36 


15912 


00702 


19590 




TRA 










15888 


36 


00000 


00500 
















15900 


49 


00000 


00000 


19600 


FOCF 


OOA 


,0,A2DAD,A2SCT, INSTRN 






15912 




14 








0JB800-54J0528 
















19610 




TCO 


FILE 








15864 








19620 




OORG 


INSTRN 








10528 








19630 


MACR02 


TFM 


GOODB3*6,BTBL3 








10528 


16 


10570 


J0576 


19640 




TO 


G000B3*U,ZEP0+29 








10540 


25 


10575 


02329 


19650 




A 


GOODB3+5,G0OD83*U 








10552 


21 


10569 


10575 


19660 


G000B3 


8 


•-•, • 10 








10564 


49 


00000 


000-0 


19670 


BTBL3 


B 


TRA,,, 0 








10576 


49 


10654 


00000 


19680 




OORG 


• -1 








10566 








19690 




B 


IOGET, , , ♦! 








10586 


49 


10734 


00000 


19700 




OORG 


•-1 








10596 








19710 




B 


PUT,,, *2 








10596 


49 


10782 


00000 


19720 




OORG 


•-1 








10606 








19730 




B 


PCALL , , , *3 








10606 


49 


1 1470 


00000 


19740 




OORG 


• - 1 








10616 








19750 




B 


SEEK,,, *4 








10616 


49 


10 758 


00000 


19760 




OORG 


• -1 








10626 








19770 




B 


OCARD,,, +5 








10626 


49 


1 1070 


00000 


19780 




DORG 


• -i 








10636 








19790 




B 


OOWOD,,, *6 








I 0636 


49 


11258 


00000 


19800 




OORG 


•-1 








10646 








19810 




a 


OOA,,, +7 








10646 


49 


12222 


00000 


19820 




OORG 


• -3 








10654 








19830 


# 


TRANSFER INSTRUCTION 


ROUTINE 














19840 


TRA 


TO 


•♦23, AODCOW 








10654 


25 


10677 


02528 


19850 




TD 


•♦23, AJUST 








10666 


25 


10689 


02399 


19860 




AM 


ADOCOW,, 10 








10678 


1 1 


02528 


000-0 


19870 




TF 


ADDRS, AODCOW 








10690 


26 


03295 


02528 


19880 




AM 


A00COW.41 








10702 


1 1 


02528 


-0041 


19890 




TFM 


INPUT2+1.50, 10 11 








10714 


16 


03037 


OOON- 


19900 




87 


MEXI T 








10726 


49 


11018 




19910 


IOGET 


TFM 


INPUT2*6,I0GT 








10734 


16 


03042 


-0566 


19920 




8TM 


EVALAO.PUTSRJ, 4 11 








10746 


17 


05076 


10940 


19930 


SEEK 


TFM 


INPUT2+6.I0SK 








10758 


16 


03042 


—0554 


19940 




BTM 


EVALAO.PUTSRJ, 4 11 








10770 


17 


05076 


10940 


19950 


PUT 


TFM 


INPUT2*6.I0PT 








10782 


16 


03042 


-0532 


19960 




BTM 


EVALAD,»*12,4 11 








10794 


17 


05076 


10800 


19970 




BTM 


MACSHF,PUTSRJ 








10806 


17 


11932 


J0946 



4 4 
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19980 




CM 


INPUT*20,59, 10 


10818 


14 


02903 


000N9 


19990 




8NE 


PUTSRJ 


10830 


47 


10946 


01200 


20000 




BTM 


MACSHF, PUTSRJ 


10842 


17 


11932 


J0946 


20010 




CM 


INPUT*20,42,10 


10854 


14 


02903 


000M2 


20020 




BNE 


PUTSRJ 


10866 


47 


10946 


01200 


20030 




BTM 


MACSHF, PUTSRJ 


10878 


17 


11932 


J0946 


20040 




CM 


INPUT+20, 43,10 


10890 


14 


02903 


000M3 


20050 




BNE 


PUTSRJ 


10902 


47 


10946 


01200 


20060 




BTM 


MACSHF ,•♦20 


10914 


17 


11932 


J0934 


20070 




B7 


PUTSRJ 


10926 


49 


10946 




20080 




TFM 


INPUT2*6,I0RBC 


10934 


16 


03042 


-0520 


20090 


PUTSRJ 


TO 


•♦23, ADOCOW 


10946 


25 


10969 


02528 


20100 




TD 


•♦23 , AJUST 


10958 


25 


10981 


02399 


20110 




AM 


AODCOW, ,10 


10970 


11 


02528 


000-0 


20120 




TF 


ADDRS. AODCOW 


10982 


26 


03295 


02528 


20130 




AM 


AODCOW, 23, 10 


10994 


11 


02528 


000K3 


20140 




TFM 


INPUT2^i,07,lO 


11006 


16 


03037 


000-7 


20150 


MEXIT 


BTM 


CTEST,»M2 


11018 


17 


07708 


J1030 


20160 




TFM 


CFFA.NCDCF2 


11030 


16 


02629 


J1054 


20170 




BTM 


CFF , LDLBL 


11042 


17 


02592 


-8686 


20180 


NCDCF2 


OOA 


,0, A2DAD, A3SCT, INSTRN 


11054 




14 








0J8800-22J0528 










20190 




DC 


l.» 


11068 




1 




20200 


OCARO 


TD 


INPUT2+6,ZEP0+28 


11070 


25 


03042 


02328 


20210 




TOM 


INPUT2*5, 0,11 


11082 


15 


03041 


0000- 


20220 




A 


INPUT2^6, INPUT2+6 


11094 


21 


03042 


03042 


20230 




TFM 


INPUT2+l,05,10 


11106 


16 


03037 


000-5 


20240 




BTM 


EVALAO, •♦12, 4 


11118 


17 


05076 


11130 


20250 




TO 


0CARD^19,BSW 


11130 


25 


11089 


08309 


20260 




TD 


LDABSW.RLOCSW 


11142 


25 


06308 


08307 


20270 




TF 


TEMPft, ADDRS 


11154 


26 


02571 


03295 


20280 




BTM 


EVALAO, •♦12, 5 11 


11166 


17 


056P6 


11170 


20290 




TF 


ADDRS, TEMPR 


11178 


26 


03295 


02571 


20300 




BNF 


MEXIT, 0CAR0H9 


11190 


44 


11018 


11089 


20310 




TOM 


LDA8SW,1,11 


11202 


15 


06308 


OOOOJ 


20320 




AM 


AODCOW, 1,10 


11214 


11 


02528 


000- 1 


20330 




TF 


ADDRS, AODCOW 


11226 


26 


03295 


02528 


20340 




AM 


AODCOW, 7, 10 


11238 


11 


02528 


000-7 


20350 




87 


MEXIT 


11250 


49 


11018 




20360 


OOWOO 


TDM 


INPUT2^5,0,11 


11258 


IS 


03041 


0000- 


20370 




TD 


INPUT2*6,ZEPC*28 


11270 


25 


03042 


02328 


20380 




TFM 


INPUT2M, 05,10 


11282 


16 


03037 


000-5 


20390 




BTM 


EVALAO, •♦12,4 


11294 


17 


05076 


11306 


20400 




TD 


DCAAD*19,8SW 


11306 


25 


11089 


08309 


20410 




TD 


LDABSW,RLOCSW 


11316 


25 


06308 


08307 


20420 




TF 


TEMPR, ADDRS 


11330 


26 


02571 


03295 


20430 




BTM 


EVALAO, •♦12, 5 11 


11342 


17 


056P6 


1135M 


20440 




BTM 


EVALAO, •♦U, 5 11 


11354 


17 


036P6 


11360 


20450 




TF 


AOOAS, TEMPft 


11366 


26 


03295 


02371 


20460 




SNF 


MEXIT, DCAHDM9 


11376 


44 


11016 


11069 


20470 




TDM 


LOAtSWtltll 


11390 


15 


06306 


OOOOJ 


20480 




AM 


AODCOW, 1,10 


11402 


11 


02526 


000-1 


20490 




TF 


AOORS, AODCOW 


11414 


26 


03295 


02528 


20500 




AM 


ADOCOW, 12,10 


11426 


11 


02326 


000J2 


20510 




BMF 


•♦24.BSW 


11436 


44 


11462 


06309 



45 
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20520 




SM 


ADDCOM, 5 * 10 




1 1450 


12 


02526 


000-5 


20530 




B7 


MEXIT 




1 1442 


49 


11016 




20540 


PCALL 


TR 


COLL- 18 t TMINCS-20 




11470 


31 


02421 


02400 


20550 




BNR 


•♦20# INPUT*20 




1 1482 


45 


H502 


02903 


20560 




87 


PCALLl 




1 1494 


49 


1 1630 




20570 




CM 


lNPUT^20*23t 10 




1 1502 


|4 


02903 


000K3 


20560 




BE 


PCALL 1 




11514 


44 


11630 


01200 


20590 




CM 


INPUT+20* 00* 10 




11526 


|4 


02903 


000-0 


20600 




BE 


PCTR 




1 1536 


44 


11610 


01200 


20610 




TF 


COLL ( INPUT*20 




11590 


26 


02439 


02903 


20620 




CP 


COLL- 1 




1 1562 


33 


02436 


00000 


20630 




TR 


COL L- 17 t COLL- 15 




1 1574 


31 


02422 


02424 


20640 




CM 


COLL-17,7,10 




11586 


14 


02422 


000-7 


20650 




BE 


ER22 




1 1596 


44 


11602 


01200 


20660 


PCTR 


TR 






1 1610 


3 I 


02902 


02904 


20670 




67 


PCALL*12 




1 1622 


49 


1 1462 




20680 


PCALL 1 


CM 


cm L — 1 7« OA. 1 ft 




1 1630 


14 


02422 


000-6 


20690 




BE 


• ♦44 




1 1642 




1 1666 


01200 


20700 




TOM 


COLL 1 0 




1 1654 


15 


02439 


00000 


20710 




TR 








3 k 


02422 


02424 


20720 




87 


PCALL 1 




1 1678 




1 1630 




20730 




SF 


COLL— 13 




1 1666 


32 


02426 


00000 






TFM 










1 1 757 


Jl 667 


20750 


DPI PI 


AM 


pre *i i.ii.io 




I lTMlO 


1 1 


11757 


000J8 


20760 




CM 


ore *i i.ri thi tin«iti a 




1 1722 




1 1 757 


J 1939 


20770 




6NL 


ER22 




11734 


46 


11802 


01300 


20760 


PCC 


C 


C0LL-2,»-« 




11746 


24 


02437 


00000 












1 1 Iin 






01200 


?n*nn 






OCT * 1 1 k in 








11757 














1 1782 




1 1 757 


onooo 


?nn?n 




87 


PCC*1 1**6 




1 1794 


49 


1 1 75P 




20830 






euii eo.i 5unn 
CVMLCK li< f*OU 






1 A 




K7200 


20840 




DC 


i i *> 




11813 




I 




20850 




BT 


EPRINT.EPRINT-1 




11814 


27 


07604 


07603 


20860 




80 


ERCOR* ERSTSW 




11826 


43 


07468 


02476 


20870 






1 Nr UI » UoUOU 
















TCM 


reci. yr nr c 9 
l» r r m , Ul> r <c 




1 1 ft SO 


16 


02629 


j 1054 


20890 




BTM 


rcc „ CNnrrn 
vrrttnuiiiU 




1 1862 


1 7 


02592 


-8710 


20900 


CLTBL 


OAC 


6, LINK ,** 


TABLE/VECTOR OF CALL STATEMENT 


11875 




6 


X 2 






LINK 














20910 




OSA 


CLLINK 




1 1890 




5 


X 1 












1 1890 




J2014 




20920 




OAC 


6.L0A0 •** 


SELECT OPERANDS 


11893 




6 


X 2 






LOAD 














20930 




DSA 


CLLOAD 




1 1908 






x 1 












1 1908 




J2014 




20940 




DAC 


6, EXIT ,,, 




11911 




6 


X 2 






EXIT 














20950 




DSA 


CALLEX 




11926 




5 


X I 












11926 




J2142 




20960 




DS 


5 




11931 




5 




20970 


MACSHF 


TR 


INPUT*l9,INPUT*2l 




11932 


31 


02902 


02904 
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20980 




BNR 


•♦20, INPUT*20 


11944 


45 


11964 


02903 


20990 




B7 


MACSHF-1,,6 


11956 


49 


1193J 




21000 




CM 


INPUT+20,23,10 


11964 


14 


02903 


000K3 


21010 




BE 


MACSHF-1,,6 


11976 


46 


1193J 


01200 


21020 




C 


CLERER-H,INPUT*20 


11988 


24 


02697 


02903 


21030 




BE 


MACSHF 


12000 


46 


11932 


01200 


21040 




BB2 




12012 


42 






21050 


CLLINK 


DS 


,•♦1 


12014 




0 




21060 


CLLOAO 


TO 


•♦23, ADDCOM 


12014 


25 


12037 


02528 


21070 




TO 


•♦23, AJUST 


12026 


25 


12049 


02399 


21080 




AM 


ADDC0W,,10 


12038 


11 


02528 


000-0 


21090 




BTM 


EVALAD, ♦♦U. 5 11 


12050 


17 


056P6 


1206K 


21100 




BTM 


EVALAD, •♦12, 5 11 


12062 


17 


056P6 


1207M 


21110 




TF 


ADDAS, ADDCOM 


12074 


26 


03295 


02528 


21120 




AM 


A0DC0H,31,10 


12086 


11 


02528 


00OL1 


21130 




BNF 


•♦24,BSW 


12098 


44 


12122 


08309 


21140 




SM 


ADDCOM, 5,10 


12110 


12 


02528 


000-5 


21190 




TFM 


INPUT2^l,09,10 


12122 


16 


03037 


000-5 


21160 




67 


MEXIT 


12134 


49 


11018 




21170 


CALLEX 


TD 


•♦23, ADDCOM 


12142 


25 


12165 


02528 


21180 




TD 


•♦23, A JUST 


12154 


25 


12177 


02399 


21190 




AM 


ADDCOM, 00, 10 


12166 


11 


02528 


000-0 


21200 




TF 


ADDAS, AOOCOM 


12178 


26 


03295 


02528 


21210 




TFM 


INPUT2+t,04,10 


12190 


16 


03037 


000-4 


21220 




AM 


AO0COy,6,l0 


12202 


11 


02528 


000-6 


21230 




67 


MEXIT 


12214 


49 


11018 




21240 


00A 


BTM 


EVALAD,»*12,4 


12222 


17 


05076 


12234 


21250 




SF 


OOA 


12234 


32 


12222 


00000 


21260 




BD 


•♦36,BSM 


12246 


43 


12282 


08309 


21270 




TD 


L0ABSM,RL0CSM 


12258 


25 


08308 


08307 


21280 




CF 


OOA 


12270 


33 


12222 


00000 


21290 




TF 


DDA+23, ADDAS 


12282 


26 


12245 


03295 


21300 




BTM 


EVALAD, •♦12, 5 11 


12294 


17 


056P6 


12300 


21310 




BTM 


EVALAO* •♦12, 5 11 


12306 


17 


056P6 


12310 


21320 




BTM 


EVALAD, •♦12, 5 11 


12316 


17 


056P6 


1233- 


21330 




BTM 


EVALAO, •♦12, 5 U 


12330 


17 


056P6 


1234K 


21340 




TFM 


INPUT 2^1 ,060,9 U 


12342 


16 


03037 


00-6- 


21390 




TF 


ADDAS »DDA + 23 


12354 


26 


03295 


12245 


21360 




BNF 


OOAXtOOA 


12366 


44 


12438 


12222 


21370 




TO 


•♦23, AOOCOM 


12378 


29 


12401 


02528 


21360 




TO 


•♦23, AJUST 


12390 


29 


12413 


02399 


21390 




AM 


AOOCOM, 00,10 


12402 


11 


02526 


000-0 


21400 




TF 


AODRS, AOOCOM 


12414 


26 


03295 


02928 


21410 




AM 


AOOCOM, 13,10 


12426 


11 


02526 


00OJ3 


21420 


ODAX 


TFM 


CPFA, NCDCF2 


12438 


16 


02629 


J1054 


21430 




B7 


MEXIT 


12490 


49 


11018 




21440 


C62S 


DC 


2,62 


12498 




2 




21490 


C66M 


02 
OC 


2,66 


12460 




2 




21460 


C41A 


06 

OC 


2,41 


12462 




2 




21470 


PM 


Ml 
34 


FMOCF ,00701 


12464 


34 


12512 


00701 


21480 




38 


PMDCP #00702 


12476 


38 


12512 


00702 


21490 




TRA 




12488 


36 


00000 


00500 










12900 


49 


00000 


00000 
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2 1 900 


PHDCP 


004 


,0, A30AD, A3SCT, INSTRN 


1 29 1 2 




|4 








0J6854-22J0526 










21910 




TCO 


FN 


12464 








21320 


• 














21930 


• 


DEFINE 


ME S SAGE 










can 


• 














21*50 




OORC 


INSTRN 


10521 








2 1 §40 


• ANALYZE CONTROL CHARACTER t SUBROUTINE ANAL 










? 


ANAL 


CN 


INPUT+24, 4, 10t 1ST CHECK IF RIGHT PAREN IS PRESENT 


i ncf Ji 


14 


0290 7 


000-4 


21)10 




BNE 


ANALl+12,,, NO LEFT PARENt ERROR 




47 


10600 


01200 


2 1 940 




TP 


ANAL !♦ 1 1 1 I NPUT* 22, » MOVE CHARACTER TO ANOTHER LOCATION 


10512 








21400 




TR 


INPUT+19, INPUT+23, t POSITION INPUT RECORD 


10544 


31 


02902 


02906 


21410 




CN 


ANALl+11,44, 10, IS IT A 0 


10374 


14 


10599 


000M4 


21420 


ANAL I 


BNE 


ANAL2«»10, NOT A D, NAY BE GOOD 


10588 






012—0 


21430 




TFN 


EVALER-lt 17400, ,IT IS A D, ERROR 


in*?? 


16 




J740O 


21440 




OC 


1 1 • t • 


1061 1 




t 




2 1450 




CF 


ANAL,,, RESET STRAY PAREN SWITCH 


10612 




AT ftf 


nnnnn 
UUUUU 


2 1660 




BT 


E PR INT, E PR INT- 1,, PRINT ERROR MESSAGE 


10624 


zz 

27 




n Jata 


2 1670 




BD 


ERCOR, ERSTSH 






ft 7 A ft 

I onto 


if t mm 


21610 


ANL14 


CM 


DTR-1,DNESC, , BRANCH TO READ NEXT CHAR 


10648 


14 


11 if I 




21690 




BE 


0NSB1,,, SCANNING FOR ALPHA MODE 








01200 


2 1 700 




8 


OMSNUM 




AO 


1 1 ?Aft 


UUUUU 


21710 




DORG 


•-3 


1ft Aft ft 








21 720 


ANAL2 


CM 


ANALL+11,41,10, CHECK TO SEE IF CHARACTER LFE BETWEEN A+F 


10680 


14 


i n!nn 




21 730 




BL 


ANAL 1*12,,, NO IF BRANCH FROM HERE 


10692 


?I 




ni 


21740 




CN 


ANALU11,47,10, NAY BE CHECK FURTHER 


1 0704 


14 


* 


«?-.!! I 


21750 




BL 


ANL 14, , , OKAY 


10716 


47 


10648 


0 1 300 


21760 




CN 


ANAL1*11,54,10, CHECK REST OF CHARACTERS SERIALLY 


10728 


14 


10599 


00ON4 


21770 




BNE 


ANAL 3,,, NOT A MODE CHANGE 


10740 


47 


10784 


01200 


21780 




CM 


DTR-1 ,DMESC , , MODE CHANGE SET UP BRANCH 


10752 


14 


12029 


Jl 1 88 


21 790 




BE 


DMSNUM,,, CHANGING FROM ALPHA TO NUMERIC 


1 0764 


46 


1 1248 


0 1 /!00 


2 1800 




B 


DMES2, , , CHANGING FROM NUMERIC TO ALFA 


10776 


4>9 


1 1 424 


nnnnn 
UUUUU 


21810 




DORG 


• -3 


1 0784 








21820 


ANAL 3 


CM 


ANALl+11,57,10, CHK FOR P 


10784 


1 4 






21830 




BE 


ANL 14, , , LEAVE SUBROUTINE 


1 0796 


46 


10648 


01200 


21840 




CM 


ANALl+11,52,10, CHECK FOR R,S,,T 








n?»ftn 


2 1850 




BL 


ANAL 1* 12 » , , ERROR IF BRANCH 


i niin 




1 Aiftft 


nnnn? 


21860 




CM 


ANALUll ,63, 10, 


10832 


1 4 


1 neon 




21870 




BH 


ANAL 1+L2»t, ERROR IF BRANCH 


1 0844 




• 


01 100 


2 1 880 




B 


ANL 14, , , OKAY, R,S, OR T 


i nfnn 


AO 


e 


UUUUU 


21890 


ANAL4 


OS 


,ANAL1*12 


10600 








21900 


• PHASE A ONES PROCESSOR 










21910 


ONES 


BTM 


EVALAD,«*12,4, SCAN ADDRESS OPERAND 


* 


1 7 






21920 




TF 


DIGITS, CLERER+2, , CLEAR DIGIT COUNT 


10880 


26 


rOAOC 




21930 




TFM 


DTR-l, DMESC, SET SWITCH TO HANDLE POSSIBLE ERROR 


10892 


1 6 


1 IMfl 

i n«! 


11 1 AD 


21940 




BNR 


•♦24, INPUT+20,, CHECK IF BREAKER A RM 


10904 




. ??7« 


02903 


21950 




B 


DMSRM,,, BREAKER A RM, ERROR, INSERT NUN END NESSAGE 


10916 


ao 


1 1640 


UUUUU 


21960 




TOM 


SMODE , , , INITIALIZE STARTING NODE SWITCH 


10928 


15 




UUUUU 


21970 




BNF 


DMESl, BSW,, PROGRAMMER SPECIFIES ADDRESS 






10964 








TF 


ADDRS, ADOCOW,, NO, NOVE LOCATION COUNTER INTO ADDRESS LOC 


10952 


26 


03295 


02528 


21990 


ONES I 


TFM 


M0DE1*6,DMSMNI,,, INITITIALIZE BRANCH IN SUBROUTINE NODE 


10964 


16 


11970 


J1212 


22000 




BTM 


MODE, •♦12,, FIND NODE 


10976 


17 


11916 


J098B 


22010 




CM 


INPUT+20,41,10, SEE IF ALPHA NODE 


10988 


14 


02903 


000M1 


22020 




BE 


DMSALF,,, STARTING NOOE ALPHA IF BRANCH. 


1 1000 


46 


11048 


01200 



4S 
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22030 
22040 

22050 
22060 
22070 
22080 
22090 
22100 
22110 
22120 
22130 
22140 
22150 
22160 
22170 
22180 
22190 
22200 
22210 
22220 
22230 
22240 
22250 
22260 
22270 
22260 
22290 
22300 

22310 
22320 
22330 
22340 
22350 
22360 
22370 
22380 
22390 
22400 
22410 
22420 
22430 
22440 
22450 
22460 
22470 
22460 
22490 
22500 
22510 
22320 
22330 
21940 
21990 
21940 



TFM 

DC 

BT 
80 

DNSALF BNF 
TO 
TO 
AM 
TF 
SM 

DMESA TFM 
BTM 

DMSBl BTM 
AM 
BNF 
B 

OORG 
DMESC AM 
B 

0MSMN1 TDM 
BNF 
AM 

OMSNUM BTM 
AM 
BNF 
B 

OORG 
DC 



EVALER-l, 17300, .ILLEGAL STARTING MODE CHARACTER, 
!»•»• 



, PRINT ERROR MESSAGE 



SEE OF PROGRAMMER SPEC ADDRESS 
ADJUST ADDRESS ♦ LOC COUNTER 



EPRINT,EPRINT-1 
ERCOR, ERSTSW 
DMESA, BSW, , 
•♦23, ADDCOW, , NO, 
•♦23,JSTBL 
ADDCOW,, 10 

ADDRS, ADDCOW,, SET ADDRESS OF MESSAGE TO 2ND DIGIT 
AD0C0W,2,10, SET LOC. COUNTER TO LOC BEFORE MESSAGE 
M00EU6,DMSBl,,, SET-UP BRANCH INST IN SUBROUTINE MODE 
MODE, MODE,, SEARCH FOR COMNA 
DTR, DMESC, SCAN MESSAGE OPERAND 

DIGITS, 4, 10, LEFT PAREN FOUNO, UPDATE DIGIT COUNT BY 4 

ANAL, ANAL,, STRAY PAREN NOT FOUND IF BRANCH 

ANAL4 

•-3 

DIGITS, 2,10, UPDATE DIGIT COUNT BY 2 
DMSBl 

SMODE, 1,10, SET SWITCH FOR ALPHA STARTING NOOE 

DMSNUM, BSW,, CHECK IF PROG SPECIFIED ADDRESS 

ADDRS, 1,10, PROCESSOR ASSIGNED, INCREASE ADDRESS 

DTR, DMESll,, SCAN NESSAGE OPERAND 

DIGITS, 2, 10, LEFT PAREN FOUND 

ANAL, ANAL,, STRAY PAREN NOT FOUND IF BRANCH 

ANAL4 

•-3 

!#•.• 



NUNERIC 



0MS12 



CM 
BH 
CM 
BL 
CM 
BH 
AM 
B 



BT EPRINT, EPRINT-1 
DNfSll CN INPUT +20, 79,, CHECK TO SEE IF CHAR 
DMSER2,,, NOT NUMERIC, ERROR 
INPUT+20,69,10 
DMS12,,, NUMERIC IF BRANCH 
INPUT+20,50,10, CHECK IF -OTMRU-9 
DMSER2, , , NON-NUMERIC IF BRANCH 
INPUT+20,59,10 

DMSER2 , , , NOT NUNERIC IF BRANCH 
DIGITS, 1,10, UPDATE DIGIT COUNT BY ONE 
DMSNUM 

•CHECK TO SEE IF ALPHA WILL START IN EVEN LOCATION 
• LOCATION ONSV CONTAINS LOC OF LAST OIGIT STORED, 
0MES2 TF DMSV, DIGITS,, INITIALIZE IT WITH DIGIT COUNT. 

0MES21, BSW, , SEE OF PROGRAMMER SPEC ADORFSS 

DMSV, ADOCOW,, NO, ADD LOC COUNTER 
DMES22 

DMSV* ADDRS, , ADD PROG SPEC ADDRESS 
ONSV, 1,10, ADJUST FOR NUMERIC STARTING MOOE 
•♦24,SMOOE,, CHECK STARTING NOOE 
ONSV, 1,10, AOJUST FOR ALPHA STARTING MOOE 
•♦23, DMSV 
DNSEN0-1,EV0DD,,» 

DMSBl, DMSENO-l,, WILL START IN EVEN 

EVALER-l, 17600,, ODD ERROR, PRINT ERROR MESSAGE 





BNF 




A 




B 


DMES21 


A 




SM 




80 




SM 


DMES22 


TO 




TO 




BD 




TFN 




DC 







11012 


16 


07343 


J7300 


11023 








11024 


27 


07604 


07603 


11036 


43 


07468 


02476 


11048 


44 


11120 


08309 


11060 


25 


11083 


02528 


11072 


25 


11095 


02459 


11084 


11 


02528 


000-0 


11096 


26 


03295 


02528 


11108 


12 


02528 


000-2 


11120 


16 


11970 


JU44 


11132 


17 


11916 


J1916 


11144 


17 


12030 


JU88 


11156 


11 


02695 


000-4 


11168 


44 


10528 


10528 


11 ISO 


49 


10600 


00000 


11188 








11168 


11 


02695 


000-2 


11200 


49 


11144 


00000 


11212 


15 


03342 


000- 1 


11224 


44 


11248 


08309 


11236 


11 


03295 


000- 1 


11248 


17 


12030 


J1304 


11240 


11 


02695 


000-2 


11272 


44 


10528 


10528 


11284 


49 


10600 


00000 


11292 








11291 




1 




11292 


27 


07604 


07603 


11304 


14 


02903 


-0074 


11316 


46 


11850 


01100 


11328 


14 


02903 


00009 


11340 


46 


11400 


01100 


11352 


14 


02903 


OOONO 


11344 


47 


11850 


01300 


11374 


14 


02903 


000N9 


11388 


46 


11850 


01100 


11400 


11 


02695 


000- 1 


11412 


49 


11248 


00000 


11424 


26 


03262 


02695 


11434 


44 


11472 


06309 


11448 


21 


03262 


02328 


11440 


49 


11520 


00000 


11472 


21 


03262 


03295 


11484 


12 


03262 


000- 1 


11496 


43 


11520 


03342 


11 SOB 


12 


03262 


000-1 


11310 


23 


11543 


03262 


11332 


25 


11413 


02469 


11344 


43 


11146 


11419 


11394 


14 


07343 


J 7400 


11967 




I 






43 
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MCE 49 



22570 




§T 


EFRINT,EPAINT-1 


22960 




•0 


ERCOR, ERSTSW 


22990 




AM 


DIGITS, l« 10 t ALLOW FOR - 


22600 




§ 


OMSil 


22610 


DMSEND 


CM 


DIGITS, ,9. Sfl IF NO DIGITS ACCUMULATED 


22620 




BH 


•♦36,,, NO If AO, OKAY 


22630 


DMSRM 


AM 


DIGITS, 100,9 


22660 




B 


DMSERl • , , ERROR IF BRANCH, NO DIGITS 


22650 




TFM 


INPUTJtl, 070,9 11 


22660 




TF 


INFUT106, DIGITS 


226T0 




BNF 


•♦26, ISM 


22680 




A 


AODCOW, DIGITS,, UPDATE LOCATION COUNTER BY MESSAGE SIZE 


226*90 




BTM 


CTEST,«*I2 


22700 




TFM 


CFFA.NCDCF 


22710 




BTM 


CFF.LDLBL 


22720 


NCOCF 


ODA 


,0.A20AD,A4SCT,INSTAN 






0JB800-23J092S 


22730 




OC 
1 


it* 


22740 




TFM 


DIGITS, 100,9, SET DIGIT COUNT TO 100 


22750 




TFM 


EVALER-l, 80000,, ER 8 MESSAGE • ONES TOO LONG 


22760 




OC 
• 




22770 




8 


• ♦24 


22780 


DMSERl 


TFM 


EVALER-l, 90000,, ER9 MESSAGE, NO ONES OPERAND 


22790 




OC 
t 


PRINT ERROR MESSAGE 


22800 




BT 


EPRINT,EPRINT-1 






80 


ERCOR, ERSTSM 


22820 




8 


0MSRM^24,,, CONTINUE 


22830 


NMOAL 


DC 


2,0 


22840 


DMSER2 


-0 
TFM 


EVALER-l, 175 00,, ALPHA IN NUMERIC FIELD 


22850 




OC 
* 




22860 




BT 


E PR INT, E PR INT- 1,, PRINT ERROR MESSAGE 


22870 




80 


ERCOR, ERSTSH 






km 


DIGITS, 2, 10, UPOATE OIGIT COUNT BY 2 FOR END OF MESS 


22890 




8 


OMSNUM 


22900 




OC 


5,0 






-0000 






TR 


INPUTM9.INPUT+21,, MOVE INPUT RECORD LEFT I CHAR 


22920 




BNR 


•♦24,INPUT*20,,,NOT BLANK, CHECK FOR RM 


22930 




B 


DMSRM, , , 






CM 


INFUT+20,23, 10, SEARCH FIELD, CHECK FOR COMMA 




MODE 1 


BE 


,,, COMMA FOUND, BRANCH 






CM 


INPUT*20, , 10, COMMA NOT FOUNO, CHECK FOR BLANK 


22970 




BE 


MODE,,, BLANK, CHECK NEXT CHARACTER 


22980 




TF 


•♦18,M0DE-1,,, ALPHA CHAR IN FIELD, RETURN, OR CHECK 


22990 




B 


,,, NEXT CHAR. ACCOROING TO BRANCH 


23000 


♦ SUBROUTINE TO SHIFT ONE CHARACTER TO THE LEFT IN INPUT BUFFER 


23010 




OS 


5 


23020 


OTR 


TR 


INPUT+19,INPUT+21», MOVE OPERAND LEFT 1 CHAR ♦ SEARCH 


230 30 




CM 


DIGITS, 100,9, CHECK OIGIT COUNT 


23040 




BH 


DMSERl-36,,, BRANCH TO ERROR ROUTINE 


23050 




BNR 


• ♦20,INPUU20,, FOR RM 



11568 


27 


07604 


07603 


11910 


49 


07448 


02474 


11592 


11 


02445 


000-1 


11406 


49 


11144 


00000 


11414 


14 


02499 


00-00 


11424 


44 


11444 


01100 


11440 


11 


02499 


OOJOO 


11492 


49 


11 BOO 


00000 


11444 


14 


03037 


00-7- 


1 1474 


24 


03042 


02699 


11489 


44 


11712 


06309 






02928 


02699 


11712 


17 


0770B 


J1724 


11724 


14 


02429 


J174B 


11734 


17 


02992 


-8484 


1 1 74B 








11762 




1 




1 1764 




02695 


OOJOO 


11776 


16 


07343 


00000 


11787 




1 




11788 


49 


11812 


00000 


1 1800 


14 


07343 


ROOOO 


11811 




1 




11812 


27 




07603 


11824 


43 


07468 


02476 


11836 


49 


11664 


00000 


11849 




2 




11850 


16 


07343 


J7500 


1 1861 




I 




11862 


27 


07604 


07603 


11874 


43 


07466 


02476 


11886 


11 


02695 


000-2 


11898 


49 


11248 


00000 


11914 




5 




11916 


31 


02902 


02904 


11928 


45 


11952 


02903 


1 1940 




1 1640 


AAAAA 


11952 


14 


02903 


000K3 


11964 


46 


00000 


01200 


11976 


14 


02903 


000-0 


11988 


46 


11916 


01200 


12000 


26 


12018 


11915 


12012 


49 


00000 


00000 


12028 




5 




12030 


31 


02902 


02904 


12042 


14 


02695 


OOJOO 


12054 


46 


11764 


01100 


12066 


45 


12086 


02903 



50 
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23060 




B 


DMSEND, , , RECORD MARK FOUND, SCAN FINISHED 


12078 


49 


11616 


00000 


23070 




DORG 


• -3 


12086 








23080 




CM 


INPUT*20,4,10, CHECK FOR STRAY RT PAREN 


12086 


14 


02903 


000-4 


23090 




BNE 


•♦56, ,, NOT A STRAY PAREN IF BRANCH 


12098 


47 


12154 


01200 


23100 




SF 


ANAL,,, SET SWITCH FOR STRAY PAREN FOUNO 


12110 


32 


10528 


00000 


23110 




CM 


DTR-1 ,DMESC 


12122 


14 


12029 


J1188 


23120 




BE 


DMSB1+12 


12134 


46 


11156 


01200 


23130 




B 


DMSNUMM2,,, NUM 


12146 


49 


11260 


00000 


23140 




DORG 


•-3 


12154 








23150 




CM 


INPUT^20,24,10, CHK FOR LEFT PAREN 


12154 


14 


02903 


000K4 


23160 




BNE 


•♦24, , , NOT A LEFT PAREN 


12166 


47 


12190 


01200 


23170 




BB 


,,, , LEFT PAREN FOUNO 


12178 


42 


00000 


00000 


23180 




TF 


•♦18, DTR-1, , NOT A I, 


12190 


26 


12208 


12029 


23190 




B 


,,, RETURN 


12202 


49 


00000 


00000 


23200 


• 














23210 


• 














23220 


• 


DEFINE VARIABLE LENGTH AODRESS CONSTANT 










23230 
















23240 


DVLC 


BTM 


EVALAD, •♦12,4 


12214 


17 


05076 


12226 


23250 




TO 


LOABSW,RLOCSW 


12226 


25 


08308 


08307 


23260 




TF 


OVAOB+11, AODRS 


12238 


26 


12589 


03295 


23270 




CF 


OVSWl 


12250 


33 


12286 


00000 


23280 




BNF 


DVLC2, BSW 


12262 


44 


12298 


08309 


23290 




TOM 


LOABSH,l,U 


12274 


15 


08308 


0000 J 


23300 


OVASGN 


SF 


OVSWl 


12286 


32 


12286 


00000 


23310 


0VLC2 


BTM 


EVALAD, •♦12, 3 


12298 


17 


056P6 


12310 


23320 




TF 


DVCKL, AODRS 


12310 


26 


12297 


03293 


23330 




BNF 


DVLP, OVSWl 


12322 


44 


12394 


12286 


23340 




TF 


0VA08M1, AODCOW,, AOOR IS RT.-HOST POS OF 1ST CON. 


12334 


26 


12569 


02528 


23350 




AM 


OVADB+ll, SO 


12344 


11 


12589 


-0050 


23360 




SM 


AODRS, 50 


12358 


12 


03295 


-0050 


23370 




BNN 


• ♦24 


12370 


46 


12394 


01300 


23380 




A 


OVADBOU, ADORS 


12382 


21 


12589 


03295 


23390 


OVLP 


BNR 


•♦48, INPUT^20 


12394 


45 


12442 


02903 


23400 




TFM 


EVALER-l, 90000,, ER 9, CONSTANT NOT SPECIFIED 


12404 


16 


07343 


ROOOO 


23410 




DC 




12417 




I 




23420 




BT 


EPR1NT, EPRINT-1 


12418 


27 


07604 


07603 


23430 




BD 


ERCOR, ERSTSW 


12430 


43 


07466 


02476 


23440 




BTM 


EVALAO, •♦12, 5 11 


12442 


17 


056P6 


1245M 


23450 




BNR 


•♦20, INPUT+20 


12454 


49 


12474 


02903 


23460 




B7 


DVEND 


12444 


44 


12506 




23470 




BTM 


EVALAD, •♦12,5 


12474 


17 


056P6 


12486 


23480 




A 


DVCKL, AODRS 


12484 


21 


12297 


03293 


23490 




B7 


DVLP 


12498 


49 


12394 




23500 


DVEND 


CM 


DVCKL, 00050 


12904 


14 


12297 


-0050 


23510 




BMP 


• ♦60 


12918 


47 


12576 


01100 


23520 




TFM 


EVALER-l, 80000,, ERB, TOTAL LENGTH TOO BIG 


12930 


16 


07343 


00000 


23530 




DC 
, 




12941 




1 




23540 




BT 


E PRINT, EPRINT-l 


12942 


27 


07604 


0760) 


23550 




BD 


ERCOR, ERSTSW 


12994 


43 


07468 


02476 


23560 




TFM 


DVCKL, 90 


12944 


14 


12297 


-0050 


23570 


DVADB 


TFM 


ADORS, 00000 


12978 


14 


03299 


-0000 


23580 




BNF 


•♦24, OVSWl 


12990 


44 


12614 


12266 


23590 




A 


AODCOW, OVCKL 


12402 


21 


02926 


12297 
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23600 




TOM 


INPUT2* • 


• 


12616 


19 


03036 


00009 


23610 




TFN 


CFF A,NC0CF 




1262* 


16 


02629 


J 1749 


23620 




BTM 


CFF,0AC3-32 




12611 


17 


02592 


J2300 


23630 


DVCKL 


OS 


« 0VASGNH1 




U297 




0 




23660 


0VSM1 


OS 


• DVASGN 




12286 




0 




23650 


F2 


34 


F2DCF, 00701 




12650 


34 


12758 


00701 


23660 




38 


F20CF, 00702 




12662 


39 


12758 


00702 


23670 




TR 


OUTAR-l, CLERER*3 t 2 




12676 


31 


J052B 


02699 


23690 




AW 


•-I2*6f 50 t 10 




12686 


11 


12660 


OOONO 


23690 




SM 


•♦23,1,10 




12698 


12 


12721 


000-1 


23T00 




CM 


CLERER*lt 34,10 




12710 


14 


02697 


000L4 


23710 




BL 


•-48 




12722 


47 


12674 


01300 


23720 




TRA 






12714 


34 


00000 


00500 












12766 


49 


00000 


00000 


23730 


F2DCF 


OOA 


,0,A4DAD,A4SCT,INSTRN 




12758 




14 








0J8876-23J0528 












237*0 




TCO 


F2 




12650 








23750 


• 
















23760 


• 


SYMBOL TABLE OUTPUT PHASE 












23770 


• 
















23780 




OORG 


INSTRN 




10528 








23790 


OUTAR 


OAS 


60 




10529 




80 


X 2 


23800 




OAC 
• 


!•* 




10689 




I 


X 2 


23810 


STIT1 


DAS 


32 




10691 




32 


X 2 


23820 




OAC 


12, SYMBOL TABLE 




10755 




12 


X 2 






SYMBOL TABLE 












23830 




DAS 


36 




10779 




36 


X 2 


23860 


STIT2 


DAS 


32 




10851 




32 


X 2 


23850 




DAC 


09, BLOCK 01 




10915 




9 


X 2 






BLOCK 01 












23860 




DAS 


39 




10933 




39 


X 2 


23870 


OUTCL 


DAS 


80 




1 101 1 




80 


X 2 


23880 




OAC 
• 


U« 




11171 




1 


X 2 


23890 


ALZR 


OAC 


5,00000 




11173 




5 


X 2 






00000 4 












23900 




OAS 


I 




11183 




1 


X 2 


23910 


NADD 


OS 


5 




11188 




5 




23920 


LNCT 


OS 


2 




11190 




2 




23930 


• 
















23940 


• 


EVALUATE ADDRESS OF DEND 












23950 


• 
















23960 


DENO 


TFM 


INPUT2+1,30,10 11 




11192 


16 


03037 


OOOL- 


23970 




BTM 


EVALAD,»*12»4 




11204 


17 


05076 


11216 


23980 




TO 


INPUT2+6, ZEP0+29 




11216 


25 


03042 


02329 


23990 




TO 


INPUT2+5, 2EP0*28 




11228 


25 


03041 


02328 


26000 




BO 


•*24,ZEP0+29,, 


CHECK FOR TCO 


11260 


43 


11264 


02329 


24010 




BTM 


OUTPUT, CSTAT 




11252 


17 


09958 


J1288 


26020 




TFM 


CFFA,NCDCF 1 




11266 


16 


026 .9 


-7588 


26030 




BTM 


CFF.SNDTCO 




11276 


17 


02' 92 


-8710 


24040 


CSTAT 


BNF 


•♦24,2PSSW 




11288 


44 


11312 


02477 


24050 




BTM 


2PS0UT, »+12 




11300 


17 


10250 


J1312 


24060 




CM 


SBOUT, 00,10 




11312 


14 


02643 


000-0 


24070 




BE 


CALLA3 




11324 


46 

5 


11396 


01200 
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PAGE 


24080 




TO 


OGSV, LQSYMB+i 




11336 


25 


03343 


19998 


24090 




TO 


LOSYNB^l, SPSGM 




11348 


25 


19998 


02560 


24100 


• 1 


WRITE 


OISK-WLRC-OUTPUT PARTIAL 


BLOCK 










24110 




TFM 


IORT t »+23 




11360 


16 


00565 


J1383 


24120 




B 


I0RBCSDEF1 ,7 




11372 


49 


00520 


J04U 


24130 




TD 


LOSYMB+1, OGSV 




11384 


25 


19998 


03343 


24140 


CALL A3 


RCTY 






11396 


34 


00000 


00102 


24150 


A3STRT 


TFM 


A3B0*li» I STAT-1 




11406 


16 


11431 


-2558 


24160 


A 380 


80 


• *4>4 , 




1 1420 


43 


1 1464 


00000 


24170 




TOM 


A 380*11, ,6 




11432 


15 


1143J 


00000 


24180 




OC 
t 


It 




11443 




1 




24190 




SM 


A3B0m,l,10 




11444 


12 


11431 


000-1 


24200 




B7 


A3B0 




11456 


49 


11420 




24210 




TD 


•♦23,HIADO 




11464 


25 


11487 


02518 


24220 




TD 


♦♦23,AJUSY 




11476 


25 


11499 


02399 


24230 




AM 


HIAOO, 00,10 




11488 


11 


02516 


000-0 


24240 




TD 


•♦23, PICKUP 




11500 


25 


11523 


02528 


24250 




TD 


•♦23,AJUST 




11512 


25 


11535 


02399 


24260 




AM 


PICKUP, * 10 




11524 


11 


02528 


000-0 


24270 




BNF 


•♦20,lSTAT-30 




11536 


44 


11556 


02529 


24280 




87 


•♦20 




11548 


49 


11568 




24290 




TF 


M0MA0,HI ADD 




11556 


26 


00415 


02518 


24300 


MACRIN 


BNF 


•♦66,KILSUB 




11568 


44 


11636 


02484 


24310 




CM 


A3B0*li,ISTAT-3O 




11580 


14 


11431 


-2529 


24320 




BNL 


• ♦44 




11592 


46 


11636 


01300 


24330 




TD 


A3BD*ii,A3BD*23,6 




11606 


25 


1143J 


11443 


24340 




SM 


A 380*11, 1,10 




11616 


12 


11431 


000-1 


24350 




B7 


•-48 




11628 


49 


11580 




24360 




BD 


ASTOP.ASTSH 




11636 


43 


12984 


10521 


24370 




BNF 


•♦84,2PSSW 




11648 


44 


11732 


02477 


24380 




BNF 


•♦36,PTINSW 




11660 


44 


11696 


02475 


24390 




RCTY 






11672 


34 


00000 


00102 


24400 




WATY 


PT2MES 




11684 


39 


13029 


00100 


24410 




BNF 


•♦36,C0INSW 




11696 


44 


11732 


02474 


24420 




RCTY 






11708 


34 


00000 


00102 


24630 




WATY 


CD2MES 




11720 


39 


13107 


00100 


24440 




BO 


STBEGN, STPCSW 




11732 


43 


11756 


02470 


24450 




BNF 


CALL81.STTYSW 




11764 


44 


12804 


02471 


24460 


STBEGN 


BNF 


STl , STPCSM 




11756 


44 


11792 


02470 


24470 




WACO 


STITl,,, 


PUNCH TITLE 


11766 


39 


10691 


00400 


24480 




WACO 


OUTCL 




11780 


39 


11011 


00400 


24490 


ST1 


BNF 


ST2,STTYSW 




H792 


44 


11676 


02471 


24500 




TFM 


STITU2»64,,, 




11804 


16 


10779 


-0000 


24510 




DAC 
« 


!.•#• 




11815 




I 


X 2 


24520 




RCTY 






11616 


34 


00000 


00102 


24530 




RCTY 






11828 


34 


00000 


00102 


24540 




MATY 


STITl 




11840 


39 


10691 


00100 


24550 




RCTY 




■ ■ ■ 


11852 


34 


00000 


00102 


26560 




RCTY 






11864 


34 


00000 


00102 


26570 


ST2 


CM 


SBOUT, 00, 10 




11876 


14 


02643 


000-0 


24580 




BE 


0SYNB-20 f », 


OUTPUT BLOCK NO. IF MOKE THAN ONE 


11888 


44 


12316 


01200 






TFM 


SBCNT.00,10, 


f XI STS 


11900 


14 


02671 


000—0 


24600 




TF 


8tDCP*5,81DCF^§ 




11912 


2ft 


10665 


10449 


26610 


STL OOP 


AM 


S6CNT,l,lO 




11924 


11 


02671 


000-1 
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24620 




ro 


ST I T2+40*2 » S8CNT 


11936 


25 


10931 


02671 


24630 




TO 


ST I T2+S9«2i SBCNT-1 


11948 


25 


10929 


02670 


24640 




BNF 


ST3»STPCSW 


1 1 960 


44 


12020 


02470 


24650 




WACO 


OUTCL 


11972 


39 


11011 


00400 


24660 




WACD 


OUTCL 


11964 


39 


11011 


00400 


24670 




WACO 


STIT2 


11996 


39 


10851 


00400 


24680 




WACO 


OUTCL 


12008 


39 


11011 


00400 


24690 


S73 


BNF 


CRLO* STTYSN 


12020 


44 


12116 


02471 


24700 




RCTY 




12032 


34 


00000 


00102 


24710 




RCTY 




12044 


34 


00000 


00102 


24720 




TFM 


STt T2*41»2 


12096 


16 


10933 


-0000 


2*730 




OAC 
< 


1 9 * »• 


12067 




1 


X 2 


24740 




MATY 


STI T2 


1206B 


39 


10851 


00100 


24750 




RC TV 




12060 


94 


00000 


00102 


24760 




RCTY 




12092 


34 


00000 


00102 


24770 




TFM 


STIT2+41*2tOO«lO 


12104 


16 


10933 


000-0 


24780 


CRLD 


AM 


R?nr f+i. 5P*i 


12116 


1 1 


10465 


-0040 


24 790 








12128 


24 


02671 


02643 


24800 




BH 


FLOAD 


12140 


46 


12244 


01100 


24110 




TO 


OGSV * LOSVMB* 1 


12152 


25 


03343 


19996 


24g20 




TO 


LOSYMB* 1 1 SPSGM 


12144 


25 


19996 


02560 


248 10 




READ i 


D I SK-WLRC-RE AD SYMBOL BLOCK 










24840 




TFM 


IORT • 23 


12176 


16 


00565 


J2199 


24850 






IOGT, SDEF2 1 7 


12188 


49 


00566 


J0419 






TFM 




12200 


16 


03283 


K0009 


24870 




TFM 


1 t M I T . MA V 1 IM 


12212 


16 


03278 


J5997 


24880 




TO 


i n^vMA+i . nr.^w 

LUjinDT i f uuov 


12224 


25 


19998 


03343 






B 7 




1 2236 


49 


12316 






_ 


TD 


Ull JYlLUJf HDT 1 


■ 22*4 


25 


03343 


19998 






TD 




12256 


25 


19998 


02560 






















JT 


I no r nil 


12268 


16 


00565 


J2291 








I nr T cncc i „ 7 


12280 


49 


00566 


J041 1 






TP 


L I M I 1 PR 1 L I W— % 


12292 


31 


032 74 


02498 


ola^n 




rn 

I 




1 2304 


25 


1 9998 


03343 








1 fMITCK.1T in 


12316 


1 1 


03278 


000 J7 


?2aon 








12328 


49 


12732 








TP 


flllTAB— 1 nilTTl— 1 


1 2336 


31 


10528 


11010 


25000 




TFM 


1 wr T . ft* .in 


12348 


16 


1 1 190 


000-5 


2501 0 




TFM 


CTl P* A . DIIT AR • 7 
j iLr T oiuu 1 ^ ^ T j ^ 


12360 


16 


12378 


J0539 




STLP 






12372 


26 


00000 


0327Q 






AM 


< ti 0 * a. u in 

i 1 L r ▼ O , I "r » 1 U 


12384 


1 1 


12378 


000 J4 






AM 
* 


1 IHIT C K Kin • 


1 2396 


1 1 


03278 


000—5 


_ ^ 






nKUUtLini la st 11 


1 2408 


26 


11188 


0327Q 








a 1 7Bti m a nn 


12420 


25 


11181 


1 1 igg 






TH 


At vdai iiinn 1 

ALZR*o»N*UD— 1 










25080 




TD 




12444 


25 


11177 


1 11 86 


25090 




TD 


ALZR+2 iNADD-3 


12456 


25 


11175 


1 1185 


25100 




TD 


ALZR*0,NA0D-4 


12468 


25 


11173 


11184 


25110 




TFM 


ALZR+10, 00,10 


12480 


16 


11183 


000-0 


25120 




BNF 


•♦48.NAO0 


12492 


44 


12540 


11188 


25130 




TFM 


AL2R»10,59,10 


12504 


16 


11183 


000N9 


25140 




BO 


•♦24.RELSW 


12516 


43 


12540 


02478 


25150 




TFM 


ALIR+10, 20,10 


12528 


16 


11183 


000K0 


25160 




CF 


AL2R+9 


12540 


33 


11182 


00000 
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25170 




CF 


ALZR+8 












12552 


33 


11181 


00000 


25180 




CF 


ALZR 












12564 


33 


11173 


00000 


25190 




TF 


STLP*6,ALZR*10,6 












12576 


26 


12370 


11183 


25200 




AM 


STLP*6,18,10 












12588 


11 


12378 


000J8 


25210 




AM 


LlMITS-5, 12,10 












12600 


11 


03278 


O00J2 


25220 




C 


LIMITS-5, LIMITS 












12612 


24 


03278 


03283 


25230 




BNL 


• ♦36 












12624 


46 


12660 


01300 


25240 




SM 


LNCT, 1,10 












12636 


12 


11190 


000- 1 


25250 




BP 


STLP 












12648 


46 


12372 


01100 


25260 




BNF 


ST4,STPCSW 












12660 


44 


12696 


02470 


25270 




TFM 


IORT, •♦23 












12672 


16 


00565 


J2695 


25280 




B 


I0PT,0UTA0-4,7 












12684 


49 


00532 


J3020 


25290 


ST4 


BNF 


ST5,STTYSW 












12696 


** 


12732 


02471 


25300 




WATY 


OUTAR 












12708 


39 


10529 


00100 


25310 




RCTY 














12720 


34 


00000 


00102 


25320 


ST5 


C 


LIMITS-5, LIMITS 












12732 


24 


03278 


03283 


25330 




BL 


OSYMB 












12744 


47 


12336 


01300 


25340 




CM 


SBOUT.00,10 












12756 


14 


02643 


000-0 


25350 




BE 


CALLB1 












12768 


46 


12804 


01200 


25360 




C 


SBCNT.SBOUT 












12780 


24 


02671 


02643 


25370 




BNH 


STLOOP 












12792 


47 


11924 


01100 


25380 


CALLS 1 


BNF 


•♦60.2PSSW 












12804 


44 


12864 


02477 


25390 




BNF 


•♦48,PTINSW 












12816 


44 


12864 


02475 


25400 




WATY 


2STMES 












12828 


39 


13171 


00100 


25410 




RCTY 














12840 


34 


00000 


00102 


25420 




H 














12852 


48 


00000 


00000 


254 30 




BNF 


•♦96, STPCSW 












12864 


44 


12960 


02470 


25440 




BNF 


•♦84,LSC0SW 












12876 


44 


12960 


02479 


25450 




WACO 


OUTCL 












12888 


39 


11011 


00400 


25460 




WACO 


OUTCL 












12900 


39 


11011 


00400 


25470 




WACO 


OUTCL 












12912 


39 


11011 


00400 


25480 




NOP 


OUTCL, ,,CHNGE TO WACO TO PUNCH 1 MORE 


BLNK 


LN 


AFTR 


SYM 


TABLE 


12924 


41 


11011 


00000 


25490 




NOP 


OUTCL., ,CHNGE TO WACO TO PUNCH 1 MORE 


BLNK 


LN 


AFTR 


SVM 


TABLE 


12936 


41 


11011 


00000 


25500 




NOP 


OUTCL,,, CHNGE TO WACO TO PUNCH 1 MORE 


BLNK 


LN 


AFTR 


SYM 


TABLE 


12948 


41 


11011 


00000 


25510 




TFM 


CFFA.CBIDCF 












12960 


16 


02629 


J3294 


25520 




BTM 


CFF,4170 












12972 


17 


02592 


-4170 


25530 


ASTOP 


RCTY 














12984 


34 


00000 


00102 


25540 




WATY 


ASMS 












12996 


39 


13219 


00100 


25550 




B 


MONCAL,,, CALL EXIT 












13008 


49 


00796 


00000 


25560 


OUTAD 


OSA 


OUTAR 












13024 




9 


X 1 




















13024 




J0529 




25570 




OC 


3,10' 












13027 




3 




25580 


PT2NES 


JO* 
OAC 


39, RETHREAO SOURCE PAPER TAPE FOR PASS 


2.* 










13029 




39 


X 2 






RETHREAO SOURCE PAPER TAPE FOR PASS 2.* 




















25590 


C02MES 


OAC 


32, RELOAD SOURCE CARDS FOR PASS 2.* 












13107 




32 


X 2 






RELOAD SOURCE CARDS FOR PASS 2.* 




















25600 


2STMES 


DAC 


24, PRESS START WHEN READY* ' 












13171 




24 


X 2 






PRISS START WHEN READY. * 




















25610 


ASMS 


DAC 


36,0! SC AREA TOO SMALL. ASSEMBLY DELETED* 










13219 




36 


X 2 






DISC 


AREA TOO SMALL. ASSEMBLY DELETED* 




















25620 


CB1DCF 


DDA 


,0,BIDA0,81SCT,SB0UT*1 












13294 




14 





OJ 8969*20-2644 

25630 DC I,* 13308 1 
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25*40 F3 34 A50CP •00701 

29*50 38 A90CP ,00702 

25**0 TRA 

25*70 A50CF ODA ,0,A5DAD.A5SCT , I NSTRN 

0J8737-29J0528 
25*80 TCO FS 



13310 3* 13358 00701 

13322 38 13358 00702 

1331* 3* 00000 00900 

133** 49 00000 00000 

13398 14 

13310 



Of NO START 



56 
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1PTSPB 


01500 


FF1DCF 


11436 


PT2MES 


13029 


B2SCT 


00052 


C20P3 


13749 


2PRTI0 


20000 


G000B2 


05180 


PTINSW 


02475 


B3DAD 


19000 


C20P4 


13736 


2PS0UT 


10250 


G00DB3 


10564 


PUTSRJ 


10946 


B3HAD 


09100 


C20P 


13592 


2PTSPB 


00600 


HEADER 


05388 


RETURN 


06264 


B3SCT 


00069 


C20 


15441 


2STMES 


13171 


INCODE 


02491 


RLOCSW 


08307 


B4DA0 


19069 


C21P 


13768 


5ALPH0 


03395 


I NPUT2 


03036 


RSYMSW 


08306 


B4SCT 


00053 


C21 


15477 


A3STRT 


11408 


I NSTRN 


10528 


2PASS 


10154 


B50AD 


19122 


C22P 


13788 


AOOCOW 


02528 


INTRSH 


02483 


2PBUF 


10334 


B5SCT 


00029 


C22 


15501 


ALFLPI 


04656 


INTSAV 


15662 


2PRE 


10322 


B6DA0 


19151 


C23P 


13808 


BCWSPC 


06044 


IOADDR 


02636 


2PSSM 


02477 


B6SCT 


00029 


C23 


15529 


CA50CF 


13080 


IOCSAD 


19783 


2PTR 


10214 


BBACK 


06472 


C24P 


13864 


CALLA2 


13972 


KILSUB 


02484 


2SECT 


10098 


BETA 


02692 


C24 


15539 


CALLA3 


11396 


LDABSW 


08308 


2S 


10134 


BI 


05316 


C25P 


13932 


CALLBl 


12804 


LOOSCY 


09198 


5CHAR 


06834 


BNI 


05316 


C25 


15557 


CALL EX 


12142 


LIMITS 


03283 


6CHAR 


06866 


BONK 


05304 


C26P 


13952 


CARDIN 


02664 


LOPQUT 


03323 


A1C1 


10814 


BP20K 


00005 


C26 


15567 


CB10CF 


13294 


L0SYM8 


19997 


A1DAD 


18600 


B 


13928 


C2P1 


12796 


CD2MES 


13107 


LSCDSH 


02479 


A1DCF 


15724 


BSAV 


08662 


C2P2 


12828 


CDIMSW 


02474 


LSPRSW 


02481 


A1SCT 


00137 


BSBF 


08656 


C2P 


12752 


CFFOEF 


02623 


LSTYSW 


02480 


A2DAD 


18800 


BSCYC 


08404 


C2 


14871 


CHVALO 


12008 


MACRIN 


11568 


A2SCT 


00054 


BSENT 


08685 


C3PI 


12916 


CLERER 


02696 


NACR02 


10528 


A3BD 


11420 


BSHI 


08632 


C3P2 


12948 


CLUNK 


12014 


MACSHF 


11932 


A3DA0 


18854 


BSNEQ 


08600 


C3P3 


12984 


CLLOAD 


12014 


MAXLIM 


15997 


A3DCF 


11500 


BS 


08392 


C3P 


12872 


COMMER 


06056 


MCADCF 


15630 


A3SCT 


00022 


BSM 


08309 


C3 


14899 


COMSPC 


05900 


MCAOEF 


15622 


A4DAD 


18876 


BTBL2 


05192 


C41A 


12462 


OIGITS 


02695 


MCCALL 


11476 


A4SCT 


00023 


6TBL3 


10576 


C4P 


13052 


DIMDAO 


04800 


MOCTOC 


16023 


A5DAD 


18737 


BTBL 


05054 


C4 


14929 


OIMOCF 


14832 


MOEXEC 


0042* 


A50CF 


13358 


C10P 


13232 


C5P 


13072 


OIMSCT 


0000 1 


HOIDNO 


16039 


ASSCT 


00029 


CIO 


15075 


C5 


14951 


0HES11 


11304 


MONAME 


16035 


ADC 


05292 


CHAP 


13272 


C62S 


12458 


0MES21 


11472 


MONCAL 


00796 


ADORS 


03295 


C11A 


15141 


C**W 


12460 


0MES22 


11520 


MONOI S 


1*044 


AJUST 


02399 


C11P 


13252 


C6P 


13092 


OMESCL 


11412 


MOSBNO 


1*043 


ALFLP 


04712 


CU 


15107 


C* 


14971 


DNS AL F 


11048 


MOSOAO 


19663 


ALFOP 


04612 


C12P 


13292 


C70 


15621 


DM SEND 


11616 


MSTDAD 


18934 


ALPHA 


02682 


C12 


15175 


C7P 


13112 


DNSER1 


11800 


NCOCFl 


07588 


AL2R 


11173 


C13P 


13312 


C7 


15011 


DMSER2 


11850 


NCDCF2 


11054 


AWAL1 


10588 


C13 


15195 


C8P 


13132 


DMSMN1 


11212 


NOSINE 


12204 


ANAL2 


10680 


C14P 


133*8 


C8 


15043 


DM S NUN 


11248 


OBJCRE 


0249* 


anals 


10784 


C14 


15225 


C9P 


13152 


OOBOMK 


10804 


OPLCTB 


04908 


ANAL4 


10*00 


C15P 


13424 


C9 


15065 


000 1 SK 


11332 


0T2DCF 


10492 


ANAL 


10528 


C15 


152*5 


CCN2 


13308 


OOINST 


10632 


QUTDCF 


1047* 


mil* 


10*48 


C16P 


134*8 


CCN3 


13572 


DOLLAR 


06584 


OUTDFl 


10427 


AORS 


0*1*8 


C16 


15307 


CCON 


13156 


DOS IOC 


11088 


0UTDF2 


10435 


A 


13*71 


CI TAP 


13508 


CFFA 


02629 


DOSVRS 


11252 


OUTPUT 


09958 


ASET 


oi.?.: i 


C17A 


15355 


CFF 


02592 


DVASGN 


12286 


PCALL1 


11630 


ASMS 


I32i9 


C17P 


13488 


CHK2 


07424 


FIODAC 


12032 


PCNUSM 


02482 


ASR 


07;** 


C17 


15325 


CHKND 


07392 


EPRINT 


07604 


PHASEA 


03404 


ASTER 


07118 


CUP 


13928 


CLTBL 


11875 


ER9DAC 


11964 


PHCOAO 


19252 


ASTOP 


12984 


CU 


15379 


CNTR 


10511 


ERCHAR 


06708 


PHCSCT 


00040 


ASTSM 


10521 


C19P 


19972 


COLL 


02439 


ERLNTM 


0*020 


PICKUP 


02528 


81 DAD 


199*9 


C19 


15409 


COMA 


05460 


ERRDIG 


03273 


PROCON 


11014 


B10CF 


10444 


CIP 


12*72 


CORM 


03351 


ERSTSM 


02476 


PROCRE 


02497 


B1SCT 


00020 


CI 


14949 


CRLD 


12116 


EVALAO 


05*76 


PRQSTN 


03912 


B2DAD 


19200 


C20P1 


13*7* 


C 


14252 


E VALE 8 


07344 


PRTLIM 


02502 


B20CF 


104*0 


C20P2 


13*1* 


CSTAT 


11288 
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CT t 


07756 


OVLP 


12394 


LAB 


03319 


RDBLK 


08160 


STSAV 


15657 


CTEST 


07700 


OVSWl 


12286 


LAODR 


07936 


ROM 


05326 


SUBNO 


02523 


CTVT 


02409 


EQOAO 


00000 


L62 


07676 


REA01 


03604 


SVOG 


09402 


C YLA V 


15647 


EQSCT 


00004 


LB ADO 


07662 


REA02 


03636 


SW2 


07302 


DAC 3 


123)2 


EQSW 


08611 


LBCK2 


06602 


REA03 


03440 


TAP IN 


02656 


DACER 


1 1676 


181 1 


05586 


LBFNO 


08312 


RELER 


06416 


TEMPR 


02571 


OACR 


12156 


E612 


05620 


LBLIM 


20009 


RELSM 


02476 


TEMP 


03349 


OAC 


11761 


ER19 


09686 


LOLBL 


08686 


RLOP 1 


04220 


TEST3 


07210 


OAS 


1 1666 


ERl 


07770 


LOS OK 


09330 


RLOP 


04268 


TFADD 


07234 


DCARO 


11070 


CR20 


10344 


LOSR 


09316 


RNOP 


04448 


TOBB 


06460 


DCRN 


13366 


f 822 


11602 


LDTR 


09462 


RMRK 


02575 


TRA 


10654 


OC 


13096 


ER2B 


09770 


LIN 


06672 


RSBD 


03876 


TSPEC 


5 -10 


ODA 


12222 


ER2 


04280 


LNCT 


1 1190 


RSCAN 


03804 


TVPIN 


v »48 


ODAX 


12438 


ER3 


04844 


LNTH 


02387 


SI 


06460 


X03 


A0517 


DDWDD 


11258 


ER4A 


09866 


L 


02520 


SAS1 


14296 


X21 


10519 


DECL 


05144 


ERA 


09818 


MACRO 


1 1564 


SAS2P 


14396 


X33 


10515 


DENDC 


13056 


ERCOR 


07468 


MEXIT 


1 1018 


SAS2 


14504 


X69 


10513 


OEND 


11192 


EROSA 


13812 


M00E1 


11964 


SASC2 


14468 


XB7 


13949 


DGM 


11516 


ERLAB 


03299 


NODE 


11916 


SASC 


14260 


XBB2 


14432 


OGSV 


03343 


EV1 


07380 


MOOOC 


16022 


SASXl 


14344 


XDAS 


14513 


OIM 


14824 


EVODO 


02469 


NOMAD 


00415 


SASX2 


14572 


XDS 


14096 


DI SK 


05340 


F2DCF 


12758 


MOML 


16041 


SBCNT 


02671 


XDSS 


14495 


OHES I 


10964 


F2 


12650 


MOSCT 


16000 


SBMAX 


02669 


XHEAO 


15423 


DMES2 


11424 


F3 


13310 


MPVSW 


08310 


SBNR 


11182 


2EP0 


02300 


DMESA 


1 1120 


FDCF 


15912 


MULT 


07068 


SBOUT 


02643 


IP 


04800 


OHESC 


11188 


FILE 


15864 


MURI 


02631 


SCTAV 


15652 


SAVRST 


05376 


ONES 


10668 


FLA1 


15664 


NADD 


1 1188 


SDEF I 


1041 1 


SBFAOD 


15998 


DMS12 


1 1400 


FLGRM 


03341 


NASS 


12756 


S0EF2 


10419 


SNDTCD 


08710 


OMSBl 


11144 


FLOAD 


12244 


NCOCF 


11748 


SEEK 


10758 


SSTDAD 


18899 


DMSRM 


11640 


FMDCF 


12512 


NIC 


08004 


SHF 


04744 


SSTDCF 


13752 


DMSV 


03262 


FM 


12464 


NMOAL 


11849 


SIOC 


05364 


SSTSCT 


00035 


OMSVW 


03267 


GET1 


06132 


NOISE 


02521 


SLP 


I LI 70 


START2 


10666 


ONB2 


12792 


GET 


06726 


NONEX 


00457 


SLPX 


1 1294 


STBEGN 


1 1756 


OOADC 


10724 


GOOOB 


04972 


NUMB 


02448 


SMODE 


03342 


STCHAR 


12084 


OOBI 


10872 


HCLIM 


02507 


OK 


04924 


SMPBL 


00235 


STLOOP 


1 1924 


OOK 


1 1008 


HED 


10509 


ONEZ 


02586 


SP8L 


00040 


STPCSW 


02470 


DOL 


05957 


HI ADO 


02518 


OPl 


04504 


SPEC 


06076 


STPRSW 


02472 


OORDW 


10940 


IDMES 


12659 


OP 


04352 


SPSGH 


02560 


STTVSW 


02471 


DORG 


12860 


I NKRM 


02565 


OSVMB 


12336 


SREL 


06448 


SUBDAD 


04808 


0 


14884 


INPUT 


02883 


OUTAD 


13024 


SSTDF 


13743 


SUBENT 


03257 


OSAl 


13636 


INSAV 


02751 


OUTAR 


10529 


SSTSW 


13767 


SYHTAD 


02641 


DSA2 


13672 


INST 


05280 


OUTCL 


11011 


ST1 


1 1792 


SYMTBL 


16003 


DSA 


13604 


IOCAL 


00716 


OUT 


02218 


ST2L 


10982 


SYSCAL 


00475 


OSB 


12376 


IOGET 


10734 


PCALL 


1 1470 


ST2 


1 1876 


TABFUL 


09594 


OSONB 


12612 


I OGT 


00566 


PCC 


11746 


ST3 


12020 


THINGS 


02420 


DSS 


12860 


I OPT 


00532 


PCK 


02365 


ST4 


12696 


TRNUM1 


06994 


DTR 


12030 


IORBC 


00520 


PCLP1 


11710 


ST5 


12732 


TRNUMB 


06910 


OVADB 


12578 


IORT 


00565 


PCTR 


11610 


START 


10522 


TYINSW 


02473 


DVCKL 


12297 


IOSK 


00554 


PLACE 


03272 


STCNT 


02513 


TYPASS 


14668 


OVEND 


12506 


I STAT 


02559 


PUT 


10782 


STIT1 


10691 






0VLC2 


12298 


JSTBL 


02459 


R2BE 


03708 


STIT2 


10851 






DVLCC 


11452 


K 


05352 


R3E 


04032 


STLP 


12372 






DVLC 


12214 


LABL 


05959 


RCTR 


08305 


STR 


11274 
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0 
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DS 
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00022 


0 
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0 
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A5SC7 


OS 
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00029 


0 


00260 


SSTOAO 


DS 
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SYSTEM SYMBOL TABLE 


18699 


0 


00270 


SS7SCT 


DS 


,35 
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0 


00280 


MSTOAO 


DS 


,SST0AD*SSTSCT, 




MASTER SYMBOL TABLE 


18934 


0 


00290 


MOSDAO 


DS 


,19663, 




MONITOR COMM SECTOR 01 SK ADDRESS 
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0 


00300 


BIOAO 


DS 
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0 
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OS 


,20 






00020 


0 
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B20A0 


OS 
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INPUT, BRANCH TABLE, SCAN 
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0 
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DS 
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0 
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0 
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0 
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0 
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0 
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DS 
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CALL LINK. LOAD. EXIT 
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0 


00420 
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DS 
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0 
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DIMOAD 


OS 
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OIM ENTRY FOR EOUIV. TABLE 


04800 


0 


004*0 


DIMSCT 


OS 
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0 


00450 


EQDAO 


OS 
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0 


00460 
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OS 
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00004 
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00470 
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OS 
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OS 
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DS 
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I 
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OS 
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01280 


ONEZ 


DC 


10,1 


02586 




10 








-000000001 










01290 


• 
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DC 
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CLERER 


DC 


ItO 


02715 




1 




01590 




OSC 


26.0 


02716 




26 








00000000000000000000000000 










01600 




OSC 


27, • 


02742 




27 








oooooooooooooooooooooooooo • 










01610 




OS 


8 


02776 




8 




01620 




OAC 




02779 




5 


X 2 


01630 


INPUT 


OAC 


6. . 


02709 




6 


X 2 


01640 




OC 


8.0 


02607 




8 








-0000000 










01650 




00 


,,0246810 


02808 


-0 


-0-0- 


0-0-0 


01660 




00 


..0246810 


02B20 


-0 


-0-0- 


0-0-0 


01670 




00 


..0246610 


02032 


-0 


-0-0- 


0-0-0 


01680 




00 


••026*010 


02066 


-0 


-0-0- 


0-0-0 


01690 




00 


••026*010 


0209* 


-0 


-0-0- 


0-0-0 


01700 




00 


••026*010 


020*0 


-0 


-0-0- 


0-0-0 


01710 




00 


t #016*010 


osooo 


-0 


-o-o- 


0-0-0 


01720 




00 


t #016*010 


01091 


-0 


-0-0- 


0-0-0 


01790 




00 


# #01**010 


02906 


-0 


-0-0- 


0-0-0 


01760 




00 


••01**010 


0291* 


-0 


-0-0- 


0-0-0 


01790 




00 


••016*010 


02910 


-0 


-0-0- 


0-0-0 


017*0 




00 


••016*010 


02960 


-0 


•o-o- 


0-0-0 


01770 




00 


••016*010 


02992 


-0 


-0-0- 


0-0-0 
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0170© 




00 


ft 01440 10 


•1944 


-0 


-0-0- 


01790 




oc 


2,0 


02477 




2 






-0 










01 too 




oc 


2,0 


02979 




2 






-0 










01610 




OSS 


100 


02900 




300 


01 §20 




DAS 


1 


01201 




1 


01010 


1NPUT2 


OAS 




03901 




I 


01040 




osc 


§0,0 


_ 03204 




50 


01050 




osc 


SOtO 


03114 




50 


01060 




osc 


SOtO 


03304 




50 






00000000900000000000000000000000000000000000000000 






01070 




OSC 


fOt • 


03414 

0000000* 




50 


01000 


A 00ft S 


OS 


000000 0000 00 00000 000 00 00 00000 00000000 0 

11 


01494 




11 


01890 




OC 


It* 


03493 




1 


01900 


LINK 


TFN 


PCK*10,19,17 


03496 


10 


02373 


01910 




8 


PCK ,.24 


03508 


49 


-236N 


01920 




oc 

» 


it* 


03520 




1 


01930 


0UMP1 


OS 


,LINK*14 


03510 




0 


01940 




OS 


1 


03521 




I 


01950 


DEFIN2 


OSC 


2,00 


03522 




2 






00 










01960 




OSA 


SUOIN 


03528 














03528 




-3538 


01970 




oc 

t 


l.* 


03529 




1 


01980 


OEFIN 


OSC 


2,02 


03530 




2 






02 










01990 




OSA 


SUB IN 


03536 














03536 




-3538 


02000 




oc 

• 


1,' 


03537 




1 


02010 


SUB IN 


ODA 


,0,»-»,2,«-« 


03339 




14 






0-0000-02-0000 








02020 




oc 

* 


1.* 


03552 




1 


02030 


OEFOUT 


osc 


2,02 


03553 




2 






02 










02040 




OSA 


SUBOUT 


03559 














03559 




-3362 


02050 




oc 

• 


I.* 


03560 




1 


02060 


SUBOUT 


00A 


,0,#-»,3,PACK 


03562 




14 






0-0000-01-2980 








02070 




oc 


I,* 


03576 




1 


02080 


OEFSM 


osc 


2,00 


03577 




2 



00 

04 
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02090 




OSA 


SUBSM 


03303 


5 


X 










03583 


-3586 




02100 




OC 


1,* 


03584 


1 




02110 


SUBSM 


OOA 


,0,»-»,SPBL,SBFADD 


03586 


14 








0-0000-40 J 5998 








02120 




OC 


I,* 


03600 


1 




02130 


MURIEL 


OS 


1 


03601 


1 




02140 


INTBUF 


OSC 


9,00000000* 


03602 


9 








00000000* 








02150 




OSS 


191 


03611 


191 




02160 




OC 
* 


I.* 


03802 


1 




02170 


ERLAB 


OAS 


6 


03805 


6 


X 


02180 




OAC 


2,** 


03617 


2 


X 


02190 


LOPOUT 


OC 


12,0 


03631 


12 








-00000000000 








02200 




oc 




03835 


4 








-00* 










02210 


LINTSP 


OS 


,HCLIM 


02507 


0 




02220 


LIN 


oc 


10,0 


03645 


10 








-000000000 








02230 




oc 

• 


1,* 


03646 


1 




02240 


LINSV 


OS 


10 


03656 


10 




02250 




oc 

t 




03637 


1 




02240 


BLX 


OS 


.SOOUT 


02643 


0 




02270 


MEO 


OS 


3 


01060 


3 




02280 


DMESM 


OS 


1 


01061 


1 




02290 


7TY5 


oc 


3,75 


01066 


5 








-0075 








02300 


IC 


oc 


2,0 


01066 


2 




02310 


FASTAO 


-0 
OS 


5 


01671 


5 




02320 


STKttff 


OS 


5 


01676 


5 




02330 


LSTAO 


OS 


5 


01061 


5 




02140 


PLGftN 


OC 
• 


I,* 


01664 


1 




02190 


PACKAO 


OSA 


PACK, PACK* 73 , PACK* 1 90, PACK+22S 


01009 


5 


X 










00009 


-2900 












01094 


-1091 












01099 


-1190 












01004 


-1205 




02ior 




oc 

• 


I.* 


omi 


1 




02170 


PKKOO 


OSS 


26 


01004 


26 




02100 




oc 


6,0 


0191? 


6 




02190 


ltTTCi 


~oeo< 

Of 


M 

9 


09041 


1 




02400 




oc 

• 


1.* 


09049 


1 
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02410 


SFA 


OS 


g 


03931 




8 




02420 




DC 


ItO 


03952 




1 




024)0 


BLKADS 


OSS 


10 


03953 




30 




02440 




OSA 


SYNTBL-6 


039B7 




5 


X 1 










03987 




J5997 




02450 


LIHTSF 


OSA 


SYMTBL* 17*SMPBL* 11 


03992 




5 


X 1 










03992 




K0009 




02460 




DC 
• 


It* 


03993 




1 




02470 


BLKCTR 


DS 


2 


03995 




2 




02480 


DMPDIG 


DC 


5.0 


04000 




5 








-0000 










02490 


ABBA 


OC 


5,0 


04005 




5 








-0000 










02500 


FRSTMT 


DSC 


1,0 


04006 




1 




02510 


KLRLSW 


0 

OS 


I 


04007 




1 




02520 


X 


OS 


5 


04012 




5 




02530 


C AROLN 


OS 


I 


04013 




1 




02540 


VACANT 


OSS 


140 


04014 




140 




02550 


TYPIN2 


OSA 


INPUT+20 


04158 




5 


X 1 










04158 




-2809 




02560 




OC 


3,06* 


04 161 








02570 


COPDcr 


-6' 
OSA 


INPUT2 


04166 




5 


X 1 










04166 




-3283 




02580 




DC 


3,10* 


04169 




3 








J0» 
















TF 


ERLAB+10, ClERER+ll 


04170 


26 


03815 


02726 






TFM 


HED,,10 


04 182 


16 


03860 


000-0 






TFM 


SUBOUT+5,0 


04194 


16 


03567 


-0000 






TFM 


INKRM, 99999 


04206 


16 


02565 


R9999 


ZZ TZ „ 




TFM 


SUBIN*13, INTBUF 


04218 


16 


03551 


-3602 


nf 2* n 




TF 


SUBIN*5, IOAD0R 


04230 


26 


03543 


02636 






SM 


SUBIN*5,2.10 


04242 


12 


03543 


000-2 






TFM 


A0DC0W,2401 


04254 


16 


02674 


-2401 






BNF 


•♦24, RELSW 


04266 


44 


04290 


02478 






TFM 


ADOCOM, 99999 


04278 


16 


02674 


R9999 






TO 


OMPDIG-4, PROCRE 


04290 


25 


03996 


02497 






SM 


DMPDIG, 1,10 


04302 


12 


04000 


000-1 


027 10 




SF 


FLGRM 


04314 


32 


03884 


00000 


02720 




BNR 


•♦48, ISTAT-29 


04326 


45 


04374 


02530 


02 730 




TR 


PKN0D,PACKAD-4 


04338 


31 


03906 


03885 


02740 




TFM 


7TY5,75 


04350 


16 


03866 


-0075 


02750 




B 


• ♦48 


04362 


49 


04410 


00000 


02760 




TR 


PKMOD.PACKAD+l 


04374 


31 


03906 


03890 


02770 




AM 


PKM0D^4,25 


04386 


11 


03910 


-0025 


02780 




TFM 


7TY5.50 


04398 


16 


03866 


-0050 


02790 




TR 


LIM-9.LIMTSP-9 


04410 


31 


03836 


02498 


02800 




TF 


SUBSM^5,SYMTAD 


04422 


26 


03591 


02641 


02810 




TF 


SFA,SYMTAO 


04434 


26 


03951 


02641 
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02820 




TF ABBA .PKMQD+4 


04446 


26 


04005 


03910 


02830 




TO INTBUF^200, SPSGM 


04458 


25 


03802 


02560 


02840 


• 


CALL PHASE B2 










02850 




TFM CFFA,0CF82 


04470 


16 


02629 


-4494 


02860 




BTM CFF,PHASEB-12 


04482 


17 


02592 


-4170 


02870 


DCFB2 


ODA ,0,B2DAD,B2SCT,PHASEB-12 


04494 




14 








0J9200-52-4170 










02880 




OC 1 » ' 


04508 




1 




02890 


• 


LOAD PHASE Bl TO THE FILE 










02900 


Fl 


34 SUBO, 701 


04510 


34 


04558 


00701 


02910 




38 SUBO, 702 


04522 


38 


04558 


00702 


02920 




TRA 


04534 


36 


00000 


00500 








04546 


49 


00000 


00000 


02930 


SUBO 


ODA ,0,BlOAO,BlSCT,SBOUm 


04558 




14 








0J8969-20-2644 










02940 




TCO Fl 


04510 








02950 




OORG I NIT I 


04170 








02960 




BTM GEET,«M2,,CALL PHASE B3 


04170 


17 


09252 


-4182 


02970 


PHASES 


80 2PASS.2PSSW 


04182 


43 


04286 


02477 


02980 




TFM SUBIN^13,INPUT-19 


04194 


16 


03551 


-2770 


02990 




AM SUBIN^5,2,10 


04206 


11 


03543 


000-2 


03000 


• 


READ SOURCE STATEMENT FROM THE FILE 










03010 




TFM IORT,^23 


04218 


16 


00565 


-4241 


03020 




B I0GT,0EFIN,7 


04230 


49 


00566 


-3530 


03030 




TR INTBUF, INPUT-19 


04242 


31 


03602 


02770 


03040 




BNG G01 ,INPUT+80,.CHK.F0R FILE GRP.MRK 


04254 


55 


04426 


02869 


03050 




SM SUBIN+5,1,10 


04266 


12 


03543 


000-1 


03060 




87 G01 


04278 


49 


04426 




03070 


2PASS 


BNF SECRO, PTINSM* , CHK FOR CARD OR TAPE INPUT 


04286 


44 


04330 


02475 


03080 


• ACCEPT TAPE INPUT 










03090 




TFM 10RT,«*23 


04298 


16 


00565 


-4321 


03100 




8 I0GT,TAPIN-4,7 


04310 


49 


00566 


-2652 


03110 




87 FORWO 


04322 


49 


04354 




03120 


• ACCEPT CAPO INPUT 








-4353 


03130 


SECRO 


TFM !0RT V «*23 


04330 


16 


00565 


03140 




8 I0GT,CAADIN-4,7 


04342 


49 


00566 


-2660 


03150 


FORWO 


BNR •♦24,INPUT-10 


04354 


45 


04378 


02779 


03160 




TFM INPUT-10,0,10 


04366 


16 


02779 


000-0 


03170 




CM INPUT-10,14,10 


04378 


14 


02779 


000J4 


03180 




BE 2PASS 


04390 


46 


04286 


01200 


03190 




TOM #-lltl 


04402 


15 


04391 


00001 


03200 




BT RSCAN,RSCAN-l 


04414 


27 


05774 


03773 


03210 


G01 


AM INKRM, I, 10 


04426 


11 


02565 


000- 1 


03220 




BT CLOUT, CLOUT- I 


04418 


27 


0B168 


06147 


03230 




TDM KLRLSW, 1,11 


04490 


15 


04007 


OOOOJ 


03260 




TR INPUTl-i,lNPUT-ll 


06462 


11 


01212 


02779 


01290 




INP *+24t LITYIM 


06676 


44 


06499 


02690 


01260 




RCTT 


06496 


16 


00000 


00101 


01270 


• 












01280 


• 


CHICK POM COMMINT ITATIMINT 










01290 


• 












01100 


CAITIH 


BNR t*20, INPUT 


06491 


69 


06919 


02799 


OHIO 




•7 CHMO 


06910 


69 


06616 




01120 




CM INPUT, 14, 10 


06919 


16 


02799 


000J4 
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0)3)0 




SMC 


CHRIO 


045)0 


4? 


04434 


01200 


03340 




BMP 


•*«9tL»TY SN 


04542 


44 


04544 


02480 


01)50 




MATY 


INPUT-10,,,TVPE COMMIMTS STATEMENT 


04554 


S9 


02774 


001 00 


01)40 




8NP 


PMASEBt LSCDSW 


045BB 


44 


041B2 


02474 


0))70 




8T 


REVSCN.REVSCN-1 


04578 


2? 


05884 


05883 


0))t0 




PUNCH COM* NTS CARD 










03390 


PCHCON 


BMP 


PHASIBtLSCOSM 


04590 


44 


04182 


02479 


0)400 




TPM 


I0AT»**23 


04402 


14 


00545 


-4425 


0)410 




8 


10PT.C0PDEP-4.7 


04414 


44 


005)2 


-4142 


0)420 




87 


PHASER 


04424 


49 


04182 




0)4)0 


CHKIQ 


TPM 


RL0PH1, INPUT-2 


044)4 


14 


0469) 


-2787 


0)440 




AM 


RLOP*11,2,10 


04444 


11 


0449) 


000-2 


0)450 




CM 


RL0P*11, INPUT* 12 


04458 


14 


0444) 


-2801 


0)440 




86 


RL0P*24 


044T0 


44 


04704 


01200 


0)470 


RLOP 


•MR 


•-)*!•«• 


044B2 


45 


04444 


00000 






TP 


INPUT*10.CLERER*U 


04494 


24 


02799 


02724 


«k« AAA 

0)490 




C 


CLERER*11» INPUT* 10 


04704 


24 


02724 


02749 


0)500 




BE 


•♦34 


04718 


44 


04754 


01200 


0)510 




TP 


EALAB*10,INPUT*10 


047)0 


24 


0)815 


02799 


03)20 




TPM 


INRRM.O 


04742 


14 


02565 


-0000 


03530 




TPM 


RNOP>ll,INPUmO 


04754 


16 


04813 


-2799 


03540 




AM 


RM0P«ll»2 t 10 


04744 


11 


04813 


000-2 


03550 




CM 


AMOP*ll, INPUT+20 


04778 


14 


04813 


-2804 


03560 




BE 


RM0P*24 


04790 


46 


04824 


01200 


03570 


8 MOP 


BNR 


•-36,»-» 


04802 


45 


04766 


00000 


03580 




TF 


INPUT*18,CLERER*7 


04814 


26 


02807 


02722 


03590 




BMP 


NAST* 2PSSW 


04824 


44 


05094 


02477 


03600 




BMP 


•♦)2,INT8UF*7 


048)8 


44 


04870 


03609 


03610 




TOM 


INTBUP*7,0 


04850 


15 


03609 


00000 


03620 




87 


• ♦20 


04842 


49 


04882 




03630 




TR 


INTBUFt INTBUF*8 


04870 


31 


03602 


03610 


03640 




BNR 


PULLIOtlNTBUP 


04882 


45 


04942 


03602 


03650 




TPM 


SUBIN*13,INTBUF 


04894 


16 


03551 


-3102 


03660 




AM 


SUBIN*05,2,10 


04906 


1 1 


03543 


OOt-2 


03670 


• 


READ INTERMEDIATE OUTPUT FROM FILE 










03680 




TFM 


10RT,»*23 


04918 


16 


00565 


-4941 


03690 




B 


I0GT.DEFIN2, 7 


04930 


49 


00566 


-3522 


03700 


PULL 10 


BNF 


NAST,INTBUF*7 


04942 


44 


05094 


03609 


03710 




TFM 


EVALER-2. 67670 


04954 


16 


07664 


□ 7670 


03720 




BT 


E PR I NT f E PR I NT*- 1 


04964 


27 


08064 


08063 


03730 


ERRXX 


WATV 


MESS2 


04978 


39 


08033 


00100 


03740 




RCTY 




04990 


34 


00000 


00102 


03750 




BT 


FWDSCN,FWDSCN~l 


05002 


2? 


05934 


05933 


03760 




TFM 


I0RT,»*23 


05014 


16 


00565 


-503 7 


03770 




B 


IOGT.TYPIN-4,7 


05024 


49 


00566 


-2644 


03780 




BC4 


ERRXX 


050)8 


46 


04978 


00400 


03790 




CM 


INPUT, 14, 10 


05050 


14 


02789 


000J4 


03800 




BNE 


• ♦24 


05042 


47 


05086 


01200 


03810 




TOM 


INTBUFW.O 


05074 


15 


03609 


00000 


03820 




B7 


CASTER-48 


05084 


49 


04450 




03830 


* 














03840 


• 


TYPE OUT SOURCE STATEMENT 


























03860 


NAST 


TF 


LOPOUT. INPUT-2 


05094 


26 


03831 


02787 


03870 




TR 


INPUT2-1. L0P0UT-9 


05104 


31 


03282 


03822 


03880 




TF 


LOPOUT, INPUU10 


05118 


26 


03831 


02799 
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03890 




TR 


INPUT2MI, LOPOUT-ll 




05130 


31 


03294 


03820 


03900 




TF 


LOPOUT, INPUTM8 




03142 


26 


03831 


02807 


03910 




TR 


INPUT2^25, LOPOUT-7 




05154 


31 


03308 


03824 


03920 




TR 


INPUT205, INPUT+19 




05146 


31 


03318 


02808 


03930 




TR 


VACANT, INPUT* 19 




05178 


31 


04014 


02808 


03940 




TDM 


DMESH 




05190 


15 


03861 


00000 


03950 




BNF 


•♦24, LSTYSW 




05202 


44 


05226 


02480 


03960 




WATY 


INPUT2* f , 


TYPE SOURCE STMT. 


05214 


39 


03283 


00100 


03970 


MARK 1 


TF 


PLACE, AOOCOW 




05226 


26 


09075 


02674 


03980 




BNR 


•♦24.INPUT^20 




05238 


45 


05262 


02809 


03990 




TFM 


INPUT+22,,10 




05290 


16 


02811 


000-0 


04000 




DC 
i 


liS« 




05261 




1 




04010 




BT 


REVSCN.REVSCN-l 




05262 


27 


05884 


05683 


04020 




BNF 


•♦60, LSTYSW 




05274 


44 


05334 


02460 


04030 




CM 


REVSCNO5,INPUT2M08 




05286 


14 


05919 


-3391 


04040 




BL 


• ♦24 




05298 


47 


05322 


01300 


04050 




RCTY 






05310 


34 


00000 


00102 


04060 




TBTV 






05322 


34 


00000 


00108 


04070 




CM 


REVSCN05, INPUT2«2*59 




05334 


1* 


05919 


-3401 


04080 




BNM 


TLU 




05344 


47 


05406 


01100 


04090 




BNF 


TLU, LSCOSH 




05358 


44 


05406 


02479 


04100 




TFM 


I0RT,#^23 




05370 


16 


00565 


-5393 


04110 




B 


IOPT,C0POEF-4,7 




05382 


49 


00532 


-4162 


04120 




BT 


CLOUT, CLOUT- I 




05394 


27 


06168 


06167 


04130 


TLU 


BNF 


• ♦32.1NTBUFM 




05404 


44 


05438 


03603 


04140 




60 


1NSTRN, INT8UF* I 




05418 


43 


12734 


03603 


04150 




87 


TBL1 




05430 


49 


05588 




04160 




BNF 


INSTRN. INTBUF 




05438 


44 


12734 


03602 


04170 




80 


INSTRN. INTBUP 




05450 


43 


12734 


03602 


04180 


TBL2 


TPM 


GO00B2^6,BTBL2 




05442 


14 


05504 


-5510 


04140 




TO 


G00062Hl.INTBUP*l 




05474 


29 


05509 


03603 


04200 




A 


600002*5,600082*11 




054B4 


21 


05503 


05909 


04210 


C000B2 


B 


ttio 




05498 


49 


00000 


000-0 


04220 


BTBL2 


B 


MACRO,,, 0 




05510 


49 


15158 


00000 


04230 




OORG 


•-1 




05520 








04240 




B 


SAVE,,, ♦! 




05520 


49 


15242 


00000 


04250 




OORG 


•-1 




05530 








04260 




B 


RSTR,,, *l 




03530 


49 


15230 


00000 


04270 




OORG 


•-1 




05540 








04280 




6 


PCHC0M-12,,,*3 




05540 


49 


04378 


00000 


04290 




OORG 


•-1 




05550 








04300 




B 


CALLEX,#t ♦A 




05550 


49 


15134 


00000 


04310 




OORG 


•-1 




05540 








04320 




B 


MAC2...*5 




05540 


49 


15278 


00000 


04330 




OORG 


»-l 




05570 








04340 




B 


PCHCON- 12,,, ♦A 




05570 


49 


04576 


00000 


04350 




OORG 


•-1 




05SBO 








04340 




B 


LINKSP..,*7 




05500 


49 


15122 


00000 


04370 




DORG 


•-3 




05SBB 








04380 


TBU 


TFM 


60006*6 .BTBL 




05SBB 


14 


05630 


-5666 


04390 




TO 


60000*11, INTBUP 




05400 


25 


05635 


03602 


04400 




A 


60000*5 , GOODS* 11 




05412 


21 


05629 


09639 


04410 


GOODS 


B 


..10 




05424 


49 


00000 


000-0 


04420 




B 


TRA,,,-5 




05434 


49 


15144 


00000 


04430 




OORG 


•-1 




05444 









«9 
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9 



04440 




8 


OSDMBtft -4 




05*4* 


49 


13622 


00000 


04490 




OORG 


•-1 




09*9* 








044*0 




8 


DENO, » ? -1 




09*9* 


49 


15162 


00000 


044 TO 




OORG 


•-1 




09*** 








04480 




8 


OCtt» -2 




09*** 


49 


14166 


00000 


04490 




OORG 


•-1 




09*7* 








04500 




8 


DORG,., -1 




03*7* 


49 


1*026 


00000 


04510 




DORG 


•-1 




05*86 








04520 


BTBL 


8 


DAC , , , 0 




05*8* 


49 


15266 


00000 


04530 




OORG 


•-1 




05*9* 








04540 




8 


OSAttt ♦! 




05*9* 


49 


15170 


00000 


04550 




OORG 


•-1 




0570* 








0*560 




8 


das. tt ♦a 




0570* 


49 


13830 


00000 


04570 




DORG 


•-! 




0571* 








04560 




8 


HEAD... ♦S 




0571* 


49 


06032 


00000 


04590 




DORG 


• -1 




0572* 








04600 




8 


DSB. . . ♦* 




0572* 


49 


15110 


00000 


04610 




OORG 


•-1 




0573* 








04620 




8 


DGM... *5 




0573* 


49 


15206 


00000 


04630 




DORG 


•-1 




0574* 








0*6*0 




B 


ODA. . . ♦ * 




05746 


49 


1519* 


00000 


0*650 




DORG 


•- 1 




05756 








0*660 




B 


ONES... +7 




05756 


*9 


1525* 


00000 


0*670 




DORG 


•-1 




057*6 








0*680 




B 


DVLC.t. *8 




05766 


49 


15218 


00000 


0*690 




DORG 


•-3 




05774 








0*700 


RSCAN 


TFM 


INPUT*l*0 




05774 


16 


02929 


-0000 


0*710 




DAC 


l.».» 




05785 




1 


X 2 


0*720 




TFM 


•♦35, 1NPUT+140 




05786 


16 


05821 


-2929 


0*730 




SM 


•♦23.2 




05798 


12 


05821 


-0002 


0*7*0 




TF 


RSCANl-1 




05810 


26 


05661 


00000 


0*750 




BO 


RSCANl.RSCANl-l 




05622 


*3 


05882 


05881 


0*760 




BO 


RSCAN1. RSCAN1-2 




05834 


*3 


05882 


05880 


0*770 




TFM 


•-25, ,610 




05846 


16 


0582J 


000-0 


0*780 




DC 
• 


1. * •• 




05857 




1 




0*790 




CM 


RSCAN+47, INPUT+20 




05858 


1* 


05821 


-2809 


0*800 




BNE 


RSCAN+2* 




05870 


*7 


05798 


01200 


0*810 


RSCAN1 


BB2 






05882 


42 






0*820 


REVSCN 


TFM 


•♦35. INPUT2*160 




05884 


16 


05919 


-3**3 


0*830 




SM 


•♦23.2,10 




05896 


12 


05919 


000-2 


0*8*0 




BNR 


•-L2, •-• 




05908 


*5 


05896 


00000 


0*850 




TFM 


•-1,0,610 




05920 


16 


0591R 


000-0 


0*860 




BB2 






05932 


*2 






0*870 


FWOSCN 


TF 


INPUT-2 i CLERER+9 




05934 


26 


02 787 


0272* 


0*880 




TF 


INPUT^lO.CLERER^ll 




05946 


26 


02799 


02726 


0*890 




TF 


INPUm8,CLERER + 7 




05958 


26 


02807 


02722 


0*900 




TFM 


•♦30.INPUT+18 




05970 


16 


06000 


-2807 


0*910 




AM 


•♦18,2,10 




05982 


11 


06000 


000-2 


0*920 




TFM 






05994 


16 


00000 


-0000 


0*930 




DAC 
• 


l»* »• 




06005 




I 


X 2 


0*9*0 




CM 


•-6,INPUT+l*0 




06006 


I* 


06000 


-2929 


0*950 




BL 


• -36 




06018, 


*? 


05982 


01300 


0*960 




BB2 






06030 


42 
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0*970 


• 
















0*980 


• 


HEAOER ROUTINE 












0*990 


• 
















05000 


HEAO 


TF 


HED,INTBUF*6 




06032 


26 


03860 


03608 


05010 




TFM 


AODRS 




06044 


16 


03*9* 


-0000 


05020 




B7 


ECLATl 




06056 


49 


14086 




05030 




NOP 






06064 


41 


00000 


00000 


05040 


SCAN 


TFM 


OPER, 10,10 




06076 


16 


09089 


OOOJO 


05050 




TFM 


RLOCSW, 0000.8*. 


CLEAR RELOCATION CONTROL AREA 


060B8 


16 


07992 


0-000 


05060 




TOM 


BSW.l.ll 




06100 


15 


09090 


OOOOJ 


05070 




SF 


SCAN-5 




06112 


32 


06071 


00000 


05080 




TF 


AODRS, CLERER^9 




06124 


26 


03494 


02724 


05090 




TD 


ALPHA. LNTH^l, . 


RECORD MARK— ALPHA EMPTY 


0*13* 


25 


02684 


02388 


05100 




BD 


• ♦**, INPUTM9 




06148 


43 


06192 


02808 


05110 




BO 


•♦32,INPUT^20 




06160 


*3 


06192 


02809 


05120 




TR 


INPUTM9.INPUT+21 




06172 


31 


02808 


02810 


05130 




B7 


• -3* 




0*184 


49 


06148 




05140 




BNR 


SCAN1-24,INPUT*20 




0*192 


45 


06364 


02609 


05150 


SCANA 


SF 


AD0RS-4 




06204 


32 


03490 


00000 


05160 




CM 


RCTR. 00,10 




0*216 


I* 


07990 


000-0 


05170 




BE 


SRELM2 




06228 


46 


06356 


01200 


05180 




CM 


RCTR, 01.10 




06240 


14 


07990 


000-1 


05190 




BNE 


•♦24 




06252 


47 


06276 


01200 


05200 




BNF 


SREL. AODRS 




06264 


44 


06344 


03494 


05210 




CM 


RCTR, -01.10 




0*276 


t* 


07990 


000- J 


05220 




BNF 


•♦24. AODRS 




06288 


44 


06312 


03494 


05230 




BE 


SREL 




06300 


46 


06344 


01200 


05240 




TFM 


EVALER-2, 71770, , 


RELOCATION ERROR 


06312 


16 


07664 


P1770 


05250 




BT 


EPRINT,EPR1NT-1 




06 324 


27 


0806* 


08063 


05260 




B7 


EVl 




06336 


49 


07702 




05270 


SREL 


TDM 


RL0CSW,1,11 




06344 


15 


07992 


OOOOJ 


05280 




87 


SCAN-1.,6 




06396 


49 


0607N 




05290 




CM 


INPUT+20,23,10 




0*3*4 


14 


02809 


000K3 


05300 




BE 


SCANA 




0637* 


46 


06204 


01200 


05310 


SCAN1 


CM 


INPUT^20,10,10 




0*368 


14 


02609 


OOOJO 


05320 




BNE 


• ♦44 




0*400 


47 


06444 


01200 


05330 




TFM 


OPER, 10, 10 




0*412 


16 


09069 


OOOJO 


05340 




TR 


INPirm9.INPUT*21 




0*424 


31 


02808 


02810 


05350 


EVALOP 


87 


EVALAO 




0*43* 


49 


06756 




05360 




CM 


INPUTWO.20,10 




0*444 


14 


02809 


OOOKO 


05370 




BNE 


EVALAO 




0649* 


47 


06756 


01200 


05380 




TFM 


OPER, 20, 10 




0*4*8 


16 


09069 


OOOKO 


05390 




87 


SCANU36 




0*480 


49 


06424 




05400 


0 I CALF 


BNR 


•♦20. ALPHA 




0*486 


45 


06506 


02664 


05410 




BT 


MOVE 




0*900 


49 


06564 




05420 




M 


ALPHA, BETA 




0*908 


23 


02684 


02*94 


05430 




SF 


90 




0*920 


32 


00090 


00000 


05440 




TF 


ALPHA, 99 




0*992 


2* 


02*84 


00099 


05450 




80 


SAEL-32.RSVMSW 




0*944 


43 


0*312 


07991 


094*6 




67 


MOVE* 12 




0*99* 


49 


0*57* 




05470 


MOVE 




ALPHA. BETA 




0*9*4 


2* 


02*64 


02*94 


05480 




BNR 


•♦20.1NPUT*20 




0*97* 


49 


0*99* 


02609 


09490 




87 


SLOP 




0*966 


49 


0**40 




05500 




CM 


1MPUT420.14.10 




0*99* 


14 


02809 


000J4 


05510 




8NE 


• ♦12 




0**06 


47 


0**40 


01200 


05520 




80 


SREL-92. RSYMSM 




0**20 


43 


0*312 


07991 
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09530 




• 7 


SCAN 1^36 




0**32 


49 


06424 




09940 


HOP 


CM 


0PER,,10 




0***0 


14 


09089 


000-0 


09990 




• E 


$CAM«*0 




0**52 


46 


0*136 


01200 


09960 




TO 


•♦13»0PER-1 




0***4 


29 


06677 


09088 


09970 


ADOSUB 


20 


ADOR St ALPHA 




0**7* 


20 


03494 


02*84 


09990 




TF 


ALPHA »CLERER^9 




06688 


2* 


02684 


02724 


09990 




TFM 


OPERt , 10 




0*700 


1* 


09089 


000-0 


09*00 




iNF 


•♦3*«RSYMSW 




0*712 


44 


06748 


07991 


09*10 




TO 


AODSUBM 




0*724 


25 


06737 


0**77 


09*20 




AM 


RCTRt 1,10 




0*73* 


11 


07990 


000-1 


09*90 




87 


SCAM**0 




0*748 


49 


0613* 




09*40 


EVALAO 


SF 


ME 0-2 




0*79* 


32 


03858 


00000 


09*90 




SF 


DOLLAR 




0*7*9 


32 


07096 


00000 


09660 




TOM 


8SW, 0 




0*780 


15 


09090 


00000 


09*70 




TFM 


LABL* 1*10 




0*792 


16 


06883 


000-1 


09680 




TFN 


DOL, , 10 




0*804 


16 


06881 


000-0 


09*90 




TP 


C0LL-18,THI NGS-20 




0*81* 


31 


02421 


02400 


09700 




87 


BCMSPC 




06828 


49 


06952 




09710 


• 




CHECK FOR SPECIAL CHARACTER 












09720 


COHSPC 


CM 


IMPUT*20»70 f 10 




06836 


14 


02809 


OOOPO 


05730 




8L 


SPEC 




068*8 


47 


06972 


01300 


05740 




TF 


COLL t INPUT>20 




068*0 


26 


02439 


02809 


05790 




CF 


COLL-l 




06872 


33 


02438 


00000 


097*0 


LABL 


OS 


t» 




06883 




0 




05770 


OOL 


OS 


t»-2 




06881 




0 




05780 




AM 


DOLt It 10 




06884 


11 


06881 


000-1 


05790 




TP. 


C0LL-17,C0LL-15 




0689* 


31 


02422 


02424 


05800 




CM 


COLL-17,7,10 




06908 


14 


02422 


000-7 


05810 


• 




SYMBOL IN OPERAND CONTAINS MORE THAN SIX 


CHARACTERS 










05820 


• 




OR NUMBER IN OPERAND HAS MORE THAN FIVE 


DIGITS 










05830 




BNE 


• ♦20 




06920 


47 


06940 


0120^ 


05840 


ERLNTM 


67 


CHKNO 




06932 


49 


07750 




05850 




TR 


INPUT*19,INPUT*2l 




06940 


31 


02808 


02810 


05860 


• 




CHECK TO SEE IF OPERAND IS PRESENT 












05870 


8CMSPC 


BNR 


C0MSPCtINPUT*20 




06952 


45 


06836 


02809 


05880 




87 


GET 




06964 


49 


07220 




05890 


• 




CHECK FOR ♦ OR - 












05900 


SPEC 


80 


S1#INPUT*20 




06972 


43 


07004 


02809 


05910 


• 




CHECK FOR BLANK 












05920 




80 


GET,INPUT*19 




06984 


43 


07220 


02808 


05930 




87 


BCMSPC-12 




06996 


49 


06940 




05940 


• 




CHECK FOR COMMA 












05950 


SI 


CM 


INPUT*20 t 23tlO 




07004 


14 


02809 


000K3 


05960 




8E 


GET 




07016 


46 


07220 


01200 


05970 


• 




CHECK FOR ASTERISK 












05980 




CM 


INPUT*20 f 14, 10 




07028 


14 


02809 


000J4 


05990 




BE 


ASTER 




07040 


46 


07564 


01200 


06000 


• 




CHECK FOR DOLLAR SIGN 












06010 




CM 


INPUT*20tl3t 10 




07052 


14 


02809 


000J3 


06020 




BE 


DOLLAR 




07064 


46 


07096 


01200 


06030 




TOM 


LABL 




07076 


1 5 


06883 


00000 


06040 




B7 


C0MSPC*2* 




07088 


49 


06860 




06050 


DOLLAR 


CF 


DOLLAR 




07096 


33 


07096 


00000 


06060 




BO 


•♦32. OOL 




07108 


43 


07140 


06881 


06070 




TFM 


COLLt.lO 




07120 


16 


02439 


000-0 


06080 




87 


• ♦44 




07132 


49 


07176 
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06090 




CM 


DOL, I, 10 


07140 


14 


06881 


000-1 


06100 




BNE 


CHKNO 


07152 


47 


07750 


01200 


06110 




SF 


C0LL-3 


07164 


32 


02436 


00000 


06120 




CF 


HED-2 


07176 


33 


03858 


00000 


06130 




TDM 


LABL 


07188 


15 


06883 


00000 


06140 




80 


BCMSPC-12, DOL 


07200 


43 


06940 


06881 


06150 




87 


BCMSPC-56 


07212 


49 


06896 




06160 


GET 


TDM 


RSYMSNtO 


07220 


15 


07991 


00000 


06170 




80 


TRNUMB, LABL 


07232 


43 


07412 


06883 


06180 




A 


C0LL-17,C0LL-17 


07244 


21 


02422 


02422 


06190 




BNF 


TRMMM^24, HED-2 


07256 


44 


07392 


03858 


06200 




CM 


COLL-14, 12070 


072*8 


14 


02425 


J2070 


06210 




BNE 


• ♦44 


07280 


47 


07324 


01200 


06220 




SF 


COLL-2 


07292 


32 


02437 


00000 


06230 




SF 


COLL- 13 


07304 


32 


02426 


00000 


06240 




87 


LRADO 


07316 


49 


08218 




06250 




TFM 


•♦30,C0LL-2 


07324 


16 


07354 


-2437 


06260 




S 


•♦IB,C0LL-17 


07336 


22 


07354 


02422 


06270 




TF 


,HEO 


07348 


26 


00000 


03860 


06280 




87 


TRMMM*24 


07360 


49 


07392 




06290 


TRMMM 


TR 


C0LL-17,C0LL-15 


07368 


31 


02422 


02424 


06300 




TOM 


C0LL-2, 0 


07380 


15 


02437 


00000 


06310 




BNF 


•-24,C0LL-13 


07392 


44 


07368 


02426 


06320 




87 


LBAOD 


07404 


49 


08218 




06330 


TRNUMB 


CM 


COLL-14, 6060 


07412 


14 


02425 


-6060 


06340 




BH 


CHKNO 


07424 


46 


07750 


01100 


06350 




TDM 


NUMB- 1,, I I 


0743* 


15 


02447 


0000- 


06360 




TFM 


TRNUMU11, COLL-2 


07448 


16 


07507 


-2437 


0*370 




s 


TRNUMIM1,C0LL-17 


074*0 


22 


07507 


02422 


06380 




s 


TRNUMmi,C0LL-l7 


07472 


22 


07507 


02422 


06390 




TR 


NUMB-9,NUMB-4 


07484 


31 


02443 


02444 


06400 


TRNUM1 


TO 


NUMB- I 


0749* 


25 


02447 


00000 


06410 




TR 


C0LL-17.COLL-15 


07908 


31 


02422 


02424 


06420 




TF 


•♦23,»-l3 


07520 


26 


07543 


07307 


06430 




BNR 


TRNUMl-12 


07532 


45 


07484 


00000 


06440 




TF 


BE T A, NUMB- 1 


07544 


26 


02694 


02447 


06450 




B7 


DIGALF 


0755* 


49 


06488 




06460 


ASTER 


CM 


OOL, 0,10 


075*4 


14 


06881 


000-0 


06470 




BNE 


GET 


0757* 


47 


07220 


01200 


06460 




TF 


BETA, AOOCOM 


075BB 


26 


02694 


02674 


06490 




BNF 


•♦24, RELSN 


07600 


44 


07624 


02478 


06500 




TDM 


RSVMSM, 1,11 


07612 


IS 


07991 


OOOOJ 


06510 




TR 


!NPUm9,INPUU21 


07*24 


31 


02808 


02810 


06520 




§7 


01 CALF 


07*3* 


49 


06488 




06930 


• 














06940 


• 


EVALER IS THE ERROR ROUTINE 










06990 


• 














06960 




OAS 


9 


07*49 




5 


X 2 


06970 




BNR 


99007 


07*94 


45 


59007 


00000 


069B0 




DC 
• 


lt»t» 


07**9 




1 




06990 


EVALER 


•T 


EPRINT.EPRINT-l 


07*** 


27 


0B064 


080*3 


06*00 




SPTT 




07678 


94 


00000 


00101 


0*610 




MATY COLL-12 


07*90 


39 


02427 


00100 


06620 


m 


BO 


C0RER3 ,ERSTSM 


07702 


43 


07B2* 


0247* 


06*30 




BNF 


£HKMO«L$TVSW . 


0771* 


44 


07790 


02480 
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0**40 
06*90 



0**70 



ACTY 
TBTV 
CHKNO TFM 



0**90 

0*700 
0*710 
0*720 
0*790 
0*7*0 
0*790 
0*7*0 
0*770 
0*7S0 
06790 
06800 
06810 
06820 
06830 
068*0 
06890 
06660 
06870 
06880 
06890 
06900 
06910 



ADDAS 

• ♦20,INPUU20 
§7 SCAN-U.6 
CM INPUT*20.29,10 
At SCAN* It #6 
TA INPUTS 19, INPUTS I 
•7 CHKNO* 12,, 2 
C0REA9 MATY RNMESS 

TP ADDCOM, PLACE 
ACTY 

TA INPUTS 19 .VACANT 
MATY INPUT- 10 
OOPS ACTY 

•T FMDSCN*S*«FMDSCN+99 
MATY INPUT- 10 
• ACCEPT CORRECTION PROM TYPMRITEA 
TPM I0AT«"23 

10GT.TVPIN2-4.7 
OOPS 

GEETt"12 
INTBUP47 t l v ll 
G0U12 
2 
I 



8 

BC* 
6TH 
TOM 
87 

RCTA OS 
RSVNSN OS 
RLOCSM OS 
RNMESS DAC 



I 



06920 MESS2 



06930 
06940 
06950 
06960 
06970 
06980 
06990 
07000 
07010 
07020 
07030 
07040 
07050 
07060 
07070 
07080 
07090 
07100 
07110 
07120 
07130 
07140 
07150 
07160 
07170 



19, RE-ENTER OPERANDS* 
RE-ENTER OPERANDS* 
OAC 16, RE-ENTER STMT* 
RE-ENTER STMT* 

EPRINT PRINTS THE ERROR MESSAGE AND REFERENCE TO 
INDICATE THE STATEMENT IN ERROR 



EPRINT RCTY 

TF LOPOUT.INPUT-2 
MATY L0P0UT-8 
WATY ERLAB 
WNTY INKRM-3 
WATY EVALER-21 



0772* 
07798 
07790 
077*2 
0777* 
07782 
0779* 
0790* 
07618 
0762* 
07696 
07690 
07662 
0767* 
07866 
07896 
07910 

07922 
0793* 
079*6 
07956 
07970 
07962 
07990 
07991 
07992 
07995 

08033 



9* 00000 

9* 00000 

16 09*9* 
*9 07792 
*9 0607N 
1* 02909 
46 0607N 
91 02608 
♦9 -77*2 
99 07999 
2* 02*7* 
9* 00000 
91 02909 
99 02779 
9* 00000 
27 05970 
99 02779 

1* 005*5 

*9 005** 

** 07866 

17 09252 
15 03609 
*9 04436 

2 
1 
I 
19 



80 
SF 
66 

OORG 

TR 

TR 

TR 

TR 

682 



•♦24.EASTSM 

NONEX .••KILL OBJECT PROG. EXECUTION IF ERROR IS DETECTED 



• -3 



I NPUT2-1 tCLERER 
INPUT 2+52 «CLERER+1 
INPUT2+104»CLERER*1 
INPUT2*155,CLERER*27 



THE SYMBOL TABLE IS SEARCHED FOR EQUIVALENCE 

TFM BLKCTR.O. 10. INITIALIZE BLOCK COUNTER 

C SFA.SYMTAO ..CHK.TO SEE IF THIS IS PARTIAL BLOCK 

BE PARTL 



PAGE 

00102 
00108 
-0000 
02809 

000K3 
01200 
02810 

00100 
09079 
00102 
04014 
00100 
00102 
09969 
00100 

-7945 
-4154 
00400 
-7970 
OOOOJ 



08064 


34 


00000 


00102 


08076 


26 


03831 


02787 


08088 


39 


03823 


00100 


08100 


39 


03805 


00100 


08112 


38 


02562 


00100 


08124 


39 


07645 


00100 


08136 


43 


08160 


02476 


08148 


32 


00457 


00000 


08160 


42 


00000 


00000 


08168 








06168 


31 


03262 


02715 


08180 


31 


03335 


02716 


08192 


31 


03387 


02716 


08204 


31 


03438 


02742 


08216 


♦2 






08218 


16 


03995 


000-0 


08230 


24 


03951 


02641 


08242 


46 


08298 


01200 



7 4 



SPS 1 1-0 PHASE B JULY 11.1963 PAGE 16 



07180 




AM 


BLKCTR.1,10 


0825* 


11 


03995 


000-1 


07190 




TR 


LIM-9.LIMTSF-9 


08266 


31 


03636 


03983 


07200 




TF 


LIM,LIMTSP 


08278 


26 


03845 


02507 


07210 




87 


•♦20 


08290 


49 


08310 




07220 


PARTL 


TR 


LIM-9.LIMTSP-9 


08298 


31 


03836 


02498 


07230 




8T 


BSERCH.6SERCH-1 • • TO BINARY SEARCH ROUTINE TO FIND SYMBOL 


08310 


27 


08794 


08793 


07240 




6D 


GOTIT .EQSW. .MAS SYMBOL IN TABLE 


08322 


43 


08418 


09021 


07250 




C 


BSBF-l.LIMTSF 


0833* 


24 


09045 


03992 


07260 




BNL 


GOTIT-24 


083*6 


46 


08394 


01300 


07270 




CM 


BIX, 0,10 


08358 


14 


02643 


000-0 


07260 




BNE 


CFIL 


08370 


47 


08510 


01200 


07290 




TF 


SFA.SUBSM+5 


08362 


26 


03951 


03591 


07300 




TFM 


EVALER-2t 75000,, CANNOT FIND SYMBOL IN SYMBOL TABLE 


08394 


16 


07664 


P5000 


07310 




6T 


EVALER.EVALER-1 


06406 


27 


07666 


07665 


07320 


GOT IT 


TF 


SFA,SUBSM+5.,SAVE FILE ADR. OF BLOCK WHERE SYMBOL MAS FOUND. 


08416 


26 


03951 


03591 


07330 




AM 


BSBF-1 ,5.10. MOVE SYMBOL AOORESS 


08430 


U 


09045 


000-5 


07340 




TF 


BETA.BSBF-1.11. INTO BETA 


08442 


26 


02694 


0904N 


07350 




6NF 


•♦48. RELSM 


08454 


44 


08502 


02478 


07360 




BNF 


•♦36, BETA 


08466 


44 


08502 


02694 


07370 




TDM 


RSYMSM, 1,11 


08478 


15 


07991 


OOOOJ 


07380 




CF 


BETA 


08490 


33 


02694 


00000 


07390 




87 


DIGALF 


08502 


49 


06468 




07400 


CFIL 


TF 


•♦33. SVMTAO .(INITIALIZE SUB-INSTR. TO READ FIRST FILE BLK 


08510 


26 


08545 


02641 


07410 




AM 


•♦23.SPBL 


08522 


11 


08545 


-0040 


07420 




TFN 


SUBSN+5 


0653* 


16 


03591 


-0000 


07430 




TA 


LIM-9.LIMTSF-9, .INITIALIZE FOR FULL BLOCK 


085*6 


31 


03836 


03963 


07440 




C 


SUBSM^S,SFA.,CHK.IF THIS BLOCK HAS ALREADY BEEN SEARCHED 


08556 


2* 


03591 


03931 


07450 




6E 


CMPCNT 


08570 


*6 


08678 


01200 


07460 


• 


SAVE DIGIT AT L0SVM9*! 










07470 




TD 


MURI .LOSVMBM 


08582 


25 


02631 


19998 


07480 




TO 


L0SVM6M.SPSCM 


0859* 


25 


19998 


02560 


07490 


• 


READ 9L0CK OF SYMBOLS FROM FILE 










07500 




TFM 


I0RT.«421 


08606 


16 


00369 


-8629 


07510 




B 


I0GT.DEFSM.7 


06618 


*9 


00966 


-3577 


07520 




TO 


LOSYMB^l.MURI 


08630 


25 


1999B 


02691 


07530 




BT 


BSERCH.BSERCH- 1 


066*2 


27 


0879* 


06793 


07540 




AM 


BLKCTR.1,10 


0665* 


11 


03993 


000-1 


07550 




BD 


GOTIT »EQSM 


06*66 


43 


08*18 


09021 


07560 


CNPCNT 


C 


BLKCTR.BLX 


06678 


2* 


03999 


02643 


07570 




BH 


GOT IT- 16 


06690 


46 


08382 


01100 


07580 




BL 


CFILM2 


06702 


♦7 


08922 


01300 


07390 




C 


SFA.SYMTAO 


0871* 


2* 


03951 


02641 


07600 




BE 


GOTIT- 36 


08726 


46 


08362 


01200 


07610 




TF 


SUBSN49, SVMTAO . .MOVE PILE ADDA. OP PARTIAL BLOCK TO SUB IN 


06738 


26 


03391 


02641 


07620 




TR 


LIM-9.LIMTSP-9 


08790 


31 


03636 


02498 


07630 




TP 


LIN.LIMTSP 


09762 


26 


038*5 


09992 


076*0 




B7 


CFIL 4*8 


0677* 


69 


06959 




07690 


• 1 


UNARY SYMBOL TABLE SIAACH SUBROUTINE 










07660 




NOP 




0B7B2 


♦1 


•0000 


00000 


07670 


•SIACH 


TP 


BSBPt CLIAIfttB 


06794 


26 


09046 


02720 


07690 




A 


8 SAP, LIN 


0BB06 


21 


09046 


03845 


07690 




A 


BSBPt LIN-9 


06618 


21 


090*6 


096*0 


0770* 




TP 


BtAVt BSBP 


0BB90 


26 


09052 


090*6 


07710 




A 


BSBPt BMP 


06642 


21 


#90*6 


090*6 


07720 




A 


BSBPt BMP 


BBB96 


tl 


090*6 


090*6 


07790 




A 


BSBPt BSAV 


0BB66 


21 


090*6 


09092 
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07740 


to 


•♦24, OSIP 


0BB78 


4i 


08902 


09046 


07750 


AN 


tStP*l» ItlO 


08890 


1 1 


09045 


. 000-8 


07740 


$N 


OStP-lt ItlO 


08902 


12 


09045 


000-8 


077TO 


C 


•5Br-l, LIN»9 


00914 


24 


09045 


03840 


07 7 tO 


ONE 


•♦20 


08926 


47 


08952 


01200 


07710 


TOM 


EQSMt 0 


08938 


15 


09021 


00000 


07000 


tt 2 




08950 


42 






07010 


C 


C0LL-2, BSBF-li 11 


08952 


24 


02437 


0904N 


07020 


tNf 


BSNEO 


08966 


47 


08990 


01200 


07030 


TOM 


EQSM» It 11 


0B976 


15 


09021 


OOOOJ 


070*0 


082 




08988 


42 






07050 


tSNfO OH 


tSHf 


08990 


46 


09022 


01 100 


07000 


TP 


LIN, BSBF-1 


09002 


26 


03845 


09045 


07070 


tT 


BSCRCH 


09014 


49 


08794 




07000 


tSMl TP 


LlN-5, tStF-l 


09022 


26 


03840 


09045 


07000 


t7 


BSERCH 


09034 


49 


08794 




07000 


EQSM OS 


• OSMI-I 


09021 




0 




07910 


6SBF OC 


6,0 


09046 




6 






.00000 










07920 


BSAV OC 


6.0 


09052 




6 






-00000 










07930 


TEST OS 


5 


09057 




5 




079*0 


882 OC 


6,426272 


09063 




6 






H24272 










07950 


TYPE OS 


2 


09065 




2 




07960 


TESTAO OS 


5 


09070 




5 




07970 


PLACE OS 


5 


09075 




5 




07900 


SU8ENT OS 


5 


09080 




5 




07990 


CNTR OS 


2 


09082 




2 




00000 


T BLEND OS 


5 


09087 




5 




08010 


OPER OS 


2 


09089 




2 




08020 


BSM OS 


1 


09090 




1 




08090 


OSABOX OSC 


ll,0« 


09091 




11 






0000000000 4 










08040 


OS 


1 


09102 




1 




080S0 


NMOAL OS 


I 


09101 




I 




08060 


SMOOE OS 


1 


09104 




1 




08070 


OMSV OS 


5 


09109 




5 




08080 


DIGITS OS 


5 


09U4 




5 




08090 


INSTRUCTIONS TO BRING IN PHASE B6 










08100 


OC 


5,12349 


09119 




5 






J2345 










08110 


GAT TFN 


CFFA,Of A003 


09120 


16 


02629 


-9144 


08120 


BT 


CFF.GAT-l 


09132 


27 


02592 


09119 


08130 


0FA003 00 A 


,0,B6DA0,B6SCT,INSTRN 


09144 




14 






0J9151-29J2734 










08160 


DC 


l,» 


09158 




1 




08150 


»• INSTRUCTIONS TO BRING IN PHASE 85 










08160 


DC 


5,12345 


09163 




5 






J2345 










08170 


GIT TFN 


CFFA.0FA002 


09 164 


16 


02629 


-9188 


08180 


BT 


CFF.GIT-l 


09176 


27 


02592 


09163 


08190 


DFAD02 DOA 


,0,B5DA0,B5SCT,INSTRN 


09188 




14 






0J9122-29J2734 










08200 


DC 


it* 


09202 




I 





76 
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08210 


INSTRUCTIONS TO BRING IN PHASE 84 










08220 




DC 5,12345 


09207 




5 








J 2 345 










08230 


GETT 


TFN CFFA, DFAOD 


09208 


16 


02629 


-9232 


08240 




BT CFF.GETT-l 


09220 


27 


02592 


09207 


08250 


OF ADD 


DOA ,0,B40AD,B4SCT, LINPRT 


09232 




14 








OJ 9069- 5 3- 93 10 










08260 




OC lf« 


09246 




1 




08270 


•• INSTRUCTIONS TO RESTORE PHASE 83 










08280 




OC 5,12345 


09251 




5 








J2345 










08290 


GEET 


TFN CFFA,0FA001 


09252 


16 


02629 


-9288 


08300 




TFN X, PHASES 


09264 


16 


04012 


-4182 


08310 




BT CFF.GEET-l 


09276 


27 


02592 


09251 


08320 


DFADD1 


ODA ,O,B3OAO,B3SCT,B3MA0 


09288 




14 








OJ9000-69-9100 










08330 




DC 
• 


09302 




1 




06340 


• 


TO LOAD PHASE B2 TO THE FILE 










08350 


F3 


34 SUB3.701 


09304 


34 


09352 


00701 


08360 




38 SUB 3, 702 


09316 


38 


09352 


00702 


08370 




TRA 


09328 


36 


00000 


00500 








09340 


49 


00000 


00000 


08380 


SU83 


ODA ,0,B20A0,B2SCT,PHASEB-12 


09352 




14 








OJ9200-52-4170 










08390 




TCO F3 


09304 








08400 




OORG F3 


09304 








08410 


• 


THE ROUTINE WHICH FOLLOWS TAKES CARE OF THE 










08420 


• 


OUTPUT FOR THE PROCESSOR 










08430 


• 












00440 




OC 5,00000 


09308 




5 








-0000 










08450 


LINPRT 


CF ADDRS-4 


09310 


33 


03490 


00000 


08460 




CF LNTH-4 


09322 


33 


02383 


00000 


08470 


e 












00480 


• 


IF A TYPEO LISTING IS TO BE NAOE , TYPE AOORESS 










08490 


• 












08300 




BNF •♦36,LSTVSM 


09334 


44 


09370 


02480 


08510 




NNTV A00RS-4 


09346 


38 


03490 


00100 


08520 




SPTV 


09358 


34 


00000 


00101 


08530 




CN LINPRT-l.OOINST 


09370 


14 


09309 


JO 366 


08540 




SE OOINST 


09382 


46 


10366 


01200 


08550 




BNF BRNCH-24,LSTVSM 


09394 


44 


09418 


02480 


00560 


• 












08570 


• 


IF A DECLARATIVE, ALSO TYPE LENGTH 










08560 


• 












08590 




NNTV LNTH-4 


09406 


38 


02383 


00100 


00600 




SF LNTH-4 


09418 


32 


02383 


00000 


00610 




SF A00RS-4 


09430 


32 


03490 


00000 


08620 


BRNCH 


8 LINPRT-1,,6 


09442 


49 


0930R 


00000 


08630 


OODS 


BTN LST0UT,«*12 r, PUNCH OS OR ONt LIST DECK CARO 


09454 


17 


12466 


-9466 


00640 




60 Xf!NTBUf*6,6 


09446 


43 


0401K 


03608 


08650 


• 












08660 


• 


GENERATE OUTPUT FOR NUMERIC BLANKS 
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08670 


* 














08680 




AM 


AODRSt It 10 


09478 


It 


03494 


000- 1 


08690 




TF 


FRSTADt AODRS 


09490 


26 


03873 


03494 


08700 




TP 


LSTAOt ADORS 


09502 


26 


03883 


03494 


08710 




S 


FRSTAOi LNTH 


09514 


22 


03873 


02387 


08720 




TFM 


TVPEt 99, 10 


09526 


16 


09065 


000R9 


08730 




TFM 


LNTH2 


09538 


16 


09600 


-0000 


087*0 




BTM 


RELODG, 4, 1011 


09550 


17 


10676 


000-M 


08750 




8TM 


STACKR,9, 10 


09562 


17 


10940 


000-9 


08760 




87 


X. ,6 


09574 


49 


0401K 




08770 


00CON 


BNP 


PC0N»LSTYSW 


09582 


44 


09686 


02480 


08780 




SPTY 




09594 


34 


00000 


00101 


08785 


LNTH2 


OS 


f DOCON+16 


09600 




0 




08790 




80 


DUMP2-12.DUMPW11 


09606 


43 


09662 


03521 


08800 




BNR 


• *20,ZFP0M 


09618 


45 


09638 


02301 


08810 




87 


• ♦20 


09630 


49 


09650 




08820 




WNTY 


IEP0*1 


09638 


38 


02301 


00100 


08830 




BNF 


0UMP2*l2,DUMPmi 


09650 


44 


09686 


03521 


08840 




TO 


0MP01G.LNTHM,6 


09662 


25 


0400- 


02388 


08850 


DUMP 2 


ONTY 


0MP01G..6 


09674 


35 


0400- 


00100 


08860 


• 














08870 


• 


PUNCH THE CONSTANT CARDS 










08880 


• 














08890 


PCON 


BTM 


LST0UT,»*12 


09686 


17 


12466 


-9698 


08900 




TFM 


•♦30,0UT*2 


09698 


16 


09728 


-2220 


08920 




A 


•♦18, LNTH 


09710 


21 


09728 


02387 


08930 


PCONl 


TO 


tLNTH+1 


09722 


25 


00000 


02388 


08940 




BTM 


RELODG, 2,1011 


09734 


I 7 


10676 


000-K 


08950 




BO 


MESOUT.OMESW 


09746 


43 


10058 


03861 


08960 


LUCK 


BTM 


STACKR,9,10 


09758 


17 


10940 


000-9 


08970 




B7 


X,,6 


09770 


49 


0401K 




08980 


POSA 


BTM 


CVACT,»M2 


09778 


17 


1239B 


-9790 


08990 




BTM 


LST0UT,»M2 


09790 


17 


12466 


-9802 


09000 




TF 


0UT+6,ZEP0+5 


09802 


26 


02224 


02305 


09010 




TO 


0UT + 7,LNTHM 


09814 


25 


02225 


02388 


09020 




BNF 


•♦36,LSTYSW 


09826 


44 


09862 


02480 


09030 




SPTY 




09838 


34 


00000 


00101 


09040 




WNTV 


OUT+2 


09850 


38 


02220 


00100 


09050 




BTM 


RELODG, 2, LOU 


09862 


17 


10676 


000-K 


09060 




AM 


CHSYM+11,1,10 


09874 


I I 


09897 


000- 1 


09090 


CHSYM 


BNF 


•♦24,DSAB0X-1 


09886 


44 


09910 


09090 


09100 




BTM 


RELODG, 3,1011 


09B98 


17 


10676 


000-L 


09110 




BTM 


STACKR,9, 10 


09910 


17 


10940 


000-9 


09120 




TFM 


LNTH, 5 


09922 


16 


02387 


-0005 


091 30 




TR 


ZEP0+l,ZEP0+6 


09934 


31 


02301 


02306 


09140 




BNR 


•♦32 ,ZEP0M 


09946 


45 


09978 


02301 


09150 




TDM 


INTBUF.O 


09958 


15 


03602 


00000 


091 60 




BT 


X,,6 


09970 


49 


0401K 




09170 




TF 


FRSTAD.LSTAD 


09978 


26 


03873 


03883 


09180 




AM 


LSTAD.5,10 


09990 


11 


03883 


000-5 


09190 




AM 


ADORS, 5, 10 


10002 


11 


03494 


000-5 


09200 


DUDLEY 


BNF 


•♦36, LSTYSW 


10014 


44 


10050 


02480 


09210 




RCTY 




10026 


34 


00000 


00102 


09220 




TBTY 




10038 


34 


00000 


00108 


09230 




B7 


LINPRT 


10050 


49 


09310 




09240 


• 


THE FOLLOWING ROUTINE HANOLES OUTPUT FOR DMES 
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09250 


MESOUT 


TD 


INPUT2+lOO,OUT+2,27,MOVE OMES 


10058 


25 


-3383 


-2220 


09260 




AM 


•-6,1,10, DATA 


10070 


11 


10064 


000- 1 


09270 




AM 


•-13,1,10, FROM 


10082 


11 


10069 


000-1 


09280 




SM 


LNTH , I , LO » OUT + 2 


10094 


12 


02387 


000-1 


09290 




BNN 


MESOUT,,, TO INPUT2+100 


10106 


46 


10058 


01300 


09300 


DOMESS 


TF 


LSTAD.FRSTAD 


10118 


26 


03883 


03873 


09310 




TR 


□UT^2,INPUT2+100 


10130 


31 


02220 


03383 


09320 




TFM 


BANANM 1 , INPUT2+99 


10142 


16 


10249 


-3382 


09330 




SM 


MESOUT+6,2, 10 


10154 


12 


10064 


000-2 


09340 




TFM 


LNTH, 0 


10166 


16 


02387 


-0000 


09350 




AM 


LSTAD,1.10 


10178 


11 


03883 


000- I 


09360 




AM 


LNTH, 1, 10 


10190 


11 


02387 


000-1 


09370 




AM 


BANAN+ll, 1,10 


10202 


11 


10249 


000-1 


09380 




C 


BANAN*U,MES0UT*6 


10214 


24 


10249 


10064 


09390 




BNL 


BANANM2 


10226 


46 


10250 


01300 


09400 


BANAN 


BNR 


• -60 


10238 


45 


10178 


00000 


09410 




BNR 


• ♦24,BANANMl,ll 


10250 


45 


10274 


1024R 


09420 




TDM 


0UMP1M1, 0,11 


10262 


15 


03521 


0000- 


09430 




BTM 


STACKR.9,10 


10274 


17 


10940 


000-9 


09440 




AM 


BANAN* I 1,1,10 


10286 


11 


10249 


000- 1 


09450 




C 


BANAN^ll,MES0UT+6 


10298 


24 


10249 


10064 


09460 




BH 


X, ,6 


10310 


46 


0401K 


01100 


09470 




TR 


0UT*2,BANAN*ll,ll 


10322 


31 


02220 


1024R 


09480 




TF 


FRSTADt LSTAO 


10334 


26 


03873 


03883 


09490 




SM 


BANAN+ll, It 10 


10346 


12 


10249 


000- 1 


09500 




B7 


00MESS^48 


10358 


49 


10166 




09510 


• 














09520 


• 


OUTPUT ROUTINE FOR INSTRUCTIONS AND LINKAGES 










09530 


• 














09540 


OOINST 


BTM 


LST0UT,«n2 


10366 


17 


12466 


J0378 


09550 




SF 


A00RS-4 


10378 


32 


03490 


00000 


09560 




TF 


FRSTAO , AODRS 


10390 


26 


03873 


03494 


09570 




TF 


LSTAO , AODRS 


10402 


26 


03883 


03494 


09580 




AM 


LSTAO ,12 


10414 


11 


03863 


-0012 


09590 




BNF 


NOTVPE, LSTYSW 


10426 


44 


10570 


02480 


09600 




TR 


OUT,ZEPO 


10438 


31 


02218 


02300 


09610 




TR 


OUT*3tZEPO*2 


10450 


31 


02221 


02302 


09620 




TR 


0UT*9,ZEP0*7 


10462 


31 


02227 


02307 


09630 




TD 


0UT*2tLNTH*l 


10474 


25 


02220 


02388 


09640 




TO 


0UT*8.LNTM*l 


10486 


25 


02226 


02388 


09690 




TO 


0UT*14,LNTH*1 


10498 


25 


02232 


02388 


09660 




WNTY 


OUT 


10510 


38 


02216 


00100 


09670 


SPITY 


SPTY 




10522 


34 


00000 


00101 


09680 




WNTY 


0UT*3 


10534 


38 


02221 


00100 


09690 




SPTY 




10546 


34 


00000 


00101 


09700 




WNTV 


0UT*9 


10558 


38 


02227 


00100 


09710 


NOTYPE 


TO 


•-l,ZEP0*12 


10570 


25 


10569 


02312 


09720 




TO 


IEP0*12,LNTH>1 


10582 


25 


02312 


02388 


09730 




TR 


0UT*2 »ZEP0 


10594 


31 


02220 


02300 


09740 




TPM 


LNTH, 12 


10606 


16 


02387 


-0012 


09750 




BTM 


RELODG, 1,1011 


10*18 


17 


10676 


000- J 


09760 




BTM 


STACKR,9,10 


10610 


17 


10940 


000-9 


09770 




TO 


IEP0*l2.N0TVP|-i 


10662 


29 


02312 


10969 


09780 




BNR 


SECINS.ZIP0M2 


10694 


45 


10774 


02112 


09790 




B 


X,,6 


10666 


49 


0401R 


00000 


09800 




DORG 


•-1 


10676 









79 



swii-o pma$i i juit turns 
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Of §10 


nit ooo 


TO 












10076 


25 


03868 


10675 


00120 




ONF 


•♦S6*KiRL$W 










10080 


44 


10724 


04007 


ooo SO 




ONF 


•♦24«0ELSW 

WT »~O^1fc0*#W : 










10700 


44 


10724 


02478 


00040 




CP 


IC 










10712 


33 


03866 


OOOOO 


00090 




00 


•♦46*RELSW 










10724 


43 


10772 


02478 


09000 




CM 


!C,1*1011 










10730 


14 


03866 


000-J 


00070 




one 


•♦20 










10740 


47 


10772 


01200 


ooooo 




TOM 


IC2* 11 










10700 


15 


03668 


OOOOK 


ooooo 




002 












10772 


42 






ooooo 


SIC I MS 07 


CLOUT • CLOUT- 1 










10774 


27 


08168 


08167 


oooto 




70 


ZEP0»7.EPO*12 










10700 


31 


02300 


02312 


00020 




AM 


A00*S,12 










10708 


11 


03494 


-0012 


ooooo 




BTM 


L$T0UT,»*12 










10810 


17 


12466 


J0622 


ooooo 




TF 


FOSTAOtLSTAD 










10822 


24 


03873 


03883 


ooooo 




AM 


L$TAD*12 










10834 


11 


03863 


-0012 


ooooo 




IMP 


00INST»60»LSTYSW 










10840 


44 


10426 


02460 


00070 




RCTY 












10898 


30 


OOOOO 


00102 


ooooo 




DC 
• 


I t * ( 










10809 




1 




ooooo 




T8TY 












10870 


34 


ooooo 


00106 


10000 




CF 


AODAS-4 










10882 


13 


03490 


OOOOO 


10010 




WNTV 


ADDAS-* 










10894 


38 


03490 


00100 


10020 




SF 


ADDAS -4 










10906 


32 


03490 


ooooo 


100)0 




SPTY 












10918 


34 


OOOOO 


00 1 01 


10040 




0 


00INST«60 










10930 


49 


10426 


ooooo 


10090 




OORG 


•-1 










10940 








10000 


• 






















10070 




THE FOLLOWING ROUTINE 


ARRANGES THE OBJECT OUTPUT 


TO 


THE 


FILE 












• 






















1ft AO A 


STACKR 


TO 


STNUC0*l3tSTACKR-l 










10940 


25 


11995 


10939 


1 Al A A 




ONF 


NEWCAR,FRSTNT, t GO 


TO NEWCAA IF THIS IS FIRST 


ENTRY 




10952 


44 


11606 


u4006 


ini i a 




CM 


7TY5,75,,CHK.IF CARD IS EMPTY 








10964 


14 


03866 


-0075 


1 A 1 f A 




BE 


MOOIFI 










10976 


46 


11814 


0 i 200 






BO 


BRSEQ. ICCHK, FOR TCD 








10 988 


43 


11008 


03868 


1 A* Ia 

10140 




87 


INOAOR 










1 1000 


49 


11438 




101 90 


BRSEQ 


C 


TESTAO.FRSTAOtt TEST 


FOR BREAK IN ADORESS SEQUENCE 






1 1008 


24 


09070 


03873 






ONE 


RE MA I L 










1 1020 


47 


1 1482 


01200 


10170 




C 


TYPE, IC, TEST FOR RIND OF STATEMENT 








1 1032 


24 


09065 


03868 


10 1 80 




ONE 


NEWIL 










1 1044 


47 


1 1550 


01200 


101 00 




TFN 


TEST*0 


,,OATA IS 








1 1056 


16 


09057 


-0000 


10200 




TFM 


TADATA*ll.0UT*2 


,, CONTIGUOUS, GO DIRECTLY 








1 1068 


16 


11271 


-2220 


10210 




TON 


OUT-7,0 


,,T0 SEE IF DATA FITS 








11080 


15 


02211 


OOOOO 


10220 


FIT 


S 


7TY5, TEST* * 


TEST TO SEE IF ADDAS. IND, 


LEN 


ETC 


FITS 


11092 


22 


03866 


09057 


102)0 




BNF 


SETFRMt , , NO,GO TO SET FLAG RECMARK 








1 1104 


47 


1 1802 


01 100 


102*0 




S 


7TY5,LNTH,,N0W SEE 


IF DATA FITS 








11116 


22 


03866 


02387 


10290 




BN£ 


• ♦24 










1 1 128 


47 


11 152 


01200 






TFM 


7TVS.75 










11140 


16 


03866 


-0075 


10270 




BNL 


CHKRH 










1 1152 


46 


II 200 


01300 


10280 




TO 


• ♦22, IC, NO, TEST 










1 1 164 


25 


1 1 186 


03868 


10290 




CM 


•♦8, 20000, 70, FOR 










11176 


14 


11184 


K0-00 


10300 




BNE 


SETFRM, , , CONSTANT 








11188 


47 


1 1 802 


01200 


10910 


CHURN 


6NR 


TR0ATA.0UT-7 










11200 


45 


11260 


02211 


10320 




TO 


TA0ATA^6,0UT-7,6 










11212 


25 


11260 


02211 


10330 




AM 


ABBA, 1,10 










11224 


11 


04003 


000-1 


10340 




TOM 


OUT-7,0 










11236 


15 


02211 


OOOOO 


10330 




SM 


TEST, I. 10 










11248 


12 


09057 


000- 1 



80 
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PAGE 


10360 TRDATA 


TR 


A66A,,6,H0VE OATA (PLUS ADDA. * I NO* LEN, ETC ) TO OUTPUT BUFFER 


11260 


31 


0400N 


OOOOO 


10370 


BNF 


•♦20.7TY5 


11272 


44 


11292 


03866 


10380 


87 


SPLIT 


11284 


49 


12070 




10390 


A 


STKLEN,LNTH, 6, UPDATE LENGTH 


11292 


21 


0387Q 


02387 


10400 


A 


ABBA, TEST 


11304 


21 


04005 


09057 


10410 


A 


A66A,LNTH 


11316 


21 


04005 


02387 


10420 


TF 


TESTAD,LSTAD, , STORE AODR.OF LAST POSN.M 


11328 


26 


09070 


03883 


10430 


TF 


TYPE* IC .STORE INOICCOOE. 


11340 


26 


09065 


03868 


10440 


80 


•♦36, IC 


11352 


43 


11388 


03866 


10450 


TO 


TRDAT A^6 » FLGRM, 6 


11364 


25 


11260 


03684 


10460 


TFM 


7TV5,75 


11376 


16 


03866 


-0075 


10470 


TOM 


FRSTNT,l,U 


11388 


15 


04006 


OOOOJ 


10460 


BNF 


• ♦24,0UHPIU1,,CK.F0A CONST. WHOSE LAST POSN.IS A REC.MRK. 


11400 


44 


11424 


03521 


10490 


TOM 


TYPE-1, 1,11, SET INDICATOR THAT CONST. HAS RECORD NARK 


U412 


15 


09064 


OOOOJ 


10500 


TOM 


OUNPUU 


11424 


15 


03521 


OOOOO 


10510 REETRN 


882 




11436 


42 






10320 • 


SET UP FOR INDICATOR ANO ADDRESS— TCD 










10530 INOAOR 


TOM 


HU8mi*6 


11438 


15 


11673 


00006 


10540 


TON 


HU6W35.5 


11450 


15 


11697 


00005 


10550 


TFN 


HU82M1.0UT-7 


11462 


16 


11709 


-2211 


10560 


87 


HUOl 


11474 


49 


11662 




10570 • 


SET UP FOR AEC.NRIU (ADDRESS, INDICATOR AND LENGTH 










10560 REMAIL 


TD 


OUT- 7, L NTH* I 


11482 


25 


02211 


02388 


10990 


TOM 


HM0tm*9 


11494 


15 


11673 


00009 


10600 


TDM 


HU8103,6 


11506 


15 


11697 


00006 


10610 


TFN 


HU02Hl*0UT-6 


11516 


16 


11709 


-2212 


10620 


TF 


OUT*2*FRSTA0 


11530 


26 


02216 


03673 


10630 


8 


HUO 


11542 


49 


11638 


OOOOO 


10640 


OORG 


•-f 


11550 








10690 • 


SET UP FOR NEW INDICATOR AMD LENGTH 










10660 MENU 


TOM 


TYPE-1,, 11, TURN OFF * INDICATOR 


11550 


15 


09064 


0000- 


10670 


TOM 


huo in I, 3 


11562 


15 


11673 


00003 


10660 


TOM 


HM0U39.2 


11574 


15 


11697 


00002 


10690 


TFN 


HU02M1.0UT-1 


11566 


16 


11709 


-2217 


10700 


8 


HUO 


11598 


49 


11638 


OOOOO 


10710 


OORG 


•-3 


11606 








10720 • 


SET UP FOR NEW 75-DIGIT RECORD- NEW ADDRESS* INO.ANO LENGTH. 










10730 NEWCAR 


TOM 


HUOl* 11, 6 


11606 


15 


11673 


00008 


10740 


TOM 


HU11>!5*7 


11618 


15 


11697 


00007 


10790 


0 


RfMAlL*36 


11630 


49 


11518 


OOOOO 


10760 


OORG 


•-3 


11638 








10770 HUB 


TO 


OUT-l.IC 


11638 


25 


02217 


03868 


10700 


TFN 


oum*o,io 


1 1650 


16 


02219 


000-0 


10790 HU01 


TFM 


TEST 


11662 


16 


09057 


-0000 


10000 


TF 


STKLEN.A66A 


11674 


26 


03878 


04005 


10010 


AM 


STKLEN, 


11666 


11 


03878 


-0000 


10020 HU02 


TFM 


TROATAm, 


11698 


16 


11271 


-0000 


10090 


TO 


•♦22* IC 


11710 


25 


11732 


03666 


10640 


CM 


•♦6,40000*79 


11722 


14 


11730 


N0-00 


10690 


ONE 


FIT 


11734 


47 


11092 


01200 


10660 


A 


OUT^l.LNTH 


11746 


21 


02219 


02387 


10669 


A 


0UTH»LNTH2 


11756 


21 


02219 


09600 


10806 


TF 


LNTH2.LNTH 


11770 


26 


09600 


02367 


10070 


TFN 


LNTH.0 


11762 


16 


02387 


-0000 


too to 


87 


FIT 


11794 


49 


11092 




10090 • 


SET A FLAGGED RECORO MARK TERMINATING ONE CARO 









» 1 
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PACE 23 



10900 


SETFRM 


TO 


TR0ATA*6,FLGRM,6 


11802 


25 


11260 


03864 


10910 


NOD I F I 


TFM 


7TVJ, 75, .INITIALIZE FULL CARD COUNTER 


11814 


16 


03866 


-0075 


10920 




TR 


PKMODt PKROD+S 


11826 


31 


03906 


03911 


10930 




BNR 


STNUCD, PRROD 


11838 


45 


11962 


03906 


10940 




C 


SUB!N*S,SUeOUT*5 


11890 


24 


03543 


03367 


10950 




SNM 


OVRLAP 


11862 


47 


12174 


01100 


10960 


• 


WRITE 3 SECTORS — 4 CAROS — TO THE FILE 










10970 




TFM 


IORT,»*23 


11874 


16 


00565 


J1897 


10980 




8 


lORBCt DEFOUT t7 


11886 


49 


00520 


-3553 


10990 




TFM 


•♦30, INPUT2+99 


11898 


16 


11926 


-3382 


11000 




SM 


•♦18,1,10 


11910 


12 


11926 


000-1 


1 1010 




TOM 


• -•,0 


11922 


15 


00000 


00000 


11020 




CM 


•-6, PACK 


11934 


14 


11928 


-2980 


11030 




BNE 


•-36 


11946 


47 


11910 


01200 


11040 




AM 


SU60UU5.3.10 


11958 


11 


03567 


000-3 


11050 




TR 


PKM0D.PACKA0-4,, INITIALIZE BUFFER ADDRESSES 


11970 


31 


03906 


03865 


11060 


STNUCD 


TF 


ABBA, PKM0D^4,, ADDRESS OF NEW CARD MOVED TO ABBA 


11982 


26 


04005 


03910 


11070 




B 


•♦8,, .BRANCH BACK OR CONTINUE 


11994 


49 


12002 


00000 


11080 




DORG 


• -3 


12002 








11090 




TDM 


OUT-7,0 


12002 


15 


02211 


00000 


11 100 




80 


NEWCAR, IC 


12014 


43 


11606 


03868 


11110 




TF 


1STTCD,A00RS 


12026 


26 


03942 


03494 


11120 




TO 


ISTTCD-5.IC 


12038 


25 


03937 


03868 


11130 




TR 


TRDATA^6,1STTCD-10,6 


12050 


31 


11260 


03932 


1 11*0 




B7 


REETRN-60 


12062 


49 


11376 




11150 


• 


ROUTINE TO HANDLE THE CASE WHERE DATA OVERFLOWS FROM ONE 










11160 


• 


CARO TO ANOTHER 










11170 


SPLIT 


A 


LNTH, 7TY5 ,, MOVE PARTIAL 


12070 


21 


02387 


03866 


11180 




TFM 


•♦35,OUT^2 ,, DATA 


12082 


16 


12117 


-2220 


11190 




A 


•♦23, LNTH ,, INTO 


12094 


21 


12117 


02387 


11200 




TR 


0UT*2 ,, 0U7*2 


12106 


31 


02220 


00000 


11210 




A 


FRSTAO«LNTH,, OBTAIN ADORESS OF NEW FIRST DIGIT 


12118 


21 


03873 


02387 


11220 




CF 


7TV5 


12130 


33 


03866 


00000 


11230 




A 


STKLEN,LNTH,6 


12142 


21 


0387Q 


02387 


11240 




TF 


LNTH, 7TY5 


12154 


26 


02387 


03866 


11250 




87 


MODIFI 


12166 


49 


11814 




11260 


• ERROR ROUTINE — FINAL OUTPUT HAS OVERLAPPED INT. OUTPUT 










11270 


OVRLAP 


TFM 


EVALER-2.72 710 


12174 


16 


07664 


P2710 


11280 




8T 


EPRINT.EPRINT-l 


12186 


27 


08064 


08063 


11290 




87 


MONCAL 


12198 


49 


00796 




11300 


• 














11310 


• 


NUMERIC TO ALPHA CONVERTER 










11320 


• 














11330 




OS 


5 


12209 




5 




11340 


FILL 


TR 


FILBUF,FILL-l,ll 


12210 


31 


12442 


1220R 


11350 




TFM 


FCHBUF, 70,10 


12222 


16 


12459 


OOOPO 


11360 




TO 


FCHBUF, FILBUF+4, 11 


12234 


25 


12459 


12440 


11370 




BNF 


•♦60, FCHBUF 


12246 


44 


12306 


12459 


11380 




TOM 


FCHBUF-1, 5,11 


12258 


15 


12458 


OOOON 


11390 




CF 


FCHBUF 


12270 


33 


12459 


00000 


11400 




BO 


•♦24, FCHBUF 


12282 


43 


12306 


12459 


11410 




TOM 


FCH8UF-1, 2,11 


12294 


15 


12458 


OOOOK 


11420 




BNR 


•♦24, FCHBUF 


12306 


45 


12330 


12459 


11430 




TFM 


FCHBUF, 34, 10 


12318 


16 


12459 


000L4 


11440 




TF 


FILBUF+14, FCHBUF, 6 


12330 


26 


12450 


12459 


11450 




AM 


FtLBUFM, 1,10 


12342 

8* 


11 


12446 


000- 1 
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11460 




AM 


FILBUF+14, 2,10 


12354 


11 


12456 


000-2 


11470 




C 


FILBUF+4, FILBUF+9 


12366 


24 


12446 


12451 


11480 




BNH 


FILLM2 


12378 


47 


12222 


01100 


11490 




BB2 




12390 


42 






11500 




OS 


5 


12396 




5 




11510 


CVACT 


TFM 


ACTFIL^5,ZEP0 


12398 


16 


12710 


-2300 


11520 




A 


ACTF I L^5 , LNTH 


12410 


21 


12710 


02387 


11530 




BTM 


F I LL , ACTF I L-4 


12422 


17 


12210 


J2701 


11540 




a 


CVACT-1,,6 


12434 


49 


1239P 


00000 


11550 




OORG 


• -3 


12442 








11560 


FILBUF 


OSS 


16 


12442 




16 




11570 


FCHBUF 


OS 


2 


12459 




2 




11580 




OS 


5 


12464 




5 




11590 


• 


THE FOLLOWING ROUTINE ARRANGES THE OUTPUT OF THE LISTING 










11600 


• 


DECK 










11610 


LSTOUT 


BTM 


FILL, A0RFIL-4, .ADORESS 


12466 


17 


12210 


J2637 


11620 




TOM 


INPUT2+2»61-3,7 


12478 


15 


03402 


00007 


11630 




CM 


LINPRT-UOOINST 


12490 


14 


09309 


J0366 


11640 




BNE 


LSTCON 


12502 


47 


12558 


01200 


11650 




BTM 


FILL, OPFIL-4,, OP. CODE 


12514 


17 


12210 


J2653 


11660 




BTM 


FILL,PFIL-4,,P-FIELD 


12526 


17 


12210 


J2669 


11670 




BTM 


FILL, QFIL-4, ,0-FIELD 


12538 


17 


12210 


J2685 


11680 




B7 


PUNCH 


12550 


49 


12582 




11690 


LSTCON 


BTM 


FILL.LNTHFL-4 


12558 


17 


12210 


J2717 


11700 




TOM 


INPUT2^2»67-3,7 


12570 


15 


03414 


00007 


11710 


PUNCH 


BNF 


GOCL.LSCDSW 


12582 


44 


12618 


02479 


11720 




TFM 


IORT,*^23 


12594 


16 


00565 


J2617 


11730 




B 


I0PT,C0PDEF-4,7 


12606 


49 


00532 


-4162 


11740 


GOCL 


BT 


CLOUT, CLOUT- I 


12618 


27 


08168 


08167 


11750 




87 


LSTOUT-1,,6 


12630 


49 


1246N 




11760 


AORFIL 


OSA 


A DORS -4, A DORS, I NPUT2+2*61-2 


12641 




5 


X 3 










12641 




-3490 












12646 




-3494 












12651 




-3403 




11770 




DC 


l.» 


12652 




1 




11780 


OPFIL 


OSA 


2EP0 ,ZEP0M,INPUT2^2»67-2 


12657 




5 


X 3 










12657 




-2300 












12662 




-2301 












12647 




-3415 




11790 




DC 
* 




12668 




I 




11600 


PFIL 


OSA 


ZEP0^2,ZEP0^6,INPUT2^2»70-2 


12673 




5 


X 3 










12673 




-2302 












12678 




-2306 












12683 




-3421 




11610 




oc 


it» 


12684 




1 




11820 


OFIL 


DSA 


ZEP0^7.ZEP0*U, INPUT2*2»76-2 


12669 




5 


X 3 



12469 -2307 
12694 -2311 
12699 -3433 
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HAM 








12700 




1 






11049 






€vt9VI$9~9 ||NrUIIvi*rS*I 


12701 




3 


x s 










12 70S 




-2301 












12710 




-0000 












1271S 




-3427 




11 #90 




DC 




12716 




1 




11 MO 


LNTHr L 


D5» 


1 HTU«1 1 MTU IlilllT)4)mi7_) 


12721 . 




5 


X 3 










12721 




-2383 












12726 




-2387 




11870 








127SI 




-3415 






DC 
• 


lt« 


12732 




1 




11 too 


# 














11090 


* 


ASSEM6LE INSTRUCTION 










1 1900 
















11910 


INSTAN 


TO 


•♦23,AD0C0W 


12734 


25 


12757 


02674 


11920 




TD 


•♦23,AJUST 


12746 


25 


12769 


02399 


1 1 9 SO 




AM 


A0OCOM,,l0 


12738 


U 


02674 


000-0 


11940 




TFH 


L INPAT-l »DOINST 


12770 


16 


09309 


J0366 


1 1950 




TD 


ZEFO.INTBUF 


12762 


25 


02300 


03602 


11940 




TD 


ZEP0^1,INTBUF*l 


12794 


25 


02 301 


03603 


11970 




8TM 


SCAN, I 2 


12606 


17 


06076 


J2816 


1 1900 




TA 


ZEF0*2tCLEAEA*43 


12818 


31 


02302 


02758 


1 1990 




TA 


ZEP0^2,ADDRS-4 


12830 


31 


02302 


03490 


12000 




CP 


ZEP0*2 


12642 


33 


02302 


00000 


12010 




ONE 


•♦24.AL0CSW 


12854 


44 


12676 


07992 


12020 




SF 


ZEFO 


12866 


32 


02300 


00000 


12030 




TA 


INPUTM9,INPUT^2l 


12878 


31 


02808 


02810 


12040 




OTM 


SCAN, 1 2 


12890 


17 


06076 


J2902 


12050 




TA 


ZEP0*7,A0DAS-4 


12902 


31 


02307 


03490 


12060 




CF 


2EP0*7 


12914 


33 


02307 


00000 


12070 




ONF 


•♦24.AL0CSW 


12926 


44 


12950 


07992 


12000 




SF 


2EP0M 


12938 


32 


02301 


00000 


12090 


* 


SET THE Q-NODIFIEAS 










12100 


OPCODE 


TFM 


NVEN0D*6»ZEP0*6 


12950 


16 


13040 


-2306 


121 10 




TFN 


CMKMOD*ll,lNTRUF*l 


12962 


16 


13033 


-3603 


12120 


A DDI 


AM 


CHKN0D*11,1 


12974 


1 1 


13033 


-0001 


12130 




CM 


CHKH0D*ll.lNTBUF*7 


12986 


14 


13033 


-3609 


12140 




BE 


TTPINS 


12998 


46 


1 3066 


01200 


12150 




AN 


HVEM0D*6,1 


13010 


11 


13040 


-0001 


12160 


CHKM0D 


BNF 


A001 


13022 


44 


12974 


00000 


12170 


HVEM00 


TO 


,CMKN00*lUU 


13034 


25 


00000 


1303L 


12110 




CF 


AVE POD* 6,, 6 


13046 


33 


1304- 


00000 


12190 




07 


AD01 


13058 


49 


12974 




12200 


TVPINS 


TF 


ADDAS •AODCOH 


13066 


26 


03494 


02674 


12210 




AN 


ADOCOMtll 


13078 


11 


02674 


-0011 


12220 




C 


INPUT* 16, 08 2 


13090 


24 


02805 


09063 






ONE 


CHK67 




47 


131 34 


01200 


12240 




SN 


AODCON, 10,10 


13114 


12 


02674 


OOOJO 


12250 




87 


FLAGGA 


13126 


49 


13170 




12260 


CHKB7 


CN 


INPUT*14,4277,8 


13134 


14 


02803 


ON277 


12270 




BNE 


FLAGGA 


13146 


47 


13170 


01200 



8 4 
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12280 




SH 


A0OCOM,5 


13158 


12 


02674 


-0005 


12290 


• 














12300 


• 


CHECK TO SEE IF THERE IS A FLAG OPERAND 










12310 


• 














12320 


FLAGGA 


TA 


INPUT*19,INPUT*21 


13170 


31 


02808 


02610 


12330 




BNA 


•♦20,INPUT*20 


13162 


45 


13202 


02809 


12340 




87 


SEEIN 


13194 


49 


13246 




12350 




CM 


INPUT+20,23, 10 


13202 


14 


02809 


000K3 


12360 




BE 


SEE IN 


13214 


46 


13246 


01200 


12370 




80 


NGAUOA, INPUT* 19 


13226 


43 


13402 


02808 


12360 




87 


FLAGGA 


13238 


49 


13170 




12390 


« 














12400 






SET FLAG IF IMMEDIATE INSTAUCTION 










12410 


• 














12420 


SEEIN 


TD 


•♦2 it INTO UF 


13246 


25 


13267 


03602 


12430 




CN 


•♦9,1,610 


13256 


14 


13267 


0-0-1 


12440 




BNE 


LINPAT 


13270 


47 


09310 


01200 


12450 




C 


•♦23, INTBUF*! 


13282 


24 


13305 


03603 


12460 




61 


LINPAT, 1215, 10 


13294 


46 


09310 


012J5 


12470 




SF 


ZE>0*7 


13306 


32 


02307 


00000 


12480 




67 


LINPAT 


13318 


49 


09310 




12490 


• 














12500 


• 




SCAN FLAG OPERAND 










12510 


• 














12520 


TAANS 


TA 


INPUT*l9,INPUT*2l 


13326 


31 


02808 


02810 


12530 




BNA 


•♦20. INPUT+20 


13338 


45 


13358 


02809 


12540 




67 


LINPAT 


13350 


49 


09310 




12550 




OD 


•♦20, INPUT* 19 


13356 


43 


13378 


02608 


12560 




67 


TAANS 


13370 


49 


13326 




12570 




CM 


INPUT*20.23,10 


13378 


14 


02809 


000*3 


12960 




BE 


LINPAT 


13390 


46 


09310 


01200 


12590 


MGAUOft 


CM 


IN»UT*20,71,10 


13402 


14 


02809 


000P1 


12600 




BNE 


AOLE 


13414 


47 


13570 


01200 


12610 




BNA 


•♦20,INPUT*22 


13426 


45 


13444 


02811 


12620 




87 


AOLE 


13436 


49 


13570 




12630 




C 


ZEA0N2*9,INPUU22 


13446 


24 


13611 


02811 


12640 




BNE 


8 AAA 


13456 


47 


13302 


01200 


12650 




SF 


ZEROMO 


13470 


32 


02310 


00000 


12660 


CHAA 


TA 


INPUT*19,INPUT*23 


13462 


31 


02806 


02812 


12670 




87 


TRANS*12 


13494 


49 


13336 




12660 


6AAA 


C 


ZERONE*ll,INPUT*22 


13502 


24 


13613 


02611 


12690 




ONE 


AOLE 


13514 


47 


13570 


01200 


12700 




SNA 


•♦20,IMPUT*24 


13326 


45 


13546 


02813 


12710 




87 


ZEAONE 


13336 


49 


13602 




12720 




C 


Z*R0NC*9,INPUT*24 


13546 


24 


13611 


02813 


12730 




ONE 


ZCRONE 


13956 


47 


13602 


01200 


12740 


AOL I 


TO 


•♦18,SNPUT*20 


13570 


25 


13966 


02609 


12790 




SF 


ZfPO 


13582 


32 


02300 


00000 


12760 




07 


TRANS 


13594 


49 


13326 




12770 


ZEAONE 


SF 


2fP0>U, 7071, 610 


13602 


32 


02311 


0P0P1 


12700 




07 


CHAR 


13614 


49 


13482 




12790 


CUT 


OS 


2tCMA*-l 


13401 




2 




12000 


• 














12610 


• 




EVALUATE LENGTH OP OS OR OR* 










12020 


• 














12830 


DSONB 


OTM 


SCAN, •♦12 # 


13622 


17 


06076 


J3434 
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129*0 




TF 


LNTH, ADDRS 


13634 


26 


02387 


03494 


12850 




80 


•♦48» INTBUF*6 


1 3646 


43 


13694 


03608 


12860 




CM 


LNTH, 100 


13651 


14 


02387 


-0100 


12870 




BN 


• ♦24 


1)670 


47 


13694 


01300 


12880 




TFM 


LNTH, 99 


13682 


16 


02387 


-0099 


12890 




TR 


INPUT*L9,1NPUT*21 


13694 


31 


02808 


02810 


12900 




BTM 


SCAN,*M2 


13706 


17 


06076 


J3718 


12910 




80 


•♦32.6SW 


1)718 


43 


13750 


09090 


12920 




TO 


KLRLSM.RLOCSW 


137)0 


25 


04007 


07992 


129 30 




87 


PROS 


13742 


49 


13818 




12940 


• 














17950 


• 


AQDRESS ASSIGNEO BY PROCESSOR 










12960 


• 














12970 






innB^.innrnu 


13750 


26 


03494 


02674 


12980 




* 


tnnrnu i iutlj 
AUDwUMi LNIM 


13762 


21 


02674 


02387 


12990 








13774 


43 


13806 


03607 


13000 








13786 


21 


03494 


02387 


13010 




B 7 


DSS+12 


13798 


49 


13818 




13020 


OSS 




ADDK>, 1,10 


13806 


11 


03494 


000- 1 


13030 


PROS 


BTM 


L INPRT.DODS 


13618 


17 


09310 


-9454 


1 i040 


• 














t3050 






cVALUATc LcNijTn Ur DAS 










13060 


• 














13070 


OAS 


BTM 


SCAN, •♦12 


13830 


17 


06076 


J3842 


L 3080 




TF 


LN TH, ADORS 


13842 


26 


02387 


0 3494 


13090 




A 


LNTH, LNTH 


13854 


21 


02387 


02387 


1 3100 




TF 


TEMPR ,LNTH 


13866 


26 


02571 


02387 


13110 




BNR 


NOADO, INPUT^20 


13878 


45 


13970 


02809 


13120 






• 










1 3130 






ADDRESS ASSIGNED BY PROCESSOR 










1 31*0 


« 














1 3150 




TD 


•♦23, ADOCOW 


13890 


25 


13913 


02674 


I 3 160 




TO 


•♦23, JSTBL 


13902 


25 


13925 


02459 


I 31 70 




AH 


ADDC0W..L0 


13914 


U 


02674 


000-0 


13180 






a nnoc annrnu 
AOUK) , AUUUUM 


13926 


26 


03494 


02674 


13190 




A 


A00C0H, TEMPR 


13938 


21 


02674 


02571 


13200 




SM 


AD0C0W.2. 10 


13950 


12 


02674 


000-2 


13210 




B7 


PROS 


13962 


49 


13818 




13220 


NOADO 


TR 


INPUTM9, INFUT^21 


13970 


31 


02808 


02810 


13230 




BTM 


SCAN."12 


13982 


17 


06076 


J3994 


13240 




BD 


DAS^&O.BSW 


13994 


43 


13890 


09090 


13250 




TD 


KLRLSMtRLOCSN 


14006 


25 


04007 


07992 


13260 




B7 


PROS 


14018 


49 


13818 




13270 


• 














13280 


• 




DEFINE ORIGIN 










I 3290 


• 














13 300 


DORG 


BTM 


SCAN. •♦12 


14026 


17 


06076 


J4038 


13310 




TF 


ADDCOW. ADDRS 


14038 


26 


02674 


03494 


13320 


• 














13330 






SET ADDRESS COUNTER TO NEW VALUE 










13340 


• 














13350 




SM 


ADDCOW, 1,10 


14050 


12 


02674 


000-1 


1 3360 




8NF 


•♦24, ADDCOW 


14062 


44 


14086 


02674 


13370 




TFM 


ADDCOW, 99999 


14074 


16 


02674 


R9999 


13380 


ECLAT I 


CF 


AODRS-4 


14086 


33 


03490 


00000 


13390 




BNF 


•♦24,LSTYSW 


14098 


44 


14122 


02480 
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I J400 




WNTV 


ADDRS-4 


14110 


38 


03490 


00100 


13410 




BNF 


•♦36.LSCDSW 


14122 


44 


14158 


02479 


13420 




BTM 


FILL , ADRF I L-4 


14134 


17 


12210 


J2637 


13430 




WACD 


INPUT2 


14146 


39 


03283 


00400 


I 3440 




B7 


PHASEB 


14158 


49 


04182 




13450 


• 














13460 




DEFINE CONSTANT AND 


DEFINE SPECIAL CONSTANT 








13470 


• 














13480 


DC 


TD 


DC *23,INTBUF+5 


14166 


25 


14189 


03607 


13490 




CF 


CCOMER 


14178 


33 


14318 


00000 


13500 




TFM 


SFLAGH1, 00000 


14190 


16 


14517 


-0000 


13510 




BTM 


SCAN,»+12 


14202 


17 


06076 


J4214 


13520 




TF 


LNTH, ADDRS 


14214 


26 


02387 


03494 


13530 




CM . 


LNTH, 51 


14226 


14 


02387 


-0051 


13540 




BL 


• ♦24 


14238 


47 


14262 


01300 


13550 




TFM 


LNTH, 50 


14250 


16 


02387 


-0050 


13560 




TR 


ZEP0-1,CLERER 


14262 


31 


02299 


02715 


13570 




TD 


ZEP0^5l,LNTH+l 


14274 


25 


02351 


02388 


13580 




SF 


ZEPO 


14286 


32 


02300 


00000 


.13590 




TFM 


SFLAGM, 41,10, 


CHANGE SF TO NOP 14298 


16 


14507 


000M1 


13600 




B7 


TRREC*12 


14310 


49 


14494 




13610 


CCOMER 


CM 


INPUW22,23,10 


14318 


14 


02811 


000K3 


13620 




BE 


TRREC+24 


14330 


46 


14506 


01200 


13630 




BH 


TRREC-72 


14342 


46 


14410 


01100 


13640 




CM 


INPUT+22. 20,10. 


IF SF ON UNITS DIGIT OF CON 14354 


14 


02811 


OOOKO 


13650 




BNE 


TRREC... 


IGNORE ♦ 14366 


47 


14482 


01200 


13660 




SF 


CCOMER 


14378 


32 


14318 


00000 


13670 




TFM 


SFLAG+l, 32,10, 


CHANGE NOP TO SF 14390 


16 


14507 


000L2 


13680 




B7 


TRREC 


14402 


49 


14482 




13690 


• 














13700 


• 


COLLECT CONSTANT 










13710 


• 














13720 




TF 


SFLAG^U.INPUT+22 


14410 


26 


14517 


02811 


13730 




TD 


ZEP0^5l,INPUT+22 


14422 


25 


02351 


02811 


13740 




CM 


1NPUT^22,60, 10 


14434 


14 


02811 


00000 


13750 




BP 


•♦24 


14446 


46 


14470 


01100 


13760 




SF 


ZEP0^5l 


14458 


32 


02351 


00000 


13770 




TR 


ZEPO.ZEPOM 


14470 


31 


02 300 


02301 


13780 


TRREC 


TR 


INPUTM9,INPUT^21 


14462 


31 


02806 


02810 


13790 




BNR 


CCOMER * I NPUT+22 


14494 


45 


14318 


02811 


13800 


SFLAG 


SF 


ZEPO+50 


14506 


32 


02350 


00000 


13810 




CM 


•-1,34,10 


14518 


14 


14517 


000L4 


13620 




BNE 


• ♦72 


14530 


47 


14602 


01200 


13830 




BNP 


•♦36.ZEP0+50 


14542 


44 


14578 


02350 


13840 




BNP 


•♦24, CCOMER 


14554 


44 


14578 


14318 


13850 




SF 


ZEP0449 


14566 


32 


02349 


00000 


13860 




TD 


ZEP0^50.LNTHM 


14578 


25 


02350 


02368 


13670 




TOM 


DUMP1H1..U 


14990 


15 


03521 


0000- 


13680 




SF 


ZEPO 


14602 


32 


02)00 


00000 


13690 




C 


LNTH. INTBUP44 


14614 


24 


02)87 


03606 


1)900 




BNN 


• ♦36 


14626 


44 


14662 


01300 


13910 




TF 


LNTH. INTBUF+4 


146)6 


26 


02)87 


03606 


13915 




CF 


LNTH- I 


14690 


3) 


02)66 


00000 


13920 




TFM 


♦♦)5,ZEP0^50 


14662 


16 


14697 


-2350 


13930 




S 


•♦23. LNTH 


14674 


22 


14697 


02367 


13940 




TR 


ZEPO 


14666 


31 


02)00 


00000 



m IH MAS! I AUT II •mi 



PAGE 29 



I It 90 


0© 


•♦2*i K »23 


14**0 


49 


1*722 


1*189 


13*40 


sp 


umi 


1*710 


92 


02901 


OOOOO 


13*70 


MM 


•♦tOttfPO*! 


14 ?22 


♦9 ' 


1*7** 


02901 


19*00 


CP 


2600*1 


1*71* 


33 


02301 


00000 


13*00 


•MM 


CHICK »IMfUT*22 


1*7*4 


*3 


1**39 


02 All 


14000 • 














1*010 • 


AOOMIIS ASSIGHfO IV PAOCISSO* 










1*020 • 






■ 








1*030 60 AMD 


TP 


AOOAStAOOCOtf 


1*79* 


24 


03*** 


02*7* 


140*0 


A 


AOOCOM,LMTH 


1*770 


21 


02474 


02387 


14090 


TP 


LSTAO tAOOCOM 


1*702 


24 


03AA3 


02*7* 


14040 


AM 


LSTAO tit 10 


1*7** 


11 


030A3 


000- 1 


14070 


to 


OSCtOC 421 


1 4 AO* 


99 


1***2 


1*10* 


140A0 


A 


AOOMStiMTH 


!*•!• 


21 




023*7 


140*0 


• 


0SC412 


1*030 


*• 


l**9* 


00000 


14100 iSC 


AM 


400*$, l» 10 


1*0*2 


11 


03**4 


000- 1 


14110 


TA 


0VjT*2tZEP0*l 


!*••* 


91 


02220 


02301 


14120 


TF 


FASTAOtLSTAO 


1*004 


2* 


03973 


03A83 


14130 


S 


FASTAO tLMTH 


1*07* 


22 


03A73 


02307 


14140 


•MF 


•♦S4tOUMPi4ll 


1*000 


** 


1**2* 


09921 


14190 




•♦24.1EP0M 


1*002 


♦9 


1**2* 


02301 


141*0 


TOM 


DUMPiMl.1,11 


1*01* 


19 


03921 


0000 J 


14170 PADCSA 


BTM 


LIMMATtOOCOM 


1*024 


17 


0*310 


-*3*2 


141A0 CHECK 


Tt 


IMPUT*1*.IMPUT*23 


1*090 


31 


02909 


02912 


141*0 


•TM 


SCANt"12 


1 **90 


17 


0*07* 


J4**2 


1*200 


•0 


GOAMOtASW 


1*042 


43 


1*79* 


0*0*0 


1*210 


TO 


KLALSMtALOCSM 


1*07* 


23 


0*007 


07**2 


1*220 • 














1*290 • 


AOOAESS ASS1GME0 IV PAOGAAMMEA 










1*2*0 • 














1*290 


TF 


LSTAO »A00AS 


!**•* 


2* 


039*3 


03494 


142*0 


AO 


•♦32. DC +23 


14**A 


43 


19030 


1418* 


14270 


AM 


LSTAO tltlO 


13010 


1 1 


03983 


000- I 


142*0 


87 


DSC*12 


19022 


49 


14854 




142*0 


A 


LSTAO tLMTH 


19030 


21 


039A3 


02387 


14300 


• 7 


0SC412 


190*2 


** 


14854 




14310 ••FLIP 


•AAMCH TAALE 










14320 DODSF 


■ TM 


LIM**T,OODS 


19090 


17 


09310 


-9454 


14330 OOCOMP 


ATM 


LIMMAT.OOCOM 


190*2 


17 


0*310 


-9982 


14340 PDSAF 


• TM 


LINPAT,FOSA 


1907* 


17 


0*310 


-9778 


14330 PCONF 


•TM 


L IMFATf FCON 


190A* 


17 


09310 


-9686 


14340 LIHP 


ATM 


L IMMATf OOINST 


190*9 


17 


09310 


J0366 


14370 OS! 


BTM 


GETTtDSOF 


19110 


1 7 


09208 


-9310 


143A0 ilNKSF 


• TM 


GETT.LIMMS 


19122 


17 


09208 


J4030 


143*0 CALLEX 


• TM 


CETTfCAtf XT 


19134 


1 7 


09208 


J4258 


14400 TAA 


ATM 


GIT.MTAA 


1914* 


17 


09164 


J4128 


14410 MACRO 


• TM 


GIT,MACA0P 


1919* 


17 


0*1*4 


J3374 


14420 OSA 


• TM 


CIT.OSAF 


19170 


17 


09164 


J3046 


1443* OENO 


• TM 


GIT,0EMOP 


19192 


17 


09164 


J4788 


14440 ODA 


•TM 


CITtOOAF 


191** 


17 


09164 


J3682 




• TM 


GETTtDGMF 










14440 DVLC 


• TM 


GETT.OVLCF 


19219 


17 


09208 


-9658 


14470 AST* 


•TM 


OETTf ASTAF 


19290 


17 


09208 


J0334 


14400 SAVE 


• TM 


G€TT# SAVEF 


192*2 


17 


0*208 


J0588 


144*0 OMCS 


• TM 


GETT.OMfSF 


1929* 


17 


0*208 


J 1250 


14900 DAC 


• TM 


Of TTtOACF 


19244 


17 


0*208 


J3004 



88 







SFS II-D FHASE A JULY 11.19*3 








PACE 


14510 


MAC 2 


ATM 6AT V MACA2 


19279 


17 


09120 


J3046 


14520 


• 


LOAO FMASE A3 TO THE FILE 










14530 


F2 


34 SUG2,70l 


192*0 


34 


19339 


00701 


14540 




MM SV02,702 


19302 


39 


19338 


00702 


14990 




TAA 


1931* 


96 


00000 


00900 








1932* 


49 


00000 


00000 


14960 


SU02 


ODA ,O t 030AO«A3SCT»A3MA0 


19339 




14 








OJ 9000-40- 0100 










14970 




TCO F2 


192*0 








14990 




OOMO L1MP0T 


0*910 








149*0 


• 












14*00 


• 


EVALUATE LENGTH OF OS* 










14410 


« 












14620 


0S9F 


BTM SCAM,»»12 


0*910 


17 


04074 


-*322 


14690 




TF LMTMtAOOOS 


0*322 


26 


02307 


034** 


14440 




TA IMFUT41*t!N*UT*21 


0039* 


31 


02800 


02910 


14490 




•TM SCAM, »♦ 12 


003*4 


17 


04074 


-♦990 


14440 




•MF •♦2*«*SM 


00310 


** 


0*902 


000*0 


14470 




TFM AOOttStl 


00970 


1* 


094** 


-0001 


14400 




M LMTMtAOOOS 


00302 


23 


02907 


03**4 


14600 




SF ** 


0030* 


32 


000*9 


00000 


14700 




TA IMM**>l*,IMFUT*2l 


0**04 


91 


02000 


02010 


14710 




•TM SCAM, "12 


00*1* 


17 


04074 


-**30 


14720 




OMF ASlMftSSW 


00*90 


** 


0**70 


•***0 


14730 


• 












14740 


• 


AOOME99 ASSIGNED AT PAOCISSO* 










14730 


t 












14760 




A LNTMtAOOCOM 


0*4*2 


21 


02307 


02474 


14770 




TF AOOOItlMTH 


00*9* 


2* 


034*4 


02997 


14780 




A AOOCOOfO* 


00*44 


21 


02474 




147*0 


• 












14800 


• 


AOOMESS ASSIGMEO OY PAOOAAMMCR 










14810 


• 












14920 


AS IMC 


TF LMTMt ** 


0*479 


26 


02397 


000** 


14930 




•TM OfETtOODSF 


00**0 


17 


0*252 


J9090 


1484* 


• 












14890 


• 


DEFINE FILE GAOUP MARK 










14940 


• 












14970 


OGMf 


TFM LMTMt 1 


00902 


14 


02387 


-0001 


14880 




BTM SCA*t*H2 


ooti* 


17 


040 '6 


-**2* 


149*0 




T0 KLALtMtALOClM 


OOBOO 


29 


0*007 


07002 


14*00 




•MF •♦*•»•!* 


0*999 


4* 


0*3*4 


000*0 


14*10 




AM AOOCfMft 1 


0*990 


11 


0247* 


-0001 


1**20 




TF AOOftStAOOCOM 


00901 


24 


09**4 


02474 


14*30 




TDM KLALSMtUU 


0*07* 


19 


04007 


OOOOJ 


1***0 




TF FASTAO tAOOAS 


0*904 


24 


09973 


034** 


1**90 




TF LSTAO tAOOOS 


0*909 


24 


03993 


03**4 


1**40 




AM LSTAO tltTlO 


0*410 


11 


03093 


-00- 1 


1**70 




TO ©WT#2tSPS0M 


0*422 


29 


02220 


019*0 


1*000 




TOM DUMOlHltWU 


0*43* 


19 


09921 


OOOOJ 


14*** 




•TM GfCTtOCOMF 


0*4*4 


17 


0*292 


J9004 


19000 


• 












19010 


• 


OfFIMC VARIABLE LIMOTM AOOOIIS CONSTANT 










19020 


• 












19090 


OVLCP 


SfM SCANt 


00090 


17 


04074 


-0470 
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19040 




TO 


KLRLSW,RL0CSW 




08*70 


25 


04007 


07992 


15050 




TF 


DVA06F+11, A DORS 




09*82 


2* 


10249 


03494 


15060 




SF 


DVSW2 




08*94 


32 


10139 


00000 


15070 




CF 


DVSWl 




0970* 


33 


10138 


00000 


15080 




6NF 


•♦36,6SW 




09718 


44 


09734 


09090 


15090 


OVASGN 


SF 


0VSM1,,, 


MACHINE ASSIGNS ADDRESS 


09710 


32 


10138 


OOOOO 


15100 




TOM 


KLRLSW, 1 t 1 1 




09742 


15 


04007 


OOOOJ 


15110 




TR 


INPUT*19, INPUT*21 




097S4 


31 


02808 


02610 


15120 




8TN 


SCAN, »*12 




097** 


17 


06076 


-9778 


15130 




TF 


LNTM, ADORS 




09778 


26 


02367 


01494 


15140 




TR 


OUT, CLCRER+ I 




09790 


31 


02218 


02716 


15150 




TFM 


0VTR*6, 0UU2 




09802 


16 


10156 


-2220 


15160 


OVLP 


CM 


LNTM, 00050 




09814 


14 


02387 


-0050 


15170 




8NP 


• ♦48 




0982* 


47 


09874 


01100 


15160 




SM 


LNTH,50,10 




09838 


12 


02367 


OOONO 


15190 




S 


ADORS, LNTH 




09850 


22 


03494 


02387 


15200 




TFM 


LNTM, 50 




098*2 


16 


02387 


-0050 


15210 




BNF 


•♦8*12, DVSW2 




09874 


44 


09970 


10139 


15220 




8NF 


•♦36, OVSWl 




0988* 


44 


09922 


10116 


15230 




TF 


DVAOOF^ll, AODCOW 




09898 


26 


10249 


02674 


15240 




A 


DVAOBF^ll, LNTH 




09910 


21 


10249 


02387 


15250 




TF 


LSTAD , DVADBF+1 I 




09922 


26 


03883 


10249 


15260 




S 


LSTAD , LNTM 




09934 


22 


03883 


02387 


15270 




AM 


LSTAO , 1 




09946 


U 


03883 


-0001 


15280 




CF 


DVSW2 




09958 


33 


10139 


OOOOO 


15290 




TR 


ZERO, CLERER+2 




09970 


31 


02300 


02717 


15300 




TFM 


DVSF*6, ZEPO+51 




09982 


16 


10144 


-2331 


15310 




S 


DVSF*6, ADDRS 




09994 


22 


10144 


03494 


15320 




TF 


OVAO* 11, ADORS 




10006 


26 


10173 


03494 


15330 




TR 


INPUT*19, INPUT*2i 




10018 


31 


02806 


02810 


15340 




BTM 


SCAN, »*12 




10030 


17 


06076 


J0042 


15350 




BNF 


•♦60,RLOCSW 




10042 


44 


10102 


07992 


15360 




TFM 


EVALER-2, 79780 




10054 


16 


07664 


P9780 


15370 




BT 


EPRINT.EPRiNT-i 




10066 


27 


08064 


08063 


15380 




BO 


C0RER5.ERSTSW 




10078 


43 


07826 


02476 


15390 




TF 


ADDRS, CLERER+9 




10090 


26 


03494 


02724 


15400 




CF 


ADDRS-4 




10102 


33 


03490 


OOOOO 


15410 




TF 


ZEP0*50, ADORS 




10114 


26 


02350 


03494 


15420 




CF 


ZEP0*50-9 




10126 


33 


02341 


OOOOO 


15430 


DVSF 


SF 


00000 ,,2 




10136 


32 


-0000 


OOOOO 


15440 


DVTR 


TR 


•-•,0VSF*6,2ll 




10150 


31 


-0000 


1014M 


15450 


DVAD 


AM 


DVTR*6, 00000 




10162 


U 


10156 


-0000 


15460 




BNR 


•♦20, INPUT*20 




10174 


45 


10194 


02809 


15470 




B7 


DVADBF 




10186 


49 


10238 




15480 




TR 


INPUTM9, INPUT*21 




10194 


31 


02808 


02810 


15490 




BTM 


SCAN, •♦12 




10206 


17 


06076 


J0218 


15500 




A 


LNTH, ADDRS 




10216 


21 


02387 


03494 


15510 




B7 


OVLP 




10230 


49 


09814 




1S520 


OVAOBF 


TFM 


ADORS , 00000 




10238 


16 


03494 


-0000 


15530 




A 


LSTAO , LNTH 




10230 


21 


03883 


02387 


15540 




BNF 


•♦24, DVSWl 




10262 


44 


10286 


10138 


15550 




A 


AODCOW, LNTH 




10274 


21 


02674 


02387 


15560 




TR 


ZEPO^l, 0UT*2 




10286 


31 


02301 


02220 


15570 




TF 


FRSTAO, LSTAO 




10298 


26 


03873 


03883 


15580 




S 


FRSTAO.LNTH 




10310 


22 


03873 


02367 


15590 




BTM 


GEE T,OOCONF 




10322 


17 


09252 


J5062 
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15600 


DVSWl 


DS 


, DVSF 


10138 




0 




15610 


DVSW2 


OS 


, DVSF+1 


10139 




0 




15620 


RSTRF 


TO 


•♦23. AODCOW, , ADJUST 


10334 


25 


10357 


02674 


15630 




TO 


•♦23, AJUST, , LOCATION 


10346 


25 


10369 


02399 


15640 




AM 


AD0C0W,,10, COUNTER 


10358 


11 


02674 


000-0 


15650 




TF 


TEMP, AODCOW 


10370 


26 


02714 


02674 


15660 




TF 


FRSTAO .ADDCOW 


10362 


26 


03873 


02674 


15670 




AM 


AODCOW, 23,, UPOATE LOC COUNTER BY MACRO EXPANSION 


10394 


11 


02674 


-0023 


15680 




TF 


LSTAO , AODCOW 


10406 


26 


03883 


02674 


15690 




TR 


ZEPO,RSIN,, MOVE EXPANSION INTO WORK BUFFER 


10418 


31 


02300 


10562 


15 700 




BTM 


SCAN, •♦12,, FINO NUMERIC EOUIV OF 1ST OPERAND 


10430 


17 


06076 


J0442 


15710 




BNF 


•♦24,BSW 


10442 


44 


10466 


09090 


15720 




TFM 


ADDRS , 80 


10454 


16 


03494 


-0060 


15730 




CF 


A0DRS-4,,,M0VE 1ST 


10466 


33 


03490 


OOOOO 


15 740 




TR 


ZEP0*2, ADDRS-4,, OPERANO INTO MACRO EXPANSION. 


10478 


31 


02302 


03490 


15750 




TR 


INPUTM9.INPUT+21,, GO AND GET 


10490 


31 


02808 


02610 


15760 




BTM 


SCAN, •♦12,, NUMERIC EQUIVALENT OF NEXT OPERANO 


10502 


17 


06076 


J0514 


15770 




TF 


ZEPOm, ADDRS,, INTO MACRO EXPANSION 


10514 


26 


02311 


03494 


15780 




CF 


ZEP0^7 


10526 


33 


02307 


OOOOO 


15790 




TF 


ADORS, TEMP 


10518 


26 


03494 


02714 


15800 




BTM 


GEETtLINP 


10550 


17 


09252 


J5098 


15810 


• MACRO EXPANSION FOLLOWS 










15820 


RSIN 


TR 


0,0 


105*2 


31 


OOOOO 


OOOOO 


15830 




TDM 


100,0 


10574 


15 


00100 


OOOOO 


15840 




OC 
• 


1,' 


10586 




1 




15850 


SAVEF 


TD 


•♦23, ADDCOW, , AOJUST 


10588 


25 


10611 


02674 


15860 




TO 


•♦23, AJUST, , LOCATION 


10600 


25 


10621 


02399 


15870 




AM 


AODCOW, ,10, COUNTER 


10612 


11 


02674 


000-0 


15880 




TF 


TEMP, AODCOW 


10624 


26 


02714 


02674 


15890 




TF 


FRSTAO , AODCOW 


10616 


26 


01871 


02674 


15900 




AM 


AODCOW, 35,, UPDATE COUNTER BY MACRO EXPANSION 


10646 


11 


02674 


-0015 


15910 




TF 


LSTAO , ADDCOW 


10660 


26 


01883 


02674 


15920 




TR 


ZEPO, SAVIN, , MOVE MACRO EXPANSION INTO WORK BUFFER 


10672 


31 


02300 


10628 


15930 




BTM 


SCAN, •♦12,, FINO NUMERIC EOUIV OF 1ST OPERANO 


10664 


17 


06076 


J0696 


15940 




CF 


AODRS-4,,, MOVE 1ST 


10496 


33 


01490 


OOOOO 


15950 




TR 


ZEP0*14, ADDRS-4,, OPERAND INTO MACRO EXPANSION 


10708 


31 


02114 


01490 


15960 




TR 


INPUT*19, INPUT*21t, GO ♦ GET 


10720 


31 


02806 


02810 


15970 




BTM 


SCAN, •♦12,, NUMERIC EQUIVALENT OF NEXT OPERAND 


10712 


17 


06076 


J0744 


15980 




BNF 


•♦24,BSW 


10744 


44 


10768 


09090 


15990 




TFM 


ADDAS, 60 


10796 


16 


03494 


-0060 


16000 




TF 


ZEP0*21, ADDRS,, OPERANO INTO MACRO EXPANSION 


10766 


26 


02323 


01494 


16010 




CP 


ZEPO* 19 


10760 


33 


02319 


OOOOO 


16020 




TDM 


ZEPO* 11,0,, MOVE RECORD MARK IN EXPANSION 


10792 


15 


02311 


OOOOO 


16030 




OC 


ltS« 


10801 




1 




16040 




TOM 


DUMPUll.l.U 


10604 


15 


03521 


OOOOJ 


16050 




6 


RSIN- 24 


10816 


49 


10538 


OOOOO 


160*0 


• MACRO EXPANSION FOLLOWS 










16070 


SAVIN 


TOM 


100,0 


10626 


15 


00100 


OOOOO 


16060 




TR 




10640 


11 


OOOOO 


OOOOO 


16090 




TDM 


100 


108S2 


19 


00100 


OOOOO 


16100 




OC 




108*4 




1 




16110 


• SU6R0UT! Nf 


: TO PROCESS CONTROL CHARACTER PHA 










16120 


ANAL 


CM 


INPUT*24«4, 10, 1ST CHECK IF RT. PAREN. IS PRESENT 


1086* 


14 


02611 


000-4 



Bl 
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14130 tNE ANAL4.., NO LEFT PAREN., ERSOA 10478 

14140 TF ANAL1H1,INPUU22,, MOVE CHAR TO ANOTHER LOCATION 10140 

14190 TR tNPUTU9.!NPUT^23., POSITION INPUT RECORD 10902 

14140 TFN •♦23.CCHAA,, IEGIN CHECKING CONTROL CHAR. 1ST INITITIALIZE 10914 

14170 C ANA11H1... ADDRESSES. CHECK CHARACTERS 10924 

14140 ANAL I BE ANAL2..10. CHARACTER FOUND 10934 

14140 CM ANAU-l.CCHAA-24,, SEE IF SEARCH IS FINISHED 10990 

14200 BE ANAL4, , • YES. NO CONTROL CHARACTER FOUND 10942 

14210 SM ANALl-1,3,10, NOT FINISHED, MOOIFV ADDRESS 10974 

14220 B ANALl-12,,, BRANCH BACK TO CONTINUE SEARCH 10944 

14230 ANAL2 TF ANL1CM I , ANAL1-1 , , PREPARE TO MOVE CONTROL CHARACTER 1 0994 

14240 AM DIGITS, 1, 10, SET ADDRESS TO MOVE 11010 

14290 TF •♦SO.OIGITS., DIGIT INTO OUTPUT BUFFER 11022 

14240 SM •♦23,2,10, PREPARE TO SET CONTROL CHARACTER IN OUTPUT BUFFER 11034 

14270 ANL1C TO ,,, ,,, INSERT CONTROL DIGIT 11044 

142B0 ANL1B CM ANAL1M1 , 94, 10, SEE IF ITS A MOOE CHANGE 11094 

14290 BE ANAL 3 11070 

14300 ANL1A BO 0MSNUM,NM0AL , , SCANNING FOR NUM MODE 110S2 

14310 B7 0MSB1,,, SCANNING FOR ALPHA MODE 11094 

14320 ANAL 3 BO 0MES2 ,NMOAL , , CHANGE FROM ALPHA TO NUMERIC 11102 

16330 6 DMSNMl , , , CHANGE FROM NUMERIC TO ALPHA 11114 

14340 ANAL 4 BO ANAL41 ,NMOAL , , CHECK TO SEE IF ALPHA OR NUMERIC 11126 

16390 TF •♦lSt DIGITS,, PREPARE TO CLEAR LOCATION PREVIOUSLY SET WITH 7 11138 

16360 TOM .,, CLEAR LOCATION 11130 

16370 ANAL41 AM DIGITS, 1, 10, SET IN NEXT LOCATION IU62 

163B0 TF •♦IB, DIGITS 11174 

14390 TDM ,,, 11186 

14400 DSC 11197 



47 
24 
31 
14 
24 
44 
14 
44 
12 
49 



24 

12 



43 
49 
43 
49 
43 
26 



11126 
10949 
02808 

10937 
10949 
10998 
10937 
11126 
10937 
10926 
26 11057 
11 09114 
11052 
11057 

25 00000 

14 10949 
46 11102 

11734 
11490 
11966 
11722 
11162 
11156 

15 00000 
11 09114 

26 11192 
15 00000 

1 



01200 
02811 
02812 
J1248 
00000 
012-0 
J 1224 
01200 
000-3 
00000 
10937 
000- 1 
09U4 
000-2 
00000 
000N4 
01200 
09103 

09103 
00000 
09103 
09114 
00000 
000-1 
09114 
00000 



16410 




CF 


ANAL, t , RESET STRAY PAREN SWITCH 


11198 


33 


10866 


00000 


14420 




B 


ANL1A 


11210 


49 


11082 


00000 


14430 




DSC 


1.1 


11222 




1 




16440 




1 

DC 
N7 


2,57 


11224 




2 




14450 




DSC 
3 


1.3 


U225 




I 




14460 




DC 


2.43 


11227 




2 








M3 












16470 




DSC 


1.4 


11228 




1 




16480 




4 

DC 
M2 


2,42 


11230 




2 




16490 




DSC 


1.5 


11231 




I 




16500 




5 

DC 


2,41 


11233 




2 




16510 




Ml 

OSC 


1.8 


11234 




1 




16520 




8 

DC 


2.59 


11236 




2 








N9 












16530 




DSC 


1.7 


11237 




1 




14540 




7 

DC 
02 


2.42 


11239 




2 




16550 




DSC 
6 


1.4 


11240 
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16560 




DC 


2,63 


11242 




2 








03 












16570 




OSC 


1.2 


11243 




I 




16580 




2 

DC 
N4 


2,34 


11245 




2 




16590 




DSC 
9 


1.9 


11246 




1 




16600 


CCHAR 


DC 


2,46 


11248 




2 




16610 


• PROGRAM TO PROCESS DMES, PHASES 










16620 


DMESF 


BTM 


SCAN, •♦12,, EVALUATE ADDRESS OPERAND TO FIND NUM. VALUE 


11250 


17 


06076 


J1262 


16630 




TDM 


OMESM,l,ll,SET SMIVCH TO REPLACE - WITH 


11262 


15 


03861 


OOOOJ 


16640 




TDM 


SMODE,., RESET STARTING MOOE SWITCH 


11274 


15 


09104 


00000 


14650 




TR 


OUT.CLERER, , CLEAR 


11286 


31 


02218 


02715 


16660 




TR 


OUT^SO.CLERERM,, OUTPUT BUFFER 


11298 


31 


02268 


02716 


16670 




TFM 


DIGITS, OUT*L, INITIALIZE 


11310 


16 


09114 


-2219 


16680 




BNR 




11322 


45 


11346 


02809 


16690 




B 


DMSER1 


11334 


49 


12550 


00000 


16700 




TFM 


MOOE l+b, DMESD,, FIND STARTING MOOE 


11346 


16 


12724 


J1674 


16710 




BTM 


MOOE ••♦12 


11358 


17 


12670 


J1370 


16720 




BNF 


OMESA ,BSW, , ALPHA CHAR. IN FIELD, ASSUME ALPHA NODE. CHECK 


11370 


44 


11454 


09090 


16730 




TDM 


KLRLSW,l,ll 


11382 


15 


04007 


OOOOJ 


16740 




TO 


•♦23.AD0C0W,,T0 SEE IF ADDRESS OP PRGRAMMER OR PROCESSOR 


11394 


25 


11417 


02674 


16750 




TO 


•♦23, JSTBL,, ASSIGNED PROCESSOR IF NO BRANCH FROM PREV INST. 


11406 


25 


11429 


02459 


16760 




AM 


ADDCOW,, 10, ADJUST LOCATION COUNTER 


11418 


11 


02674 


000-0 


16770 




TF 


AODRS,AODCOW,, SET AOORESS OF MESSAGE TO 2N0 DIGIT 


11430 


26 


03494 


02674 


16760 




SM 


ADOC0W,2,10, SET LOC COUNTER TO LOC BEFORE MESSAGE 


11442 


12 


02674 


000-2 


16790 


OMESA 


TFM 


MOOE 1+6, ONE SB, , SEARCH FOR COMMA 


11454 


16 


12724 


J1478 


16600 




BTM 


MOOE, MOOE,, ENDING FIELD 


11466 


17 


12670 


J2670 


16810 


ONE SB 


TDM 


MMOAL, , * SET SWITCH FOR ALPHA P. «... 


11478 


15 


09103 


00000 


16820 


0MSB1 


BTM 


OTR.OMESC, SCAN MESSAGE OPERAND 


11490 


17 


12784 


J 1 594 


16630 




AM 


DIGITS, I, 10, 


11502 


11 


09114 


000-1 


16640 




TF 


•♦16.0IGITS.* PREPARE TO MOVE IN 0 


11514 


26 


11532 


09114 


14850 




TR 


•0MS82-2 


11526 


31 


00000 


11571 


16860 




AM 


0IG1TS.2. 10. LEFT PAREN UPDATE DIGIT COUNT BY TWO 


11538 


11 


09114 


000-2 


16870 




TF 


•♦18.0IGITS,, ALLOW FOR CONTROL CHAR IN OUT PUT BUFFER 


11550 


26 


11568 


09114 


14860 




TDM 


... INSERT EVERYTHING EXCEPT FINAL CONTROL DIGIT 


11562 


15 


00000 


00000 


14890 




OSC 

0* 


2, •,•-2 


11571 




2 




16900 


DNSB2 


OSC 
7 


lt?t« 


11573 




1 




16910 




BNF 


ANAL. ANAL,, STRAY PAREN NOT FOUND IF BRANCH 


11574 


44 


10866 


10866 


16920 




8 


ANAL4... STRAY PAREN 


11584 


49 


11126 


00000 


16930 




OORG 


•-3 


11594 








16940 


DM E SC 


AM 


DIGITS. 2. 10. UPDATE DIGIT COUNT BY 2 


11594 


11 


09114 


000-2 


16950 




TF 


•♦18, DIGITS. . ALLOW FOR CHARACTER IN OUTPUT BUFFER 


11606 


26 


11624 


09114 


16960 




TF 


,INPUT*20,, MOVE CHARACTER FROM INPUT TO OUTfUt SUFP 


11416 


26 


00000 


02609 


16970 




SM 


•-4,1,10, SET UP ADDRESSES TO CLEAR FLAG 


11430 


12 


11624 


000-1 


16980 




TF 


•♦16, •-18,, ♦ CLEAR 


11442 


26 


11660 


11624 


16990 




CF 




11654 


33 


00000 


00000 


17000 




B 


0NSB1,., CONTINUE SCAN 


11444 


49 


11490 


ooooo 


17010 




DORG 


»-3 


11674 








17020 


DMESD 


BNF 


DMES1.BSW.. IS IT A PROGRAMMER SPECIFIEO AOORESS 


11474 


44 


11710 


09090 


17030 




TF 


AOORS.AOOCOW., NO. MOVE LOC. COUNTER INTO AOORESS LOC. 


11484 


24 


03494 


02674 


17040 




AM 


AOORS.1.10 


11494 


11 


03494 


000-1 



93 
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17030 


0MES1 


TON 


SHODE.1,10, SET SWITCH FOR MUM STARTING MOOE 


11710 


15 


09104 


000-1 


IT060 


0MSNM1 


TOM 


NMOAL, It lOt SET SWITCH FOR NUMERIC MOOE 


11722 


IS 


09103 


000-1 


17070 


ONSNUH 


BTM 


OTR tOME SI 1 1 1 SC AN MESSAGE OPERANO 


11736 


17 


12784 


J 1802 


17080 




AM 


DIGITS, 1,10, LEFT FAREN FOUNOt UPDATE DIGIT COUNT IV 2 


1174* 


11 


09114 


000-1 


17090 




TF 


•♦11, 01GITS, , ALLOW FOR CONTROL CHAR. IN OUTPUT BUFFER 


11798 


2* 


1177* 


09114 


17100 




TOM 


, ,. MOVE TO BUFFER 


11770 


15 


00000 


00000 


17110 




DSC 
1 


It* •• 


11781 




1 




17120 




BNF 


ANAL • ANAL V f STRAY FAREN NOT FOUNO IF BRANCH 


117*2 


44 


10866 


100** 


17130 




8 


ANAL4,,, STRAY FAREN 


1179* 


49 


1112* 


00000 


17140 




DORG 


•-3 


11802 








17150 


ONE S 1 1 


CM 


INPUT*20,79 t 10, CHECK TO SEE IF CHAR IS NUMERIC 


11802 


14 


02809 


000P9 


17160 




BH 


DMSER2 , 1 1 NOT NUMERIC t ERROR 


11814 


4* 


11954 


01100 


17170 




CM 


lNPUT+20,69, 10 


1182* 


14 


02809 


00009 


17180 




BH 


DNS 12 , 1 1 NUMERIC IF BRANCH 


11838 


4* 


11910 


01100 


17190 




CM 


INPUT^20,50,10, CHECK IF -OTMRU-9 


11850 


14 


02909 


OOONO 


17200 




BL 


DMSER2tt* NON-NUMERIC IF BRANCH 


118*2 


47 


11954 


01300 


17210 




CM 


INPUT*20*59tlO 


1187* 


14 


02809 


000N9 


17220 




BH 


DMSER2 , t t NOT NUMERIC IF BRANCH 


1188* 


46 


11954 


01100 


17230 




SF 


INPUT+20 


11898 


32 


02809 


00000 


17240 


DHS12 


AM 


DIGITS. 1. 10. UPDATE DIGIT COUNT BY ONE 


11910 


U 


09114 


000- 1 


17250 




TF 


•♦18, DIGITS, , ALLOW FOR DIGIT 


11922 


26 


11940 


09114 


17260 




TO 


,INPUT+20,. MOVE DIGIT TO OUT PUT BUFFER 


11934 


25 


00000 


02809 


17270 




B 


OMSNUM,,, BRANCH BACK TO CONTINUE SCAN 


1194* 


49 


11734 


00000 


17280 




OORG 


• -3 


11954 








17290 


DMSER2 


BTM 


DMSR2 .DMSNUM. , PUT END OF MESSAGE IN OUTPUT BUFFER 


1195* 


17 


12568 


J 1734 


17300 


DMES2 


TF 


•♦35, DIGITS,, NUMERIC TO ALFA MOOE CHANGE. 


119*6 


26 


12001 


09114 


17310 




SM 


•♦23.0UT41., SEE IF ALPHA STARTS IN EVEN LOCATION 


11978 


12 


12001 


-2219 


17320 




TFM 


DMSV,,, INIT. SAVE LOC WITH DIGIT COUNT 


11990 


16 


09109 


-0000 


17330 




BNF 


DMES2l,BSW.. SEE IF THERE IS A PROGRAMMER SPEC ADDRESS 


12002 


44 


12034 


09090 


17340 




A 


DMSV.ADDCOW, , NO, ADD LOC COUNTER FOR LOC OF LAST DIGIT 


12014 


21 


09109 


02*74 


17350 




B7 


DMES22 


12026 


49 


12062 




17360 


DMES21 


A 


DMSV, ADDRS,, ADD PROG ADDRESS FOR LOC OF LAST DIGIT 


12034 


21 


09109 


03494 


17370 




SM 


DMSV, 1,10, ADJUST FOR NUMERIC STARTING MODE 


12046 


12 


09109 


000- 1 


17380 




BD 


•♦24,SM0DE,, CHECK STARTING MODE 


12058 


43 


12062 


09104 


17390 




SM 


DMSV. 1,10, ADJUST FOR ALPHA STARTING MOOE 


12070 


12 


09109 


000-1 


17400 


DMES22 


TO 


•♦23, DMSV,, SEE IF CHAR WILL START IN EVEN LOC 


12082 


25 


12105 


09109 


1 7410 




TD 


EVODO^l, EVOOD 


1 2094 


25 


02470 


024*9 


17420 




BO 


DUE SB , E VODD+ 1 • , WILL START IN EVEN LOCATION 


12106 


43 


11478 


02470 


17430 




AM 


DIGITS, 1,10, INSERT 


12118 


I I V 


091 14 


000—1 


17440 




TF 


•♦18, DIGITS, ,- 


12130 


26 


12148 


09114 


17450 




TDM 


..11 


12142 


15 


00000 


0000- 


1 7460 




B 


DME SB 


12 154 


49 


11478 


uuuuu 


17470 




DORG 


• ♦1 


12166 








17480 




DC 


2,-0, »-3 


12162 




2 




17490 




DC 


3,2»,« 


12165 




3 




17500 


DHERIN 


-2« 
TOM 


OUT^lOO,, PUT IN NUMERIC 


12166 


15 


02318 


00000 


17510 




DC 




12177 




I 




17520 




TDM 


0UT+101... END OF MESSAGE 


12178 


15 


02319 


00000 


175 30 




DC 
• 


US* 


12189 




1 




17540 




B 


DMERIC 


12190 


49 


12250 


00000 


17550 


DMER1A 


TFM 


0UT*10U.B. CLEAR LAST FOUR DIGITS FOR END OF MESSAGE 


12202 


16 


02319 


0-000 



9 4 
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17560 




CF 


0UT+98 


12214 


33 


02316 


00000 


17570 




TDM 


0UT»99, ,,MOVE RM FOR 


12226 


15 


02317 


00000 


17580 




DC 


lt'.» 


12237 




1 




17590 




TDM 


OUTMOl 


12236 


15 


02319 


00000 


17600 




DC 
t 


US* 


12249 




1 




17610 


DMERIC 


TFM 


DIGITS, 100,, SET DIGIT COUNTER TO 100 


12250 


1* 


09114 


-0100 


17620 




B 


• ♦96 


12262 


49 


12358 


00000 


17630 


DMSEND 


CM 


DIGITS, Oimi,, CHECK IF OPERAND PRESENT 


12274 


14 


09114 


-2219 


17640 




BNE 


•♦60, ,, ERROR IF NO MESSAGE OPERAND PRESENT 


12286 


47 


12346 


01200 


17650 




BD 


DMSER 1 , SMOOE , , CHECK MOOE 


12298 


43 


12550 


09104 


17660 




TFM 


0UT*5,,, MOVE IN ALPHA END OF MESSAGE 


12310 


16 


02223 


-0000 


17670 




DC 


2,',»-2 


12319 




2 




17680 




DSC 


2,«,»-l 


12320 




2 




17690 




0* 
CF 


0UT^2 


12322 


33 


02220 


00000 


17700 




TFM 


DIGITS, 0UTM01 


12334 


16 


09114 


-2319 


17710 




SM 


DIGITS, OUm,, SUBTRACT STARTING LOCATION OF 0/P BUFFER 


12344 


12 


09114 


-2219 


17720 




TF 


LSTAD .DIGITS,, MOVE DIGIT COUNT FOR OUTPUT 


12358 


2* 


03883 


09114 


17730 




AM 


LSTAD .1,10, AOD 1 FOR RT LOC +1 


12370 


11 


03883 


000- 1 


17740 




BNF 


DMEND1.BSM.. CHECK FOR PROGRAMMER SPECIFIED ADDRESS 


12362 


44 


12430 


09090 


17750 




A 


LSTAD ,ADDCOW,,FORM RT LOC+1 


12394 


21 


03883 


02*74 


17760 




A 


ADDCOW, DIGITS,, UPDATE LOC COUNTER TO LAST DIGIT OF CONSTANT 


12406 


21 


02*74 


09114 


17770 




8 


DMEN02 


12418 


49 


12478 


00000 


17780 


DMEND1 


A 


LSTAD .ADDRS. , INITIALIZE LEFT MOST WITH PROG SPEC ADDRESS 


12430 


21 


03883 


03494 


17790 




SM 


LSTAD .1.10, AO JUST FOR NUMERIC STARTING MODE 


12442 


12 


03883 


000-1 


17800 




BD 


•♦24.SM0DE,. CHECK IF STARTING MOOE ALPHA 


12454 


43 


12478 


09104 


17810 




SM 


LSTAD ,1.10. UES, ADJUST FOR ALPHA STARTING MOOE 


1246* 


12 


03883 


000-1 


17820 


DMEND2 


TF 


FRSTAD , LSTAD ,, FORM LEFT MOST 


12476 


26 


03873 


03683 


17830 




S 


FRSTAD .DIGITS*. ADDRESS 


12490 


22 


03673 


09114 


17840 




TF 


LNTH, DIGITS. , INITIALIZE LENGTH LOC 


12502 


26 


02387 


09114 


17850 




NOP 


MES0UT*6,INPUT2*5 


12514 


41 


10064 


03266 


17860 




NOP 


MESOUT+U.OUT+2 


1252* 


41 


100*9 


02220 


17870 




BTM 


GEET.PCONF 


12536 


17 


09252 


JS066 


17880 


DMSER1 


BTM 


DMSR2 »DMSEND*60» , , , PUT END OF MESSAGE IN OUTPUT BUFFER 


12350 


17 


125*6 


J2334 


17890 




OS 


5 


125** 




5 




17900 


0MSR2 


AM 


DIGITS, 1,10 


125*6 


11 


09114 


000-1 


17910 




TF 


•♦18, DIGITS 


12560 


26 


12598 


09114 


17920 




TOM 


... INSERT 


12992 


15 


00900 


00000 


17930 




OC 
i 


US* 


12*03 




1 




17940 




AM 


DIGITS. 1, 10 


12*04 


li 


09114 


000-1 


17930 




TF 


•♦18. DIGITS 


12*1* 


2* 


12*34 


09114 


17960 




TOM 


••• INSERT 


12*2* 


13 


00000 


00000 


17970 




OC 
i 


US* 


12*39 




1 




17980 




TF 


•♦18.DMSR2-1 


12*40 


2* 


12*96 


125*7 


17990 




6 




12*91 


♦9 


00000 


00000 


18000 




OC 
«... 


3.-0S* 


12**3 




3 




180 10 




OC 


5.0 


12**6 




5 








-0000 










19020 


MOOE 


TR 


INPUTM9,INPUT*2U. MOVE INPUT RfCORO LIFT 1 CNAR 


12*70 


ft 


02806 


02610 


18O30 




BNR 


• ♦24.INPUU20...NOT BLANK, CHECK FOR MM 


12*62 


49 


1270* 


02809 
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I SO 44) 




9 


DMSENO+34 


1 2494 


22 


12310 


AAA A A 
UUUUU 


I §096 




CM 


IWPvT*2Q,29f 10s SEARCH fikIPi 4»«st» ran UU«N» 


12704 


14 




0?J0A 


19049 


RODf 1 


BE 


••• COMMA FOUND, BRANCH 


12718 




AAAAA 




19070 




CM 


INPUmO,,lO, COMMA NOT FOUND* CHECK FOR BLANK 








AAA- A 
a?*Za 


19090 




9E 


MODE,,, BLANK , CHECK NEXT CHARACTER 


1274? 


46 


12670 


01 200 


19090 




TF 


•♦16,N00E-1 , ,, ALFHA CHAR IN FIELD, RETURN, OR CHECK 






12772 




1 9100 




9 


,,, NEXT CHAR. ACCORDING TO BRANCH 


12744 


49 


AAAAA 
uuuuu 


AA AAA 


191 10 


• SU9R0UTINE 70 SHIFT ONE CHARACTER TO THE LEFT IN INPUT BUFFER 










19120 




OS 


5 


12792 




■ 




19130 


OTR 


TR 


INPUT+19, INFUT+21 , , MOVE OPERANO LEFT 1 CHAR ♦ SEARCH 


1 2794 


31 




1 A 


19140 




TF 


DMSVtOIGITS, * CHECK NUMBER OF DIGITS 


12794 




aoi no 


AO 1 14 
Til a 


19190 




SN 


DNS V, OUT* 1 


12808 


• f 


AOI AO 

no! no 


~2219 


19140 




CM 


OMSV, 100,9, CHECK DIGIT COUNT 


12B20 


14 




OOJOO 


19170 




8NH 


•♦34, t, LESS THAN 100, QKAYf ERROR IF NO 9RANCH 


1 2832 


21 


i 

\~~ 




19190 




90 


DNERlNtNMOAL, , TEST SWITCH FOR NUM OR ALPHA, NUN IF 9R 


1 2844 


2a 


12166 


09103 


19190 




9 


DMER1A, , , ALPHA IF BRANCH FRM HERE 


12454 


2c 


12202 


AAAAA 

UUUUU 


19200 




9NR 


•♦20,IMPUT^20, , FOR RM 


1 2448 


2 


12888 


02809 


19210 




97 


ONSENO 


12990 


49 


12274 




19220 




CM 


INPUT«20,4,10, CHECK FOR STRAY RT PAREN 


12888 


14 


02809 


000-4 


19230 




9NE 


•♦44,,, NOT A STRAY PAREN IF BRANCH 


12900 


47 


12944 


01200 


19240 




SF 


ANAL,,, SET SWITCH FOR STRAY PAREN FOUND 


12912 


32 


10866 


00000 


19290 




90 


DHSMUHH2,NM0AL.» SCANNING IN NUMERIC MODE IF BRANCH 


12924 


43 


1 1 746 


09103 


19240 




97 


0MSBU12,,, SCANNING IN ALPHA MOOE 


12914 


2? 


1 1 502 




19270 




CM 


INPUT+20,24,10. CHK FOR LEFT PAREN 


12944 


14 




A 


19290 




BNE 


•♦24,,, NOT A LEFT PAREN 




21 


?2980 


01200 


19290 




99 


,,, , LEFT PAREN FOUND 


1 2968 


42 


A AAA A 
00000 


AAAAA 
00000 


19300 




TF 


•♦16,0TR-1,, NOT A ( , ,0R ERROR 


1 2980 


26 


12998 


12781 


19310 




9 


,,, RETURN 


12992 


49 


00000 


00000 


19320 


• 














19330 




EVALUATE LENGTH OF OAC 










18340 


• 














18150 


DACF 


BTM 


SCAN, •♦12 


1 3004 


I 7 


06076 


J 30 . 


18340 




CM 


A0DRS,5l 


1 3016 


I 4 


03494 


-00 . 


18170 




BNN 


ERDAC 


1 3028 


*6 


1 3792 


0 1 300 


18180 




A 


ADDRS,ADDRS 


1 3040 


2 I 


03494 


03494 


18190 




TF 


TEMPR,ADDRS 


1 3052 


26 


0257 I 


03494 


18400 




BNR 


•♦20, INPUT*20 


1 3064 


45 


1 3084 


02809 


18410 




87 


• ♦20 


1 3076 


49 


13096 




18420 




BNR 


DAC2, INPUT+22 


13084 


45 


13144 


02811 


18430 




CM 


ADDRStO 


I 3096 


14 


03494 


— 0000 


18440 




BH 


ER0AC1 


1 3108 


46 


1 3884 


01 100 


18450 




TFM 


INPUT*22 


1 3120 


16 


028 1 1 


-0000 


18440 




OAC 


!,•,• 


13131 




1 


X 2 


18470 




TFM 


INPUT^20,23, 10 


1 3 1 32 


16 


02 809 


000K3 


18480 


0AC2 


TFM 


•♦35, INPUT*19 


I 3144 


16 


1 3 I 79 


-2808 


18*90 




A 


•♦21, TEMPR 


1 3156 


2 I 


13179 


02571 


18500 


CHVALD 


TR 


0UT^2 


13168 


31 


02220 


00000 


18510 




BNR 


•♦20,0UT^1 


I 3180 


45 


1 3200 


02221 


18520 




87 


ERDACM2 


13192 


49 


1 3804 








BNR 


•♦20,0UT+5 








02223 


18940 




87 


• ♦12 


13212 


49 


13244 




18550 




CM 


QUT^5,21,10 


13220 


14 


02223 


000K3 


185*0 


STCKAR 


BNE 


ERDAC+12 


13232 


47 


13804 


01200 


18570 




TO 


STCHAR*U,0UT^5 


13244 


25 


13243 


02223 


18590 




AM 


CHVALDMl,3 


13256 


11 


13179 


-0003 



96 
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18590 




TFM 


CHVALDm,,6lO 


13268 


16 


1317R 


000-0 


19400 




DC 


1,«,» 


11279 




1 




19410 




CM 


0UTO,14,10 


13280 


14 


02221 


O00L4 


14420 




9NE 


• ♦60 


13292 


47 


13352 


01200 


14630 




TOM 


DUMP1>11,0,11 


13304 


15 


03521 


0000- 


19440 




TF 


• ♦30,CHVALDMl 


13316 


26 


13346 


13179 


19490 




SM 


•♦18,2,10 


13328 


12 


13346 


000-2 


19440 




TFM 


,,10 


13340 


16 


00000 


000-0 


19470 




DC 




13351 




1 




19490 


STCMA1 


TR 


OUT^2,INPUT^2l 


13352 


31 


02220 


02810 


19490 




TF 


• ♦35.CMVALDMI 


13164 


26 


13399 


11179 


19700 




AM 


•♦21, 1 


11176 


11 


13399 


-0001 


18710 




TR 


INPUTS I 9 


11188 


31 


02808 


00000 


X8720 




TFM 


•♦42.0UT+4 


11400 


16 


13442 


-2222 


J 8730 




A 


•♦10, TEMPR 


11412 


21 


13442 


02571 


19740 




SM 


•♦18,2,10 


13424 


12 


13442 


000-2 


18T90 




CF 




11436 


33 


00000 


00000 


18760 




CM 


•-6,0UT*4 


11448 


14 


13442 


-2222 


19770 




M 


•-36 


13440 


46 


13424 


01100 


19790 




BNR 


DACl.STCHARMl 


13472 


45 


13600 


13243 


19740 


• 


ADDRESS ASSIGNEO BY PROCESSOR 










19900 


• 














19910 


NO SINE 


TO 


•♦23,A0DC0U 


13484 


25 


13507 


02674 


189380 




TS 


•♦23.JST9L 


13494 


25 


13519 


02459 


19990 




AM 


A0DC0M,,10 


13508 


11 


02674 


000-0 


19040 




TF 


ADOAS.ADOCOM 


13520 


26 


03494 


02674 


10090 




A 


AOOCOM, TEMPR 


13532 


21 


02674 


02571 


19000 




%n 


AOOCOM,2,10 


13544 


12 


02674 


000-2 


19470 




TF 


LNTH« ADDCQW 


13554 


26 


02387 


02674 


19000 




BO 


•♦24,INT9UF^5 


13548 


43 


13592 


03607 


19090 




TF 


A008$,A00C0W 


13580 


26 


03494 


02674 


19900 




87 


DAC4 


13992 


49 


13648 




19910 


OAC 3 


8TM 


SCAN,«M2 


13400 


17 


06076 


J3612 


199*0 




80 


N0SINE.8SM 


13412 


43 


13484 


09090 


14910 




?D 


KLRLSW.RLOCSM 


13424 


25 


04007 


07992 


19940 




TF 


LNTH, AODRS 


13634 


26 


02387 


03494 


19490 


0AC4 


TF 


FRST40 , AODRS 


13648 


26 


03873 


03494 


19940 




SN 


FRSTAO ,1 


13440 


12 


03873 


-0001 


19970 




TF 


LSTAO, FASTAD 


13672 


26 


03883 


03873 


19900 




A 


LSTAO , TEMPR 


13484 


21 


01881 


02371 


19990 




BD 


®*7f,INTBUF#§ 


13496 


43 


13768 


03607 


19000 




TF 


LSTAO , AODRS 


13704 


24 


01883 


03494 


19010 




m 


LSTAO ,1 


13720 


11 


03883 


-0001 


19020 




TF 


FRSTAO, LSTAO 


13732 


26 


03873 


03883 


19090 




s 


FRSTAO , TEMPR 


13744 


22 


03873 


02571 


19040 




TF 


AODRS, LNTM 


13736 


26 


03494 


02387 


190*0 




TF 


LNTH, TEMPR 


13748 


24 


02387 


02571 


19000 

190 TO 




BTM 


Git TtPCONF 


11780 


17 


09252 


J5086 


EROAC 


TFM 


TEMPR, 100 


13792 


16 


02571 


-0100 


19000 




TFM 


■•♦ SO, INPUT* 2 2 


13904 


16 


13834 


-2811 


1909® 




A 


•♦19, TEMPR 


13914 


21 


11814 


02571 


19100 


04CS 


FFM 




13928 


14 


00000 


-0000 


191 10 




OAC 

$ 


!*»,• 


11939 




I 


X 2 



a? 
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19120 


SN 


DACS*A«2,10 






1 3840 


12 


1 3834 


000—2 


1 9 U0 


BNR 








! 




i *i*M 




19140 


TON 


DAC5* A«0, 6 






1 3 BAA 


13 


i ?af n 


00000 


19130 


B7 


OAC 5* 12 






1 3B76 


t? 






19160 


ERDAC1 TFM 


• ♦42, INPUT*22 






1 3884 


1 A 


1392 A 


—2811 


191 70 


TF 


NOS I Nt- 3 7 1 ADD* 5 






1 3 89 A 








19180 


SM 


NOSlNE-37,2,10 






13908 


12 


13447 


000-2 


19190 


TFM 


.70,10 






13920 


IA 


00000 


OOOPO 


19200 


AH 


•-6,2, 10 






1 3932 


1 1 




000—2 


19210 


CM 


NOSINE-37 






13944 


14 


13447 


-oooo 


19220 


ONE 


EADACU24 






1 395 A 


47 


13908 


01200 


19230 


TF 


•♦18iERDACI*42 






139A8 


26 


139BA 


1392 A 


19240 


TFM 








13980 


16 


00000 


-0000 


19250 


OAC 


!»• »• 






13991 




1 


X 2 


19260 


8 


CHVALD-24 






13992 


49 


13144 


00000 


19270 


MIO DSC 


2,-16 






14004 




2 




19280 


10 
DSA 


IORT ,00023 






14010 




3 


X 2 












14010 




-0565 














14015 




-0023 




19290 


DSC 


2,49 






14016 




2 




1 9300 


49 
DSA 


•-• ,00000 






14022 




5 


X 2 












14022 




-0000 














14027 




-0000 




19310 


OSC 


It 1 






14028 




1 




19320 


• • GET PUT 


LINKAGE GENERATION 














19330 


LINKS TO 


•♦23»ADDC0W, , 


ADJUST 


ADDCOW 


14030 


25 


14053 


02674 


19 3*0 


TO 


•♦23, AJUST 






14042 


25 


14065 


02399 


19350 


AM 


ADDCOW, , 10, 






14054 


11 


02674 


000-0 


19360 


A 


MIO *1 1 , ADDCOW, , 


RETURN 


ADORESS 


14066 


21 


14015 


02674 


19370 


TF 


MIO ♦IS, INTBUF*6, , 


SET UP 


BR TO IOR 


14078 


26 


14022 


03608 


19380 


BTM 


SCAN, »*12 






14090 


17 


06076 


J4102 


19390 


TF 


MIO ^23, AODRS 






14102 


26 


14027 


03494 


19400 


BNF 


• ♦24, RLOC SW 






14114 


44 


14138 


07992 


19410 


SF 


MIO *13 






14126 


32 


14017 


00000 


19420 


TF 


FRSTAO, ADDCOW 






14138 


26 


03873 


02674 


19430 


TF 


LSTAD, ADDCOW 






14150 


26 


03883 


02674 


19440 


AM 


LSTA0,24, 10, 


SET TO 


TOTAL LENGTH 


14162 


11 


03883 


000K4 


19450 


AM 


ADDCOW, 23, 10, 


UP ADDCOW TOTAL LENGTH 


14174 


U 


02674 


000K3 


19460 


CF 


MIO *2 






14186 


33 


14006 


00000 


19470 


CF 


MIO ^14 






14198 


33 


14018 


00000 


19480 


TR 


2EP0,MI0 






14210 


31 


02300 


14004 


L9490 


TF 


ADDRS, FRSTAO 






14222 


26 


03494 


03873 


1 9500 


TFM 


X , PHA SEB 






14234 


16 


04012 


—4 1 82 


19510 


BTM 


GEET,LINP 






14246 


17 


09252 


J5098 


19520 


•* GET PUT 


LINKAGE GENERATION END 














19530 


CALEXT TO 


•♦23, ADDCOW 






14258 


25 


14281 


02674 


19540 


TD 


•♦23,AJUST 






14270 


25 


14293 


02399 


19550 


AM 


ADDCOW, , 10 






14282 


11 


02674 


000-0 


19560 


TFM 


MIO ♦l8,M0NCALt, 


BRANCH 


TO MONCALL IN IORT 


14294 


16 


14022 


-0796 


19570 


CF 


MIO »14 






1 4 30 A 


33 


14018 


00000 



98 
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11,1963 








PAGE 


19580 




CF 


MIO+19 




14318 


33 


14023 


00000 


19590 




TR 


ZEPO.MIO ♦12,, 


BRANCH INSTRUCTION 


14330 


31 


02300 


14016 


19600 




TF 


AODRS, ADDCOW 




14342 


26 


03494 


02674 


19610 




AM 


ADDCOW, 06, 10, 


87 


14354 


11 


02674 


000-6 


19620 




BTM 


GEET, L INP 




14366 


17 


09252 


J 5098 


19630 


• 


LOAD PHASE 84 TO THE FILE 












19640 


F4 


34 


SUB4.701 




14378 


34 


14426 


00701 


19650 




38 


SUB4,702 




14390 


38 


14426 


00702 


19660 




TRA 






14402 


36 


00000 


00500 












14414 


49 


00000 


00000 


19670 


SUB4 


DDA 


,0,B4DAD,B4SCT,LINPRT 




14426 




14 








0J9069-53-9310 












19680 




TCD 


F4 




14378 








19690 




DORG 


INSTRN 




12734 








19700 


RCTAB 


BNF 


•♦36,LSTYSW 




12734 


44 


12770 


02480 


19710 




RCTV 






12746 


34 


00000 


00102 


19720 




TBTY 






12758 


34 


00000 


00108 


19730 




B8 






12770 


42 


00000 


00000 


19740 




DORG 


• -9 




12772 








19750 




DC 


5,12345 




12776 




5 








J2345 












19760 


LINKC 


TFM 


LINPRT-l.DOCON 




12778 


16 


09309 


-9582 


19770 




BT 


LINKER, LINKC-l 




12790 


27 


12922 


12777 


19780 




OS 


5 




12806 




5 




19790 


LINKCR 


BT 


RCTAB, RCTAB- 1 




12B08 


27 


12734 


12733 


19800 




BT 


LINKC, LINKCR-l 




12820 


27 


12778 


12807 


19810 




DS 


5 




12836 




5 




19820 


LINKO 


TFM 


LINPRT-l.POSA 




12838 


16 


09309 


-9778 


19825 




TFM 


CHSYM^ll,DSABOX-l 




12830 


16 


09897 


-9090 


19830 




TFM 


LNTH, 5 




12BA2 


1A 


02387 


-0005 


19840 




BT 


LINKER, LINKD-l 




12874 


27 


12922 


12837 


19850 




DS 


5 




12890 




5 




19860 


LINKDR 


BT 


RCTAB, RCTAB- I 




12892 


27 


12734 


12733 


19870 




BT 


LINKO, LINKDR-l 




12904 


27 


12838 


12891 


19880 




DS 


5 




12920 




5 




19890 


LINKER 


TR 


2EP0M,0UT*2 




12922 


31 


02301 


02220 


19900 




TF 


FRSTAO, LSTAD 




12934 


2A 


03873 


03883 


19910 




A 


LSTAD, LNTH 




1294A 


21 


03BB3 


02387 


19920 




TF 


AODRS, FRSTAO 




1293B 


2A 


03494 


03873 


19930 




TF 


X.LINKER-l 




12970 


2A 


04012 


12921 


19940 




BTM 


CVACT.LINPRT 




I29B2 


17 


12398 


-9310 


19930 


MIOCS 


OSC 


2,-lA 




1299A 




2 




19960 




10 
DSA 


IORT ,00023 




13000 




5 


X 2 












13000 




-03A3 














13009 




-0023 




19970 




OSC 


2,49 




1300A 




2 




19980 




49 

OSA 


I OCT ,00000 




13012 




5 


X 2 












13012 




-03AA 














I SOI 7 




-0000 




19990 




OSC 


I,' 




13018 




1 





99 
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20*60 


HiUKI 




01214 






11021 




5 


X 1 














11022 




-1234 




20810 




DSC 


!»• 






11024 




1 




10020 


B8UK2 


OSA 


01214 






11029 




5 


X 1 














11029 




-1214 




20010 




DSC 
t 


It* 






13010 




1 




20040 


HOUR 2 


osc 


2.12 






UOll 




2 




20090 


MOM 


12 

OK 

• 


!.• 






13013 




1 




20000 


MOIGIT 


DSC 
1 


l.l 






11014 




I 




200 TO 


opism 


oc 


1.0 






13039 




I 




20000 


ADMKT 


DC 


5.12149 






13040 




5 








J2S45 














20090 


SVAOO 


DC 
J2 


2.12 






13042 




2 




20100 


N20IC 


OC 


2.12 






13044 




2 




201 10 


MAC ft 2 


J2 
CP 


0P3SW 






13044 


33 


13035 


00000 


20120 




c 


•♦23,IMPUT*14 






13056 


24 


13081 


02803 


20110 




•1 


REG.01244,10. 


0 DISK 


OEFINERS 


13070 


46 


13450 


012M4 


20140 




c 


•♦23,INPUT*14 






I 3082 


24 


13105 


02805 


20190 




•I 


CAL. 01251, 10. 


L CALL 


LINK LOAD 


13094 


44 


14192 


012N3 


20140 




c 


•♦23,INPUT*12 






13104 


24 


13129 


02801 


70170 




•Ml 


LINKS.01244.10, 


D OTMEP 


OEFINERS 


13UB 


47 


14030 


012M4 


20180 


• • CARD TAPE TYPE OEFINERS 














20140 




iTM 


SCAN,»*12 






13130 


17 


06076 


J3142 


20200 




•0 


MOOPP.BSM 






13142 


43 


13198 


09090 


20210 




TO 


KLPLSU.PLOCSW 






13154 


25 


04007 


07992 


20220 




TFM 


SVA00.O0.10 






1 3164 


16 


13042 


000-0 


20210 




TP 


A0DBKT,AD0R$,, 


PROGRAMMER ASSIGNS ADDRESS 


1 3178 


26 


13040 


03494 


20240 




87 


GO 






I 3190 


49 


13234 




20250 


NOOPP 


TP 


ADD8KT,AO0C0W 






13198 


26 


13040 


02674 


20240 




TFM 


SVA00.0B.10 






13210 


16 


13042 


000-8 


20270 




AM 


AOOOPT, 01,10 






13222 


11 


13040 


000-1 


20210 


GO 


TP 


INPUT»19.INPUT*2l 






13234 


31 


02808 


02810 


20240 




BTM 


SCAN, •♦12,, 


LOOK UP 


MEMORY ADDRESS 


I 3246 


17 


06076 


J3258 


20300 




TF 


MBUK1 ,A0DPS 






1 3258 


26 


13023 


03494 


20310 




TP 


0UT*2,MBUKl-4 






13270 


31 


02220 


13019 


20320 




TF 


ISTAO.AOOIKT 






13282 


26 


03883 


13040 


20330 




TFM 


LMTH. 00009 






13244 


16 


02387 


-0005 


20340 




TO 


OSABOX,PLOCSW 






13306 


25 


09091 


07992 


20350 




TOM 


INT8UF.1 






13318 


15 


03602 


00001 


20360 




TP 


ZEP0*l,0UT*2 






13330 


31 


02301 


02220 


20370 




BTM 


LINKD,»*12 






13342 


17 


12838 


J3354 


20310 




SF 


INT8UF+5,,, 


START MO GENERATION 


13354 


32 


03607 


00000 


20 390 




TF 


M0UK3*1,INTBUF44 






1 3366 


26 


13032 


03608 


20400 




TP 


OUT*2,MBUK3 






13378 


31 


02220 


13031 


20410 




TFM 


LMTH, 00001. 






13390 


16 


02387 


-0003 


20420 




TOM 


DUNPl*11.0,ll. 






13402 


15 


03521 


0000- 



1 0 0 



SPS II-D PHASE B JULY 11,1963 PAGE 42 



20430 




A 


AOOCOM, SVAOO 




13414 


21 


02674 


13042 


20440 




BTM 


LINKCP,»*12 




13426 


17 


12808 


J3436 


20490 




BTM 


GEET. PHASES 




13436 


17 


09252 


-4182 


20440 




END OF CAPO TAPE TYPE OEFINERS 












20470 




OISK PILE DECLARATIVES NOT CALLS 












20480 


PES 


BTM 


SCAN, 12 




13490 


17 


06076 


J3462 


20490 




TO 


OPiSN.esN 




13462 


25 


13035 


09090 


20500 




BO 


N@T0P.6SW 




13474 


43 


13530 


09090 


20510 




TO 


KLPLSU.PLOCSM 




13484 


25 


04007 


07992 


20§« 




TFM 


SVADO.00,10 




13498 


16 


13042 


000-0 






TP 


AOOBKT.AOOPS,, 


PROGRAMME R ASSIGNS ADDRESS 


13510 


26 


13040 


03494 


20940 




8 


GONOM 




13522 


49 


13566 


00000 


2mm 




OOftG 






13529 








20940 


Wf8? TF 


AOOBK T , ADOC ON 




13510 


26 


13040 


02674 


20570 




TFM 


SVADO.08,10 




13542 


16 


13042 


000-6 


20580 




AM 


AODBKT, 01.10 




13554 


11 


13040 


000-1 


20540 


GA 


ON fi 


INPUT*19,!NPUT*21 




13566 


31 


02808 


02810 


20400 




SF 


1NTBUP*9 




13578 


32 


03607 


00000 


20410 




TF 


M0OKl*l,I«TBUF>6,, 


CODE MM FLAG M 


13590 


26 


13032 


03608 


20420 




ITM 


SCAN, •♦12 




13602 


17 


06076 


J3614 


20410 




TF 


PJ0UK1 .BOOBS. » 


LOAD ADO OF DOA 


13614 


26 


13023 


03494 


20040 




TO 


MOIGIT.OLOCSH 




13426 


25 


13034 


07992 


20450 




TO 


INPUTS 19 .INPUTS 2 I 




13618 


31 


02808 


02610 


20440 




OTP 


SCAN. •♦12*. 


SCAN FOB 2ND OPERAND 


13650 


17 


06076 


J3662 


20470 




80 


• ♦SB.OMSM 




13662 


43 


13698 


13035 


20480 




80 


•♦24.0SM 




13674 


43 


13698 


09090 


20490 




AM 


SVAOO .09.10, 


UP AOOCOM FOB 3 OPERANDS 


12466 


11 


13042 


000-5 


20700 




TO 


OP3SM,6SW,, 


SET lOm LINK SNITCH 


13698 


25 


13035 


09090 


20710 




TF 


Nt4W2t400tS.. 


LOAD RELOCATION AOOPESS 


13710 


26 


13029 


03494 


20720 




TEST FOR 


AIM &§P*SSI7I0« 












20720 




TO 


INPUTS*, INPUU21 




13722 


31 


02806 


02610 


20740 




Of N 


L$fXAft«»*U.s 


PICK UP ISO &&mmm. 


11714 


17 


15044 


J 3 744 


20790 




TF 


M20IG.LCMAP 




11744 


24 


12044 


15177 


2®im 




TO 


INPUT* I 4, INPUT* 2 I 




11758 


31 


02808 


02610 






TEST FOft 


AosoLure sec top aoopess 












20780 




ITM 


ISTCA*.*U2.. 


PICK UP 4TH OPERAND 


13770 


17 


15044 


J3782 


20790 




e 


•♦22.LCHAA 




13792 


24 


13805 


15177 


fooo© 




Ml 


•♦24.01241.10. 


TEST FOP A ABSOLUTE 


13794 


47 


13816 


012M1 


23*10 




TDM 


N8UK2»2.U 




13806 


15 


11011 


OOOOK 


2miQ 




C 


•♦21.H20I6 




13818 


24 


11641 


13044 


208 SO 




81 


EN. 01199* 10 




11810 


46 


11854 


012N9 


2O»«*0 




CP 


M9UK3 




11642 


21 


11031 


00000 


20950 


EH 


TO 


0UT*2,«0U*2,, 


FIBST OPE B A NO TO LIST 


12894 


11 


02220 


11031 


20840 




TF 


LSTAO.AOMKT 




11664 


24 


03863 


11040 


20870 




AH 


A©#SSf«OJ.l§ 




11878 


11 


13040 


000-2 


20860 




TFM 


LJ*TH. 02 




13890 


14 


02387 


-0002 


20840 




BTM 


L!«PXt»»i2 




13902 


17 


12778 


J2914 


20900 




TP 


DUT«-2»9IOUKi-4f . 


SSCND SPIPAND TO LIST 


11914 


21 


02220 


13019 


20910 




TFM 






11924 


14 


02267 


-0005 


20920 




TO 


OSABOK.MOIGIT 




13928 


29 


09091 


13034 


20920 




TO* 


INTBUf.l 




13990 


IS 


02402 


00001 


20940 




ITM 


LINBM.^12 




11962 


17 


12692 


J3974 


20990 




§0 


NOT3.0PJSN 




12974 


43 


14024 


13035 


20940 




TP 


0UT*2.N8U*2-4,, 


TNI BO OPERAND TO LIST 


11984 


31 


02220 


13025 


20970 




TOM 


tWTOUP.l 




11998 


15 


02602 


00001 


20900 




TD 


OSASOX.RLOCSW 




14010 


25 


09091 


07992 



10! 
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20**0 


BTM 


LINKDR,»*12 




16022 


17 


12692 


J*034 


21000 


MOT 3 TR 


0UT»2,MRM, f 


RECORO MARK 


160)4 


31 


02220 


13033 


21010 


TFM 


LNTHtOl 




14046 


16 


02387 


-0001 


21020 


TOM 


OUMPlMltltlt 




14098 


IS 


03521 


OOOOJ 


21030 


A 


AODCOW.SVADD 




16070 


21 


02674 


13042 


210A0 


BTM 


LINKCR,»*12 




16082 


17 


12806 


J6094 


21050 


BTM 


GEETtPHA SEB 




16046 


17 


09252 


-*182 


21060 


♦ • END OF DISK DEFINE** 












21070 


GENERATE CALL LINK A NO LOAO 












21080 


AN DC 
t 


It' 




16106 




I 




21090 


FLDATA DSS 


*00,AH-*00 




13706 




400 




2 1 \ 00 


•••• ERROR 2ND OPERAND CALL NG 














DC 


5,123*5 




1*111 




5 






J23*5 












21120 


ER TFM 


EVALEA-2, 71780 




16112 


16 


0766* 


P1780 


21130 


BT 


EPRINT.EPRINT-l 




14126 


27 


0806* 


08063 


21 1*0 


BD 


C0RER3.ERSTSW 




1*136 


63 


07826 


02*76 


21150 


BNF 


•♦36,LSTYSW 




16168 


64 


14184 


02660 


21160 


RCTV 






16160 


34 


00000 


00102 


21170 


TBTY 






14172 


34 


00000 


00108 


2\ ; <?0 


Q 


ER-1, ,6 




1*184 


69 


141 IJ 


00000 


?l , l 'U 


OORG 


• -* 




1*191 








7 1/00 


CAl TO 


•♦23, ADDCOW, , 


AOJUST ADDCOW 


1*192 


25 


1*215 


0267* 


?1 '10 


TO 


•♦23, AJUST 




1*204 


25 


1*227 


02399 


?i??0 


AM 


ADDCOW,, 10 




1*216 


11 


0267* 


000-0 


,12 30 


TF 


MIOCS*U. ADOCOW,, 


RETURN AODRESS 


1*228 


26 


13005 


02674 


-M240 


AM 


MIOCS^II, 19,10, 


AOJUST AOORESS 


1*240 


11 


13005 


000J9 


?1250 


TFM 


MI0CS+18,I0CAL, , 


SET UP 88 TO I OR 


1*252 


16 


13012 


-0716 


21260 


BTM 


LSTCAR,»*12 




1*264 


17 


1506* 


J*276 


21270 


TFM 


MBUK3+1,32,10, 


COOE FOR REAO NO MLR 


16276 


16 


13032 


000L2 


21280 


C 


•♦23.LCHAR 




1*288 


24 


1*311 


15177 


21290 


8! 


•♦2*, 012**, 10, 


TEST FOR 0 IN LOAD 


1*300 


66 


14324 


012M4 




SF 


MBUK3+ 1 , , t 


EXECUTE 


1*312 


32 


13032 


00000 


21310 


TR 


INPUT+19,INPUT*21., 


SLIOE COMMA 


1432* 


31 


02808 


02810 




BTM 


PCALL,»+12 




14336 


17 


1518* 


J*3*8 


21330 




F0UN0*12,ALPHSW,, 


NO ALPHA INPUT 


16368 


6* 


14618 


155? J 


213*0 


REAO THE 


DIM ENTRY FOR EOUIV TABLE 










21350 


TFM 


I0RT,»^23 




16360 


16 


00565 


J*383 


21360 


B 


I0GT, DEFOIM, 7 




1*372 


*9 


00566 


J*39l 




B7 


CONTU 




1*386 


*9 


1**1* 




21380 


DEFOIM DSC 


2.22 




1*391 




2 




21390 


22 
OSA 


0FADD6 




1*397 




5 


x l 










1*397 




J*398 




21*00 


DFA0D6 DDA 


,0,DIMDAD,0 I MSCT, FLDATA 




1*398 




1* 






0-*800-0lJ3706 












21*10 


DC 
* 


1 , ' 




16412 




1 




21*20 


CONTU TF 


DFA0O*+5,FLDATA^*5,, 


EXTRACT EQUIV FILE ADDR 


1**1* 


26 


1**83 


13751 


21*30 


TO 


DF ADD*, FLOAT A+*0 , , 


EXTRACT EQUIV FILEMOOULE 


1*426 


25 


1**78 


137*6 


21**0 


• • REAO THE 


EQUIV TABLE FOR LOOK UP 












2l*S0 


ROEQIV TFM 


I0RT,«+23 




14438 


16 


00565 


J6461 


21*60 


B 


IOGT,DEFEO, 7 




16430 


49 


00566 


J**69 


21*70 


87 


GOON 




14462 


*9 


1**9* 
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21*80 


0EF6Q 


DSC 


2,22 




14469 




2 




21*90 




22 
DSA 


DFADO* 




1*475 




5 


X 1 












14475 




J**78 




21500 




DC 
• 


It* 




14476 




1 




21510 


DFA004 


DOA 


»0» EQOAD, EQSCT, FLDATA 




14478 




1* 








0-0000-06J3706 












21520 




DC 
• 


It* 




14492 




1 




21530 


GOON 


BNR 


• ♦**,FLDATAMl,, 


TEST END OF TABLE 


1**9* 


45 


1*538 


13717 


215*0 




TFM 


IDENT-2, 00000,, 


ZERO OUT EQUIV BUCKET 


1*506 


16 


15528 


-0000 


21550 




BTM 


ER,»+12, , 


OPERANO NOT FOUNO 


1*518 


17 


1*112 


J*530 


21560 




B 


F0UNO+12 




1*530 


49 


1*618 


00000 


21570 




DORG 


• -* 




14537 








21580 




C 


FLDATA+ll,C0LL-2 




14538 


24 


13717 


02*37 


21590 




BE 


FOUNO 




14550 


46 


1*606 


01200 


21600 




TR 


FLDATA, FLDATA+16 




14562 


31 


13706 


13722 


21610 




BNR 


GOON , FLDATA , , 


TEST END OF BLOCK 


14574 


45 


1**9* 


13706 


21620 




AM 


DFADD*+5,0*,10,, 


NEXT BLOCK 


14586 


11 


1*483 


000-* 


21630 




B7 


RDEOIV 




14598 


49 


1**38 




216*0 


FOUND 


TF 


IDENT-2, FLDATA+15, , 


LOAD EQUIV NUM 


14606 


24 


15528 


13721 


21650 




SF 


IDENT-5 




14618 


32 


15525 


00000 


21660 




TF 


MBUK I, IDENT-2 




14630 


26 


13023 


15526 


21670 




CF 


MBUK1-4 




14642 


33 


13019 


00000 


21680 




TR 


INPUT*19,INPUU21,, 


SLIOE COMMA 


14654 


31 


02808 


02610 


21690 




BTM 


SCAN,*+12 




14666 


17 


06076 


J*678 


21700 




TF 


MBUK2 , AODRS , , 


SAVE 380 0PE8AN0 


14678 


26 


13029 


03*94 


21710 


•• START TO 


OUTPUT 












21720 




TF 


FRSTAD, ADDCOW 




14690 


26 


03873 


0267* 


21730 




TF 


AODRS, ADOCOW 




14702 


26 


0349* 


02674 


217*0 




TF 


LSTAO, ADDCOW 




14714 


26 


03883 


02674 


21750 




AM 


LSTAO, 24,10, 


SET TO TOTAL LENGTH 


14724 


11 


03883 


000K4 


21760 




AM 


ADDCOW, 19, 10 




14736 


11 


02674 


000J9 


21770 




CF 


MIOCS+2 




14750 


33 


12494 


00000 


21780 




CF 


MI0CS*14 




14762 


33 


19008 


00000 


21790 




CF 


MI0CS+19 




14774 


33 


19013 


00000 


21600 




TR 


ZEPO.MIOCS 




14794 


31 


02300 


12994 


21810 




TFM 


X,»*24 




14796 


16 


04012 


J4622 


21620 




BTM 


LINPRT,D0INST 




14610 


17 


09310 


J0366 


21830 


• • OUT PUT 


CONSTANTS 












21840 




TF 


LSTAO, ADDCOW 




14622 


26 


03863 


02674 


21850 




AM 


ADOCOW, 07,10 




14634 


11 


02674 


000-7 


21660 




TPM 


LNTHt 07 




14644 


16 


02367 


-0007 


21670 




TR 


0UT*2#HBUR) 




14698 


31 


02220 


13031 


21680 




TR 


0UT+4,M6UKl-4 




14670 


31 


02222 


13019 


21890 




BTM 


LINKCR,**12 




14662 


17 


12606 


J4894 


21900 




80 


N03.BSM,, 


Tf ST MO OPIBANO 


14894 


43 


14976 


09090 


21910 




TR 


OUT ♦ 2, NBU* 2- *, , 


OUTPUT 980 0P1RAAW 


14906 


31 


02220 


13029 


21920 




TO 


OSABOXtftlOCSW 




16416 


29 


09091 


07992 


21930 




TOM 


INT8UP, 1 




14990 


19 


03602 


00001 


21960 




AM 


ADOCOW, 83, 10 




14941 


It 


02474 


000-9 


21450 




TPM 


LNTHt 09 




14994 


14 


02967 


-0009 


21960 




BTM 


LINK0B,»«12 




14944 


17 


12892 


J49T8 


21970 


NO) 


TR 


0UT*2»MftM 




14976 


31 


02220 
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2 1960 




TOM 


OUMPl+11,1,11 




14990 


15 


03521 


OOOOJ 






TFM 


LMTHf 01 




15002 


16 


02387 


-0001 


22000 




BTM 


LINKCR,»M2 




15014 


17 


12808 


J5026 


220 10 




BTM 


GEET, PHASES 




15026 


17 


09252 


-4182 


22020 




OC 


St 12345 




15042 




5 






J2345 












22030 


LSTCAR 


TFM 


LCHAR t 0t 10* 


BLANK IHt UNfc CHAR BUCKET 


15044 


16 


15177 


000-0 






BNR 


•♦20* INPUT*20 




-15056 


45 


15076 


02809 






87 


NOCAR 




15068 


49 


15156 








C 


•♦23* INPUT+20* * 


TEST BLANK 


1 50 76 


24 


15099 


02809 






81 


•♦48*01200*10* 




15088 


46 


15136 


012-0 


??nnn 




C 


•♦23, INPUT* 20,, 


tcct rnyyi 


15100 


24 


15123 


02809 


22090 




81 


NOCAR, 01223, 10, 




15112 


46 


15156 


012K3 


22100 




TF 


LCHAR, INPUT* 20, , 


SAVE LAST CHARACTER 


15124 


26 


15177 


02809 


22110 




TR 


INPUT+19,INPUT+21 




15136 


31 


02808 


02810 






87 


LSTCAR*12 




15148 


49 


15056 


221 30 


NOCAR 


TF 


•♦18»LSTCAR-1 




15156 


26 


15174 


15043 


22 1 AO 




8 


00000 




15168 


49 


00000 


00000 






DORG 


•-3 




15176 








22160 


LCHAR 


OC 
J 2 


2.12** 


LAST CHARACTER IN OPERAND 


15177 




2 




22170 




DC 


5.12345 




15182 




5 








J2345 












W . 


_ 

PCALL 


TR 


CQLL-18.THINGS-20 




15184 


31 


02421 


02400 


22 190 




TR 


ALPHSW, ZEROS., 


CLEAR BUCKET AND SWITCH OFF 


15196 


31 


15523 


15531 


22200 




BNR 


•♦20.INPUT+20, , 


RM 


15208 


45 


15228 


02809 


222 10 




87 


PCALL I 




15220 


49 


15448 




22220 




CM 


INPUT+20.23,10, 


COMMA 


15228 


14 


02809 


OO0K3 


22230 




BE 


PCALL I 




15240 


46 


15448 


01200 


22240 




CM 


INPUT+20,00, 10 




15252 


14 


02809 


000-0 


22250 




BE 


PCTR 




15264 


46 


15428 


01200 


22260 




TF 


C0LL,INPUT+20 




15276 


26 


02439 


02809 


22270 




CF 


COLL- I 




1528R 


V* 


02 43 a 


ocooo 


22280 




TR 


C0LL-17,C0LL~l.t> 




15300 


ik 


02422 


024? ♦ 


22290 




TO 


IDENT-1 , INPUT*20 




15312 


25 


15529 


02809 


22300 




TR 


IDENT-6, I0fcNT-5 




15324 


11 


15524 


15525 


22310 




CM 


INPUT*20,69, 10, 


TEST FOR ALPHA 


15336 


l*i 


02809 


00009 


22320 




BH 


• ♦24 




! 5348 


46 


15372 


01100 


22330 




TDM 


ALPHSW, I, 11 , 


SET ALPHA SW ON ' 


i vi60 


15 


15523 


OOOOJ 


22340 




CM 


COLL-17,7,10 




15372 


14 


02422 


000-7 


22350 




BNE 


PCTR 




15384 


47 


15428 


01200 


22360 




TR 


ALPHSW, ZEROS 




I 5396 


31 


15523 


15531 


22 370 




BTM 


ER,»*12 




15408 


17 


14112 


J5420 


22380 




B7 


MLCH 




15420 


49 


15516 




22 390 


PCTR 


TK 


INPUT+19, INPUT*21 




15428 


31 


02808 


02810 


22400 




P. 


PCALL*24 




15440 


49 


15208 


00000 


22410 




DORG 


•-3 




15448 








22420 


PCALL 1 


CM 


COLL-17,06,10 




15448 


14 


02422 


000-6 


22430 




BE 


#♦44 




15460 


46 


15504 


01200 


22440 




IOM 


COLL.O 










00000 


22450 




TR 


C0LL-17.C0LL-15 




15484 


31 


02422 


02424 


22460 




B7 


PCALL 1 




15496 


49 


15448 




22470 




SF 


COLL-13 




15504 


32 


02426 


00000 


22480 


ZILCH 


B 


PCALL-1,,6 




15516 


49 


1518L 


00000 


22490 




DORG 


•-4 




15523 








22500 


ALPHSW 


DC 


1,0 




15523 




1 
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22510 


IOENT 


DC 


7,000000* 


15530 




7 








-00000* 










22520 


ZEROS 


DSC 


8,0000000* 


15531 




8 








0000000* 










22530 


• TO 


LOAD 


PHASE 86 TO THE DISK FILE 










22540 


F6 


34 


SUB6,701 


15540 


34 


15588 


00701 


22550 




38 


SUB 6, 702 


15552 


38 


15588 


00702 


22560 




TRA 




15564 


36 


00000 


00500 










15576 


49 


00000 


00000 


22570 


SUB6 


DDA 


,0,B60A0,B6SCT,INSTRN 


15588 




14 








0J9151-29J2734 










22580 




TCD 




15540 








22590 




OORG 


MACR 2 


13046 








22600 


DSAF 


TFM 


TRDSA+6,96,10 


13046 


16 


13224 


000R6 


22610 




TR 


DSAB0X*CLERER+43 


13058 


31 


09091 


02758 


22620 




TFM 


RLDSA+6*DSA80X-l 


13070 


16 


13156 


-9090 


22625 




TFM 


CHSYM+lUDSABOX-l 


13082 


16 


09897 


-9090 


22630 




B7 


• ♦20 


13094 


49 


13114 




22640 




TR 


INPUT»l9,INPUT^2l 


13102 


31 


02808 


02810 


22650 


• 














22660 


• 


COLLECT OPERANOS 










22670 


• 














22680 


GOEVAL 


BTM 


SCAN, •♦12 


13114 


17 


06076 


J3126 


22690 




AM 


TRDSA+6,5,10 


13126 


11 


13224 


000-5 


22700 




AM 


RLDSA*6*1*10 


13138 


11 


13156 


000- 1 


22710 


RLDSA 


TO 


»RL0CSW 


13150 


25 


00000 


07992 


22720 




CM 


TRDSA*6,51,10 


13162 


14 


13224 


OOONl 


22730 




BL 


TROSA 


13174 


47 


13218 


01300 


22740 




TFM 


TRDSA+6.46.10 


13186 


16 


13224 


000M6 


22750 




TFM 


RL0SA*6,0SA80X*9 


13198 


16 


13156 


•9100 


22760 




B7 


TR0SA+12 


13210 


49 


13230 




22770 


TROSA 


TR 


2EP0,ADDRS-4 


13218 


31 


02300 


03490 


22780 




BNR 


G0EVAL-12.INPUT+20 


13230 


45 


13102 


02809 


22790 




8NF 


MAC1* INTBUFM 


13242 


44 


13430 


03603 


22800 




TFM 


LNTH.5 


13254 


16 


02387 


-0005 


22810 




AM 


AD0C0W*S» 10 


13266 


11 


02674 


000-5 


22820 




TF 


ADDRS »ADDCOW 


13278 


26 


03494 


02674 


22830 




A 


ADDC0W,TRDSA^6 


13290 


21 


02674 


13224 


22840 




SM 


AOOCOMtltlO 


13302 


12 


02674 


000- 1 


22850 




TF 


FRSTAO, ADDRS 


13314 


26 


03873 


03494 


22860 




SM 


FRSTAO, 4 


13326 


12 


03873 


-0004 


22870 




TF 


LSTAO, FRSTAO 


13338 


26 


03863 


03873 


22880 




AM 


LSTA0.5 


13350 


11 


03883 


-0005 


22890 


KATHV 


BTM 


GEET.PDSAF 


13362 


17 


09252 


J5074 


22900 


• 












22910 


• 


SUBROUTINE LINKAGE FOR FUNCTIONAL MACROS AND ARITHMETIC MACR 










22920 


• 














22930 


NACROF 


TO 


•♦23.AD0C0W 


13374 


25 


13397 


02674 


22940 




TO 


•♦23.AJUST 


13386 


25 


13409 


02399 


22950 




AM 


AODCOHttlO 


13398 


11 


02674 


000-0 


22960 




TF 


SPQFLD*ll.INTBUF*6 


13410 


26 


13549 


03608 


22970 




87 


DSAF,*, TO OSA ROUTINE TO PICK UP OPERANOS 


13422 


49 


13046 




22980 


• 














22990 




ASSEMBLE LINKAGE 










23000 


• 
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21010 


MAC 1 


TP 


niiT + 9 . t ton* i 


11410 


31 


02220 


02101 


21020 




jf 


Anns c . a nnr nu 


11442 


26 


03494 


02474 


21010 




A 


innrny. T>ntA*A 

AUUIpvllf 1 RUM"! 


11494 


21 


02674 


13224 


21040 




AM 


Annrny.?i. to 


11444 


11 


02674 


00OK1 


21090 




TP 


ttrUl l> 1 


11478 


31 


02100 


01496 


21040 




A 


tCrU» Alt "WUR} 


11490 


2 1 


0231 1 


03494 


21070 




MM 


O* 1 1 .4.1011 


11902 


13 


13549 


000-N 


21080 




TP 




1 1514 


31 


02325 


02220 


21090 




S 


in on* 1 II. QQ 


1 1528 


22 


0231 8 


00099 


21100 


SPQFLO CF 


2EP0* 14 


11518 


33 


02314 


00000 


23110 




TFM 


X»»*24 


11550 


16 


04012 


J3574 


21120 




BTM 


i iMPRT.nniki^T 


1 1542 


17 


09310 


J0366 


23130 




TP 


UU|T<|lCrUTt3 


1 3574 


31 


02220 


02325 


21140 




AN 


Anna < t in 


1 3586 








231 50 




TF 


i crin Anna c 


! »*?n 


26 


03883 




f \\ Tft 




BTM 


LINKDR,»*12 


J * 


1 j 


12892 








TFM 


LNTM.l 


1 3622 


i« 


02387 


nnni 


23180 




TO 


0UT+2,LNTH*l,,M0VE REC.MPK. TO 0UT*2 


1 3634 


25 


02220 


02388 


23190 




TDM 


DUMPISH • If 1 1 


1 3646 


15 


0352 1 


0000 J 


23200 




BTM 


LINKCP.»*12 


1 3658 


17 


12808 


J3670 


232 10 




BTM 


GEET, PHASES 


1 3670 


1 7 


09252 


— 4182 


2 3220 


• 














23230 


• 


DEFINE DISK ADDPESS 










23240 


• 














23250 


OOAF 


BTM 


SCAN,»*12 


1 3682 


17 


06076 


J3694 


23260 




TD 


MUPIELt BSW 


13694 


25 


0360 I 


09090 


23270 




BO 


DDASGNtBSU 


1 3706 


43 


1 3750 


09090 


23280 




TO 


KLRLSMfPLOCSW 


1 3718 


25 




07992 


23290 




TF 


LSTADt ADDRS 


1 3730 


26 


03883 


03494 


23300 




B7 


DDA2 


1 3742 


*** 


1 3798 




23310 


ODASGN 


TF 


LSTA0,ADDC0W 


1 3750 


26 


03883 


02674 


23320 




TD 


• ♦23, LSTAD 


1 3762 


25 


1 3785 


03883 


23330 




TD 


•♦23,AJUST 


1 3774 


25 


1 3797 


02399 


23340 




AM 


LSTAD, 00, 10 


13786 


1 1 


0388 3 


000-0 


23350 


DDA2 


TR 


INPUT*19, INPUU21 


13798 


31 


02808 


02810 


23360 




BTM 


SCAN, •♦ 12 


1 3810 


17 


06076 


J3822 


23370 




TD 


DAX-5 , ADDRS 


13822 


25 


14110 


03494 


23380 




TR 


INPUT*19, INPUU21 


13834 


31 


02 808 


02810 


23390 




BTM 


SCAN,»+12 


1 3846 


1 7 


06076 


J3858 


23400 




TF 


DAXt ADDRS 


1 3858 


*t 






23410 




TR 


INPUT*19, INPUT+21 




** 




02810 


23420 




BTM 


SCAN, •♦12 


1 3882 


1 7 


06076 


J 3894 


23430 




SF 


ADDRS-2 


1 3894 


32 


03492 


00000 


23440 




TF 


SCTXf ADDRS 


1 3906 


26 


14119 


03494 


23450 




TR 


INPUT*19, 1NPUT*21 


1 3918 


31 


02808 


02810 


23460 




BTM 


SCAN,»+12 


1 3930 


1 7 


06076 


J3942 


23470 




TF 


MAX # ADDRS 


1 3942 


26 


14125 


03494 


23480 




TR 


0UT*2, DAX-5 


1 3954 


31 


02220 


14110 






TFM 


LNTH, 6 










23500 




BTM 


LINKCt«»l2 


13978 


17 


12778 


J3990 


23510 




TR 


0UT+2.SCTX-2 


13990 


31 


02220 


14117 


23520 




TFM 


LNTH, 3 


14002 


16 


02387 


-0003 


235 30 




BTM 


LINKCR,*+12 


14014 


17 


12808 


J4026 


23540 




TR 


0UT«-2,MAX-« 


14026 


31 


02220 


14121 


23550 




TD 


DSABOX.RLOCSW 


14038 


25 


09091 


07992 


23560 




BTM 


LINKDR,»+12 


14050 


17 


12892 


J4062 



106 



23570 


BNF 


•♦36, MURIEL 




14062 


44 


14098 


03601 


23580 


TF 


ADDCOW, LSTAD 




14074 


26 


02674 


03883 


23590 


SM 


ADDCOW, 1 




14086 


12 


02674 


-0001 


23600 


BTM 


GEET, PHASES 




14098 


17 


09252 


-4182 


23610 


DAX OS 


6 




14115 




6 




23620 


DC 
• 


It* 




14116 




I 




23630 


SCTX OS 


3 




14119 




3 




23640 


DC 


1 1 ' 




14120 




i 




23650 


MAX OS 


5 




14125 




5 




23660 


DC 
• 


l.« 




14126 




I 




23670 


•• TRANSFER 


TO RETURN ADDRESS 


ROUTINE 










23680 


MTRA TD 


•♦23, ADDCOW, , 


ADJUST ADOCOW 


14128 


25 


14151 


02674 


23690 


TD 


•♦23,AJUST 




14140 


25 


14163 


02399 


23700 


AM 


ADDCOW, ,10 




14152 


11 


02674 


000-0 


23710 


TFM 


MI0CS*11. 00019 




14164 


16 


13005 


-0019 


23720 


A 


MI0CS*11, ADDCOW,, 


RETURN AOOPESS 


14176 


21 


13005 


02674 


23730 


TFM 


M10CS*18,I0CAL, , 


IOR GETS ENTRY 


14188 


16 


13012 


-0716 


23740 


TF 


FRSTA0.A00C0W 




14200 


26 


03873 


02674 


23750 


TF 


LSTAD, ADDCOW 




14212 


26 


03883 


02674 


23760 


AM 


LSTA0,24,10, 


SET TO TOTAL LENGTH 


14224 


11 


03883 


000K4 


23770 


CF 


NI0CS*2 




14236 


33 


12996 


00000 


23780 


CF 


NI0CS*14 




14248 


33 


13008 


00000 


23790 


CF 


M10CSH9 




14260 


33 


13013 


00000 


23800 


TP 


ZEPO.MIOCS 




14272 


31 


02300 


12994 


23810 


TF 


ADDRS, FRSTAD 




14284 


26 


03494 


03873 


23820 


TFM 


X,**24 




14296 


16 


04012 


J4320 


23830 


BTM 


LINPRT.DOINST 




14308 


17 


09310 


J0366 


23840 


GENERATE 


DISK DEFINERS 












23850 


TFN 


NBUK3*l, 22,1011, 


MOOE CODE 


14320 


16 


13032 


OOOKK 


23860 


CF 


MBUK1 




14332 


33 


13031 


00000 


23870 


TP 


0UT*2,MBUK3 




14144 


31 


02220 


13031 


21880 


AM 


ADDCOW, 19, 10, 


MOVE AODCOW TO ENO OF LINK 


14156 


11 


02674 


000J9 


23890 


TF 


LSTAD, ADDCOW 




14168 


26 


03883 


02674 


23900 


AM 


AODCOW.02,10 




14380 


11 


02674 


000-2 


23910 


TFM 


L NTH, 02 




14192 


16 


02387 


-0002 


21920 


BTM 


LINKCP*»*12 




14404 


17 


12808 


J4416 


21910 


TP 


MBUK1 t ADDCOW, , 


ADDRESS OF DDA 


14414 


26 


11023 


02674 


21940 


AM 


MBUK1,06,10 




14428 


11 


13023 


000-6 


23950 


TR 


0UT+2,MBUKl-4 




14440 


31 


02220 


13019 


21960 


AM 


AOOCOW»05,10 




14452 


11 


02674 


000-5 


23970 


TPM 


LNTH.05 




14444 


16 


02387 


-0005 


21980 


TO 


DSABOX.RELSW 




14476 


25 


09091 


02478 


21990 


TOM 


ZNTBUP.l 




144B8 


IS 


01602 


00001 


24000 


BTM 


LtNK0R,**12 




14500 


17 


12892 


J4512 


24010 


TP 


0UT*2»MPM, , 


RECORD MARK 


14512 


11 


02220 


13033 


24020 


AM 


AODCOMtOt.lO 


♦ 


14524 


11 


026T4 


000-1 


24010 


TPM 


LNTH ,01 




14514 


16 


02187 


-0001 


24040 


TOM 


DUMPUll.l, U, 


PRINT RM 


14948 


15 


01821 


OOOOJ 


24090 


BTM 


L!NKCR»»M2 




14940 


17 


12808 


J4572 


24040 


•• GfMfPATI 00A 












24070 


TOM 


0UT42fltt 


01 SR ADDRESS 


14572 


15 


02220 


00001 


24080 


TPM 


MR UK I, IOC SAD 




145B4 


14 


11021 


J9783 


24090 


TP 


0WT*S,HBlNU-4 




14994 


11 


02221 


13019 



t Ik 7 



SPS II-O PHASE • JUiV lit 1U3 



PACE 49 



24100 




AM 


AOPCQHtOOtlO 


14600 


11 


02674 


000-4 


24110 




TFN 


LNTH • 04 


14420 


16 


02367 


-0004 


24120 




•TN 


LINKCA,**12 


14412 


17 


12808 


J4444 


24 ISO 




TM 


MBUK1, 003,9, SECTOR COUNT 


14444 


16 


13023 


00-03 


?4140 




m 


OUT *2, HOUR 1 -2 


14414 


31 


02220 


13021 


24 ISO 




AN 


AOOCOW t 03,lO 


14441 


11 


02674 


000-3 


24140 




TFN 


LNTH, 03 


14410 


16 


02387 


-0003 


24170 




OTN 


linkcr,«*12 


14492 


17 


12808 


J4704 


24100 




TM 


N0UK1»0». CORE AOORESS 


14704 


16 


13023 


-0000 


24100 




TR 


0UT^2 .HOUR 1-4 


14714 


31 


02220 


13019 


24200 




AN 


AOOCOtf,05 f 10 


14720 


11 


02674 


000-5 


24210 




TM 


LNTH #04 


14740 


16 


02367 


-0006 


24220 




TON 


OUNPUlUO.ll 


14752 


IS 


03521 


0000- 


24230 




OTN 


LIN*CR.»*12 


14744 


17 


12808 


J4776 


24240 




OTN 


GEE T. PHASER 


14776 


17 


09252 


-4162 


24290 


• 














24240 


• 


EVALUATE ADORE SS Of DEND 










24270 


• 














24210 


denof 


OTN 


SCAN,»*12 


14788 


17 


06076 


J4800 


24200 




CF 


ADDAS-4 


14800 


13 


03490 


00000 


24300 




ONF 


•*24»LSTVSW 


14812 


44 


14836 


02460 


24310 




MNTV 


ADDAS-4 


14824 


36 


03490 


00100 


24320 




INF 


•♦SA.LSCDSW 


14836 


44 


14872 


02479 


24330 




OTN 


FILLt A0RFIL-4 


14846 


17 


12210 


J2637 


24340 




KACO 


INPUT 2 


14840 


39 


03283 


00400 


24350 




SF 


ADORS-4 


14872 


32 


03490 


00000 


24340 




00 


00TC0.INT6UF*6», CHECK FOR TCO 


14684 


43 


15124 


03608 


24370 




TFN 


TEST AO 


14894 


16 


09070 


-0000 


24300 




TF 


FASTADtHI ADD 


14906 


26 


03873 


02518 


24390 




TFN 


LNTH 


14920 


16 


02367 


-0000 


24400 




TO 


0UT*2»LNTH*1 ,,RK«NRK, 


14932 


25 


02220 


02388 


24410 




OTN 


REL0OGt6.ll 


14944 


1? 


10676 


00000 


24420 




BTN 


STACKRt 9t 10 


14956 


17 


10940 


000-9 


24430 




TOM 


STMUC0*13,2 


14968 


15 


11995 


00002 


24440 




BT 


MODIFI.HOOIFI-l 


14980 


27 


11814 


11813 


24450 




TR 


TRDATA*6»NINES-5,6 


14992 


31 


11260 


L5UI 


24460 




TFN 


410,999,9 


15004 


16 


00410 


00R99 


24470 




TR 


4 16, A DORS- 4 


15016 


31 


00416 


03490 


24460 


• 


WRITE FINAL J SECTORS TO FILE 










24490 


FINIS 


TFN 


I0RT,#*23 


15028 


16 


00565 


J5051 


24500 




0 


I0RBC0EF0UT, 7 


15040 


49 


00520 


-3553 


24510 


• 


ENO OF PHASE 6 t CALL IN PHASE C 










24520 




TFN 


CFFA, PHAZEC 


15052 


16 


02629 


J5076 


24530 




BTN 


CFF,PHASEC 


15064 


17 


02592 


JOOOO 


24540 


PHAZEC 


OOA 


,0,PHCDAOtPHCSCT,PHASEC 


15076 




14 








0 J 92 5 2-40 J 0000 










24550 




DC 
• 


it' 


15090 




1 




24540 


SIMPLE 


TOM 


TR0ATA*6,6»6U 


15092 


15 


11260 


00000 


24570 




B7 


FlNlS-48 


15104 


49 


14980 




24500 


MINES 


DC 


6,99999* 


15116 




6 








R9999* 










24590 


OHSIX 


OC 


6,6 


15122 




6 








-00004 










24600 




OC 
• 


l,» 


15123 




I 





108 



SPS II-O PHASE B JULY 11,1963 



24610 DOTCO BTN RELOOC, 0, 101 1 

24420 TFN LNTH 

24430 TO 0UT-7.IC 

24640 TR 0UT-6,A0DRS-4 

24450 BTM GEET, LUCK 

24660 • TO LOAO PHASE 05 TO THE FILE 

24670 F5 34 SUBS, 701 

24680 38 SUBS, 702 

24690 TRA 



24 700 SUBS 



24710 

24720 
24730 
24740 
24750 
24760 
24770 
24780 
24790 
24800 
24610 
24820 
24630 
24640 
24810 
24040 
24870 
24600 
24000 
24900 
24910 
24420 
24930 
24940 
24910 
24940 
24970 
24900 
24990 
21000 
21010 
21020 
21030 
21040 
21010 
21040 
21070 
21000 
21000 
29100 
29110 
21120 
29110 



ODA ,0,B50AD,B5SCT,INSTAN 

0J9122-29J2734 

TCO FS 



P HA SEC OORG 
TFM 
6 

6NR 

TFN 
TFN 
BNR 

00 NOP 
SF 
TF 
TF 
SN 
TON 
ONF 
TON 
TF 



TO 
TR 
TO 



10000 
IORT 
I OCT 
00-12 
DO* 1 3 
00*18 
00*12 
41S 
415 
BUF*S 
BUF*80 
SUP* 5 
6UF*6 
•♦24 
BUF*4 
6UF*14 
TO CARO 
BUF*81 
8UF*82 
BUF*8S 



ROOIN 



TO 

TR 

TF 

TFN 

0 



00 
A 



,•♦23 

, JHB ,7 
•ISTAT-29 ,, 
,00449 ,, 
.SIZE 

•CO IN ., 
,BUF*10S ,, 
» • • 

,BUF*10S ,, 
f BUF*5 

•100 ,9, 
• 2 

,BUF*106 ,, 
.-2 •• 
iFRSTCO ,, 
1 COLS 6-14 
,BUF*6 

•SECCO-3 ,t 
A MARK «, 

2 



READ SECTORS 1*2 OF OBJECT PROGRAM 



BR IF SUBRS REQO 
SET FOR NO SUORS 

BR IF CARO IMAGE 
MOVE FIRST AOR 
INDICATE SUORS REQO 
STORE FIRST AOR 

CONVERT TO 1 SECTOR BEFORE 

RELOCATABLE 

NON RELOCATABLE 

NOVE SPS ID COOE AND LENGTH 



WRITE SECTOR 1 ANO 
BUF*24 ,RELSW 
0UF*2! •C0N0AT*09 
BUF *71 ,1 STAT 
IORT ,••23 
IOROC ,JHB ,7 
RD DIN ENTRIES FOR SU8R INCL PICK 
TFN I OAT v »*23 
0 I06T ,JHB2 ,7 

CKSiT •ISTAT-28 
CKSfT*26,IS?AT-36 
PICKUP •NA41614 
CKMAP*S4 ,1UE 
CKNAP447tO! 

MAH614 



t CONSTANT I NO FOR SECOND CARD 
t LOAOS SECOND CARD COLS 7-21 

• INSERTS RECORD NARK 
AFTER SECTOR 1 IS UPDATED 

• -1 IF RELOCATABLE 00 J PON 

• NOVE CONNON DATA 



TFN 
TFN 

0 

OORG 



BR IF NORE THAN OIVW REQUIRED 



SET BRANCH AOA $ °' T 0I¥I0C T0 **W 



im 
tiff 



01 
TFN 



CK 01 N 

••4 
CALC 

IORT 
I DOT 



•ISTAT-29 ,9, 



• •♦23 
i C 1000 A 



OR IF LAST REO SUB NOT PROCESSED 

I STAT POINTER 

SYS CONN SIC TO 2000 



••»••»• PUNCH BLANK RECORDS AFTER Lf ST DECK 



15124 


17 


10676 


000— 


15136 


16 


02387 


-0000 


15148 


25 


02211 


03868 


15160 


31 


02212 


03490 


15172 


17 


09252 


-9758 


15184 


34 


15232 


00701 


15196 


38 


15232 


00702 


15206 


36 


00000 


00500 


15220 


49 


00000 


00000 


15232 




14 




15164 








10000 








1 0000 


16 


00565 


J0023 


10012 


49 


00566 


J 1 738 


10024 


45 


10060 


02530 


10036 


16 


10085 


-0449 


10048 


16 


10090 


J0392 


10060 


45 


10084 


02529 


10072 


41 


00415 


12430 


10084 


32 


00415 


00000 


10096 


26 


12330 


12430 


10106 


26 


12405 


12330 


10120 


12 


12330 


OOJOO 


10132 


IS 


12331 


00002 


10144 


44 


10166 


12431 


101S4 


IS 


12331 


OOOOK 


10166 


26 


12339 


11737 


10180 


25 


12406 


12331 


10192 


31 


12407 


11711 


10204 


25 


12410 


00421 


10214 


25 


12349 


02478 


10228 


31 


12390 


02509 


10240 


26 


12400 


02559 


10232 


16 


00565 


J0275 


10244 


49 


00520 


J 1738 


10274 


14 


00565 


J0299 


102BB 


49 


00566 


J 1746 


10300 


45 


11396 


02531 


10312 


43 


11420 


02523 


10324 


21 


02526 


14139 


10334 


16 


11 590 


J0392 


10340 


16 


11 583 


-0001 


10340 


16 


11351 


J4139 


10372 


49 


1 1500 


00000 


10379 








10300 


45 


11208 


02N30 


10391 




0 




10392 


14 


00565 


J041S 


10404 


49 


00S66 


J17S4 



l a 9 



SPS H-D PHASE 8 JULY 11.19*1 



25140 




BNF 


HIPICK 


•LSCOSM 










1041* 


*4 


10512 


02*79 


29150 




TR 


CLERER+94 


•CLERER 










10*28 


31 


027*9 


02715 


291*0 




TOM 


CLERER^Sl 


tO 










10**0 


15 


027*8 


00000 


29170 




TR 


CLEAER^IOB.CLERER 










10*92 


91 


02823 


02715 


29180 




TOM 


CLERER*107 










10*** 


15 


02822 


00000 


25190 




WACO 


CLERER^2 












10*7* 


99 


02717 


00400 


29200 




WACO 


CLERER+2 












10*88 


39 


02 717 


00400 


29210 




WACO 


CLERER^2 












10900 


39 


02717 


00400 


25220 


•••••• 


PLACE HIGHEST ADDRESS 


USEO 


IN 


PICKUP 










25290 


HIPICK 




HIAOO 


.PICKUP 










10912 


24 


02518 


02528 


25240 




8NH 


• ♦24 












1092* 


47 


10548 


01100 


25250 






PICKUP 


.Hi ADD 










1099* 


26 


02528 


02518 


25260 




5 


CYL IMDER 


CHECK 


















25270 




CM 


SU80UT*5 


• 1000 










109*8 


14 


03567 


-1000 


25280 




8NH 


AOK 












109*0 


47 


10748 


01100 


25290 




80 


• ♦20 


• 22 










10572 


43 


10592 


00022 


25300 




87 


AOK 












10584 


49 


10748 




25310 




CF 


22 












10592 


33 


00022 


00000 


25320 




TOM 


23 


• 0 


• 11 








10*04 


15 


00023 


0000- 


25330 




TO 




» 73 










10*1* 


25 


10636 


00073 


25340 




CM 


• ♦8^ 




,T10 








10*28 


14 


10636 


-00-5 


25350 




BE 


• ♦24 












10**0 


46 


10664 


01200 


2 5 3*0 








• — i 










10*52 


15 


00023 


OOOOJ 


25370 




RC TV 














10*64 


34 


00000 


00102 


2M80 






BARF 












1067* 


39 


12139 


00100 


25390 




Of TV 














10688 


34 


00000 


00102 


25400 




W 














10700 


39 


12225 


00100 


25410 


















10712 


48 


00000 


00000 


25420 




J; 














10724 


47 


10748 


00400 


25430 




I? 


ni »o 


.2 


t f 


INHIB 


• UUr WALL 


10736 


15 


11163 


00002 


25440 


AOK 




cttmt 




• 10 








10748 


12 


02513 


000- 1 


25450 




TR 


n 


*403 










10760 


31 


00000 


00403 


25460 




80 


At -1 ? 


* SK I P 










10772 


43 


10892 


11654 


25470 








.PICKUP 










10784 


22 


02496 


02528 


25480 




or tv 














10796 


34 


00000 


00102 


25490 




Tn 




.R WARK 










10808 


25 


02529 


00421 


25500 




AMI 






t t 


BR 


IF 


najfRF is mot FxrFFnpn 


10820 


46 


10892 


01300 


25510 




ATV 


OVER 












10832 


39 


11903 


00100 


25520 




TD 


no i r O Ci, 1 


. P I CKUP^ 1 










10844 


25 


02497 


02529 


25530 




CF 


08 JCRE 












10856 


33 


02496 


00000 


25540 




CF 


08 JCRE-4 












10868 


33 


02492 


00000 


25550 




WNTY 


OBJCRE-4 












10880 


38 


02492 


00100 


25560 




RCTV 














10892 


34 


00000 


00102 


25570 


ALL 


WAT Y 


END 












10904 


39 


11765 


00100 


25580 




BO 


• ♦60 


.SKIP 










10916 


43 


10976 


11654 


25590 




CF 


PICKUP-4 












10928 


33 


02524 


00000 


25600 




RCTY 














10940 


34 


00000 


00102 


25610 




WNTY 


PICKUP-4 












10952 


38 


02524 


00100 


25620 




WATV 


CORE 












10964 


39 


11799 


00100 


25624 




BNF 


• ♦24 


•RELSW 










10976 


44 


11000 


02478 


25626 




WATY 


RELCRE 












10988 


39 


11849 


00 1 00 


25630 




RCTY 














1 1000 


34 


00000 


00102 


25640 




TF 


ADORS 


» STCNT 










11012 


26 


03494 


02513 


25650 




CF 


A0DRS-4 












11024 


33 


03490 


00000 


25660 




WNTY 


ADDRS-4 












11036 


38 


03490 


00100 


25670 




WATY 


STPM 












11048 


39 


12095 


00100 



ill 









sps ii-d 


PHASE B 


JULY 


11.19*3 








PAGE 


25680 




RCTV 










110*0 


34 


00000 


00102 


25685 




BV 


•♦12 








11072 


46 


11084 


01400 


25690 




TFM 


IORT 


.•♦23 






11084 


16 


00565 


J1107 


25700 




B 


I0RBC 


•CSDDDA 


,7 




11096 


49 


00520 


J1754 


25710 




RCTY 






. . 


FOLLOWING MACRO TERMINATES PHASE C 


11108 


34 


00000 


00102 


25720 




BNF 


• ♦20 


• 22 




BR IF 01 SK OUTPUT NOT REQD 


11120 


44 


11140 


00022 


25730 




B7 


DUP- 12 








11132 


49 


11152 




25740 




BNF 


CALC-20 


.23 


. t 


BR IF OTHER OUTPUT NOT REQD 


111*0 


44 


11188 


00023 


25750 




TOM 


SYSCAL 


.1 






11152 


15 


00475 


00001 


25760 


DUP 


NOP 




t 




RESERVED FOR READING CARD TO ZERO 


11164 


41 


00000 


00000 


25770 




B 


MONCAL 








11176 


49 


00796 


00000 


25780 




TOM 


SYSCAL 


.2 


. . 


INHIBIT DUP CALL 


11188 


15 


00475 


00002 


25790 




B7 


DUP 








11200 


49 


11164 




25800 


CALC . 


TF* 
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CCHAR 
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13040 
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10058 
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ADDSUB 


06676 


DOLLAR 


07096 


MOCTOC 


16023 


A5SCT 


00029 


CFF 


02592 


ADRFIL 


12641 
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ANAL41 
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MSTOAO 
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02476 
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CKMAP 
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EVALAD 
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13034 
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EVALER 
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CLOAD 
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14318 
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ANL1A 


11082 
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0247* 
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NOSINE 
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CNTR 


09082 
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02623 


FILBUF 


12442 


NOTYPE 


10570 


ANL1C 


11046 
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13*81 


CHKMOD 


13022 


FLAGGR 


13170 


OBJCRE 


02*96 


AOK 


10748 


COLL 


02*39 


CHVALO 


13168 


FLDATA 


13706 


OPCODE 


12950 


ASINE 
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CONTU 
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CLERER 


02715 


FRSTAD 


03873 


OVRLAP 


1217* 


ASTER 


07564 


CORE 


11799 


CMPCNT 
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FRSTCO 


11737 


PACKAD 


03889 


BIOAO 


18969 


CSDDA 
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CONDAT 


02500 


FRSTNT 


04006 


PCALL1 
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BISCT 


00020 


CTVT 


02*89 


COMSPC 


06836 


FMDSCN 


05934 


PCHCOM 
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B20AD 
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CVACT 
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COPOEF 
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02491 
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DDASGN 
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B40AD 
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DACF 
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1439 1 
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PHCSCT 
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B4SCT 
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DAC 
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INSTRN 
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B50AD 
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DAS 
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OEFOUT 
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00029 


DAX 
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DELETE 
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INTRSW 


02483 


PROCRE 
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B60A0 
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0**9* 


OF ADO I 


09288 


IOAOOR 


02636 


PRTLIM 


02502 


B6SCT 


00029 


DC 
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OFADD2 
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IOCSAD 


19783 


PTINSW 


02*75 


BAKR 


13502 


DDA2 


13798 


DFADD3 


09144 


KILSUB 


0248* 


PULLIO 


0*9*2 


BANAN 


10238 


DOAF 
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DF A 004 


14478 


KLRLSM 
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RDEQIV 
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BARF2 
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DDA JB 
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14398 


LIMTSF 


03992 


REETRN 


11*36 


BARF 


12139 


DDA 


1519* 


D I GALF 


06*88 


L I MTSP 


02507 


RELCRE 
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BB2 
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DEFEQ 


1**69 


DIGITS 
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L I NKCR 


12808 


RELODG 
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BETA 
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L I NKDR 
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REMAIL 
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SLOP 
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03577 
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L I NKER 
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0588* 
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02643 
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DEND 


15 182 
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09310 
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12202 
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LOPOUT 
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12166 


LOSYMB 
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0*286 
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09046 
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11802 
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12082 
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09252 
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DMSB1 
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GET 
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DMSB2 
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GOAHD 
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DODSF 
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DODS 


09*5* 
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HED 
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IC 
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POSA 
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PLACE 
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PUNCH 


12582 


TBLl 


05588 


05226 


QFIL 


12689 


TBL2 


05*62 


1*125 


RCTA8 


12734 


TEMPR 


02571 


1302 3 


RCTR 


07990 


TEMP 


0271* 


13029 


ROOIM 


10276 
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13538 


14978 


SCANA 


06204 


SSTDAD 


18899 


13970 


SCAN 


06076 


SSTSCT 


00035 


15156 


SCTX 


14119 


STACKR 


10940 


02521 


SECCO 


11714 


STCHA1 


13352 


00457 


SECRO 


04330 


STCHAR 


13232 


13198 


SEE IM 


13246 


STKLEN 


03678 


14034 


SFA 


03931 


STNUCO 


11982 


19530 


SFLAG 


14506 


STPCSW 


02470 


02448 


SIZE 


10392 


STPRSW 


02472 


13122 


SKIP 


11694 


STTYSW 


02471 


02596 


SMODE 


09104 


SUBDAD 


04808 


07996 


SMP9L 


00235 


SUBENT 


09080 


13035 


SP9L 


00040 


SUBOUT 


03362 


09099 


SPEC 


06972 


SYMTAD 


02641 


12657 


SPITV 


10522 


SYMTBL 


14003 


11967 


SPLIT 


12070 


SYSCAL 


00473 


02218 




02560 


TBLEND 


09067 


11903 


SREL 


06344 


TESTAD 


09070 


02980 


STCNT 


02313 


THINGS 


02420 


08299 


STPM 


12095 


TROATA 


11240 


19194 


SU90 


04999 


TRNUM1 


07494 


02369 


SU92 


19999 


TRNUMB 


07412 


09722 


SU93 


09992 


TVINSW 


02473 


19096 


SU94 


16426 


TYPIN2 


04159 


09696 


SU99 


19292 


TYPINS 


19046 


19429 


SU96 


19999 


VACANT 


04014 


19074 


SU9C 


12974 


ZERONE 


19602 
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SPS 110 SUBROUTINE SUPERVISOR 11 JUL 1943 JHB 



SPS 1 10 SUBROUTINE SUPERVISOR II JUL 1943 4MB 



00020 


COMMON 


OS 


I 


• 401 






00401 




1 




00030 


RNARK 


OS 




• 421 


• 


AOR OF RECORD MARK 


00421 




0 




00040 


RELINC 


OS 




.414 


• • 


ADR OF RELOCATION INCREMENT 


00434 




0 




00050 


SYSCAL 


OS 




.415 






00475 




0 




00060 


I0RBC 


OS 




• 520 






00520 




0 




000 TO 


I OUT 


OS 




.545 






00565 




0 




000 to 


IOGT 


OS 




• 566 






00566 




0 




00090 


IOCAL 


OS 




• 716 






00716 




0 




00100 


MONCAL 


OS 




• 796 






00T96 




0 




001 10 


BASE 


OS 




• 1600 




SCRATCH SEC AOR FOR SUBRS 


01600 




0 




00120 


PCK 


DSB 


5 


• 7 


• 2365 




02365 




5 


X 7 


00130 


PLUSL 


OS 


2 


,PCK*33 






02398 




2 




00140 


FOREQ 


OS 




• 72 BO 




START OF AREA CONN WITH FORTRAN LOR 


07260 




0 




00150 


SU6VEC 


OSB 


5 


• 30 


,PCK -150 


02215 




5 


X 30 


00160 


MOO 


OSS 


12000 


1 8000 




AREA FOR SUBR READ IN 


08000 




12000 




001 TO 


BUF 


OS 




• MOD- I 






07999 




0 




00180 


SSLOC 


OS 




•1T024 




LOC OF SUBR SUPER ON DISK 


17024 




0 




00190 




OORG 


2402 








02402 








00200 


XEQ 


TFM 


I OUT 


• •♦23 


• • 


RD SUBR FN SCTC 


02402 


16 


00565 


-2425 


002 10 




B 


IOGT 


t DDDAP 


,7 




02414 


49 


00566 


-2608 


00220 




A 


OOAP+5 


t SECLST 


.7, 


AO J FILE ADR 


02426 


21 


02598 


-2674 


00230 




AM 


• -1 


,3 


• • 


PNT TO SEC CNT OF NEXT SUBR 


02438 


11 


02437 


-0003 


00240 




TD 


DDDAP+7 


• D0DAPM2 


• • 


PERMIT HIGH CORE TO FURN ADR 


02450 


25 


02615 


02620 


00250 


CHECK 


AM 


CHECK05 


, 1 




AOJ ISTAT REFERENCE 


02462 


11 


02497 


-0001 


00260 




TFM 


1210 


• 480 




ELIMINATE A SEEK IN IORT 


02474 


16 


01210 


-0480 


002T0 




BO 


XEQ 


1 1 STAT M 


lit 


IC AMflTUEB CURB Tfl RF DRDrFCCFD 
DH lr MUlnCK }UDn IU DC rHULCJJtu 


02486 


43 


02402 


-2641 


00280 




TFM 


439 


• T5 






02498 


16 


00439 


-0075 


00290 




SF 


468 




• • 


PREPARE TO LOAD OBJECT PROGRAM 


02510 


32 




AAAAA 

UUOUU 


00300 




TF 


434 


!rEST0R+12 


• • 


RESTORE RELOCATION INCREMENT 


02522 


26 


00434 


02633 


00310 




CF 


42T 








02534 


33 


00427 


00000 


00320 




TFM 


XEQ+23 


t DDDAR 






02546 


16 


02425 


-2585 


00330 


EXIT 


BT 


XEQ 








02558 


49 


02402 




00350 


DDAR 


OSS 


20 


, , HOLDS ODA 


FOR OBJECT PROG 


02565 




20 




0360 


ODOAR 


OSC 


2 


• -22 






02585 




2 




00370 




2K 
OSA 


DDAR 








02591 




5 


X 1 
















02591 




-2565 




00380 




DC 
* 


1 








02592 




I 




00390 


DDAP 


DSC 


1 


.0 


• • 


RD SUBRS REQD FROM SCRATCH 


02593 




1 




00400 




0 

OSA 


BASE 








02598 




5 


X 1 
















02598 




- 1600 




00410 




DC 


3 


♦ 999 






02601 




3 








R99 


















00420 




DSA 


99999 








02606 




5 


X I 
















02606 




R9999 




00430 




DC 


1 


i ' 






02607 




I 




00440 


ODOAP 


DSC 


2 


• 02 






02608 




2 




00450 




02 
DSA 


DDAP 


• 0 






02614 




5 


X 2 
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00460 




DC 
• 


I 




00470 


RESTOR 


DSS 


20 


,, FOR INFO LOST OURING LOADG OF SUBRS 


00480 


ISTATW 


DSC 


30 


,0 *, INDICATORS FOR REQD SUBRS 






000000000000000000000000000000 






DAC 


1.0 








0 










OORG 


•-1 


, ALIGN SEC LST AT EVEN ADR 


00490 


SECLST 


DSB 


3 


,30 LIST OF SEC LNGTH FOR REQD 


00500 




OORG 


•-50 




00510 


DDASC 


OC 


1 


.0 


00520 




DC 


5 


,19663 






J9663 




00530 




DC 


3 


• 1 






-01 






00540 




DSA 


MA 3 




00550 




OC 
t 


1 




00560 


OOOASC 


DSC 


2 


,22 •• FOR SYS COMM SEC 






22 






00570 




OSA 


DDASC 




00580 




OC 


1 


t . 


00590 




,0,, SIMULATE ODA ,0,0, 001, MA 


00600 


DOA 


OSC 


1 


,0 •• RO OBJECT SECT 1 


00610 




0 

OC 


3 


• 0 






-0000 




00620 




OC 


3 


• 1 






-01 






00630 




OSA 


MA 





00640 




DC 


1 


• • 


00650 


DDA2 


DSC 


1 


• 0 






0 






00660 




OC 


5 


• 4B0B 






-4808 




00670 




OC 


3 


• 6 






-06 






00680 




OSA 


MA2 




00690 




OC 
• 


1 


.• 


00700 


OOAM 


DC 


1 


• 0 


00710 




OSA 


BASt 





MRT SUBR ON OISR 



02614 
02619 
02620 

02621 
02641 

02673 

02672 
02674 
02711 
02711 

02716 

02719 

02724 

02724 
02725 

02726 

02732 

02732 
02733 

02734 

02739 

02742 

02747 

02747 
0274B 

02749 

02754 

02757 

02762 

02762 
02763 

02764 

02769 



-2593 
-0000 



20 
30 



2 
30 
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PACE 3 















02749 




— 1600 




00720 




DC 


3 


tO 




02772 




3 








-00 
















00730 




OSA 


MOD 






02777 




■3 


X 1 














02777 




-0000 




00740 




DC 
• 


1 


• • 




02778 




1 




00750 


DOARS 


OS 


20 


•DDA •• 


an cub* cm MnmcirtTinu 
*u 5UBN run mJuir ilai ion 


02734 




20 




00760 


DODA 


DSC 


2 


• 22 




02779 




2 








22 
















00770 




OSA 


DDA 






02785 




5 


X 1 














02705 




-2734 




00700 




OC 


1 


f • 




02786 




1 




00790 


D00A2 


DSC 


2 


.22 




02787 




2 








22 
















00800 




DSA 


DDA 2 






02793 




5 


X 1 














02793 




-2 749 




00810 




DC 


1 


»• 




02794 




1 




00820 


DODAAS 


DSC 


2 


,22 




02795 




2 








22 
















00830 




OSA 


DOARS 






02801 




5 


X 1 














02801 




-2734 




00840 




DC 


1 






02802 




1 




00850 


OOOAW 


DSC 


2 


• 22 




02803 




2 








22 
















00860 




OSA 


DDA W 






02809 




5 


X I 














02809 




-2764 




00870 




DC 
t 


1 






02810 




1 




00880 


NDDOA 


DSA 


WA 






02815 




5 


X 1 














02815 




-7400 




00890 




DC 


3 


,04» 




02818 




3 




00900 


•••••• 


1 


USED IN 


XEQ PORTION OF PGM 


WHEN NON DISK INPUT 










00910 


NOOISK 


SF 


469 






02820 


32 


00469 


00000 


00920 




TR 


416 


•RESTOR 




02832 


31 


00416 


02621 


00930 




TR 


428 


t RE ST0R*6 




02844 


31 


00428 


02627 


009*0 




TFM 


XEQ+23 


•DDDAA 




02856 


16 


02425 


-2585 


00950 




87 


XEQ 






02868 


49 


02402 




00970 




DC 
• 


1 






02875 




I 




00980 


NODDA 


OSC 


i 


tl 




02876 




1 




00990 




1 

DC 


5 


•19783 




02881 




5 








J9783 














OiOOO 




OC 


3 


.3 




02884 




3 
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01010 




OC 


6 


»0» 






02890 




6 








-0000* 
















01020 


WA2 


DORG 


2934 


•600 CHAR 


WA FOR OIM ENTRIES OVERLAYG PGM 


02934 








01030 


SUPER 


TR 


OOAR 


• 402 


» • 


SAVE OBJ PROG OIM ENTRY 


02934 


31 


02565 


00402 


01040 




TR 


FOREQ 


• 402 


• • 


SAVE FOR FORTRAN AND NOOISK INPUT 


02946 


31 


07280 


00402 


01050 




TF 


DOA+5 


• 407 


• • 


STORE OBJ PROG DISK ADR 


02958 


26 


02739 


00407 


01060 




TR 


RESTOR 


• 416 


» » 


SAVE ENTRY ADR 


02970 


31 


02621 


00416 


01070 




TFM 


IORT 


• •♦23 


• • 


RD SYS COMM SEC TO WA3 


02982 


16 


00565 


-3005 


01080 




8 


IOGT 


•ODDASC 


.7 




02994 


49 


00566 


-2726 


01090 




TO 


100 


,428 






03006 


25 


03026 


00428 


01100 




CM 


100 


• 03 


•71011 


03018 


14 


03026 


-00-L 


OHIO 


I0D 


OS 




,•-3 


• • 


I/O DIGIT INDICATOR 


03026 




0 




01120 




BH 


RDFRST 




• • 


BR IF PROG ON OISK 


03030 


46 


03114 


01100 


01130 




80 


FOR EX 


,WA3^75 






03042 


43 


03306 


07375 


01140 




80 


FOR EX 


,WA3*74 






03054 


43 


03306 


07374 


01150 




TDM 


OSKSW 


.-I 


» » 


SET FOR NON OISK INPUT 


03066 


15 


06052 


OOOOJ 


01170 




TFM 


RDFRST*23 


.NDDDA-4 






03078 


16 


03137 


-2811 


01180 




BL 


RO FRST 


• 


• • 


BR IF PROG ON CARDS 


03090 


47 


03114 


01300 


01190 




TOM 


NOODA ♦ 2 


• 2 






03102 


15 


02817 


00002 


01220 


RDFRST 


TFM 


IORT 


• •♦23 


t • 


REAO FIRST RECORD OF OBJECT PROG 


03114 


16 


00565 


-3137 


01230 




8 


IOGT 


• OODA 


.7 




03126 


49 


00566 


-2779 


01260 






SAVE CARD 


SEQ NO 


IF NON OISK INPUT f NDI ) 










01270 




8NF 


CAP 


•DSKSN 






03138 


44 


03198 


06052 


01280 




SF 


KA*75 








03150 


32 


07475 


00000 


01290 




TF 


UA3+9B 


,WA+79 






03162 


26 


07398 


07479 


01300 




TFM 


IORT 


• •♦23 






03174 


16 


00565 


-3197 


01310 




8 


10RBC 


•ODOASC 


• 7 




03186 


49 


00520 


-2726 


01320 




CALC SIZE OF OBJECT 


CORE. HIGHEST AOR AVAIL IN CAPM0 










01330 


CAP 


AM 


CAP*15 


• 20 


• 10, 


STEP HI ADDRESS BY 20000 


03198 


11 


03213 


OOOKO 


01340 




DC 

«. f 


2 


• 1 


• •-3 




03206 




2 




01350 




TR 


01999 


• •-5 


• 23, 


MOVE RECORD U.J HI ADDRESS 


03210 


31 


-J999 


03205 


01360 




BNR 


CAP 


• 0 


, * 


BR IF NO WRAP AROUND 


03222 


45 


03198 


00000 


01370 




TF 


REOUCEMl 


•capub 


• • 


SAVE COUNT OF OBJECT CORE CAPACITY 


03234 


26 


06077 


03216 


01360 




C 


SPSTST 


• WAFnS 






03246 


24 


06464 


07413 


01390 




8E 


RO CTL 


• 


• » 


BR IF CARD IMAGE SPS PROGRAM 


03258 


46 


03346 


01200 


01400 




SF 


SPSTST-5 








03270 


32 


06459 


00000 


01410 




C 


SPSTST 


•WAF^S 






03282 


24 


06464 


07405 


01420 




BE 


RO CTL 




• • 


BR IF CORE IMAGE SPS PROGRAM 


03294 


46 


03344 


01200 


01430 


FOREX 


CF 


429 




• • 


IORT HOUSKEEP 


03306 


33 


00429 


00000 


01440 




TFM 


IORT 


^•♦19 


• • 


CALL LINK FOR FORTRAN LOAOER 


0331B 


16 


00565 


-3337 


01450 




B 


IOCAL 


•22001 


• BIO 




03330 


49 


00716 


2K0-1 


01460 




DSC 


3 


• 30* 






03342 




3 




01240 


RDCTL 


38* 
BNF 


• ♦24 


,WAF*23 


t • 


ADJ FOR RELOCATION INCREMENT AS REQ 


03346 


44 


03370 


07423 


01250 




A 


PICKUP 


•REL INC 






03358 


21 


07443 


00434 


01470 


•••»•• 


SAVE AREA 420-440, CLR FLAG OH 429 FOB NON DISK INPUT 










01480 




TD 


441 


• 421 






03370 


25 


00441 


00421 


01490 




TR 


RES TOR* 6 


• 420 






03382 


31 


02627 


00428 


01500 




CF 


RESTORE 








03394 


33 


02628 


00000 


01510 




SNF 


NOISY 


,7 7* WAS 






03406 


44 


03450 


07377 


01520 


PAR AM 


BNF 


NANTL 


,79* MA 3 






03418 


44 


03470 


07379 


01530 




BNF 


SUBSET 


,01*MA) 




00 IF SUBSET IS ADJ AT EXECUTE TIME 


03430 


44 


03514 


07381 


01540 




B7 


CKSET 








03442 


49 


03526 




01560 


NOISY 


TO 


MA* 36 


• 77^WA3 


• • 


INSERT NOISE DIGIT 


03450 


25 


07436 


07377 


01570 




87 


PARAM 








03462 


49 


03418 
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01*90 


MANTL 


TO 


MAOS 


•794MAS 


t • 


INSERTS UNITS DIGIT OF LENGTH 


03470 


25 


07435 


07379 


01400 




TO 


WA04 


•78^MA3 


• • 


INSERT TENS DIG INCL FLAG 


0S482 


25 


07434 


07376 


01410 




SF 


MA4S4 










03494 


32 


07434 


00000 


01420 




87 


PARANH2 










03504 


49 


03430 




01440 


SUBSET 


TO 


MAM6 


• 6UMA3 


• • 


INSERT SUB SET ID 




03514 


25 


07438 


07361 


01450 


•••••• 


SET SECTOR 


ADR FOR REOD SUBR SET 












01440 


•••••• 


OS AFP • 4808 ,02 VL 


• 4814 .01 FXL • 4820 ,00 DIV 


■ 4824 










01470 


•••••• 


A NO CONTROL 


TVPEOUT 
















01480 


CKSET 


80 


• ♦54 


• MAMS 




BR IF NOT SOFT DIV SET, 


00 


03524 


43 


03382 


07436 


01490 




AM 


DDA2*S 


1 18 








03538 


11 


02754 


-0016 


01700 




TDM 


DDA2*8 


,1 








03550 


15 


02757 


00001 


01710 




TR 


A0R0F-4 


,A0R0F*16 


* * 


PROHIBIT TYPING OF NO 


AND LENGTH 


03542 


31 


04465 


04465 


01720 




87 


80 OIM 










03574 


49 


03698 




01 740 




CM 


MA* 38 


• 02 


• 10 






03582 


14 


07438 


000-2 


01730 




8H 


RD DIM 




• • 


BR IF AFP SET (03) 




03594 


44 


03698 


01100 


01740 




TFM 


DDA2+5 


',4814 








03404 


16 


02754 


-4814 


01770 




8E 


RD DIM 


• 




BR IF VL SET (02) 




03618 


46 


03698 


01200 


01772 




CM 


HA* 35 


• 08 


.10 






03630 


14 


07435 


000-8 


01774 




BE 


•♦32 










03442 


46 


03674 


01200 


01774 




TFM 


MAOB 


• 02 


• 10 






03454 


16 


07436 


000-2 


01780 




87 


RD DIM 




• • 


FORCE SET 02 




03444 


49 


03698 




01790 




TR 


ADR0F*6 


• ADR0FM6 


» • 


PROHIBIT TYPING LENGTH 




03474 


31 


06475 


06465 


01 800 




AM 


0DA2^5 


• 4 








03686 


11 


02754 


-0006 


01810 


RDOIM 


TFM 


IORT 


• •♦23 


• • 


READ REOD OIM ENTRIES 




03698 


16 


00565 


-3721 


01820 




8 


IOGT 


•DDDA2 


.7 






03710 


49 


00566 


-2787 


01830 




INSIST THAT 


MANTISSA LENGTH MEET SPECIFICATIONS 












01840 




CM 


WA05 


.02 


• 10 






03722 


14 


07435 


000-2 


01850 




BH 


• ♦24 










03734 


46 


03758 


01100 


01860 




TFM 


MA*35 


.02 


.10 






03746 


16 


07435 


000-2 


01870 




CM 


MA05 


.45 


• 10 






03758 


14 


07435 


000M5 


01880 




8L 


• ♦24 










03770 


47 


03794 


01300 


01890 




TFM 


MA*35 


.45 


• 10 






03782 


16 


07435 


O0OM3 


01900 




TO 


PCK*36 


,WA*36 


• » 


NOISE DIGIT FOR OBJ PGM 




03794 


25 


02401 


07436 


01910 




TF 


PCK+33 


• L 


. * 


♦L FOR OBJ PGM 




03806 


26 


02398 


07435 


01920 


TYPINF 


RCTV 












03818 


34 


00000 


00102 


01930 




MATY 


ADR 0F*5 




• 6 






03830 


39 


0647M 


00100 


01940 




TF 


OUT- 1 


. ADR OF 


.11. 


MRITE INFO MESSAGE 




03842 


26 


06499 


0646R 


01950 




CF 


OUT-2 










03854 


33 


06498 


00000 


01960 




MNTY 


OUT-1 










03866 


38 


06499 


00100 


01970 




TDM 


•-6 


•OUT-2 








03878 


15 


03872 


06498 


01980 




TR 


ADR OF-4 


•AOR 0F*6 








03890 


31 


06465 


06475 


01990 




BNR 


TYP INF 


« ADR OF- 3 








03902 


45 


03816 


06466 


02000 




BNR 


DELETE 


,WA2*19 








03914 


45 


04034 


02953 


02010 


SETCOD 


CM 


HA2 *15 


.01 


.10, 


DECOOE SET 




03926 


14 


02949 


000- 1 


02020 




TFM 


SUBVEC-15 


,-33 




I NO LOC OF RM AT END OF 


ALPHA 


03938 


16 


02200 


-003L 


02030 




BE 


FVLAFP 










03950 


46 


04282 


01200 


02040 




BH 


VL AFP 










03962 


46 


04114 


01100 


02050 




BNR 


DELETE 


.ISTAT-28 








03974 


45 


04034 


07446 


02060 




TDM 


SUBNO 


.1 




SET TO 01 FOR SOFT DIV SET 


03986 


15 


04593 


00001 


0?070 




SM 


SV 


♦ 5 








03998 


12 


05776 


-0005 


02080 




TFM 


CAPCK-2 


.CAPCK+36 








04010 


16 


05932 


-5970 


02090 




B 


FVLAFP 


.BD SET M 








04022 


49 


04282 


06779 


02100 


DELETE 


RCTY 












04034 


34 


00000 


00102 


02110 




WAT Y 


DELETE- I 


. 


,6, 


TYPE REASON FOR TERMINAT 


ION 


04046 


39 


0403L 


00 1 00 


02120 




RCTY 












04058 


34 


00000 


00102 


02130 




WATY 


DELTED 






TYPE TERMINATION 




04070 


39 


06733 


00100 
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02140 




RCTY 








04082 


34 


00000 


00102 


02150 




TDM 


SYSCAL ,4 






04094 


15 


00475 


00004 


02160 




B7 


MONCAL 






04106 


49 


00794 




02180 




CREATE ADD VECTOR FOR 


ADJUSTMENT OF P AND 0 OPERANDS 










02190 


VLAFP 


TFM 


SUBVEC-15, -147 




IND LOC OF RM AT END OF ALPHA 


04114 


16 


02200 


-014P 


02200 




SM 


FVLAFP*35,98 






04126 


12 


04317 


-0098 


02210 




A 


LOC 115 ,L 




INSERT ♦L 


04138 


21 


06315 


07435 


02220 




A 


L0CU5^50,L 






04150 


21 


06365 


07435 


02230 




S 


L0C115*l0,l 




INSERT -L 


04162 


22 


06325 


07435 


02240 




AM 


L0C115+10, 99999 






04174 


11 


06325 


R9999 


02250 




AM 


LDCU5+10,! 






04186 


11 


06325 


-0001 


02260 




TF 


L0CU5+60,L0C115M0 




04198 


26 


06375 


06325 


02270 




A 


L ,L 




INSERT *2L 


04210 


21 


07435 


07435 


02280 




A 


L0C115+20.1 






04222 


21 


06335 


07435 


02290 




A 


L0C115^70.L 






04234 


21 


06385 


07435 


02300 




TF 


L0Cll5O0,L0Cll5^10 


♦ * 


INSERT -2L 


04246 


26 


06345 


06325 


02310 




A 


L0CU5+30,L0CU5O0 




04258 


21 


06345 


06345 


02320 




TF 


L0C115^80,L0CU5+30 




04270 


26 


06395 


06345 


02330 


FVLAFP 


S 


•♦35 .PICKUP 






04282 


22 


04317 


07443 


02340 




BNH 


• ♦24 






04294 


47 


04318 


01100 


02350 




AM 


PICKUP .SECLST-12 




MOVES PICK IF OBJ PGM SHORT 


04306 


11 


07443 


-2662 


02370 




TF 


DDDAPm .PICKUP 






04318 


26 


02619 


07443 


02380 




TF 


SUB NO-2 ,MA08 


» . 


STORE SET NO 


04330 


26 


04591 


07438 


02390 




B7 


RD SUB 






04342 


49 


04510 




02410 


FINAL 


BNR 


CK SUB .ISTAT-30 


.7, 


BR IF ANOTHER SUBR REQO 


04350 


45 


04370 


-7444 


02420 


I NO 


DS 


• • 




I STAT PNTR 


04361 




0 




02430 




87 


CAP CK 






04362 


49 


05934 




02450 


CKSUB 


BD 


RD SUB ,INO 


.11. 


BR IF SUBR IS USEO 


04370 


43 


04510 


0436J 


02460 




AM 


IND ,1 


• 10 




04382 


11 


04361 


000-1 


02470 




AM 


SUB NO ,1 


• 10 




04394 


11 


04593 


000-1 


02460 




AM 


SV^5 ,5 






04406 


11 


05781 


-0005 


02490 


STPSV 


SM 


SV ,5 


• 10, 


ADJ SUBVEC POINTER 


04418 


12 


05776 


000-5 


02500 




SM 


NE ,1 


• 10 




04430 


12 


04438 


000- 1 


02510 


NE 


DC 


2 ,01 


• •-3. 


NO OF I STAT ENT TO CK FOR SUBR 


04436 




2 




02520 




-I 
BH 


CK SUB 






04442 


44 


04370 


01100 


02530 


AOJDIM 


AM 


DIM ,20 


.10, 


AOJ FOR NE OF NEXT DIM ENTRY 


04454 


U 


04477 


OOOKO 


02540 




TD 


NE ,WA2U6 


.7, 


STORE NE 


04444 


25 


04436 


-2952 


02550 


DIN 


DS 


• • 


» . 


POINTER FOR NE IN DIM ENTRIES 


04477 




0 




02540 




TFM 


SV^S •MOD* 7 






04478 


14 


05781 


-6007 


02570 




BO 


FINAL »NE 






04490 


43 


04330 


04438 


02560 




87 


ADJ OIM , 


• . 


SKIP BLANK DIN ENTRY 


04502 


49 


04434 




02600 


ROSUB 


TF 


RD SUB05.DIH 






04510 


24 


04543 


04477 


02410 




SM 


RD SU605.ll 






04522 


12 


04345 


-0018 


02420 




TR 


DDARS • 


• • 


MOVE DIN ENTRY TO 00 A FOR RDG SUBR 


04534 


31 


02734 


00000 


02430 




C 


SUB NO-2 .DDARSM5 


• • 


CK SET NO 


04544 


24 


04391 


02749 


02440 




BNE 


DELETE 




* 


04558 


47 


04034 


01200 


02450 




SF 


D0ARS*16 






04570 


32 


02750 


00000 


02440 




CM 


0DARS*17 • 


• • 


CK SUBR NO 


04562 


14 


02751 


-0000 


02470 


SUBNO 


OS 


4 •• 


• 


SET NO AND SUBR NO 


04593 




4 




02460 




BH 


0ELE7E 






04594 


44 


04034 


01100 


02490 




AM 


LOC 115*40 • 


• • 


AOO CORfS USED BY PREVIOUS SUBR 


04404 


11 


04335 


-0000 


02700 


P ICR AO OS 


#• 


• 


NOW MAS COII BJ6J0 BV LAST SUBR 


04417 




0 




02710 




A 


LOCUf*fO.PlCKA0 


9 I 


INSERT PICK *L 


0441B 


21 


04343 


04417 


02710 




A 


LOC 11 5*40, PI CHAD 


• • 


INSERT PICK -i 


04410 


21 


04373 


04417 


02730 




A 


LOC I I 3^ 70. PICK AD 


• • 


INSERT PICK *2L 


04442 


21 


04363 


04417 
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03 740 




A 


LOCI 19^90, PICKAO 


1 1 


INSERT PICK -2L 


04494 


21 


06395 


04417 


02? SO 




TP 


PKUP 


tODARSMJ 


it 


STORE COKES US 10 BY SUBR 


04664 


26 


09989 


02747 


02740 




SET PICKAO 


TO f INS COMPLEMENT OP CORES USED BY THIS SUBR 










02770 




TP 


PICKAO 


•0DARS*IS 






04678 


24 


04617 


02747 


02700 




SP 


PICKAO 








04490 


32 


0441 7 


00000 






AM 


PICKAO 


♦99999 






04702 


1 1 


0441 7 


R9999 






AM 


PICKAO 


• 1 






04714 


1 1 


0441 7 


-0001 


02010 


SUBRD 


TPM 


DDARS*19 


• MOO 


• • 


PUT WORK AREA CORE ADR INTO OOARS 


04726 


14 


02 747 


-8000 


02020 




TPM 


IOKT 


• •♦29 


• • 


READ IN SUBROUTINES 


04738 


14 


00545 


-4741 


028 SO 




8 


I06T 


•DDOARS 


• ? 




04790 


49 


00546 


-2795 






TPM 


IOKT 


#•♦29 






04742 


16 


00565 


-4785 






• 


594 


fDOOAW 


• ?• 


PRE SEEK 


04774 


49 


00554 


-2803 


02040 




TOM 


SET P»29 


• 1 


1 . 


DISABLE MODIFCTN 


04784 


15 


04979 


00001 


02890 




TOM 


MOO* 9 


»-2 


9 • 


ASMCAN DSA OP EACH SUBR 


04798 


15 


08005 


OOOOK 


02860 


NOD I F V 


TPM 


CARO 


,BUP*6 


• » 


SET TO FIRST INDICATOR DIGIT 


04810 


16 


04833 


-8005 


02870 


NEWCD 


TPM 


PMTR 


f CARO 


t f 


SET PNTR TO FIRST INO ON NEW CARO 


04822 


14 


04857 


-4833 


02880 


CARD 


OS 




• • 




ADR OF FIRST I NO FOR NEXT CARD 


04833 




0 




02890 




AM 


CARO 


,75 


• 10 v 


AOJ AOR OF NEXT CARD 


04834 


1 1 


04833 


000P5 


02900 


NXT IND 


BMP 


NOT RM 


,BUF*6 


• 7, 


CK INO CODE FOR RM 


04846 


45 


04898 


-8005 


02910 


PNTR 


OS 




• • 




POINTS TO SUBR POSITION OF INTEREST 


04857 




0 




02920 




8MP 


RM 


»PNTR 


!lli 


BR IF BREAK IN SEQUENCE 


04858 


44 


04878 


0485P 


02990 




87 


NEW CO 


• 


• • 


BR IF NEW CARD REQUIRED 


04870 


49 


04822 




02950 


RM 


AM 


PNTR 


• 6 


,10, 


AOJ FOR NEXT INO OIGIT 


04878 


1 1 


04857 


000-6 


02960 




87 


PNTR-ll 








04890 


49 


04846 




02980 


****** 


BR TO ROUTINE TO PROCESS 


DATA PER INDICATOR DIGIT 










02990 


NOTRN 


TO 


•♦17 


• PNTR 


.11. 


INSERT INO CODE 


04898 


25 


04915 


0485P 


03000 




87 


L0C115*5 


» 


.4, 


BR AS INDICATED 


04910 


49 


0632- 




03020 


INST 


AM 


PNTR 


• 2 


.10. 


AOJ FOR LENGTH OF INSTRUCTON X 


04918 


1 1 


04857 


000-2 


03030 




TF 


LNG 


,PNTR 


.11. 


STORE LENGTH 


04990 


26 


05263 


0485P 


03040 




AM 


PNTR 


• I 


.10, 


AOJ FOR P OPER HI ORDER OIGIT 


04942 


U 


04857 


000-1 


03090 


SETP 


AM 


PNTR 


• 2 






04954 


11 


04857 


-0002 


03040 




TDM 


SWPQ 


»-l 


« * 


SET TO IND P OPER MODIFCTN 


04966 


15 


04976 


0000.1 


03070 


SWPQ 


OS 


1 


• •-1 






04976 




1 




03080 




NOP 


AOJ 


,CTL PNT 


,11, 


8R IF ELGIBLE FOR MODIFICATION 


04978 


41 


05010 


050i J 


03090 




AM 


PNTR 


• 10 






04990 


11 


04857 


-0010 


03100 




87 


LNG CK 








05002 


49 


05254 




03120 


AOJ 


BO 


•♦20 




t t 


BR IF MOD OF P FIELD REQD 


05010 


43 


05030 


00000 


03130 


CTLPNT 


OS 


5 


*» 




POINTER FOR SUBR MODIFICATION CONST 


05021 




5 




03140 




B 


0 CK 








05022 


49 


05138 


00000 


03150 


INDA 


DORG 


• -4 


,IND FOR 


INDIRECT -ADR CONDTN 


05029 








03140 




SF 


PNTR 


» 


,6, 


SET FLAG TO DEFINE FIELD 


05030 


32 


0485P 


00000 


03170 




AM 


PNTR 


.4 


,10, 


AOJ FOR LOW END OF FIELD 


05042 


11 


04857 


000-4 


03180 




TO 


I NO A 


,PNTR 


,11. 


SAVE I NO ADR CONO OF FIELD 


05054 


25 


05029 


0485P 


03 190 




CF 


PNTR 




.6, 


REMOVE ANY I A FLAG 


05066 


33 


0485P 


00000 


03200 




TO 


•♦22 


^CTLPNT 


• 11, 


INSERT CODE FOR MOD ADJUST 


05078 


25 


05100 


0502J 


032 10 




A 


PNTR 


,L0C115*40,6, 


AOO PROPER VALUERS •PICK) 


05090 


21 


0485P 


06355 


03220 




BNF 


• ♦24 


1 1 NO A 




WILL PRESERVE NEGATIVE RESULT 


05102 


44 


05126 


05029 


03230 




SF 


PNTR 


• 


,6, 


RESTORE IND ADR 


05 114 


32 


0485P 


00000 


0 3240 




SM 


PNTR 


,4 


• 10. 


PT AT HI END OF FIELD 


05126 


12 


04857 


000-4 


03250 


QCK 


AM 


PNTR 


,5 


.10. 


AOJ FOR Q FIELD 


05138 


11 


04857 


000-5 


03260 




AM 


CTL PNT 


,1 


.10, 


ADJ FOR NEXT CONTROL DIGIT 


05 150 


11 


05021 


000-1 






BNF 


NO INST 


• SWPQ 


• * 


BR IF Q FIELD 










03280 




TDM 


SWPQ 


• 0 


. » 


SET TO Q FIELO 


05174 


15 


04976 


00000 


03290 




BNR 


AOJ 


, CTLPNT 


.11, 


BR IF ELIGIBLE FOR MODIFICATION 


05186 


45 


05010 


0502J 


03 300 




AM 


PNTR 


.5 


, • 


ADJUST FOR Q OPERAND 


05198 


11 


0485 7 


-0005 


03310 




87 


LNG CK 








05210 


49 


05254 
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03330 


NOINST 


CM 


CTL PNT 


,CTLAR*49 




05218 


14 


05021 


-6507 


03340 




BL 


LNG CK 








05230 


47 


05254 


01300 


03350 




TDM 


SET P*25 


,1 


• • 


DISABLE MODIFICATION 


05242 


15 


04979 


00001 


03360 


LNGCK 


SM 


LNG 


,12 


,10, 


AOJ AVAIL DIGITS OF INST. 


05254 


12 


05263 


000J2 


03370 


LNG 


OS 


2 


,•-2 


» 


NO OF UNPROCESSED DIGITS OF INSTRN 


05263 




2 




03380 




BNH 


NXTINO 






BR IF ANOTHER INST IS NOT AVAIL 


05266 


47 


04846 


01100 


03390 




8? 


SET P 








05278 


49 


04954 




03410 


PCONST 


BNF 


CONST 


, PNTR 


,11. 


BR IF RELOCATABLE 


05286 


44 


05346 


0485P 


03420 




SM 


PNTR 


,3 


,10, 


ADJUST FOR PSUEOO COMPARE 


05298 


12 


04857 


000-3 


03430 




CM 


PNTR 


,3 


,69 




05310 


14 


0485P 


00-03 


03440 




BE 


PSUEOO 


. 




BR IF PSUEDO CONSTANT 


05322 


46 


05390 


01200 


03450 




AM 


PNTK 


.3 


',10, 


AOJ FOR IND DIGIT 


05334 


U 


04857 


000-3 


03440 


CONST 


AM 


PNTR 


• 2 


.10, 


AOJ FOR LENGTH FIELD. 


05346 


11 


04857 


000-2 


03470 




A 


PNTR 


,PNTR 


.11. 


ADJ PNTR BY LENGTH OF CONST 


05358 


21 


04857 


0485P 


03480 




AM 


PNTR 


» I 


.10, 


AOJ FOR NEXT INO DIGIT 


05370 


11 


04857 


000- 1 


03490 




87 


PNTR-ll 








05382 


49 


04846 




03510 


•••••• 




PUT PSUEOO 


CONSTANT 


INTO CTLAR ANO FILL BAL WITH REC MKS 










0352® 


•••••• 


REPLACE ADR 


WITH ZERO , PREVENT PSCON FROM BEING LOADED 










03510 


•••••• 


ALSO WORKS 


IF PSCON 


IS SPLIT ON 2 CARD RECORDS 










03540 


PSUEOO 


TF 


CTLAR*59 


• RMS 




SET CONTROL AREA TO RECORD MARKS 


05390 


26 


06517 


06456 


03590 




AM 


PNTR 


• 2 


f • 


POINT 'AT AOR 


05402 


11 


04857 


-0002 


03940 




TR 


TCP 


• PNTR 


.11. 


MOVE PSCON 


05414 


31 


06518 


0485P 


03570 


PBOTH 


TFM 


PNTR 


i 


.67. 


SET AOR TO ZERO 


05426 


16 


0485P 


-0000 


03580 




AM 


PNTR 


,3 




PT AT LENGTH 


05438 


11 


04857 


-0003 


03590 




A 


PNTR 


• PNTR 


111. 


PT AT NEXT INO 


05450 


21 


04857 


0485P 


03400 




AM 


PNTR 


• 1 






05442 


11 


04857 


-0001 


03410 




SN* 


2 NO PC 


.PNTR 


,11. 


BR IF CQHT m COL 75 


05474 


45 


05530 


0485P 


03420 


PLOAD 


TR 


CHAR 


•TCP^4 


t 9 


LOAD PSUEOO CONST TO CONTROL AREA 


05484 


31 


06458 


06522 


09490 




TDM 


SET P^25 


.5 






05498 


15 


04979 


00005 


03440 




TPM 


CTL PNT 


•CTLAR 






05510 


16 


05021 


-6458 


03490 




87 


PNTR-ll 








05522 


49 


04844 




03670 


2NDPC 


AM 


PNTR 


.9 


• • 


PT AT INO 


05530 


11 


04857 


-0005 


09690 




m? 


P NOT C 


• PNTR 


.11 




05542 


44 


05444 


0485P 


09690 




SM 


PNTR 


.1 






05554 


12 


04857 


-0001 


03700 




TFM 


M0V2NDMI 


•TCP+12 






05566 


16 


05625 


-6530 


03710 




TFM 


N0V2N0U 


,TCP^4 






05576 


16 


05620 


-6522 


03720 




A 


NOV2N0* 1 1 


• TCPO 






05590 


21 


05625 


06521 


03790 




A 


N0V2ND*4 


• TCPO 






05602 


21 


05620 


06521 


03740 


M0V2N0 


TR 






• . 


CLOSE PSCON 


05614 


31 


00000 


00000 


03750 




AM 


CARO 


.79 


* . 


AOJ FOR NEXT CD 


04424 


11 


04839 


-0075 


03760 




97 


PBOTH 








05439 


49 


05426 






•••••• 




PSUEOO CONST TERMINATES CARO ANO IS NOT CON"? ON NEXT CARD 












PNOTC 


AM 


CARD 


.79 






09444 


11 


04833 


-0075 






TFM 


•♦90 


•TCP*4 






09454 


14 


05488 


-6522 






A 


•♦16 


• TCPM 






05470 


21 


05488 


06521 






TD 




•RNS-40 






05492 


25 


00000 


04994 






97 


P LOAO 








05694 


49 


05484 




03790 


0N9 


AM 


PNTR 


• 9 


• 10. 


ADJ FOR NEXT INO OiGIT 


09702 


II 


04897 


000-9 


09740 




87 


PNTR-ll 








09714 


49 


04844 




09810 


•••••• 




FORM INf*0 RESD TO COMPUTE 


LOADING OF SUBROUTINE 










09920 


•»•«•• 




AOJ ENTRY POINTS IN 


SU8VEC 


k$ IND BY OSA AT START OP SUBR. 










09890 


PORN 


A 


INO 


•NE 


• . 


ADJ INO POR ALL ENTRY POINTS 


09722 


21 


04361 


04498 


09940 




A 


SUB NO 


• NE 


• • 


ADJ SUBR NO* POR ALL ENTRIES 


09734 


21 


04593 


04498 


09890 


PILSV 


AM 


PIL SV09 


#9 


• 10 




09744 


11 


05781 


000-5 


09960 




TP 


SV 


•PICKUP 


*4 




09799 


24 


05770 


07443 


09970 




A 


PCK 


•NOD* 7 


it 




09770 


21 


-2365 


08007 



125 
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03690 


sv 


OS 


3 


• •-9 


• t 


CONTAINS ADR Or SUBR IN SUBVEC 


09774 




9 




01890 




SM 


$V 


• 9 


• 10» 


AOJ SUE VBtTOR AOR 


OS 782 


12 


09774 


000** 9 


03900 




SM 


ME 


• 1 


• 10t 


REDUCE HQ OF ENTRIES 


03744 


12 


04438 


000- 1 






BM 


F I L $V 








03B06 






01 100 








SCT 


f ODARS+B 




REIURD SEW REUD FOR >UIR 


05818 


26 




02742 


03930 






0DAW+8 


• SECLST 


#Tt 


luTti (ir_ryf cm ua t cum* rn trirr 
CRICK 5EL-LRT FOR RRI SUBR 10 SCRTw 


09830 


26 


02772 


-2674 


03940 


SCT 


OS 


3 




i 


SECTOR COUNT FOR WHOLE SUBROUTINE 


09841 




3 








TEN 


I ORT 


• •♦23 


t • 


WRI IE ROD SUBR ON SCRATCH 


03842 


16 


00969 


-9849 


039*0 




8 ' 


I0R6C 


» OOOAM 


.7 




09834 


49 


00920 


-2803 


03970 




A 


DDAW+5 


«0OAW*8 


• • 


INCREASE DISK ADR BV NO SEC 


05844 


21 


02769 


02772 


03980 




AM 


PICKUP 


• 


» t 


INCREASE CORE ADR BV SUBR LENGTH 


05878 


1 1 


07443 


-0000 


03990 


PKUP 


OS 


5 




» 


TENP STORE PROG TOTAL CORES 


05889 




3 




04000 




AN 


SCT 


■3 


• 10# 


AOJ FOR NEXT SUBR 


09890 


11 


05841 


000-3 


04010 




TOW 


I STATU 


• 1 


• t 


INOICATE REOD SUBR 


09902 


15 


02641 


00001 


04020 




AM 


•-6 


• I 






05914 


1 1 


05908 


-0001 


04030 




87 


ADJ DIM 








05926 


49 


04454 




04030 


CAPCK 


A 


SU8VEC- 


15.PCK 




RM FOR ALPHA 


05934 


21 


02200 


02365 


04060 




TF 


SUBVEC- 


10.PCK 


• • 


RM FOR BETA 


05946 


26 


02205 


02365 


040T0 




SM 


SU8VEC- 


10,1 






05958 


12 


0220S 


-0001 


04080 




MAKE REQD 


ADJ TO READ OBJECT PROGRAM 










04090 




8NR 


• ♦36 


.ISTAT-30 


• » 


BR IF CARO IMAGE 


05970 


45 


06006 


07444 


04100 




AM 


DDAA+5 


.1 


.10, 


AOJ OBJ PROG DDA 


05982 


11 


02570 


000-1 


041 10 




SM 


DDAA+8 


tl 


,10, 




05994 


12 


02573 


000-1 


04120 




CF 


0DARM3 








06006 


33 


02578 


00000 


041 30 


DISKCK 


BNF 


• ♦48 


.DSKSW 


• t 


BR IF DISK PGM 


06018 


44 


06066 


06052 


04140 




TR 


EXIT-48 


,N0 DISK 






06030 


31 


02510 


02820 


04150 




SF 


DDDARU 








06042 


32 


02586 


00000 


01 160 


OSKSW 


OS 


I 


• •-1 


* » 


SM HAS -1 WHEN NON DISK INPUT INDl) 


06052 




1 




04160 




TR 


ODAR 


tMOODA 






06054 


31 


02565 


02876 


04170 


REDUCE 


SM 


PICKUP 


.CAPUB 


• t 


ROC KR UZ FN KR AVLB 


06066 


12 


07443 


-3216 


041 75 




BV 


• ♦12 








06078 


46 


06090 


01400 


04180 




BNM 


XEQ 








06090 


4Z 


02402 


01100 


04 1 90 




TO 


SIZE*60 


•PICKUP 


» » 


MOVE NO OF CORE TO SIZE NESSAGE 


06 102 


25 






04200 




TO 


SIZE»58 


•PICKUP-l 






06114 


25 


06705 


07442 


04210 




TO 


SIZE*56 


•PICKUP-2 






06126 


25 


06703 


07441 


04220 




TO 


SIZE^54 


,P<CKUP-3 






06138 


25 


06701 


07440 


042 30 




TO 


SIZE»52 


.PICKUP-4 






06150 


25 


06699 


07439 


04240 




TFM 


DELETE^ 18. S I ZE 






06162 


16 


04052 


-6647 


04250 




B7 


DELETE 








06174 


49 


04034 





04270 •••••• BELOW IS DUAL PURPOSE VECTOR. EVEN AOR FIELDS ARE ADR OF 

04280 • ROUTINES THAT ARE USED FO 0EC00ING INOICATOR COOE 

04290 •••••• ODD ADR FIELDS ARE SUBR ADJ FOR THE P AND Q OPERANDS OF INST 



04300 


DORG 6296 




06296 




04310 


DSA NEW CD, ,INST 




06300 


5 








06300 


-4822 








06305 


-0000 








06310 


-4918 


04320 


LOC 115 DSA O.PCONST ,0 .CONST ,0 .DNB ,0 ,NYET , 


, O.FORM 


06315 


5 








06315 


-0000 








06320 


-5286 








06325 


-0000 








06330 


-5346 








06335 


-0000 








06340 


-5702 
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06345 




-0000 










06350 




-6910 










06355 




-0000 










06360 




-5722 




04330 




DSA 0 ,NVET,0 ,NYET»0 * NYET ,0 


06365 




5 


X 7 








06365 




-0000 










06370 




-6910 










06375 




-0000 










06380 




-6910 










06385 




-0000 










06390 




-6910 










06395 




-0000 




04340 




DC I ,* 


06396 




1 




04350 


RMS 


DS 60 60 RECORD MARKS 


06456 




60 




04360 


SPSTST 


DC 8 .67514842 


06464 




8 








07514842 










04370 


CTLAR 


DSS 60 .SPSTST-6 ». USED FOR SUBR CONTROL CONSTANT 


06458 




60 




04380 


AOROF 


DSA WA + 36 . MESND »WA05 .MESL »WAOS ,MESGS 


06469 




5 


X 6 








06469 




-7436 










06474 




-6503 










06479 




-7433 










06484 




-6329 










06489 




-7438 










06494 




-6363 




04390 




DC 2 ,* .ADR 0F427 
_ . 


06496 




2 




04400 




DORG ^4 


06498 








04410 


OUT 


DC 3 »• TYPE OUT AREA 


06500 




3 




04420 


MESNO 


-0« 

OAC 13, NOISE DIGIT • 


06503 




13 


X 2 






NOISE OIGIT * 










04430 


TCP 


DSS 66 • CTLAR^O ,, TEMP STOR FOR PSuEOO CONSTANT 


06518 




66 




04440 


MESL 


OAC 17, MANTISSA LENGTH • 


06529 




17 


X 2 






MANTISSA LENGTH • 










04450 


MESGS 


OAC 10, SUBR SET • 


06563 




10 


X 2 






SUBR SET • 










04455 




DORG TCPM28 , ELIMINATE OVERLAP OF MESSAGE 


06444 








04440 


SIZE 


DAC 43, CORE CAPACITY EXCEEDED BY 00000 LOCATIONS* * 


04447 




43 


X 2 






CORE CAPACITY EXCEEDED BY 00000 LOCATIONS* * 










04470 


DELTEO 


DAC 23, PROGRAM IS TERMINATED. * 


04733 




23 


X 2 






PROGRAM IS TERMINATED* ' 










04480 


BDSETM 


OAC 39, SUBR NOT LOCATED IN SUBROUTINE NAP* 


04779 




35 


X 2 






SUBR NOT LOCATEO IN SUBROUTINE NAP* 










04490 


NVMES 


DAC 31, IMPROPER I NO COOE IN SUBR 0000* 


04B49 




31 


X 2 






IMPROPER I NO COOE IN SUBR 0000* 










04500 


NVET 


TO NVMES ♦SB , SUB NO 


04910 


29 


06907 


04999 


04510 




TO NVMES^B* ,SUB NO- 1 


04922 


29 


04909 


04992 


04920 




TO NVMES^94 .SUB NO- 2 


04934 


29 


04909 


04991 


04930 




BTN DELETE •NVMES 


04944 


1? 


04094 


-4844 


04940 




DORG POREO 


071B0 








04990 


LOR MRS 


AM •♦IB tl 


07280 


11 


0729B 


-0001 


04940 




TO RMS-59 •RMS-BO ,2 


07292 


29 


-434? 


04994 


04970 




CM »-4 .RMS 


07304 


14 


07298 


-4434 
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0*580 




IL 


LOR MRS 




07314 


47 


07280 


01300 


04990 




SP 


RMS-60 




07328 


32 


04396 


00000 


04*00 




34 


OOAL 
OOAL 


•701 tt LOAO SUIR SUPER ON DISK 


07340 


34 


07386 


00701 


04410 




39 


• T02 


07352 


38 


07388 


00702 


04420 




TRA 






07344 


36 


00000 


00500 












07374 


49 


00000 


00000 


04430 


OOAL 


DSC 
0 


1 


,0 


07384 




1 




04440 




DSA 


SSLOC 




07393 




3 


X 1 










• 


07393 




J7024 




04490 




OC 


3 


• 051 


07394 




3 








-51 














0*640 




OSA 


XEO-2 




07401 




5 


X 1 












07401 




-2400 




04670 




TCO 


LDRMKS*12 


07292 








04640 




DOAG 


FOREQ 




07280 








04690 




OS 


20 




07299 




20 




04700 


WA3 


OSS 


100 


•• SYSTEM COMMUNICATION SECTOR 


07300 




100 




04710 NAF 


OSS 


100 


it FIRST SKTR OF OBJ PGM 1 1 NO RECORD) 


07400 




100 




04720 


WA 


OS 




• MAF 


07400 




0 




04730 


L 


OS 




,WA*35 , AOR OF SPEC MANT LENGTH 


07435 




0 




04740 


PICKUP 


OS 




•WA+43 


07443 




0 




04750 


ISTAT 


OS 




,WA*74 


07474 




0 




04760 




OENO 


SUPER 




02934 
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ADJOIN 


04454 


RESTOR 


02621 


DDDAW 


02803 


MOD 


08000 


SETP 


04954 


BDSETM 


06779 


2NDPC 


05530 


DIM 


04477 


NDDDA 


02815 


SIZE 


06647 


COMMON 


00401 


ADJ 


05010 


DNB 


05702 


NE 


04438 


SSLOC 


17024 


CTLPNT 


05021 


ADROF 


06469 


DSKSW 


06052 


NEWCD 


04822 


STPSV 


04418 


DDOARS 


02795 


BASE 


01600 


EXIT 


02558 


NODDA 


02876 


SUBNO 


04593 


DDOASC 


02726 


BUF 


07999 


FILSV 


05746 


NOISY 


03450 


SUBRD 


04726 


DELETE 


04034 


CAPCK 


05934 


FINAL 


04350 


NOTRM 


04898 


SUPER 


02934 


DELTEO 


06733 


CAP 


03198 


FOREQ 


07280 


NVET 


06910 


SV 


05776 


DISKCK 


06018 


CARD 


04833 


FOREX 


03306 


NYMES 


06849 


SWPQ 


04976 


FVLAFP 


04282 


CHECK 


02462 


FORM 


05722 


OUT 


06500 


TCP 


06518 


ISTATM 


02641 


CKSET 


03526 


INDA 


05029 


PARAM 


03418 


VLAFP 


04114 


LORMKS 


07280 


CKSUB 


04370 


I NO 


04361 


PBOTH 


05426 


WA2 


02934 


LOCUS 


06315 


CONST 


05346 


INST 


04918 


PCK 


02365 


WA3 


07300 


MODIFY 


04810 


CTLAR 


06458 


IOCAL 


00716 


PKUP 


05889 


MAF 


07400 


MONCAL 


00796 


DDA2 


02749 


IOD 


03026 


PLOAD 


05486 


WA 


07400 


M0V2ND 


05614 


OOAL 


07388 


IOGT 


00566 


PLUSL 


02398 


XEQ 


02402 


NDINST 


05216 


DOAP 


02593 


IORBC 


00520 


PNOTC 


05646 


SECLST 


02674 


NOOISK 


02820 


DDAR 


02565 


IORT 


00565 


PNTR 


04857 


SETCOO 


03926 


NXTINO 


04846 


OOARS 


02734 


ISTAT 


07474 


QCK 


05138 


SPSTST 


06464 


PCONST 


05286 


ODA 


02734 


LNGCK 


05254 


ROCTL 


03346 


SUBSET 


03514 


PICKAO 


04617 


DOASC 


02711 


LNG 


05263 


RDDIM 


03698 


SUBVEC 


02215 


PICKUP 


07443 


OOAW 


02764 


L 


07435 


RDSUB 


04510 


SYSCAL 


00475 


PSUEOO 


05390 


000A2 


02787 


MANTL 


03470 


RMARK 


00421 


TYPINF 


03818 


ROFRST 


03114 


OOOAP 


02606 


MESGS 


06563 


RM 


04878 






REDUCE 


06066 


OOOAR 


02585 


MESL 


06529 


RMS 


06456 






REL INC 


00434 


OOOA 


02779 


MESND 


06503 


SCT 


05841 







END OF ONE ASSEMBLY. 
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PACE 1 



OOv ID* 
00020 


* SPSLH 
SSTDAD 


OS 


4t IPS I I'D MODI P IC AT I ON 
•18899 


PNOftNAN 






188*9 


00000 




00010 


NSTDAD 


OS 


• 18914 








18914 


00000 




00040 


SSTSCT 


OS 


• 89 








00019 


00000 




00090 


A2DAD 


OS 


• 18800 








18900 


00000 




00060 


A2SCT 


OS 


• 'A 








00094 


00000 




00070 


A201S 


DS 


• IS 








00011 


00000 




00080 


1EP0 


DS 


•02300 








02100 


00000 




00090 


COLL 


OS 


#02499 








02414 


00000 




00100 


TVINSM 


DS 


•02471 








02471 


00000 




001 10 


COINSM 


DS 


•02474 








02474 


00000 




00120 


MINSK 


DS 


•02475 








02475 


00000 




00130 


PRTL IN 


DS 


•02902 








02902 


00000 




00 140 


HCL IN 


DS 


•02507 








02907 


00000 




00150 


CLEAEA 


DS 


•02696 








02696 


00000 




00 160 


INPUT 


DS 


• 02883 








02883 


00000 




001 TO 


limi rs 


DS 


•03283 








03263 


00000 




00180 


ADDAS 


DS 


•03295 








03295 


00000 




00190 


LOPQUT 


DS 


• 01323 








03323 


00000 




00200 


PHASEA 


DS 


•03404 








03404 


00000 




002 10 


PAOSTN 


DS 


•03912 








03912 


00000 




00220 


ALFOP 


DS 


•04612 








04612 


00000 




CO ? 30 


ALFLP 


DS 


•04712 








04712 


00000 




00240 


EA 3 


DS 


•04844 








04644 


00000 




00250 


IP 


DS 


•04800 








04800 


00000 




00260 


E VAL AD 


DS 


•05676 








05676 


00000 




0 270 


OK 


DS 


•04924 








04974 


00000 




00280 


EVALER 


DS 


•07344 








07344 


00000 




00290 


LDLBL 


DS 


•08686 








08686 


00000 




00300 


LOTA 


DS 


• 09462 








09462 


00000 




00310 


ER4A 


DS 


•09866 








09866 


00000 




00320 


OUTPUT 


OS 


,09958 








09958 


00000 




00330 


INSTRN 


DS 


t 10528 








10528 


00000 




00340 


ST ART 2 


OS 


• 10666 








10666 


00000 




00350 


ST2L 


DS 


t 10982 








10982 


00000 




00360 




OURG 


1 1000 








11000 






00370 


L IBST 


GET 


PHAL 








11000 
11012 


LU 00565 
49 00566 


J1023 
J3337 


00380 




BTM 


MODSPStPROCON 








11024 


17 12676 


J1036 


00390 


PROCON 


BTM 


RDCKt»*20 








11036 


17 12888 


J 1056 


00400 




B7 


PHASEA 








11048 


49 03404 


00000 


00410 




TFM 


•♦30, INPUT-1 1 








11056 


16 11086 


-2872 


00420 




AM 


•♦18,2 i 10 








1 1068 


11 11086 


000-2 


00430 




CF 


•-• 








11080 


33 00000 


00000 


00440 




CM 


•-6, INPUT*l5l 








11092 


14 11086 


-3034 


00450 




BL 


• -36 








11104 


47 11068 


01300 


00460 




TFM 


SBNR^ll,INPUT-lO«, 


COMPRESS 


BLANKS 


11116 


16 L1151 


-2873 


00470 


SIP 


AM 


S8NR*il,2.lO 








11128 


11 11151 


000-2 


00480 


SBNR 


BNR 


•♦20,«-» 








11140 


45 11160 


00000 


00400 




B7 


SLPX 








11152 


49 11260 


00000 


00500 




C 


CLERER+l , SBNR ♦ 1 1, 11 








11160 


24 02697 


1115J 


005 10 




BNE 


SLP 








11172 


47 11128 


01200 


00520 




TF 


STR+1 I ,SBNR+ll 








11184 


26 11243 


11151 


00530 




TF 


STR + 6,SBNRm 








11196 


26 11238 


11151 


00540 




SM 


STR 4-6 , 1,10 








1 1208 


12 1 1238 




00550 




AM 


STR+ll,l,10 








11220 


11 11243 


000- 1 


00560 


STR 


TR 










11232 


31 00000 


00000 


00570 




87 


SBNR 








11244 


49 11140 


00000 


00580 




B7 


SBNR 








11252 


49 11140 


00000 


00590 


SLPX 


CM 


S8NR+11, INPUT-10+2M3 








11260 


14 11151 


-2899 


00600 




BL 


• ♦36 








11272 


47 11308 


01300 


00610 




C 


INPUT-10+2«12,C1+2«12 








1 1284 


24 02897 


11533 


00620 




BE 


CIP 








1 1296 


46 11644 


01200 


00630 




CM 


S8NR+11,INPUT-10^2»13 








11308 


14 11151 


-2899 


00640 




BL 


• ♦36 








11320 


47 11356 


01300 


00650 




C 


INPUT-10+2»12,C2^2»12 








11332 


24 02897 


11559 


00660 




BE 


C2P 








1 1 344 


46 11816 


01200 


00670 




CM 


SBNR+11, INPUT-10^2»24 








11356 


14 11151 


-2921 


00680 




BL 


• ♦36 








11366 


47 11404 


01300 


00690 




C 


INPUT-10+2»23,C3^2»23 








11380 


24 02919 


11607 


00700 




BE 


C4P 








1 1392 


46 11920 


01200 


00710 




CM 


SBNR+11,INPUT-10^2»07 








11404 


14 11151 


-2857 


00720 




BL 


• ♦36 








11416 


47 11452 


01300 


00730 




C 


INPUT- lO+2»06,C4+2«06 








11428 


24 02685 


1 1621 


00740 




BE 


C3P 








11440 


46 12348 


01200 


00750 




CM 


SBNR+li, INPUT-lO+2»ll 








1 1452 


14 11151 


-2895 


00760 




BL 


• ♦36 








11464 


47 11500 


01300 


00770 




C 


INPUT-10+2«10,C5*2»10 








11476 


24 02893 


1 1643 


00780 




BE 


C5P 








1 1488 


46 12356 


01200 


00790 




B7 


PHASEA 








11500 


49 03404 


00000 


00800 


CI 


OAC 


13,»0EFINE0PC00E 








11509 


00026 




00810 


C2 


DAC 


13,»DELETEOPC00E 








11535 


00026 




00820 


C3 


DAC 


24, •DEFINE SYSTEMSYMBOt TABLE 






11561 


00048 




00830 


C4 


OAC 


07,*EN0LIB 








11609 


00014 




00840 


C5 


DAC 


ll,«LIST0PC00E 








11623 


00022 




00850 


CIP 


GET 


OPTAB » • • 


OEPINE 


OP 


CODE 


11644 
11656 


10 00565 
49 00566 


J 1667 
J3313 


00860 




BTM 


M0DSPS f «+12 








11666 


17 12676 


J1680 


00870 


C1P2 


BTM 


A0CK.EN0C1P 








11680 


17 12688 


J3078 


00880 




BTM 


ALFOP, ^20 








11692 


17 04612 


J1712 


00890 




B7 


ALRIN 








11704 


49 13110 


00000 


00900 




TF 


0PSAV,ZP+18,U 


• 






11712 


26 13376 


0481Q 


00910 




TF 


ZP+18,60S,6 








11724 


26 0481Q 


13368 


00920 




SF 


INPUTS 11 








11716 


32 02894 


00000 


00930 




BTM 


ALFOP, NOSPAC 








11746 


17 04612 


J3130 


00940 




BTM 


EVALA0,»»12»4 U 








11760 


17 05076 


U77K 


00950 




TF 


ZEP0^10,A00AS 








11772 


26 02330 


03295 


00960 




TF 


ZEP0+27.0PSAV 








11784 


26 02327 


11376 


00970 




TF 


2P^11,IEP0^10.6 








11796 


26 0461J 


02330 


00980 




67 


PHASEA 








11608 


49 03404 


00000 


00990 


C2P 


GET 


OPTAB, •« 


OIlETE 


OP 


COOE 


11616 
11828 


10 00569 
49 00566 


J 1819 

J1113 


01000 




BTM 


M00SPS,*412 








11840 


17 12676 


J 1892 


01010 


C2P2 


BTM 


R0CK,ENDC1P 








11692 


17 12886 


43078 


01020 




BTM 


ALFOP •NOT IN 








11864 


17 04612 


J 1096 


010)0 




TP 


IMPUTE 16,601 








11874 


26 02901 


13168 


01040 




TP 


Z2P0*27»ZP4lB«U 








11888 


26 02927 


046 1Q 


01050 




TP 


ZP*U*ZEPO+10«6 








11900 


26 0461J 


02110 


010*0 




87 


PHASEA 








11912 


49 01404 


00000 


01070 CAP 


TPH 


SSTQCP*9 ( NSTDA0» t . 


tmim svsttN it 


NtOL TABLE 


















11910 


14 12337 


J 64 14 


01080 




BTN 


N0®SPt ( »*12 








11912 


17 12676 


J 1944 


01090 C4P1 


TP 


S8T0CP4tl 9 HCLIN 








11944 


26 12149 


ASSAY 


01100 




SM 


SSTBCmitltrSCT'lO**!! 








11994 


12 12149 


•1911 


OHIO 




MT 


1ST 








11948 
11980) 


10 00949 
49 0094* 


41991 
42124 


01120 




TP 


C4P02*ll«S8T0C*4ll 








11992 


24 12027 


12149 


OHIO 




AM 


C4#6)2*lW4tlO 








18004 


11 12027 


000-4 



mm 



131 



01 140 


C4P02 


$ 


PBTLIMt»-» 




12016 


22 


02502 


00000 


01 150 




TR 


LlNITS-?»PRTLIN-4 




12020 


31 


03274 


02498 


01160 




s 


LDTR*ll,C4P02+ll til 




12040 


22 


09473 


1202P 


01 170 




$ 


LOTH* 6,C4P02+ll*ll 




12052 


22 


09468 


1202P 


01100 




TFM 


PMA5cA-lt**l2 




12064 


16 


03403 


J2076 


01190 




BTM 


ROCK tC4EN0 




12076 


17 


12888 


J2176 


01200 




AM 


ENTCNT, 1 , 10 




12088 


11 


12318 


000-1 


01210 




CM 


ENTCNT, 150,9 




12100 


14 


12318 


00J50 


01220 




BH 


C20ECT 




12112 


46 


12144 


01100 


01290 




BTM 


EVALAO, •♦12,4 




12124 


17 


05076 


12136 


01240 




B7 


LDLBL 




12136 


49 


08686 


00000 


01250 


C20ECT 


RCTV 






12144 


34 


00000 


00102 


01260 




MATY 


C20EM 




12156 


39 


12257 


00100 


01270 




CALL 


EXIT 




12168 


49 


00796 


00000 


01280 


C4EN0 


TF 


C4P02* 1 1 »HCL I N,6 




12176 


26 


1202P 


02507 


01290 




S 


C4P02*ll»PRTLlN,6 




12188 


22 


1202P 


02502 


01300 




SM 


C4P02*ll»17,6 10 




12200 


12 


1202P 


000J7 


01310 




TFM 


SSTDCF*5,SSTDA0 




12212 


16 


12337 


J8899 


01320 




PUT 


SST,RBC 




12224 


10 


00565 


J2247 












12236 


49 


00520 


J2324 


01330 




B7 


PROCON+20 




12248 


49 


11056 


00000 


01340 


C20EN 


OAC 


30*LIMIT OF 150 SYMBOLS 


EXCEEOED* 


12257 


00060 




01 350 


ENTCNT 


DC 


3,0 


*. 


12318 


00003 




0 1 360 




OS 


5 




12323 


00005 




01370 


SST 


DD 


, SSTDCF, i ,A 




12324 


00002 22 














12326 


00005 J2332 












12331 


0000 1 • 




01380 


SSTDCF 


DOA 


,0,SSTDAD» SSTSCT,*-* 




12332 


00006 0 J 8899 












12338 


00003 -35 












12341 


00005 -0000 


01390 




DC 


It • 




12346 


0000 1 




01400 


C3P 


CALL 


EXIT 




12348 


49 


007T* 


conoo 


01410 


C5P 


GET 


OPTAB o i , 


LIST OP CODE 


12356 


10 


00565 


J 23 79 


01420 










12368 


49 


00566 


J 33 13 




TFM 


ZP*36*6,C5l>2 




12380 


16 


04842 


J2556 


01430 




TF 


INPUT*18iCL£RER*7 




12392 


26 


02901 


02703 


01440 




TF 


L0P0UT.CLERER+9 




12404 


26 


03323 


027C5 


01450 




TF 


X09.CLERER*! 




12416 


26 


12625 


0269/ 


01460 




TFM 


INPUT+12,99, 10 




12428 


16 


02895 


000R9 


01470 




BTM 


ALFOP, »M2 




12440 


17 


04612 


J2452 


01480 




TFM 


INPUT* 14,99, 10 




12452 


16 


02897 


000R9 


01490 




BTM 


ALF0P,«*12 




12464 


17 


04612 


J2476 


01500 




TFM 


INPUT* 16,99, 10 




12476 


16 


02899 


O00R9 


01510 




BTM 


ALF0P,»*12 




12488 


17 


04612 


J2500 


01520 




TFM 


INPUT+18,99, 10 




12500 


16 


02901 


000R9 


01530 




BTM 


ALF0P,»*12 




12512 


17 


04612 


J2524 


01540 




TFM 


ZP+36+6, ALFLP 




12524 


16 


04842 


-4712 


01545 




TFM 


PHASEA-l,PROCON 




12536 


16 


03403 


J1036 


01550 




B7 


PMASEA 




12548 


49 


03404 


00000 


01560 


C5P2 


TF 


LOPOUT-2,2EPO*27 




12556 


26 


03321 


02327 


01570 




C 


60S-6, LOPnuT-2 




12568 


24 


13362 


03321 


01580 




BE 


ALFLP 




12580 


46 


04712 


01200 


0 1590 




BD 


•♦24»»»24+9 




12592 


43 


12616 


12625 












12604 


34 


00000 


00102 


01610 


XC 


AM 


•♦9,2,8 10 




12616 


11 


12625 


0-0-2 


01620 




WATY 


LOPOUf-8 




12628 


39 


03315 


00100 


01630 




WNTY 


ZEPO+28 




12640 


38 


02328 


00100 


01640 




SPTY 






12652 


34 


00000 


00101 


01650 




87 


ALFLP 




12664 


49 


04712 


00000 



01660 




OS 


5 






12675 


00005 




01670 


MOOSPS 


TF 


PR0STM*6,BPHA^6,, 


CONVERT 


INPUT ROUTINE 




















12676 


26 


03918 


12810 


01680 




TFM 


0K+l,42,lO,, 


CONVERT 


OP CODE 


12688 


16 


04925 


000M2 


01690 




TF 


ER3^6,B0P*6, , 


LOOK-UP 


ROUTINE 


12700 


26 


04850 


12818 


01700 




TF 


OUTPUTS, BLDLBL*6,, 


CONVERT 


LDLBL ROUTINE 




















12712 


26 


09964 


12826 


01710 




TF 


ER4A*6,BER4+6 






12724 


26 


09872 


12842 


01720 




TF 


EVALER*6,BER5+6, , 


CONVERT 


EVALAO 


12736 


26 


07350 


12834 


01730 




TF 


PHASEA-1,M0DSPS-1 






12748 


26 


03403 


12675 


01740 




TF 


ST2L*6,BST2*6 






12760 


26 


10988 


12850 


01750 




TOM 


ZEPO+31 






12772 


15 


02331 


00000 


01760 




DC 


1»*»» 






12783 


0000 I 




01770 




TFM 


AL FOP* 36*6 t NOT! N 






12784 


16 


04654 


J3058 


01780 




B7 


STAR T2 






12796 


49 


10666 


00000 


01790 


BP HA 


B7 


PHASEA-1,,0 6 






12804 


M9 


0340L 


00000 


01800 


BOP 


87 


ALPOP-1,,0 6 






12812 


M9 


0461J 


00000 


01810 


BLOLBL 


B7 


PMASEA, ,0 






12820 


M9 


03404 


00000 


01820 


BER5 


87 


ER50ET , ,0 






12828 


M9 


13150 


00000 


01830 


BER4 


B7 


ALRIN, ,0 






12836 


M9 


13110 


00000 


01840 


8ST2 


B7 


ST2C, ,0 






12844 


M9 


12852 


00000 


01850 


ST2C 


BL 


C15P 






12852 


47 


13270 


01300 


01860 




BE 


C14P 






12864 


46 


13226 


01200 


01870 




B7 


C13P 






12876 


49 


13182 


00000 


01880 




DS 


5 






12887 


00005 




01890 


ROCK 


BNR 


•♦24,INPUT-10 






.12888 


45 


12912 


02873 


01900 




TFM 


INPUT-10, 00,10 






12900 


16 


02873 


000-0 


01910 




BD 


•♦36,TVINSW 






12912 


43 


12948 


02473 


01920 




RCTY 








12924 


34 


00000 


00102 


01930 




WATY 


INPUT- 10 






12936 


39 


02873 


00100 


01940 




CM 


INPUT-10,14,10 






ii *48 


14 


02873 


000J4 


01950 




BE 


RDCK-01,,6 






12960 


46 


1288P 


01200 


01960 




SF 


INPUT- I 






12972 


32 


02882 


00000 


01970 




SF 


INPUTMl 






12984 


32 


02894 


00000 


01980 




TFM 


•♦30, INPUT* 17 






12996 


16 


13026 


-2900 


01990 




AM 


•♦18,2,10 






13008 


11 


11026 


000-2 


02000 




SF 


•-• 






13020 


32 


00000 


00000 


02010 




CM 


*-6,INPUT*15l 






13032 


14 


13026 


-3034 


02020 




BL 


• -36 






13044 


47 


13008 


01300 


02030 




882 








13056 


42 


00000 


00000 


02040 


NOTIN 


WATY 


NOTINN 






13058 


39 


13453 


00100 


02050 




87 


PHASE A 






13070 


49 


03404 


00000 


02060 


ENOCIP 


PUT 


OPTAB, RBC 






13078 


10 


00565 


J3101 














13090 


49 


00520 


J3313 


02070 




B7 


PROCON+20 






13102 


49 


11056 


00000 


02080 


ALRIN 


WATY 


ALRINM 






13110 


39 


113" <• 


cnioo 


02090 




B7 


PKASEA 






13122 


49 


034v>1 


a <ooo 


02100 


NOSPAC 


WATY 


NOSPN 






13130 


39 




,10100 


02110 




87 


PMASEA 






13142 


49 


03<>' T 4 


00000 


02120 


ER50ET 


WATY 


UNOSVN 






13150 


39 


13483 


00100 


02130 




WATY 


COLL- 12 






13162 


39 


02427 


00100 


02140 




87 


PMASEA 






13174 


49 


03404 


00000 


02150 


C13P 


TOM 


CDINSW,l,ll 






13182 


IS 


024 74 


OOOOJ 


02160 




TDM 


PTINSW,0 






13194 


15 


02475 


00000 


02170 




TON 


TVINSW,0 






13206 


11 


02473 


00000 


02180 




§7 


PMASEA 






13218 


49 


03404 


00000 


02190 C14P 


TON 


PTINfW,l,ll 






11226 


IS 


02475 


OOOOJ 


02200 




TON 


COINSN.O 






aim 


15 


02474 


00000 


02210 




TON 


TYfMSWtO 






13210 


15 


02473 


80000 



PAGE 5 



02220 




BT 


PHASE A 


11262 


49 03404 00000 




C1SP 


TOW 


TV! feity .1.11 


13270 


15 02473 OOOOJ 






TDM 


rut M<y .n 


132B2 


19 02474 00000 


n?>«n 




TDM 


PTI NSM.O 


13294 


15 02479 00000 


02260 




67 


PMASEA 


13306 


49 03404 00000 


02270 


OPTAB 


DO 


| Ur IDf | |H 


13313 


00002 


22 










13315 


00009 


J3322 










13320 


00001 


1 


02280 






* U * AcUAU* R2U 1 > < A« »!• I **UI )| 


I NCTBM« 1 HO* 471*1 1 C 














13322 


00006 


0 J8833 










1 332B 


00003 


-21 










13331 


00009 


J3828 


02290 




DC 


1 • 


13336 


0000 1 




02 300 


PHA1 


DO 


.A10CF...A 

1*1 V*»r f f t * 


13337 


00002 


22 










13339 


00005 


J 3346 










1 3344 


0000 1 




02310 






.1.1 a Ann. A7. ? 'inn 

till BOUU f O 1 f £ JUU 


1 3346 


00006 


1 J 8600 










13352 


00003 


-87 










1 3355 


00005 


-2300 


02320 




DC 


I » 


1 3360 


00001 




02330 


60S 


DC 


8*60606060 


13366 


00008 




02340 


OPSAV 


DC 


8*0 


13376 


00008 




02350 


ALRINM 


DAC 


18. ALREADY DEFINED* 


13379 


00036 




02360 


NOSPN 


DAC 


19, NO ROOM IN TABLE* 


13415 


00038 




02370 


NOTINM 


OAC 


15. NOT IN TABLE* 


13453 


00030 




02380 


UNDSYM 


OAC 


20, UNDEFINED SYMBOL < 


13483 


00040 




02390 




DENO 


LIBST 


1 1000 
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SPS I ID MONITOR I SUBROUTINE SET 00 



SYMBOL TABLF 

8FLG 00520R DIVl 00124R EMD 00892R INDAD 01008R NZQ 00744R 
PCK 02365 POST 00292R PQ 00800R SET 009b8R SUB 00688R 

ZEROS 01120R 



PCK OS ,2365 02365 00000 

••••* SUBROUTINE SET 00 SOFT DIVIDE ...19 APL 63...JHB 







DSA 


DIV1-24 












00004 


00005 -0100 






DORG 














00000 












DS 


100 


* • 




BUFFER 


REQQ FOR 


CORE IMAGE OBJ PGM 




















00099 


00 100 








TF 


om*ii 


,PCK*10 










00100 


K6 


00135 


02375 






AM 


oivmi 


t04 










00112 


Jl 


00135 


00004 


05080 


DIVl 


TF 


P0ST*ll 




• 0. 


LOAD A 


ADR 




00124 


K6 


00303 


00000 






TFM 


INDAD+42 


!»*20 










00136 


JO 


01050 


00156 






B7 


INDAD 












00148 


M9 


01008 


00000 


05110 




TF 


SUB* 11 


,INDA0*59 


• 01 




.LOAD 


B 


ADDR 
00156 


KO 


00699 


01067 






TFM 


IN0AD+42 


,**20 










00166 


JO 


01050 


00188 






87 


INDAD 












00180 


M9 


01008 


00000 


05140 




TF 


P0ST*6 


• I NO AD* 59 


• 01 




.LOAD 


SHIFT 


























00168 


KO 


00298 


01067 






TFM 


INDAD*42 


,•♦20 










00200 


JO 


01050 


00220 






B7 


INOAO 












00212 


M9 


01008 


00000 


05170 




TF 


SUB* 6 


,IN0AD*59 


.01 




•LOAO 1 


LQ 


00220 


KO 


00694 


01067 


05180 




AM 

TF 
TF 


oivmi, 

99 
66 


02,010 
t ZEROS 
•ZEROS 










00232 
00244 
00254 


Jl 
20 
20 


00135 
00099 
00066 


000-2 
01120 
01120 






TF 


37 


i ZEROS 










00268 


20 


00037 


01120 


06020 




TDM 


4,0 












00260 


15 


00004 


00000 


06030 


P0S7 


TF 














00292 


26 


00000 


00000 


06040 




TDM 


P0ST+22 


fl 


• 09 








00304 


J5 


00314 


00-01 


06050 




TF 


P0ST447 


,POST*U 


• 01 








00316 


KO 


00339 


00303 


06060 




BNF 


•♦48*, 0 












00326 


M4 


00374 


00000 


06070 




TDM 


POST*22 




•Oil 








00340 


J5 


00314 


0000- 


06080 




TF 


•♦IB 


,'p0ST*4 


.01 








00331 


KO 


00370 


00296 


06090 




CF 














00364 


33 


00000 


00000 


06100 




TDM 


SUB* 1,2, 


0 










ooifi 


JS 


00689 


00002 


06110 




TDM 


PO-ll.l. 


0 










00366 


J3 


00766 


00001 


06120 




TF 


• *23,SU6*U ,01 










00400 


KO 


00423 


00469 


06130 




BNF 


•♦48,, 0 












00412 


M4 


00440 


00000 


06140 




SM 


POIT*22 


• 1 


• 010 








00424 


J2 


00314 


000-1 


06 ISO 




TDM 


SU6*l,l, 


0 










00436 


JS 


00466 


00001 


0*160 




TOM 


PO-11.2. 


0 










00446 


Jl 


00766 


00002 


06170 




TF 




»P0«T*6 


•01 








•6664 


KO 


00461 


00106 


06160 




SM 


•♦MfltOlO 










06471 


Jl 


60466 


000-1 


06190 




•MP 


•-12»»0 












•6666 


M4 


00472 


00000 


06200 




TF 


•♦SlfSUtolltOt 










66466 


KO 


00911 


00666 


07010 




SM 


•♦H.ltOlO 










•6066 


Jl 


00931 


000-1 


07020 


•no 


•MP 


*>*ltf»0 












60116 


H4 


00906 


00000 


07030 




A 


*-l,SU6*4,01 










66631 


KJ 


00131 


00664 


07040 




t 


BFL6*ll, 


SURotttOl 










06644 


KK 


00931 


00666 


07090 




C 


6PL6*ll.6PL6-29,01 










00166 


KM 


00931 


60469 
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•Ht 


•♦14 
















CP 


BPL4-37 • 




00580 


13 


0048L 


AAAAA 
UUUUU 






SP 


BP LB* 11 t 


18 


00592 


1 2 


0053 J 


AAAOA 


07120 




TP* 


SUB ♦42,N2Qt0l7 




0060* 








071 JO 




TP 


PQ*6tBFL04llt01 




006 16 


KO 


00806 


00531 


071*0 




SH 


PQ>6tl tOlO 




nnff n 


in 




000" I 


07150 




TF 


EM0*6»FQ*6t0i 






KO 




00806 


07160 




TF 


PQ-iiSUB*ll»Ol 






1« 


00799 




07170 




TOM 


S6T*ll.t f 0 








00999 


AAAAfl 
UUUUU 


07180 




TFM 


•'♦ft ,010 






J6 






07190 


SUB 


S 








22 


uuuuu 


nnnnn 
UUUUU 


07200 




BN 


PQ-24, ,0 










911199 


08010 




AN 


SUB-3 t UtOlO 




00712 


j i 


00685 




08020 




BD 


t SUB- 3, 11 








uuuuu 


00685 


08030 




B7 


SET ,»0 






MQ 

.1 




UUUUU 


08050 


NZQ 


TOM 


SET+11,1,0 




0074* 


J5 


QOWi 


00001 


08060 




TFM 


SUB+42,SU8»017 










~0688 


08070 




B7 


SUB, ,0 




00768 


MO 




UUUUU 


08090 




TF 


• ♦18, SUB*6t0l 




nn-rlfl 


a 

KO 


00794 




08100 




A 






aa! aa 


2 1 


UUUUU 


nnnnn 
UUUUU 


08110 


PQ 


TO 


i SUB-3, I 




00800 


?N 


UUUUU 


a?oaa 






BNZ 


• ♦24 




00812 


M7 


00836 


0 1200 






CF 


SUB+6 ( 


|6 


00824 


L 3 


0069M 


OUUUU 


08160 




AM 


SUB*6, 1,010 




00836 


J I 






08170 




BO 


EMD, SUB+4,01 




AA Q^A 


1^ 


AAOaI 


ftAAQ? 


08180 




AM 


PQ+6, I ,010 




00860 


J 1 


00806 


aaa • 

000— I 






SF 


P0*6 * 


■ 

»6 






nnann 
UUUUU 


UUUUU 


09010 




B7 


SUB-12 , ,0 






MO 




UUUUU 


09030 


END 


SF 




00892 


32 


UUUUU 


AAAAn 

0UUU0 






BD 


•♦36 »P0ST+22 




00904 


ML 


00940 


003 14 






SF 


PQ*6 , 


,6 


00916 


L2 


00800 


00000 


09070 




SF 


SET+ll , ,0 




00928 


L2 


00999 


00000 


09080 




AM 


PQ+6, 1 ,010 




00940 


J I 


00806 


000- 1 






SF 


PQ*6 , 


,6 


00952 


12 


00800 


00000 


09110 




BNF 


•♦24 ,P0ST*22 


,01 


00964 


MM 


0098R 


00314 


09120 




SF 


99 




00976 


32 


00099 


00000 


09130 


SET 


AM 


•♦11, ,010 




00988 


J I 


00999 


000-0 






87 


DIVl+ll , 


,6 


01000 


M9 


00 1 3N 


00000 


09170 


INDAO 


AM 


OIVl+ll ,05 


,010 


, 1 NO ADDR ROUT ! 

0 1008 


[ NE 
J 1 


00 135 


000-S 


09180 




TF 


•♦23 ,DlVl*ll 


i0i 


01020 


KO 


01043 


00135 


09190 




TF 


INDAD+59 , 


,0 


01032 


K 6 


0 1067 


00000 


09200 




BNF 


0 ,1 NDAD+59 


1 1 




4M 


00000 










1 IMUAU+ 5V , U 


t o 


01056 


L3 


01067 


00000 


10020 




TF 


INDAD+59 , INDAD+59 


,0111 


01068 


KO 


01067 


0106P 


10030 




B7 


INOAD+36 , 


,0 


01080 


M9 


01044 


00000 




ZEROS 


DC 


34 ,0 




01120 


00034 








DEND 


00011 




00011 
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SPS I ID MONITOR I SUBROUTINE SET 01 



N0SDIG 02401 
EDGAR 0000OR 
LCN3 00553R 
NINES 00499R 
PICK 00100R 
ZRES 00448R 



ALPHA 00066R 
F AC 00066R 
LCN4 00563R 
QNEZ 00513R 
SAVE O0O77R 



SYMBOL TABLE 

AZERO 00488R 

FLONE 00604R 

LCN5 00573R 

OVFL 00380R 

SIGN 00308R 



BETA 0009BR 

LCN1 00533R 

LCN6 00583R 

P 00000 

STORE 00344R 



CZERO 00594R 
LCN2 00543R 
LOGE 00523R 
PCK 02365 
UNFL 00424R 



01010* 
02040«»»«»» 
01080«»»»«» 
01090»»*»»» 
01100****** 
O I IT0» 
01120«*«»»« 
01130«»»*«» 
01140»»«»«» 
01150«*'***» 
01160»»«»»» 
01170****** 
01 180****** 
01190* 
01200****** 
02010* 
02020»«»»»« 



PICK ROUTINES FIXED 8 DIGIT MANTISSA LENGTH 
FOR OPERANDS A AND B ONLY 

PCK AREA MAY BE USED AS A WORK AREA IF SUBR NOT USED. IF 
SUBROUTINES REQUIRED, THEN THE AREA IS USED AS FOLLOWS 
02401 NOISE DIGIT. SOURCE , SU8R0UT I NE SUPERVISOR 

PCK ADR OF PICK. SOURCE , SU8R0UT I NE SUPERVISOR 

PCK+5 ADR OF RETURN TO SUBR. SOURCE, SUBROUTINE 

PCK>10 ADR OF RETURN TO MAINLINE. SOURCE, PR I MARY LINKAGE 
PCK* 15 ADR OF A OPERANO CHARACTERISTIC. SOURCE, PICK 
PCK+20 AOR OF B OPERANO CHARACTERISTIC. SOURCE, PICK 
PCK*25 AOR OF A OPERANO MANTISSA. SOURCE, PICK 

PCK+30 AOR OF B OPERANO MANTISSA. SOURCE, PICK 

PCK*3l RESERVED FOR POSSIBLE RECORD MARK • 
PCK* 35 4 RESERVED CORE 

PCK-6 THRU PCK-90 SU8VEC FOB THE 17 FURNISHED SUBROUTINES 

ADRS ARE SUPPLIEO BY THE SUBROUTINE SUPERVISOR 
PCK-91 DOWN TO END OF IORT MAY BE USED IF NO AnAFD SUBROUTS 





P 


OS 


.0 






OuuOO 


00000 




02080 


PCK 


DSB 


5 ,8 


,2365 




02365 


00040 






DSA 


PICK 






00004 


00005 -0100 


02081 


EDGAR 


OS 


#•-4 






00000 


00000 




02082 




DORG 


EOGAR 






OOOOO 






02141 




DS 


46,, WASTE 






00045 


00046 




02142 


ALPHA 


OS 


21 






00066 


00021 




02144 


SAVE 


DS 


11 






00077 


00011 




02145 


BETA 


OS 


21 






00098 


00021 




02146 




OS 


1 






00099 


00001 




02160 


PICK 


TO 


401 


,BETA*l-P 


tit 


BESET ERROR INOICATOR 
00100 


2N 00401 


00099 


02170 




TR 


PCKM1 


,PCK*10 


tilt 


MOVE OPERANDS FROM MAINLINE 
















• 00112 


31 02376 


0237N 


02180 




AM 


PCKMO 


ill 


tt 


CAl'C RETURN AOR 00124 


11 02375 


-00 1 1 


02190 




BNF 


• ♦44 


,PCK*15 


1 1 


PROCESS A OPERANO 

00136 


M4 001* 5 


ar.380 


02200 




CF 


PCK*13 






00148 


33 02:30 


i 0000 


03010 




TF 


PCR>15 


,PCK*15 


til 


00160 


26 02U0 


0238- 


03020 




B7 


•-36 




tO 


00172 


M9 00136 


00000 


03040 




TF 


PCK425 


, PCK* I 5 


t » 


A MINUS 2 00180 


26 02390 


02390 


03050 




SM 


PCK+25 


.2 




00192 


12 02390 


-0002 


03060 




BNF 


• ♦44 


,PCK*20 


1 1 


PROCESS 8 OPERANO 

00204 


M4 00248 


02385 


03070 




CF 


PCK*20 






00216 


33 02)85 


00000 


03060 




TF 


PCK>20 


,PCK*20 


til 


00228 


26 02383 


0236N 


03090 




B7 


•-36 






00240 


M9 00204 


00000 


03110 




TF 


PCKOO 


tPCK*20 


1 1 


B MINUS 2 00248 


26 02395 


02385 
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0)120 




SN 


PCKOO 


»2 


tS, 


DEL I if RATI 


OVERFLOW 
























00280 


12 023R5 


00002 


031 30 




TF 


BE TA 


, PCK+20 


til • 


MOVE B 


CHAR TO 


BETA 
























002T2 


ma nnnoi 


OZ JRN 


03140 




TF 


BETA-2 


,PCK*30 


tilt 


MOVE B 


MANT TO 


BETA-2 
























00284 


KO UOUf 6 


0239N 


03150 




BV 


RCK»9 


t 


• At 


RETURN 


TO 


SUBROUTINE 
























00296 


46 0237- 


01400 


02010 


S I GN 


BNP 


• ♦24 


• 99 


,0 








00308 


M4 00332 


00099 


02020 




SF 


ALPHA-2 


• 


tO 








00320 


L2 00064 


AAAAA 

00000 


02030 




AM 


ALPHA-2 


, 00 


tOlOt 


SET HP 


EI 


INDICATORS 
























00312 


Jl 00064 


000—0 


02040 


STORE 


TF 


FCK*25 


» ALPHA-2 


tl* 








00344 


20 0239- 


00064 


02050 




TF 


PCKH5 


t ALPHA 


,18 








00356 


20 0238- 


00066 


02060 




B 


PCK*10 f • 


6 










00368 


49 0237N 


AAAAA 

00000 


02070 


OVFL 


TOM 


401 


» I 


1 11 








00380 


15 00401 


OOOOJ 


02080 




TF 


ALPHA-2 


tNlNES-2 


,01 








00392 


KO 00064 


00497 


02090 




TF 


ALPHA 


iNINES 


tOl 








00404 


KO 00066 


00499 


02100 




B7 


ZAESOO 


• 


,06 








00416 


M9 0047Q 


00000 


02110 


UNFL 


TDM 


401 


• I 










00424 


15 00401 


00001 


02115 




CF 


99 












00436 


33 00099 


00000 


02120 


IRES 


TF 


ALPHA-2 


,AZEA0-2 


,01 








00448 


KU 00064 


00486 


02130 




TF 


ALPHA 


,A2ER0 


,01 








00460 


KO 00066 


00488 


02140 




B7 


STORE 


» 


,0 








004 72 


M9 00344 


00000 


04140» 


PICK ROUTINE-SHARED CONSTANTS ANO 


WORKING ! 


STORAGE 








NOSDIG 


DS 


1 


,2401 










02401 


0000 I 




02103 




DC 


8 


•0000 0000 








00486 


00008 




02104 


AZERO 


DC 


2 


,-99 










00488 


00002 




02105 




DC 


1 


,» 










00489 


00001 




02063 




DC 


8 


,9999 9999 








00497 


00008 




02064 


NINES 


DC 


2 


,99 










00499 


00002 




02065 




DC 


I 


,' 










00500 


00001 




05090 


□NEZ 


DC 


13, 1000000000000 










00513 


00013 




05100 


LOGE 


DC 


10 


,43 4294 


4819 








00523 


00010 




05110 


LCN1 


DC 


10 


, 7 6923 


0769 








00533 


00010 




05120 


LCN2 


DC 


10 


, 9 0909 


0909 








00543 


00010 




05130 


LCN3 


DC 


10 


,11 1111 


1111 








00553 


00010 




05140 


LCN4 


DC 


10 


,14 2857 


1428 








00563 


00010 




05150 


LCN5 


DC 


10 


,20 0000 


0000 








00573 


00010 




05160 


LCN6 


DC 


10 


,33 3333 


3333 








00583 


00010 




05170 


CZERO 


DC 


11 


,0 










00594 


00011 




05180 


FAC 


DS 




, ALPHA 










00066 


00000 




05175 




DC 


8,10000000 










00602 


00008 




05176 


FLONE 


DC 


2,01 












00604 


00002 




05177 




DC 

DEND 


I,' 

01001 












00605 
01001 


00001 





NOSDIG 02401 
DIVW1 OOOOOR 
LCN2 00543R 
LOGE 00523R 
PCK 02365 
UNFL 00424R 



ALPHA 00066R 
EDGAR OOOOOR 
LCN3 00553R 
NINES 00499R 
PICK 00100R 
ZRES 00448R 



SYMBOL TABLE 

AZERO 00488R 
FAC 00066R 
LCN4 00563R 
ONEI 00513R 
SAVE 00077R 



BETA 00098R 
FLONE 00604R 
LCN5 00573R 
OVFL 00380R 
SIGN 00308R 



CZERO 00594R 
LCN1 00533R 
LCN6 00583R 
P UOOOO 
STORE 00344R 
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OSA OIVWl 
DORG EDGAR 
TR PCK*ll 



AM 

LD 
D 

B7 

DEND 



PCKUO 
PCK+25 
PCK+30 
PCK+10 
OLOli 



,21 

,PCK*15 
,PCK*20 



,611 
,611 
,6 



00004 00005 -QOOO 
00000 

MOVES DIV OPERANDS INTO PCK AREA 

00000 31 02376 0237N 

:alc return aor 00012 11 02375 -0021 

00024 28 0239- 0238- 
00036 29 0239N 0238N 
00048 49 0237N 00000 
01011 



NOSDIG 02401 
BETA 0009BR 
FLONE 00604K 
LCN4 00563R 
NORM 0042BR 
PICK OOIOOR 
ZRES 00448R 



ADD 00312R 
CZERO 00594R 
FS1 OOOOOR 
LCN5 00573R 
ONEZ 00513R 
SAVE 00077R 



SYMBOL TABLE 

ALPHA 0006OR 

EDGAR OOOOOR 

LCN1 00533R 

LCN6 00583R 

OVFL 00380R 

SIGN 00308R 



ASCOM 00084R 
FAC 00066R 
LCN2 00543R 
LOGE 00523R 
P 00000 
STORE 00344R 



AZERO 00488R 
FA1 00020R 
LCN3 00553A 
NINES 00499R 
PCK 02365 
UNFL 00424R 



PICK FLOATING ADD AND SUBTRACT ROUTINES 







DSA 


FS1 


,FAl 




00004 
00009 


00005 -0000 
00005 -0020 






DORG 


EDGAR 






00000 








07020 


FS1 


TFM 


PCK*5 


,FAl*20 


,17 


00000 


10 


02370 


-0040 


07030 




B7 


PCK,, 6 






00012 


49 


0236N 


00000 


07070 


FA I 


TFM 


PCK*5 


, ASCOM 


tl7 


00020 


10 


02370 


-0084 


07080 




B7 


PCK 


• 


,6 


00032 


49 


0236N 


00000 


07082 




DC 


50, 05500050505000053500 


005S5050555005050090 5050505005,350 














00350 


00050 




07090 




BNF 


ASCOM- 12 


, BETA-2 


,0, 


CHANGE SIGN ANO AOO 

00040 


MM 


00072 


00096 


07100 




CF 


BETA-2 






00032 


L3 


00096 


00000 






B7 


ASCOM 






00064 


M9 


00084 


00000 


07120 




SF 


BETA-2 






00072 


L2 


00096 


00000 


07130 


ASCOM 


TF 


ALPHA 


,PCK*15 


tilt 


' MOVE A OPERAND 000B4 


R6 


00086 


0238- 


07140 




TF 


ALPHA-2 


,PCK*25 


,11 


00098 


R6 


00084 


0239- 


07150 




TDM 


ADD* I 


tl 


,0 


00108 


JS 


00313 


0000 1 


07160 




TFM 


ADO* 11 


, BETA-2 


tOT 


00120 


JO 


00323 


-0096 


07170 




C 


ALPHA 


• BETA 




00132 


KM 


00066 


00098 


071 BO 




BE 


AOO 


t 


tO, 


CHARACTERISTICS EQUAL 
00144 


M6 


00312 


01200 


07190 




BH 


• ♦48 


, 


1 1 


ALPHA LARGER THAN BETA 
001 §8 


M4 


00204 


01100 


07200 




TR 


ALPHA-9,1 


IETA-9, ,! 


IMTTCH OttftAHOS 00 IBB 


LJ 


00057 


00089 


07210 




TF 


BETAtPCK+lf til 




00180 


R6 


00098 


0238- 


07220 




TF 


BE7A-2tPCK*2f t 11 




00192 


R6 


00996 


0239- 


07230 




S 


BETA 


t ALPHA 


• • 


SCALE 002*4 


RR 


00098 


00086 


07240 




BV 


STORE- 12 






00218 


A8 


00332 


01400 


00010 




A 


AHH11 


ttlTA 




Milt 


RJ 


00323 


00008 


08020 




BMP 


• ♦24 


, BETA- 2 




00244 


m 


00284 


00096 


08030 




TOM 


AOO* I 


tl 


:: 


00292 


49 


003 1 3 


00002 


08040 




CM 


BETA 


• T 


tlOlltCMtCft OIM III CHAftACTIfttSTICS 
















00184 


44 


00098 


000-P 
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BL 


STORE" 12 








00276 


M7 


00332 


01300 






TOM 


BETA- 10 


•° 


til 




00288 


J5 


00089 




09090 




CP 


BETA-9 








00100 


L3 


00089 


nnnnn 
UUUUU 


09090 


ADD 




ALPHA- 2 








00312 


Kl 


00064 


UUUUU 






TO 


99 


• ALPHA*" 2 


» • 


STORE SIGN 


00324 


2N 


00099 


00064 


09102 




OC 


40 ,5500505055 5050505050 5505555050 


0050305550 


340 


















00340 


00040 








TFM 


2RES*50 


.SIGN 






00336 


JO 


00478 


ftl 1 AA 








NORM 








00348 


NT 


00428 




08 1 30 




t , 


ALPHA . 


• 1 


.10 




00360 


J I 


00066 


000- 1 


08140 




BV 


OVFL 


t 


t • 


BR IF CHAR 


OVERFLOW 




















00372 


M6 


00380 


01400 








ALPHA- 2 


.ALPMA-3 


. t 


AO JUST MANTISSA 00384 


KO 


00064 


00063 


ft* in 

A« 1 ^A 




T HM 


ALPHA— 9 


1 1 


• 11 




00396 


J5 


0005 7 


0000 J 


08170 




re 


ALPHA-8 








00408 


L3 


00058 


UUUUU 


081 80 




67 


SIGN 








00420 


M9 


00308 


nnnnn 
UUUUU 


08 190 


NORM 


55 


ZRES-12 


. 


1 1 


BR IF ZERO 


00428 


M6 






08200 




Cr 






1 1 


NORMALIZE 


00440 


L3 


00064 


nnnnn 
UUUUU 


09020 




In 


BETA 


.ALPHA 






00452 


KO 


00098 


00066 


09090 






• ♦68 


, ALPHA-9 


tO 




00464 


ML 


005 32 




09040 




TD 


ALPHA-9 


, ALPHA-8 






00476 


LJ 


00057 


00058 






TO 


ALPHA- 2 


,NOS DIG 






00488 


K5 


0006* 


0240 1 


09060 




SM 


BETA 


.1 


.10 




00500 


J2 


00098 


000- 1 


090 70 




BNV 


•-48 


» 


.0 




00512 


M7 


00464 


0 1400 


09080 




87 


UNFL 








00524 


M9 


00424 


00000 


09090 




SF 


ALPHA-9 








00532 


L2 


0005 7 


00000 


09100 




TF 


ALPHA 


.BETA 






00544 


KO 


00066 


00098 


09110 




B7 

DENO 


SIGN 
01022 








00556 
01022 


M9 


00308 


00000 



NOSDIG 02401 
EDGAR 00000R 
LCN2 00543R 
LOGE 00523R 
PCK 02365 
UNFL 00424R 



ALPHA 00066R 
F AC 00066'* 
LCN3 00553R 
NINES 00499R 
PICK 00100R 
ZRES 00448R 



SYMBOL CABLE 

AZERO 00488R 

FLONE 00604R 

LCN4 00563R 

ONEZ 005 1 3R 

SAVE 00077R 



BETA 00098R 

FMl OOOOOR 

LCN5 00573R 

OVFL 00380R 

SIGN 00308R 



CZfcRO 00594R 
LCN1 00533R 
LCN6 00583R 
P 00000 
STORF 00344R 





DSA 


FMl 








00004 00005 -0000 




DORG 


EDGAR 








00000 




10030 FMl 


TFM 


PCK + 5 


,•♦20 


,17 




00000 10 02370 


-0020 


10040 


R7 


PCK 




,6. 


BR TO PICK AND 


RETURN 

00012 49 0236N 


00000 


10010 


OC 


30,5505500050 0000005000 


0500050000,350 


00350 00030 




10020 


TFM 


ZRES+30 


.SIGN 






00020 JO 00478 


00308 


10050 


M 


PCK425 


.BETA-2 


.6. 


MUL MANTISSAS 


00032 2L 0239- 


00096 


10060 


BZ 


ZRES-12 








00044 M6 00436 


01200 


10070 


BO 


• ♦56 


.84 


.0 




00056 M3 00112 


00084 


10080 


TFM 


SAVE 


.01 


.1011 


.CORRECTION FOR 


15 DIGIT PRODUCT 














00068 J6 00077 


000-J 


10090 


SF 


85 








00080 32 00085 


00000 


10100 


TF 


PCK+25 


,92 


.6 




00092 26 02 39- 


00092 


10110 


B7 


• ♦32 




.0 




00104 M9 00136 


00000 


10120 


TFM 


SAVE 


,00 


.10. 


INDICATE 16 DIGIT PRODUCT 















00112 


J6 00077 


000-0 


10130 


TF 


PCK+25 


,91 


.6 


00124 


26 0239- 


00091 


10140 


A 


PCK+15 


.BETA 


.6, 


ADD CHARACTERISTICS 
















00136 


2 J 02 38- 


00098 


10150 


BV 


• ♦72 






00148 


M6 00220 


01400 


10160 


A 


PCK+15 


» SAVE 


,6, 


ADJUST CHARACTERISTIC 
















00160 


2J 0238- 


00077 


10161 


BNF 


•♦24,99 






00172 


M4 00196 


00099 


10162 


SF 


PCK+25,,6 






00184 


32 0239- 


00000 


10165 


AM 


PCK^25,00 


.610 




00196 


11 0239- 


000-0 


10170 


BNV 


PCK*10,,6 






00208 


47 0237N 


01400 


10180 


BNF 


• ♦20 


,PCKM5 


,011. 


BR IF POSITIVE CHARACTERISTIC 














002*0 


M4 00240 


0238- 


10185 


DC 


6,500550, 


350 




00350 


00006 




10190 


B7 


UNFL 






00232 


M9 00424 


00000 


10200 


A 


PCK+15 


, SAVE 


.6. 


ADJUST CHARACTERISTIC 
















00240 


2J 0238- 


00077 


10210 


BNN 


OVFL 






00252 


M6 00380 


01300 


10220 


TFM 


PCK+15,99 


.610 




00264 


16 0238- 


000R9 


10230 


B7 


PCK*10t ,6 






002 76 


49 0237N 


00000 




DENO 


01041 






01041 







NOSQIG 02401 
CZERO 00594R 
LCN1 00533R 
LCN6 0058 3R 
OVFL 00380R 
SIGN 00308R 



ALPHA 00066 R 
EDGAR OOOOOR 
LCN2 0054 3R 
LOGE 0052 3R 
P 00000 
STORE 00344R 



SYMBOL TABLE 

AZERO 00488R 

F AC 00066R 

LCN3 00553R 

MANT 001 12R 

PCK 02365 

UNFL 00424R 



BETA 00098R 
F01 OOOOOR 
LCN4 00563R 
NINES 0049«« 
PICK 001U, 
ZRES 00448R 



CHAR 00252R 
FLONE 00604R 
LCN5 00573R 
ONEZ 00513R 
SAVE 00077R 







DSA 


FDi 






00004 


00005 -0000 






DORG 


EDGAR 






00000 






11020 


FD1 


TFM 


PCK + 5 


,•♦20 


.17 


00000 


10 02370 


-0020 


11030 




B7 


PCK 




.6, 


BR TO PICK ANO RETURN 


















00012 


49 0236N 


00000 


11035 




DC 


34 , 


5050050005 


5050505505 0S00O05O00 5050,350 
















00350 


00034 




11036 




TF 


ALPHA, PCKM5, 11 




00020 


K6 00066 


0238- 


11040 




TP 


ALPHA-2 


.PCK+25 


.11 


00032 


K6 00064 


0239- 


11050 




BD 


MANT 


.BETA-9 


.0, 


CR FOR ZERO DIVISOR 


















00044 


ML 00' 12 


10089 


11060 




TDM 


401 


.0 


,11. 


SET ERROR CODE 00056 


15 oo« c 


0000- 


11070 




8D 


MANT-24 


, ALPHA-9 


.0, 


CK FOR ZERO DIVIDEND 


















00069 


ML OLV38 


00057 


11080 




87 


STORE 






00080 


M9 00344 


00000 


11090 




AM 


ALPHA 


.99 


9 * 


SIMULATE HARDWARE ZERO 


DIVIDE 
















00089 


Jl 00066 


00099 


11100 




8V 


STORE 






00100 


M6 00344 


01400 


11110 


MANT 


TFM 


ZRES*30 


, SIGN 




00112 


JO 00478 


00308 


11120 




LD 


91 


, ALPHA-2 


• I 


01VI0E MANTISSAS 00124 


20 00091 


00064 


11130 




D 


91 


.BE TA-2 




00136 


2R 00091 


00096 


11135 




TD 


99,91,, 


SAVE SIGN 




00149 


25 00099 


00091 


11140 




60 


CHAR-24 


,83 




00190 


MS 00229 


00093 


11150 




BZ 


ZRfS-12 






00172 


MB 00436 


01200 
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111*0 


SF 


06 


» • 


MANT OF A SMALLER THAN MANT OF • 










001B4 92 000 8 A 


00000 


11170 


TF 


ALFMA-2 »91 




0019* K6 00064 


00091 


into 


TEN 


SAVE tOO 


#10 


00201 J6 00077 


000-0 




§7 


CHAR 




00220 N9 00292 


00000 


12009 


OC 


22 , 9090990099 


S090999990 90,990 00990 00022 




12010 


TF 


ALPHA-2 #90 




00228 K6 00066 


00090 


12020 


TFM 


SAVE ,01 


• 10 


• 00260 J6 00077 


000- 1 


12090 CHAR 


S 


ALPHA, BETA 




00292 KK 00066 


00098 


12040 


BV 


• ♦44 , 


iO, 


BR IF OIFF GREATER THAN 99 












00264 N6 00308 


01400 


12090 


A 


ALPHA, SAVE 




00276 KJ 00066 


00077 


12060 


BNV 


SIGN , 


« t 


BR IF STILL LESS THAN 100 












00288 H7 00308 


01400 


12070 


B7 


OVFL 




OO3O0 M9 00380 


00000 


12080 


BNF 


OVFL, ALPHA, , QVFL 


IF EXP 


POSITIVE OR UNFLAGGED ZERO 












00308 MM 00380 


00066 


12090 


A 


ALPHA, SAVE 




00320 KJ 00066 


0007 7 


12100 


BH 


ZRES+12 , 


» » 


BR IF MANT OF RESULT IS -99 












00332 M6 00460 


01100 


12110 


B7 


UNFL 




0034* M9 00424 


00000 




DEND 


01091 




01051 





NOSOIG 02401 
EDGAR OOOOOR 
LCN2 00543R 
LOGE 00523R 
OVFL 00380R 
SIGN 00308R 
UNFL 00424R 



ALPHA 00066R 

FAC 00066R 

LCN3 00553R 

LSO 00240R 

P 00000 

SQEX 00392R 

ZRES 00448R 



SYMBOL TABLE 

AZERO 00486R 

FLONE 00604R 

LCN4 00563R 

LSQM 00348R 

PCK 02365 

SQ2 00136R 



BETA 00098R 
FSQR1 OOOOOR 
LCN5 00573R 
NINES 00499R 
PICK 00100R 
SQ3 00436R 



CZERO 00594R 
LCN1 U0533R 
LCN6 00583R 
ONEZ 00513R 
SAVE 00077R 
STORE 00344R 



PICK FLOATING SQUARE ROOT ROUTINE 







DSA 


FSQRl 






00004 


00005 -0000 






DORG 


EDGAR 






00000 






13010 


FSQRl 


TFM 


PCK+5 


,•♦20 


.17 


00000 


10 02370 


-0020 


13020 




B7 


PCK 


t 


,6, 


BR TO PICK ANO RETURN 


















00012 


49 0236N 


00000 


13025 




OC 


46 ,055*5505005 


5000000000 0000000500 0500550000 000005, 


346 














00346 


00046 




13030 




BO 


• ♦32 


, BE TA-9 


,0, 


BR NON ZERO ARG 00020 


ML 00052 


00089 


13040 




TFM 


ZR£ S+30 


, STORE 




000 32 


JO 00478 


00344 


13050 




B7 


ZRES 


t 


» • 


8R ZERO ARG 00044 


M9 00448 


00000 


13060 




MM 


BETA 


i50 


,10 


00052 


J3 00096 


OOONO 


13080 




BNF 


• ♦36 


« BETA-2 


,0, 


BR IF POSITIVE ARG 


















00064 


MM 00100 


00096 


13090 




CF 


BE TA-2 






00076 


L3 00096 


00000 


13100 




TOM 


401 


,0 




00088 


15 00401 


00000 


13110 




BO 


SQ3 


.-38 


,0, 


BR IF CHAR ODO 00100 


M3 00436 


00098 


13120 




TFM 


SQ2^42 


,89 


,010 


00112 


J6 00178 


000Q9 


13130 




BNF 


• ♦24 


,99 


.0, 


BR IF CHAR POSITIVE 


















00124 


M4 00148 


00099 


13140 


S02 


S* 


97 




t » 


SET SIGN OF CHAR 00136 


32 00097 


00000 


13150 




TF 


PCK+15 


,97 


,6, 


STORE RESULTANT CHARACTERISTIC 





142 















00148 


26 0238- 


00097 


13160 




LDM 


79 


,00 


,10, 


CLEAR WORKING AREA 


















00160 


18 00079 


000-0 


13170 




TF 




, BETA-2 


, * 


MOVE MANTISSA INTO 89 OR 90 
















00172 


20 00000 


00096 


13180 




TFM 


LSQ^18 


,81 


,010, 


MANTISSA ADR 00184 


J6 00258 


000Q1 


13190 




TFM 


LSQ+23 


♦BETA-10 


,07, 


RESULT ADR 00196 


JO 00263 


-0088 


13200 




TFM 


LSQM-6 


,81 


,010 


00208 


J6 00342 


000Q1 


13210 




TF 


BETA-2 


,0NEZ-4 


• * 


SET RESULT EQUAL 1000 00000 
















00220 


KO 00096 


00509 






87 


LSQM 






00232 


M9 00348 


00000 


14010 


LSQ 


AM 


LSQ+23 


.2 


,0610 


,RESULT ♦ 2 00240 


Jl 0026L 


000-2 


14020 




S 




» 




MANTISSA MINUS RESULT 


















00252 


22 00000 


00000 


14030 




BNN 


LSQ 




,0, 


00264 


M6 00240 


01300 


14040 




CM 


LSQ+23 


JbETA-02 


.07 


00276 


JM 00263 


-0096 


14050 




BNL 


SOEX 




.0, 


EXIT IF TERMINAL RESULT ADR REACHEO 














00288 


M6 00392 


01300 


14060 




A 


LSQ*18 


,LSQ+23 


,01611, RESTORE LAST SUBTRACTION 
















00300 


KJ 0025Q 


0026L 


14070 




CF 


LSQ*18 




,06, 


00312 


L3 0025Q 


00000 


14080 




AM 


LSQM-6 


,01 


• 010, 


MOVE FLAG RIGHT ONE. 


















00 324 


J I 00342 


000-1 


14090 




SF 








00336 


32 00000 


00000 


14100 


LSQM 


AM 


LSQM8 


,02 


,010, 


MANTISSA ADR ♦ 2 00348 


Jl 00258 


000-2 


14110 




AM 


LSQ+23 


,01 


,010, 


RESULT ADR ♦ 1 00360 


J I 00263 


000- 1 


14120 




SM 


LSQ+23 


.09 


,0610 


.RESULT ♦ 9 00372 


J2 0026L 


000-9 






B7 


LSQM2 






00384 


M9 00252 


00000 


14136 




DC 


14 ,5000000000 5050 


,314 00314 


00014 




14140 


SQEX 


MM 


BETA-2 


,50 


.10. 


EXIT 00392 


J3 00096 


OOONO 


14150 




SF 


90 






00404 


32 00090 


00000 


14160 




TF 


PCK^25 


.97 


.6, 


STORE MANTISSA RESULT 


















00416 


26 0239- 


00097 


14170 




B7 


PCK+10 


» 


• 6, 


RETURN TO MAINLINE PROGRAM 
















00428 


49 0237N 


00000 


14190 


SQ3 


AM 


99 


,50 


• 10, 


CALC RESULT WHEN GIVEN 


CNAR 000 
















0043* 


11 00099 


OOONO 


14200 




TDM 


BETA-10 


,0 


.11. 


LENGTHEN MANTISSA 


















00449 


J5 00088 


0000- 


14210 




CF 


BETA-9 






00460 


L3 00089 


00000 


14220 




TFM 


$02*42 


• 90 


,010 


00472 


J6 00178 


OOORO 


14230 




B7 


SQ2-12 




.0, 


004B4 


M9 00124 


00000 






OENO 


01061 






01061 







SYMBOL TABLE 



RTNOPI 


00771R 


NOSOIG 


02601 


AbV^^4b% 4MNHWbol 


MlftO 


99499ft 


Of f A 


0009 BR 


tMP 


00920ft 


COMA 


007B0R 


CONO 0079991 




00799ft 


etffto 


00996ft 


EDO Aft 




PAC 


00066R 


PC0S1 00900ft 


FLO Ml 


99404ft 


PS INI 


000S2R 


LCN1 


00999ft 


LCN2 


0096911 


LCN3 09999ft 


LCN4 


00999ft 


LCN9 


00979R 


LCN6 


009 9 3R 


LOGE 


00921ft 


NINES 099999 


ONft 


00919ft 


OVFL 


00300ft 


P 


§0000 


PCR 


02109 


Pttft 999999 


SAVE 


99977ft 


S19N 


00100ft 


STORE 




UMPL 


00626ft 


29ft 994499 











19120* PICR FLOATING SINE ANO COSINE ROUTINES 



PAGE • 



15130* 



TRANSFORMATION OF HASTINGS APPROX FOR S INFIX/ 2 



DSA FCOSl 



, FSINl 





DORG 


EDGAR 




15170 FC0S1 


TON 


BNP* 1,9,0 




15180 


TON 


FSIN1+68 ,3 


tO 


15190 


87 


FSINl* 24, ,0 




16010 FSINl 


TON 


BNP*l»l»0 




16020 


TON 


FSIN1+68 f 4 


tO 


16024 


TFM 


PCK*5 ,**20 


» 17 


16026 


87 


PCK , 


1 6 


16029 


OC 


46 » 5000555550 


555000Q050 


16030 


CM 


BETA 1 03 f 1011 




16040 


BH 


•♦44 , »0 




16050 


TR 


BE TA-9 , F LONE-9 




16060 


TR 


ALPMA-9,BETA-9 




16070 


87 


STORE 




16090 


TFN 


ZRES*30, STORE 




16100 


CN 


BETA #08 i 10 




16110 


BNH 


•♦32, ,0 




16120 


TON 


401 ,0, 1 1 




16130 


B7 


ZRES 




16150 


CM 


BETA ,02 i 10 




16160 


BNH 


• ♦24, ,0 




16170 


TDM 


401 #0 




16180 


M 


RTWOPI ,BETA-2 ,0, 


i REDUCE 


16190 


CF 


83 




16200 


AM 


BETA, 91, 10 




17010 


TF 


BNP-l,B£TA,0 




17020 


SM 


BETA, 8, 10 




17040 


TF 


•♦18, BETA, 0 




17050 


SF 


• - • 




17060 


TF 


ALPHA- I 




17070 BMP 


B 


•♦36, ,0 




17080 


BNF 


RTWOPI-27,99,0 




17085 


OC 


36 ,5050505050 


0055500055 


17090 


A 


ALPHA- I ,CONA , I 




17100 


SF 


ALPHA-l 




17110 


A 


ALPHA- I ,UONB , I 




17120 


CP 


ALPHA- 1 




17130 


S 


ALPHA-L ,CONA, I 




17140 


BV 


• ♦12. ,0 




17150 


C 


ALPHA-2.AZERO-2 




17160 


BE 


ZRESM2 




17170 


TFM 


•♦9,4,010 




17180 


M 


ALPHA-l, ALPHA-l 




17190 


TF 


SAVE, 90 




17200 


TF 


ALPHA- 10, CQNC , 1 




18010 


TFM 


•♦59,C0NC*10,017 


18020 


M 


SAVE ,ALPHA-10 




18030 


BNF 


•♦24,99,0 




18040 


SF 


90 




18050 


A 


90 




18060 


TF 


ALPHA-10,90 




18070 


AM 


•-13,10,010 




18090 


SM 


•-123,1,010 




18100 


BNZ 


• -84, ,0 





00004 00005 -0000 
00009 00005 -0032 
00000 

00000 J5 00321 00009 
00012 J5 00100 00003 
00024 N9 00056 00000 
00032 J5 00321 00001 
00044 J5 00100 00004 
00056 10 02370 -0076 
00068 49 0236N 00000 

5500500 500000.350 
00350 00046 
00076 J4 00098 000-L 
00088 M6 00132 01100 
00100 LJ 00089 00595 
00112 LJ 00057 00089 
00124 M9 00344 00000 
00132 JO 00478 00344 
00144 J4 00098 000-8 
00156 M7 00188 01100 
00168 15 00401 0000- 
00180 M9 00448 00000 
00188 J4 00098 000-2 
00200 M7 00224 01100 
00212 15 00401 00000 
00224 KL 00771 00096 
00236 33 00083 00000 
00248 Jl 00098 OOORl 
00260 KO 00319 00098 
00272 J2 00098 000-8 
00284 KO 00302 00098 
00296 32 00000 00000 
Q0308 K6 00065 00000 
00320 M9 00356 00000 
00332 M4 00744 00099 

050 ,336 
00336 00036 
00344 KJ 00065 00780 
00356 L2 00065 00000 
00368 KJ 00065 00789 
00380 L3 00065 00000 
00392 KK 00065 00780 
00404 M6 00416 01400 
00416 KM 00064 00486 
00428 M6 00460 01200 
00440 J6 00449 000-4 
00452 KL 00065 00065 
00464 K6 00077 00090 
00476 KO 00056 00799 
00488 JO 0054 7 -0809 
00500 KL 00077 00056 
00512 M4 00536 00099 
00524 32 00090 00000 
00536 21 00090 00000 
00548 K6 00056 00090 
00560 Jl 00547 OOOJO 
00572 J2 00449 000-1 
00584 M7 00500 01200 



1 4-4 



18105 




DC 


28 ,5055055050 0555505000 50555050 ,328 


00328 


00028 




18110 




SF 


ALPHA-18 




00596 


L2 


00048 


00000 


18120 




M 


ALPHA-l, ALPHA-10 




00608 


KL 


00065 


00056 


18130 




TD 


92,ALPHA+l,, 


NORM 


00620 


2N 


00092 


00067 


18140 




TR 


ALPHA-9,92 




00632 


LI 


00057 


00082 


18150 




TFM 


BETA-10,01,10 




00644 


J6 


00088 


000-1 


18160 




80 


•♦56,ALPHA-9,0 




00656 


ML 


00712 


00057 


18170 




TR 


AL PHA-9 , ALPHA-8 




00668 


LJ 


00057 


00058 


18180 




SM 


BETA-10,1, 10 




00680 


J2 


00088 


000- 1 


18190 




TD 


ALPHA ,NOS DIG 




00692 


K5 


00066 


02401 


18200 




87 


•-48, ,0 




00704 


M9 


00656 


00000 


19020 




SF 


ALPHA-9 




00712 


L2 


00057 


00000 


19030 




TF 


ALPHA, 8E f A-10 




00724 


KO 


00066 


00088 


19040 




B7 


SIGN 




00736 


M9 


00308 


00000 


19060 




SF 


ALPHA-l 




00744 


L2 


00065 


00000 


19070 




B7 


BNP^24,,0 




00756 


M9 


00344 


00000 


19090 


RTWOPI 


DC 


9,159154943 




00771 


00009 




19100 


CONA 


DC 


9,250000000 




00780 


00009 




19110 


CONB 


DC 


9,500000000 




00789 


00009 




19120 


CONC 


DC 


10,3971067150 




00799 


00010 




19130 




DC 


10,-7657497509 




00809 


00010 




19140 




DC 


10,8160223158 




00819 


00010 




19150 




DC 


10,-4134167750 




00829 


00010 




19160 




DC 


10,0628318527 




00839 


00010 








DENO 


01072 




01072 









SETVAL 00952R 
AC0N3 OlOOOR 
CPLUS 00752R 
FLONE 00604R 
LCN5 00573R 
NINES 00499R 
PICK OOIOOR 
TEST 00112R 
Z 00096R 



RETURN 00044R 
ALPHA 00066R 
C2ER0 00594R 
LCN1 00533R 
LCN6 00583R 
ONEZ 0051 3R 
SAVE 0OO77R 
TEST1 00792R 
ZEROC 00244R 



SYMBOL TA8LE 

NOSDIG 02401 
ARE T 00340R 
EDGAR OOOOOR 
LCN2 00543R 
LOGE 00523R 
OVFL 003S0R 
SIGN 00308R 
TEST2 00592R 
IRES 00448R 



ACONl 00979B 
AZERG 0046»« 
FAC 00066R 
LCN3 00553R 
LOOPA 00436R 
P 00000 
SIX 01008R 
TEST3 00208R 



AC0N2 00989R 
BETA 00098R 
FATN1 OOOOOR 
LCN4 00563R 
L00P2 00652R 
PCK 02365 
STORE 00344R 
UNFL 00424R 



19170* RELOCATABLE SPS ARC TANGENT 







DSA 


FATNl 




00004 


00005 -0000 






DORG 


EDGAR 




00000 




20010 


FATN1 


TFM 


PCK*5 


,♦♦20 ,1 


00000 


10 0237" 00020 


20012 




B? 


PCK 


, ,6, 


BR TO PICK AND RETURN 














00012 


49 02 t 'vOOOO 


20014 




DC 


50,05555050555000055050000005055050505050500050005050 3^' 












00350 


00050 


20016 




80 


• ♦32 


,BETA-9 ,0, 


CK FOR ZERO NANTISSA 














00020 


ML 00052 00089 


20020 




TR 


FAC-9 


,A ZERO-9 


00032 


LJ 00057 00479 


20030 


RETURN 


87 


STORE 




00044 


M9 00344 00000 


20050 




CM 


BETA 


i-3 ,10, 


IS NUMBER TOO SHALL 














00052 


J4 00098 000-L 


20060 




TR 


FAC-9 


, BE TA-9 


00064 


LJ 00057 00089 


20070 




BL 


STORE 




VIS 00076 


M7 00344 01300 


20080 




TFN 


TESmi 


t tOT, 


NO 


» 



PAGE 



10 















000S6 


J6 


00123 


-oooo 


20090 




TO 


TEST*9 


iZ 


• 0, 


STORE SIGN OF MANTISSA 




















00100 


KN 


00121 


00096 


20100 


TEST 


CF 


I 






00112 


L3 


00096 


00000 


20U0 




CM 


BETA 


,0 


.10. 


IS CHAR POSITIVE 00124 


J4 


00098 


000-0 


20120 




BH 


C PLUS 


t 


.0. 


YES 






• 














00136 


M6 


00752 


01100 


20130 




BE 


ZERO C 


t 


tOt 


EQUAL ZERO YES 






• 














00148 


M6 


00244 


01200 


201*0 




TFM 


TEST 3*11 


,Z 


.07, 


NO CHAR IS NEGATIVE 




06219 


» 














00160 


JO 


-0096 


70150 




A 


TEST 3*11 


• BETA 


• 0, 


00172 


KJ 


00219 


00098 


?0\ 60 




TFM 


BETA-10 


fO 


• 10 


00184 


J6 


00088 


000-0 


201 70 




CF 


Z-7 












t 














00196 


L3 


00099 


00000 


20180 


TEST3 


TF 


Z 












» 














0020B 


K6 


00096 


00000 


20190 




TDM 


Z-7 


♦ -10 
























00220 


J5 


00089 


0001- 


20200 




CF 


Z-6 












• 














00232 


L3 


00090 


00000 


21010 


ZfcROC 


CM 


Z-6 


.29 


.10, 








• 














00244 


J4 


00090 


000K9 


21U20 




8L 


ARE T* 36 


» 


.0 


00256 


M7 


00376 


01300 


■M0 30 




MM 


Z 


»6 


.10. 


LARGER THAN POINT 29 






. 














00268 


J3 


00096 


000-6 


21040 




TDM 


90 


.-1 










. 














00280 


15 


00090 


OOOOJ 


21050 




S 


Z 


.SIX 


.1. 








• 














00292 


KK 


00096 


01008 


21060 




TF 


SAVE 


.98 




00304 


K6 


00077 


00098 


21070 




DC 


50, 05050050005550050055505055000000555055000000000000 1 350 














00350 


00050 




21080 




LD 


91 


• z 




HARDWARE DIVIDE 00316 


2Q 


00091 


00096 


21090 




0 


92 


. SAVE 




00328 


2R 


00092 


00077 


21100 


ARET 


TD 


TEST 2-13 


.99 


.0. 








. 














00340 


K5 


00579 


00099 


21110 




TF 


Z 


.90 




EIGHT DIGITS 00352 


K6 


00096 


00090 


21120 




SF 


TEST+ll 




• 0, 






















00364 


L2 


00123 


00000 


21130 




M 


I 


• z 
















\ 








00376 


KL 


00096 


00096 


21140 




TF 


SAVE 


.91 




EIGHT DIGITS 00388 


K6 


00077 


,00091 


21150 




TFM 


LOOPA+tl 


.LCN3-1 


.0 7» 


NINE DIGITS 00400 


JO 


00447 


-0552 


21160 




TFM 


• ♦9 


,4 


.010. 






















00412 


J6 


00421 


000-4 


21170 




M 


LCN2-1 


• SAVE 




00424 


KL 


00542 


000 7 7 


21180 


LOOPA 


TF 


F AC 






00436 


Kb 


00066 


00000 


?U90 




S 


F AC 


.91 
























00448 


K2 


00066 


00091 


21200 




M 


FAC 


.SAVE 


. . 


SEVENTEEN DIGIT PRODUCT 


















00460 


KL 


00066 


00077 


22010 




AM 


LOOPA+U 


.10 


.010 


00472 


Jl 


00447 


OOOJO 






SM 


LOOPA-15 


.1 


.010, 


00484 


J2 


00421 


000-1 


22030 




BNZ 


LOOP A 




.0, 


00496 


M7 


00436 


01200 


22040 




TF 


FAC 


!oNE 7-3 
























00508 


KO 


00066 


00510 


22050 




S 


FAC 


.91 
























00520 


K2 


00066 


00091 



PAGE 11 



22060 




M 


FAC 


• Z 
























00532 


KL 


00066 


00096 


22070 




BNF 


TEST 2 


.TEST+ll 


.01. 


BR IF X WAS LESS THAN . 


29 
















00544 


MM 


00592 


00123 


22080 




BNF 


• *24 


•TEST2-13 


.01, 


BR IF QUOTIENT WAS POSITIVE 
















00556 


MM 


00580 


00579 


22090 




SF 


91 


























00568 


32 


00091 


00000 


22100 




A 


9L 


•A CON 1 


• 1* 








• 














00580 


2J 


00091 


00979 


22110 


TEST2 


BNF 


• ♦16 


, TESTnO 


.01, 


BR IF CHAR NOT I, 2, 3 


, 4 


















00592 


MM 


00628 


00122 


22120 




SF 


91 


























00604 


32 


00091 


00000 


22130 




DC 


50,005 00500500000000050505005500055050500500505005000, 350 














00350 


00050 




22140 




A 


91 


,A CON 2 


. 1 » 






















00616 


2J 


00091 


00989 


22150 




TFM 


FAC 


.01 


.10, 






















00628 


J6 


00066 


000- 1 


22160 




TD 


92 


, BETA+ 1 




00640 


2N 


00092 


00099 


22170 


L00P2 


BD 


TEST l-2« 


,82 


.0. 


NORMALIZATION 




















00652 


M3 


00708 


00082 


22180 




SM 


FAC 


• i 


,10. 








» 














00664 


J2 


00066 


000-1 


22190 




TR 


82 


.83 
























00676 


31 


00002 


00083 


22200 




TU 


91 


,NOS DIG 




00688 


25 


00091 


02401 


23010 




B7 


LOOP 2 




.0, 






















00700 


M9 


00652 


00000 


23030 




SF 


82 






00 708 


32 


00082 


00000 


2 3040 




TF 


FAC-2 


• 89 
























00720 


K6 


00064 


00089 


23050 


TEST I 


BNF 


STORE 


• TEST+9 


, 1, 


TERMINATE SUBROUTINE CALCULATION 














00732 


MM 


00344 


00121 


2 3060 




B7 


SIGN+12 






00744 


M9 


00320 


00000 


23080 


CPLUS 


TF 


91 


•C ZERO-l 


t » 


CHAR POSITIVE 00752 


20 


00091 


00593 


23090 




CM 


BETA 


.8 


,10, 


00764 


J4 


00098 


000-8 


23100 




BH 


TEST 2*24 




,0, 


BR IF CHAR GREATER THAN EIGHT 
















00776 


m 


00616 


01100 


23110 




TF 


FAC-2 


•C ZERO-3 


, * 


AOJUST POSITION OF 1 IN NUMERATOR 














00788 


KO 


00064 


00591 


23120 




TFM 


• ♦30 


•FAC-10 


,07, 






















00800 


JO 


00830 


-0056 


23130 




A 


•♦18 


• BETA 


.0 


00812 


KJ 


00830 


00098 


23140 




TDM 




.1 
























00824 


15 


00000 


00001 


23150 




SF 


FAC-9 


























00836 


L2 


00057 


00000 


23160 




LD 


90 


•FAC-2 


• » 


HARONARE DIVIDE 00848 


2Q 


00090 


00064 


23170 




D 


90 


tl 




00860 


2R 


00090 


00096 


23180 




BD 


SET VAL 


.12 « 


0, 


BR IF X EQUALS ONE 




















00872 


Mi 


00952 


00082 


23190 




CM 


BETA 


• 4 


• 10 


00184 


J4 


00098 


000-4 


23200 




BH 


TEST2+12 


• 


,0, 


BR IF CHAR EQUAL 9, 6, 


7, 


8 
















00896 


M6 


00604 


01100 


24010 




DC 


10,5000500050,350 




00J50 


00010 




24020 




TF 


Z 


,90 




ELIMINATE LEAOING ZERO 




















00908 


K6 


00096 


00090 
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00920 L2 00122 00000 
00932 12 00089 00000 



TEST* 10 , ,0, 
2-7 

ZERO C , ,0, 

00944 M9 00244 00000 
FAC-9 .ACON 3-10,1, SET TO VALUE FOR X EQUAL ONE 

00992 LJ 00057 00990 

TEST I 00964 N9 00732 00000 

9 , 540 419 500 , 

00979 00009 

10 ,1 570 796 327., ARC TAN OF PI OVER TWO 

00989 00010 

8 , 78 539 8 16,, ARC TAN OF PI OVER FOUR 

00997 00008 

3 ,00*,, , 

01000 00003 

8 ,60000000 , 

01008 00008 

.BETA- 2 00096 00000 

01091 * 01091 



24030 




SF 


24040 




SF 


24050 




87 


24070 


SETVAL 


TR 


24100 


ACON I 


87 

DC 


24110 


A CON 2 


DC 


24120 




DC 


24130 


AC0N3 


DC 


24140 


SIX 


DC 


24150 


z 


DS 

DENO 



NOSDIG 02401 
D 00098R 
FEXT I OOOOOR 
LCN3 00553R 
LOOPE 00336R 
P 00000 
STORE 00344R 



ALPHA 00066R 
EDGAR OOOOOR 
FEXl 00020R 
LCN4 O0563R 
NINES 00499R 
PCK 02365 
UNFL 004 24R 



SYMBOL TABLE 

AZERO 00488R 

EROUT 00604R 

FLONE 00604R 

LCN5 00573R 

NOTZ 00084R 

PICK 00100R 

2RES 00448R 



BETA 00098R 

EXCN1 00645R 

LCNl 00533R 

LCN6 00583R 

ONEZ 005 I 3R 

SAVE 00O77R 



CZERO 00594R 
FAC 00066R 
LCN2 00543R 
LOGE 00523R 
OVFL 00380R 
SIGN 00308R 



24160**«»-*« SPS FLOATING POINT EXPONENTIAL 

24180* HASTINGS APPROXIMATION 







DSA 


FEXT1 


,FEXl 








00004 
00009 


00005 -0000 
00005 -0020 






DORG 


EDGAR 










00000 








25010 




DC 


3 fl ,0500050000 


0555505000 5550000000 


00050005 




.338 


















00338 


00038 




25020 


FEXT 1 


TFH 


NOT Z*30 


•ONE 2-2 


.07 




00000 


JO 


00114 


-0511 


2 




B7 


FEXl* 12 










00012 


M9 


00032 


00000 


25050 


FEXl 


TFM 


NOTZ*30 


• LOG E 




.07 




00020 


JO 


00114 


-0523 


25052 




TFM 


PCK*5 


,•♦20 




.17 




00032 


10 


02370 


-0052 


25054 




87 


PCX 


f 




• 6. 


BR TO PCK AND 


RETURN 
00044 


49 


0236N 


00000 


25060 




BO 


NOT I 


,0-9 




.0, 


ZERO CHECK 


00052 


ML 


00084 


00089 


250 70 




TR 


FAC -9 


.FLONE-9 






00064 


LJ 


00057 


00595 






B7 


STORE 










00076 


M9 


00344 


00000 


25100 


NOTZ 


CM 


D 


.-8 




.10. 




000B4 


J4 


00098 


000-0 


25110 




BNH 


FEX1+44 










00096 


M7 


00064 


01100 


25120 




M 


LOGE 


.0-2 








00108 


KL 


00523 


00096 


25130 




CM 


D 


• 3 




• 10, 




00120 


J4 


00098 


. 

000-3 



I 48 



25140 


BL 


• ♦36 


• 


,0, MUST CALC 


00132 


M7 


00168 


01300 


25150 


BNE 


E ROUT 


t 


,0, OVER OR UNOER 


00144 


M7 


00604 


01200 


25160 


BD 


E ROUT 


.82 


,0, HI ORDER NOT ZERO 


















00156 


M3 


00604 


00082 


25170 


CF 


82 






00168 


33 


00082 


00000 


25180 


TF 


81 


.C ZER0-2 




00180 


20 


00081 


00592 


25190 


TFM 


• ♦30 


,80 


,010, POSITION FLAG 


00192 


J6 


00222 


OOOQO 


25200 


A 


• ♦18 


,D 


,0 


00204 


KJ 


00222 


00098 


26010 


SF 








00216 


32 


00000 


00000 


26020 


AM 


•-6 


,01 


,010. SET CHAR EQUAL 


00228 


Jl 


00222 


000- 1 


26040 


AM 


•-18 


.01 


,0610. CHAR PLUS ONE 


00240 


Jl 


0022K 


000- I 


26050 


BV 


E ROUT 




.Q. OVER OR UNDERFLOW 


















00252 


M6 


00604 


01400 


26060 


AM 


• -42 


,09 


,010, MOVE MANT ANO CHAR 


















00264 


Jl 


00222 


000-9 


26075 


DC 


40 .5050005500 5055500000 0050550050 5555050050 


.340 












00340 


00040 




26080 


TF 


FAC*9 


,•-54 


.11 


00276 


KO 


00075 


0022K 


26100 


SF 


FAC*1 






00288 


L2 


00067 


00000 


26110 


TFM 


LOOPE* 11 


,EXCN1 


,017, INIT CALC LOOP 


00300 


JO 


00347 


-0645 


26120 


TF 


FAC- 2 


,C ZERO 




00312 


KO 


00064 


00594 


26130 


TFM 


L00PE-3 


,7 


,010, COUNT 


00324 


J6 


00333 


000-7 


26140 LOOPE 


A 


FAC-2 






00336 


Kl 


00064 


00000 


26150 


M 


FAC-2 


,FAC^9 




00348 


KL 


00064 


00075 


26160 


TF 


FAC-2 


,90 




00360 


K6 


00064 


00090 


26170 


AM 


LOOPE*U 


,11 


,010, ADJUST LOOP VALVES 


















00372 


Jl 


00347 


OOOJl 


26180 


SM 


LOOPE -3 


• 1 


,010. 


' ;384 


J? 


00333 


000- 1 


26190 


BNZ 


LOOP E 


.1 


• 0 


SO 396 


M7 


00336 


01201 


26200 


AM 


FAC- 11 


,10 


,10, AOO ONE 


00408 


Jl 


00055 


OOOJO 


27010 


M 


FAC-3 


, FAC-3 




00420 


KL 


00063 


00063 


27020 


SF 


81 






00432 


32 


00081 


00000 


27030 


TF 


FAC-2 


,88 




00444 


K6 


00064 


00086 


27040 


TO 


FAC*1 


, BET AM 




00456 


m 


00067 


00099 


27060* 




CHECK FOR NEGATIVE X 










27070 


8NF 


STORE 


.0-2 




00468 


m 


00344* 


00096 


27080 


C 


88 


, ONE 2 -5 




00480 


2® 


00088 


00506 


27090 


BNE 


• ♦32 


♦ 


,0 


00492 


M7 


00524 


01200 


27100 


SM 


FAC 


• 1 


,10 


00504 


J2 




000-1 


27110 


87 


EROUT- 32 


. 


• 0 


013316 


M9 


Om5 71 


00000 


271)0 


DC 


20 ,5005055050 5050955550 ,320 


00320 


000?o 




27140 


TF 


SAVE 






00524 


K6 


04077 


00089 


27150 


LO 


92 


•ONE 1-3 


t» HARDWARE DIVIDE 


00536 


2Q 


00092 


L 

00510 


27160 


0 


92 


• SAVE 




00*41 


2R 


00092 


00077 


27170 


TF 


FAC-2 .90 






00560 


K6 


00064 


00090 


27180 


SF 


FAC 






00572 


L2 


00066 


00000 


27190 


AM 


FAC 


!oi 


• 10 


00584 


Jl 


000*6 


000- 1 


27200 


87 


STOtC 






00596 


M9 


00344 


asooo 


28010 EROUT 


TFM 


ZAESOO, STORE 




80604 


JO 


00478 


00344 



149 



FAGE 14 



2 SO 90 
26040 


h «CN1 


6NF 
87 

DC 


OVFl.D-2 

UNFL 

11 


• 


9326 


427,. 


28070 




DC 


11 


t 2 


5549 


160,, 


280*0 




DC 


11 


. 17 


4211 


199,, 


28090 




DC 


11 


. 72 


9517 


367,, 


?ftl00 




DC 


11 


i 254 


3935 


748,, 


28110 




DC 


1 1 


, 662 


7308 


843,, 


28120 




PC 


11 


,1151 


7927 


760,, 


2*130 


n 


OS 




.BETA 







\ f NO 0110? 



00616 
00628 


MM 00380 
M9 00424 


00096 

ooooo 


00645 


0001 1 


• 


00656 


00011 


* 


0066 7 


0001 I 


• 


00678 


0001 1 




00689 


00011 




00700 


00011 




00711 
00098 
01102 


000 11 

ooooo 





NORDIC 02401 

A7F*0 v)0488R 

r l, GAR OOOOOR 

LCN1 00533R 

LCN6 00583R 

NINES 00499R 

PICK >0100R 

?Rf-$ >044BR 



NNINES 00865R 
R 00096R 
FAC 00066R 
LCN2 00543R 
LNTEN 00857R 
ONEZ 00513R 
SAVE 00077R 



SYMBOL TABLE 

MULLOG 00736R 

BETA 00098R 

FLNl 00020R 

LCN3 00553R 

LOGE 00523R 

OVFL 00380R 

SIGN 00308R 



EVALPN 00156R 
CONST 008 1 3R 
FL0G1 OOOOOR 
LCN4 00563R 
LOOPL 00392R 
P OOOOO 
STORE 00344R 



ALPHA 00066R 
CZERO 00594R 
FLONF 00604R 
LCN5 00573R 
MM M 00524R 
PCK 02365 
UNFL 00424P 



2fll50»«.»«*« RE I DCATABLE SPS FLOATING LOG 

PSA FLOGl ,FLN1 00004 00005 -0000 

00009 0000*. O^O 

PORG EDGAR OOOOO 

2P190 ^ OG 1 TDM MULM-li ,9 ,0 OOOOO J5 00513 00009 

28200 B7 FLNl+12 , ,0 00012 M9 00032 OOOOO 
?9020».^».» RELOCATABLE SPS FLOATING LN 

29050 K.NI IDM MULM-ll ,1 ,0 00020 J5 00513 00001 

29054 TFM PCK + 5 ,»*20 ,17 00032 10 02370 -0052 

2 7056 B7 PCK , ,6 00044 49 0236N OOOOO 
DC 42,500500000000 0550000050 5000550000 5555050550 ,350 

00350 00042 

2^060 CF B-7 00052 L3 00089 OOOOO 
29070 BD » + 56 ,B-7 ,0, BR IF MANT NOT ZERO 

00064 ML 00120 00089 

2908C TOM 401,0.11 00076 15 00401 0000- 

29090 TF PCK+25 , NNINES ,6 00088 20 0239- 00865 

29100 TFM PCK+15 ,+99 ,610 00100 16 0238- 000R9 

29U0 B7 PCK+10 , ,6 00112 49 0237N OOOOO 
29130 BNF EVAL PN ,B ,0, BR IF MANT IS POSITIVE 

00120 MM 00156 00096 

29140 CF B 00132 L3 00096 OOOOO 

29150 TDM 401,0 00144 15 00401 OOOOO ] 5 (j 

29170»»»»»« EVALUATE X EQUAL PN SO THAT X IS GREATER THAN 
29180»«»««» ONE HALF AND P EQUALS I, 2,4, 8 
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29190 


EVALPN 


TFM 


l.OOPH- 107.C0NST 


,017, 


00156 


JO 


00499 


-081 3 


?9?00 




TDM 


B-8 


, 1 


,11, 


SET X EQUAL X PLUS ONE 
00168 


J5 


00088 


OOOOJ 


30010 




CM 


B-7 


,15 


• 10 


00180 


J4 


00089 


000J5 


300?0 




BNL 


• ♦44 




,0, 


BR MODIFIED X MORE THAN 3 


HALVES 














00192 


M6 


00236 


01300 


30030 




A 


B 


,B 




SET X EQUAL X PLUS X 

00204 


KJ 


00096 


00096 


30040 




AM 


LOOPL+107, 11 


,07, 


STEP LN P FOR P EQUAL 


?*P 


















00216 


Jl 


00499 


-0011 


30050 




B7 


• -60 




,0 


00228 


M9 


00168 


OOOOO 


30080 




TF 


FAC-2 


,B 




00236 


KO 


00064 


00096 


30090 




S 


FAC-2 


.LCN5-1 




SET NUMERATOR EQUAL X- 
00248 


KK 


00064 


00572 


30100 




LD 


89 


, FAC-2 


, , 


HARDWARE DIVIDE 00260 


2Q 


00089 


00064 


301 JO 




D 


89 


,B 




00272 


2R 


00089 


00096 


301^0 




TF 


B 


,90 




00284 


K6 


00096 


00090 


301 ?5 




DC 


46,5050555055 5505005055 


5000000055 0550500005 050555,350 














00350 


00046 




30130 




SF 


B 






00296 


L2 


00096 


OOOOO 


30140 




SF 


B-9 






00308 


L2 


00087 


OOOOO 


30150 




M 


B 


• B 




Z TIMES Z 00320 


KL 


00096 


00096 


30160 




TF 


SAVE 


.89 




00332 


K6 


00077 


00089 


30170 




A 


B 


,B 




Z PLUS Z 00344 


KJ 


00096 


00096 


30180 




TF 


FAC 


.CZERO-l 




00356 


KO 


00066 


00593 


30190 




TFM 


LOOP L + ll 


• LCN1 


,07 


00368 


JO 


00403 


-0533 


30200 




TFM 


• ♦9 


,6 


,010 


00380 


J6 


00389 


000-6 


31010 


LOOPL 


A 


FAC 




, * 


CALC SERIES USING Z SQUARED 
















00392 


Kl 


00066 


OOOOO 


31020 




M 


FAC 


» SAVE 




00404 


KL 


00066 


00O77 


31030 




TF 


FAC 


,89 




00416 


K6 


00066 


00089 


31040 




AM 


LOOPL+ll 


,10 


,07 


00428 


Jl 


00403 


-0010 


31050 




SM 


L00PL-3 


,1 


.010 


00440 


J? 


00389 


000-1 


31060 




BNZ 


LOOP L 


, 


• 0 


00452 


M7 


00392 


01200 


31070 




M 


FAC 


,B 


» • 


CONVERT TO ODD POWERS 
00464 


OF 
KL 


Z 

00066 


00096 


31080 




S 


89 


.8 




00476 


2K 


00089 


00096 


31090 




TF 


B 






00488 


K6 


00096 


OOOOO 


31100 




S 


B 


.89 




00500 


K2 


00096 


00089 


31110 




NOP 


MULLOG 


* 


.0, 


BR IF LOG CALC RATHER THAN LN CALC 














00512 


Ml 


00736 


OOOOO 


31120 


MULM 


M 


LNTEN 


.84-2 


,0 


00524 


KL 


00857 


00098 


31140 




A 


99 


.8 




00536 


2J 


00099 


00096 


31150 




C 


97 


,C ZERO 




00548 


2M 


00097 


00594 


31160 




TR 


FAC-9 


•AZER0-9 




00560 


LJ 


00057 


00479 


31165 




OC 


38 ,5000000500 0000000000 0000000000 55505055 


• 338 
















00338 


00038 




31170 




BE 


STORE 


• 


• . 


BR IF X WAS ONE 00572 


M6 


00344 


01200 


31180 




TFM 


PCR*15 


,03 


• 610 


00564 


16 


0238- 


000-3 


31190 




TO 


FLNl*7 


.99 


.0 


00596 


R5 


00027 


00099 


31200 




TO 


99 


.BETA* I 




00*08 


2N 


00099 


00099 


32010 




80 


• ♦36 


.87 


.0 


00620 


M3 


00676 


00087 


32020 




TR 


87 


• 66 




00*32 


31 


00067 


00088 


32030 




SM 


PCK415 


• 01 


• 610 


00**4 


12 


0238- 


000-1 


32040 




TO 
B7 


96 

•-48 


•NOS DIG 




00*5* 
00*66 


23 
M9 


00096 

00620 


02401 
OOOOO 


32070 




SF 


67 






00*76 


32 


00087 


OOOOO 


32060 




6NF 


• ♦2* 


• FINU7 


•01, 


SET FLAG 00*66 


MM 


00712 


00027 
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32090 




SF 


94 






00700 


32 00094 


00000 


32100 




TF 


PCK+25 


,94 


• B 


00712 


26 0239- 


00094 


32 1 10 








• 




00724 


49 0237N 


00000 


32 1 jq 


MULLOG 


TOM 


79 






00736 


15 00079 


00000 








LOGE 


,B 




00746 


KL 00523 


00096 


32 150 




TF 


B 


,89 




00760 


K6 00096 


00069 






SF 


B 






00772 


12 00096 


00000 


32170 




14 


ONEZ-2 


!b*2 




00784 


KL 00511 


00098 


321 80 




B7 


MULN+12 




,0 


00796 


M9 00536 


00000 




CONST 


OC 


11 


,0 




0061 3 


000 11 




33010 




DC 


11,-6931471805 




00824 


000 u 




33020 




OC 


11,- 13862943611 




00835 


00011 




33030 




OC 


11,-20794415416 




00846 


00011 




33040 


LNTEN 


OC 


11,23025850929 




00857 


00011 




33045 


NNINES 


OC 


8,-99999999 




00865 


00008 




33050 


B 


OS 

DEND 


01122 


.BETA-2 




00096 
01122 


00000 





NOSDIG 02401 
EDGAR OOOOOR 
LCN2 00543R 
LOGE 00523R 
PCK 02365 
UNFL 00424R 



ALPHA 00066R 
FAC 00066R 
LCN3 00553R 
NINES 00499R 
PICK 00100R 
ZRES 00448R 



SYMBOL TABLE 

AZERO 004B8R 
FLONE 00604R 
LCN4 00563R 
ONEZ 005 13R 
SAVE 00077R 



BETA 00098R 

FSRS1 OOOOOR 

LCN5 00573R 

OVFL 00380R 

SIGN 00308R 



CZERO 00594R 
LCNl 00533R 
LCN6 00583R 
P 00000 
STORE 00344R 



33060* PICK FLOATING SHIFT RIGHT ROUTINE 

DSA FSRSl 00004 00005 -0000 





OORG 


EDGAR 






00000 




34020 FSRSl 


TFM 


HCK + 5 


,♦♦20 


,17 


00000 10 02370 


-0020 


34030 


B7 


PCK 




,6, 


BR TO PICK AND RETURN 












00012 49 0236N 


00000 


34050 


BNF 


• ♦24 


,PCK+15 


• Oil, 


SAVE FLAG ALPHA FIELD 

00020 M4 00044 


0238- 


34055 


DC 


12 ,5000000000 05 


,312 


00312 00012 




34060 


SF 


BETA 






00032 L2 00098 


00000 


34070 


S 


PCK+15 


.PCK+15 


,611, 


ZERO ALPHA FIELD 00044 22 0238- 


0238- 


34080 


SM 


PCK+20 


,1 


,10, 


LOCATE HI ORDER FLAG FROM B OPERAND 










00056 12 02385 


000-1 


34090 


BNF 


— 12 


, PCK+20 


• Oil 


00068 M4 00056 


0238N 


34100 


CF 


PCK+20 


» 


,6, 


REMOVE FLAG FROM B OPERAND 












00080 33 0238N 


00000 


34110 


TF 


PCK* 15 


,BETA 


,6, 


MOVE FIELD TO A OPERAND 












00092 20 0238- 


00098 


34150 


B7 


PCK+10 


, 


,6, 


RETURN TO MAINLINE PROGRAM 




DEND 


01141 






00104 49 0237N 
01141 


00000 



SYMBOL TABLE 

NOSDIG 02401 ALPHA 00066K AZERO 00488R BETA 00098R CZERO 00594R J r y 

EDGAR OOOOOR FAC 00066R FLONE 00604R FSLS1 OOOOOR LCNl 00533R 



LCN? 00543R LCN3 00553R LCN4 

LOGE 00523R NINES 00499R ONEZ 

PCK 02365 PICK OOIOOR SAVE 

UNFL 0Q*?4R ZRES 00448R 



0O563R LCN5 00573R LCN6 00583R 
005 13R OVFL 00380R P 00000 
00077R SIGN 00308R STORE 00344R 



PICK FLOATING SHIFT LEFT ROUTINE 
DSA FSLSi 
OORG EDGAR 



35020 FSLSI 
35030 


TFM 
B7 


PCK + 5 
PCK 


• •♦20 
• 


,17 
,6, 


35045 
35050 


DC 
TO 


14 ,0550000000 0005 
•~l , BETA ,0, 


35060 
35070 


CF 
TF 


BETA 

PCK+30 


, PCK+20 


• t 


35080 


SM 


PCK+30 


,1 


• • 


35090 


AM 


PCK+15 


• 1 


, i 


35100 
35110 


BNF 
TF 


«-24 
PCK+15 


,PCK*30 
• BETA 


,05.1 
,6, 


35120 
35130 


C 

BNN 


PCK* 15 
• ♦44 


, PCK+20 
, 


,0, 


35140 


AM 


PCK+15 


,1 


, , 


35150 


TOM 


PCKU5 


,0 


,6, 


35160 
35180 


87 
BNF 


#-48 
PCK*10 


!fSLSI*19 


,0 

• 16, 


35190 


SF 


PCK* 20 




,6, 


35200 


B7 


PCK*10 




,6, 



DEND 01151 



00004 00005 -0000 
00000 

00000 10 02370 -0020 
BR TO PICK ANO RETURN 

00012 49 0236N 00000 
,314 00314 00014 

SAVE SIGN OF B FIELD 

00020 KN 00019 00098 
00032 L3 00098 00000 
PROVIDE WORKING ADR OF B FIELD 

00044 26 02395 02385 
SUB TO ESTABLISH LENGTH. 

00056 12 02395 -0001 
ADJUST A FIELD ADR FOR EACH DIGIT 

00068 11 02380 -0001 
IN B FIELD 00080 M4 00056 0239N 

MOVE B FIELD TO ADJUSTED A FIELD 

00092 20 0238- 00098 
00104 24 02380 02385 
BR WHEN NO MORE ZEROS REQUIRED 

00116 M6 00160 01300 
AOJ AOR OF A FIEL« 

00128 11 02380 -0001 
MOVE IN ZERO RT OF DATA IN A FIELD 

00140 15 0238- 00000 
00152 M9 00104 00000 
RESTORE PROPER SIGN AND 

00160 4M 0237N 00019 
RETURN TO MAINLINE 

00172 32 0238N 00000 
PROGRAM 00184 4? 0237N 00000 

01151 



NOSDIG 02401 
EDGAR OOOOOR 
LCN3 00553R 
NINES 00499R 
PICK OOIOOR 
UNFL 00424ft 



ALPHA 00066R 
FAC 00066R 
LCN4 00563R 
ONEZ 005 13R 
SAVE 00077R 
ZRES 00448R 



SYMBOL TABLE 

AZERO 00488R 
FLONE 00604ft 
LCN5 OOfTSR 
OVFL OO3B0R 
SIGN OOSOtft 



BETA 00098R 

LCNl 00533R 

LCN6 00563R 

P 00000 

STORE 00344R 



CZERO CiT-H* 

LCN2 r 

LOGE C0523R 
PCK G !365 
TFLSl OOOOOR 



36150* PICK TRANSMIT FIELD FLOATING ROUTINE 

DSA TFLSl 00004 00005 -0000 

OORG EDGAR 00000 ] g 3 

36020 TFLSl TFM PCK 4 9 .•♦tO ,17 00000 10 02370 -0020 

36030 B7 PCK , ,6, BR TO PICK ANO RETURN 
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36035 

16040 



36050 
36060 



DC 
TP 



TF 
87 



4 ,0505,106 
PCM15 .BETA 



PCK*25 
PCKMO 



DEND 01161 



00012 49 0236N 00000 

00104 00004 
MOVE CHARACTERISTIC 

00020 20 0218- 00098 

MOVE MANTISSA 00012 20 0219- 00096 
RETURN TO MAINLINE PROGRAM 

00044 49 0237N 00000 

01161 



NOSOIG 02401 
CZERU 00594R 
LCN? 00541R 
LOGE 00523R 
PCK 0236b 
UNFl. 00424R 



ALPHA 00066R 
EDGAR OOOOOR 
LCN3 00553R 
MINE S 00499R 
PICK OOIOOR 
IRES 00448R 



SYMBOL TABLE 

AIERO 00488R 
FAC 00066R 
LCN4 00563R 
ONFZ 00513R 
SAVE 00077R 



BETA 00098R 
FLONE 00604R 
LCN5 00573R 
OVFL 00380R 
SIGN 00308R 



BTFS1 OOOOOR 

LCNl 00533R 

LCN6 00583R 

P 00000 

STORE 00344R 



* M)?o* 


PICK FLOATING 


BRANCH 


AND 


TRANSMIT ROUTINE 






DSA 


BTFSl 






00004 00005 -0000 




DORG 


EDGAR 






00000 




3M10 BTFSl 


TFM 


PCK*5 , 


• ♦20 


.17 


00000 10 02370 


-0020 


»M20 


B7 


PCK , 




,6, 


BR TO PICK AND RETURN 

00012 49 0236N 


00000 


36130 


SM 


PCK*25 , 


I 


» » 


ADJ ADR TO A FIELD-1 

00020 12 02390 


-0001 


36135 


DC 


6 ,050005,350 




00350 00006 




36140 


TF 


PCK+25 , 


BETA-2 


.6, 


MOVE MANTISSA 00032 20 0239- 


00096 


161 *>0 


TF 


• ♦30 , 


PCK+10 


,0. 


STORE RETURN AOR OF MAINLINE 

00044 K6 00074 


02375 


36160 


BT 


PCKM5 , 


BETA 


,6, 


BR AND MOVE CHARACTERISTIC 

00056 2P 0238- 


00098 


36170 


D7 

DEND 


01171 




, » 


BR TO MAINLINE WHEN BB OCCURS 

00068 49 00000 
01171 


00000 



154 



SPS I ID MONITOR I SUBROUTINE SET 02 



NOSDIG 02401 
LNIO 00763R 
P 00000 
SIGN 00406R 



ALPHA 00050R 
LOGE 00715R 
PCK 02365 
STORE 00447R 



SYMBOL TABLE 

BETA 00196R 

NINE 00808R 

PICK 00198R 

UNFL 00518R 



CLR 00904R 
ONEZ 00621R 
PI0V2 00668R 
ZRES 00530R 



EDGAR OOOOOR 
OVFL 00474R 
SAVE OOIOOR 



•••••• SPS I1D SUBROUTINE SET 02-VAR I ABLE LENGTH 24 APR 63...JHB 

01080****** PCK AREA MAY BE USED AS A WORK AREA IF SUBR NOT USED. IF 

01090****** SUBROUTINES REQUIRED, THEN THE AREA IS USED AS FOLLOWS 

01100 02401 NOISE DIGIT. SOURCE , SUBROUT I NE SUPERVISOR 

01L10***»** PCK ADR OF PICK. SOURCE , SUBROUT I NE SUPERVISOR 

0H20****** PCK*5 AOR OF RETURN TO SUBR. SOURCE , SUBROUT I NE 

01130****** PCK+10 ADR OF RETURN TO MAINLINE. SOURCE , PR I MARY LINKAGE 

01140****** PCKM5 ADR OF A OPERAND CHARACTERISTIC. SOURCE, PICK 

01150 PCK + 20 ADR OF B OPERAND CHARACTERISTIC. SOURCE, PICK 

0U60****** PCK+25 ADR OF A OPERAND MANTISSA. SOURCE, PICK 

01170****** PCK + 30 ADR OF 8 OPERAND MANTISSA. SOURCE, PICK 

01180****** PCK+31 RESERVED FOR POSSIBLE RECORD MARK 

01190* PCK*35 4 RESERVED CORE 

01200* PCK-6 THRU PCK-90 SUBVEC FOR THE 17 FURNISHED SUBROUTINES 

02010* ADRS ARE SUPPLIED BY THE SUBROUTINE SUPERVISOR 

02020»***»* PCK-91 DOWN TO END OF IORT MAY BE USEO IF NO ADDED SUBROUTS 

02030****** PICK FOR VARIABLE LENGTH SUBROUTINES 

02040****** FOR OPERANOS A AND B ONLY 



02080 


PCK 


DSB 


5 ,8 


,2365 




02365 


00040 






NOSDIG 


OS 


I 


,2401 




NOISE DIGIT FOR SUBRS 
02401 


00001 






EDGAR 


DORG 


• ♦I 






00000 










DSA 


PICK 






00004 


00005 -0198 






OORG 


•-4 






00000 






02100 


ALPHA 


DS 


51 






00050 


00051 




02110 


P 


DS 


0 


.ALPHA-ALPHA 


00000 


00000 




02130 


SAVE 


OS 


50 






00 100 


00050 




02140 


BETA 


DS 
DS 


96 
1 






00196 
00197 


00096 
00001 




02160 


PICK 


TD 


401 


,BETA^1-P 


tit 


RESET ERROR INDICATOR 
00198 


2N 00401 


00197 


02170 




TR 


PCK*U 


tPCKMO 


tilt 


MOVE OPERANOS FROM MAINLINE 
















00210 


11 02376 


0217N 


02180 




AM 


PCK*10 


.11 


1 1 


CALC RETURN ADR 00222 


11 02375 


-0011 


02190 




BNF 


• ♦44 


,PCK*15 


1 1 


PROCESS A OPERANO 

00234 


M4 00278 


02180 


02200 




CF 


PCKM5 






00246 


11 02180 


00000 


03010 




TF 


PCKM5 


• PCIU15 


ill 


00258 


26 02180 


0238- 


03020 




B7 


•-16 




tO 


00270 


M9 00214 


00000 


03040 




TF 


PCK^25 


\ PCM 15 


1 1 


A MINUS 2 00278 


26 02390 


02380 


03050 




SM 


PCK+25 


,2 




00290 


12 02390 


-0002 


03060 




BNF 


•♦44 


,PCK^20 


t • 


PROCESS B OPERANO 

00102 


M4 00346 


02185 


03070 




CF 


PCK+20 






00114 


31 02385 


00000 


03080 




TF 


PCK^20 


,PCK>20 


til 


00126 


26 02385 


0218N 


03090 




B7 


•-16 






00118 


M9 00102 


00000 


03110 




TF 


PCKOO 


,PCK^20 


1 1 


8 MINUS 2 00146 


26 02195 


02185 



155 



MM I 



0)120 




SH 


PCK*30 


,2 


• Si 


DELIBERATE OVERFLOW 

00358 


12 


023R3 


00002 


03130 




TF 


BETA 


•PCK*20 


• lit 


MOVE B CHAR TO BETA 












Tf 








00370 


K6 


00196 


023BN 


03140 




BETA- 2 


, PCK* 30 


• lit 


MOVE B MAMT TO BET A- 2 
003B2 


K6 


00194 


0239N 


03150 




bv 


PCK*5 




• 6, 


RETURN TO SUBROUTINE 

00394 


46 


0237- 


01400 


03160 


SIGN 


BNF 


•♦24 


,99 




AFFIX PROPER SIGN 

00406 


M4 


00430 


00099 


03170 




SF 


ALPHA- 2 






00418 


L2 


00048 


00000 


03180 




AH 


ALPHA-2 


,00 


.10, 


SET INDICATORS 00430 


Jl 


00048 


000-0 


03190 


STORE 


TF 


PCK* 23 


• ALPHA— 2 


• 6, 


MOVE ALPHA- 2 TO A MANT 
00442 


20 


0239- 


00048 


03200 




TF 


PCK*15 


, ALPHA 


•6, 


MOVE ALPHA- 2 TO A CHAR 
00454 


20 


0238- 


00050 


04010 




B7 


PCX* 10 


t 


• 6 


00466 


49 


0237N 


00000 


04040 




DC 


12 < 


,0100000001 


• 312 


00312 


00012 




04030 


OVFL 


TDM 


401 


•-1 




00474 


15 


00401 


OOOOJ 


04050 




TF 


PCK*25 


» Nl NE -45 


t6. 


,*L 00486 


20 


0239- 


00763 


04060 




TFM 


PCK* I 5 


,99 


,610 


00498 


16 


02 38- 


000R9 


04070 




87 


IRES 4*24 






00510 


M9 


00554 


00000 


04090 


UNFL 


TDM 


401 


,1 




00518 


15 


00401 


00001 


04100 


ZRES 


TF 


PCK*25 


,CLR-96 


• 6* 


.♦L 00530 


20 


0239- 


00B08 


04110 




TFM 


PCK*15 


,-99 


,610 


00542 


16 


0238- 


OOORR 






AM 


PCK+25 


,00 


• 610 


00554 


11 


0239- 


000-0 


04120 




B7 


PCX+IO 


t 


,6 


00566 


49 


0237N 


00000 


04140««*»»» 


SHARED CONSTANTS 












04150 


ONEZ 


DC 


49 


, 1000000000000000000000000000000000000000000000000 














00621 


00049 




04160 


PI0V2 


DC 


47 


,15707963267948966192313216916397514420985846996 














00668 


00047 




04170 


IOGE 


DC 


47 


,43429448190325182765112891891660508229439700580 














00715 


00047 




04180 


LNIO 


PC 


48 


, 2302385092994045684017991454684364207601 10148862 














00763 


00048 




04190 


NINE 


DC 


45 


,999999999999999999999999999999999999999999999 
















00808 


00045 




04200 


CLR 


DS 


96 


♦ f 




96 ZEROS 00904 


00096 




05010 




DC 


48 


tO 


»• 


00904 


00048 




05020 




DC 


49 


tO 


,•-47 


00857 


00049 








OEND 


02001 






02001 









NOSDIG 02401 
EDGAR OOOOOR 
OVFL 004 74R 
SAVE 00100K 



ALPHA 0005 OR 
LNIO 00763R 
P 00000 
SIGN 00406R 



SYMBOL TABLE 

BETA 00196R 

LOGE 00715R 

PCK 02365 

STORE 00442R 



CLR 00904R 

NINE 00808R 

PICK 00198R 

UNFL 00518R 



DIVWl OOOOOR 

ONEZ 00621R 

PI0V2 00668R 

ZRES O053OR 



OSA 
DORG 
0S050 DIVWl TR 



DIVWl 

EDGAR 
PCK*U 



00004 00005 -0000 
00000 

MOVES DIV OPERANDS INTO PCK AREA 

00000 31 02376 0237N 
CALC RETURN ADR 00012 11 02375 -0021 



156 



05070 
05080 
05090 



TF 
LO 
D 

87 

DEND 



85 

PCK+25 
PCK* 30 
PCK ♦10 
02011 



,CLR-10 
,PCKU5 
.PCK+20 



,611 
,611 
.6 



00024 20 00085 00894 
00036 28 0239- 0238- 
00048 29 0239N 0238N 
00060 49 0237N 00000 
02011 



NOSOIG 02401 
BETA 00196R 
FA3 00020R 
INADD 00152R 
NINE 00808R 
PCK 02365 
STORE 00442R 



BRANCH 00100R 

CHGE 00908R 

FD3 00748R 

LNIO 00763R 

NORM 00404R 

PICK 0019BR 

UNFL 005 I BR 



SYMBOL TABLE 

ADD 00344R 

CLR 00904R 

F I X 00644R 

LOGE 007 15* 

ONEZ 0062 IR 

PI0V2 0066BR 

ZCK 00928R 



ADJ 00484R 

EDGAR OOOOOR 

FM3 00564R 

MOVE 00728R 

OVFL 00474R 

SAVE 00100R 

ZRES 00530R 



ALPHA 00050R 
EXIT 00532R 
FS3 OOOOOR 
MOVED 00888R 
P 00000 
SIGN 00406R 



05100»»»»»» 



FLOATING POINT ADD, SUBTRACT, MULTIPLY AND OIVIOE. VARIABLE L 



,FA3 



,FM3 



,FD3 





FS3 


DORG 


05130 


TFM 


05140 




B7 


05160 


F A3 


TFM 


05170 




TFM 


05180 




B7 


05200 




DC 


06020 




TF 


06030 




TF 


06040 




TOM 


06050 




TDM 


06060 


BRANCH 


87 


06080 




BNF 


06090 




CF 


06100 




B7 


06120 




SF 


06130 


INAOO 


TDM 


06140 




TFM 


06150 




C 


06160 




BM 


06170 




BE 


06180 




TR 


06190 




TF 


06100 




TF 


07010 




S 



EDGAR 
BRANCH+6 

FA3*12 
BRANCH *6 
PCK*5 
PCX 
44 



, BRANCHES ,017, 



00004 00005 -0000 
00009 00005 -0020 
00014 00005 -0564 
00019 00005 -0748 
00000 
SET UP FOR SUBTRACT 

00000 JO 00106 -0108 
00012 M9 000 32 00000 
SET UP FOR ADD 00020 JO 00106 -0152 
00032 10 02370 -0052 
00044 49 0236N 00000 
50507070 0005S00050 0005550000 u %0505550 515005 ,346 

00346 00044 



, INADD 
,•♦20 



• 0 

• 017, 
.17 
,6 



ALPHA-P 


, PCK+15 


,11. 


MOVE A OPERANO CHAR 










00052 K6 00050 


0238- 


ALPHA-2-P 


,PCK+25 


.11. 


MOVE A OPERAND MANT 










00064 K6 00048 


0239- 


ALPHA-2-P 


.0 


• 11. 


-L PREPARE FOR LONGER FIELDS 










00076 J 5 00048 


0000- 


BETA-2-P 


,0 


• 11. 


-L OO0SB J5 00194 


0000- 








00100 49 00000 


00000 


INADD- 12 


,BETA-2-P 


• 0, 


SWITCH SIGN OF 8 OPERAND 










0010® MM 00140 


00194 


BETA-2-P 






CO 120 L3 00194 


00000 


INADD 


• 


• 0 


03132 M9 00152 


00000 


BETA-2-P 






00140 L2 f»C!94 


00000 


ADD* I 


.1 


• 0 


00152 J 9 f It S 


00001 


AOO+U 


.BETA-2-P 


•Of 


00164 JO >*.*?,§ 


-0194 


ALPHA-P 


•BETA-P 




00176 Kt< 00G50 


00196 


••60 


* 


.0, 


BR IF A CHAR LARGER THAN i CHAR 




ADO 






001BB M6 00248 


01100 


• 


.0, 


BR IF CHARS EQUAL 










00200 M6 00344 


01200 


ALPHA- l-P 


.BETA-l-P 


• • 


-U-L EXCHANGE FIELOS 










00212 LJ 00049 


00195 


SETA-P 


•PCK*1§ 


• II 


00214 KB 00196 


02 IB- 


BETA-2-P 


.PCK*I3 


• 11 


00236 KB 00196 


0219- 


IfTA-P 


•ALPMA-P 




«*»4P «« 00196 


oooto 



IS? 



PACE 4 



07020 




BV 


ST0RE-12-P, 


* t 


BR IP CHAR OIFP TOO LARGE 














00260 M6 00430 


01400 


07030 




CM 


BETA-P ,-99 


• 10* 


,+L 00272 J4 00196 


OOORR 


07040 




BL 


STQRE-12-P» 


t f 


BR IF CHAR DIFF GREATER THAN L 












00284 M7 00430 


01300 


07050 




A 


iKn. t i acta n 

ADD+ll »BETA-P 


•Ot 


SHIFT BY CHAR OIFF 














0 00296 RJ 00355 


00196 


07060 




OC 


44 t05O0705O05 


0050500770 7755505000 5570705050 5550 


,346 












00346 00044 




07070 




BNF 


•♦24 , BETA-2 


-P tO 


00308 MM 00332 


00194 


07080 




TOM 


ADD*1 v 2 


#0, 


CHANGE TO SUB IF NEC 














00320 J5 00345 


0UOO2 


07090 




CF 


BETA-l-P , 


t » 


-L, CLEAR HI ORDER FLAG 














00332 L3 00195 


00000 


07100 


A00 


A 


ALPHA- 2-P 




00344 Kl 00048 


00000 


071 10 




TO 


99 tALPHA- 


2-P,, 


STORE SIGN 00356 2N 00099 


00048 


07120 




BV 


ADJ t 


,0 


00368 M6 00484 


01400 


071 30 




CF 


ALPHA-2-P, 


t » 


PROCEED WITH NORMALIZATION 














00380 L3 00048 


00000 


07140 




B2 


ZRES -Pi 


• t 


BR IF ZERO SUM 














00392 M6 00530 


01200 


0/150 


NORM 


BO 


EXIT t ALPHA- 


1-P.O. 


,-L BR IF NORMAL 1 Z ATN COMPLTE 












00404 ML 00532 


00049 


07160 




SF 


ALPHA -P, 


t » 


-L 00416 L2 00050 


00000 


071 70 




TR 


ALPHA- 1-Pf ALPHA 


-p,» 


-L.-L 00428 LJ 00040 


00050 


0 7180 




TF 


ALPHA -P.ALPHA- 


1-p 


00440 KO 00050 


00049 


0 7190 




TO 


ALPHA-2-P »N0S DIG ,« 


ENTER NOISE DIGIT 














00452 K5 00048 


02401 


07200 




SM 


ALPHA -P,l 


,10 


00464 J2 00050 


000-1 


08010 




B7 


NORM , 


,0 


00476 M9 00404 


00000 


08030 


ADJ 


TF 


ALPHA- 2-P t ALPHA- 


3-P,, 


SHIFT RIGHT ONE POSITION 














00484 KO 0004e 


0004 7 


08040 




CF 


ALPHA -P, 




-L, CLEAR EXTRA FLAG 














00496 13 00050 


00000 


08050 




TDM 


ALPHA-l-P,-l 


1 1 


-L, INSERT HI ORDER ONE WITH FLAG 












0050B J5 00049 


OOOOJ 


08060 




AM 


ALPHA -P,01 


,10, 


ADJUST CHAR 00520 Jl 00050 


000- I 


08070 


EXIT 


BNV 


SIGN , 


1 » 


STORE ALPHA AND AFFIX SIGN 














00532 M7 00406 


01400 


08080 




BNF 


OVFL -P, ALPHA 


-p 


00544 MM 00474 


00050 


08090 




87 


UNFL -P 




00556 M9 00518 


00000 


08110 


FM3 


TFM 


BRANCH+6 ,»*32 


,017 


00564 JO 00106 


-0596 


08130 




TFM 


FlX+25 ,012 


,09 


00576 J6 00669 


00-12 


08140 




87 


F03*24 




00588 M9 00772 


00000 


08160 




DC 


48 ,5550040250 


0050500040 5552000000 020800252500020450, 


,348 












00 348 00048 




08170 




M 


ALPHA-2-P, BETA-2 


-P., 


MUL MANTISSAS 














00596 KL 00048 


00194 


08180 




BZ 


ZRES -P, 


, , 


BR IF ZERO PRODUCT 














00608 M6 00530 


01200 


08190 




8L> 


MOVE-12 ,100 


,0, 


,-2L BR IF NORM NOT REO 














00620 M3 00716 


00100 


08200 




TFM 


MOVE+li ,100 


,09, 


-L 00632 J6 00739 


OOJOO 


09010 


FIX 


SM 


BETA -P,Ol 


,10, 


ADJUST CHAR BY ONE 














00644 J2 00196 


000-1 


09020 




BNV 


• ♦36 , 


,0 


00656 M7 00692 


01400 


09030 




SM 


ALPHA -P,01 


,10 


00668 J2 00050 


000-1 


09040 




TFM 


BETA -P,-99 


, 10 


00680 J6 00196 


OOORR 


09050 




BD 


CHGfc ,FIX+23 


• 01 


00692 ML 00908 


00667 



158 



09060 




SF 


101 




-2L 


00704 


32 


00101 


00000 


09070 




A 


ALPHA - 


P , 8ET A -P 




00716 


KJ 


00050 


00196 


09080 


MOVE 


TF 


ALPHA- 2- 


P,99 ,, 


,-L 


00728 


K6 


00048 


00099 


09090 




87 


EXI r 


, ,0 




00 740 


M9 


00532 


00000 


09110 


F03 


TFM 


BRANCH+6 


,•♦56 ,017 




00 748 


JO 


00106 


-0804 


09120 




TFM 


FIX+25 


,111 ,09 




00760 


J6 


00669 


OOJll 


09130 




TFM 


MOVE+1 1 


,099 ,09, 


,-L 


00772 


J6 


00739 


00-99 


09140 




TF 


85 


,CLR-106-P, , 


,2L 


00784 


20 


00085 


00798 


09150 




B7 


FA3*12 






00796 


M9 


00032 


00000 


09170 




LD 


99 


,ALPHA-2-P,, 


-L 


00804 


2Q 


00099 


00048 


09180 




D 


99 


, BETA-2 -P,, 


-L 


00816 


2R 


00099 


00194 


09190 




BV 


ZCK 


, ,0 




00328 


M6 


00928 


01400 


09200 




TO 


99 


,99 , , 


,-L 


00840 


25 


00099 


00099 


10010 




BD 


FIX 


,99 ,0, 


,-2L 


00852 


M3 


00644 


00099 


10020 




BZ 


ZRES 


P 




00864 


M6 


00530 


01200 


10030 




DC 


8 


,40550002 ,314 




00314 


00008 




10040 




SF 


100 


, , , 


-2L 


00876 


32 


00100 


00000 


10050 


MOVED 


S 


ALPHA - 


P, BE TA -P 




00888 


KK 


00050 


00196 


10060 




B7 


MOVE 


, ,0 




00900 


M9 


00728 


00000 


10080 


CHGE 


TFM 


MOVE+ll 


,98 ,0, 


,-L 


00908 


J6 


00739 


00098 


10090 




B7 


MOVED 






00920 


M9 


00888 


00000 


10110 


ZCK 


TDM 


401 


,0 ,11, 


SET 


ERROR INDICATOR 


















00928 


15 


00401 


0000- 






AM 


PCK+15 


.99 ,6. 


SIMULATE 


HARDWARE DIV AND 


FORCE 


OVE 














00940 


11 


02 38- 


00099 






BV 


PCK+10 


, ,6 




00952 


46 


0237N 


01400 






OEND 


02024 






02024 









NOSDIG 02401 
FSQR3 OOOOOR 
NINE 00808R 
PICK 00198R 
S02 00124R 



ALPHA 00050R 
LN10 00763R 
ONEZ 00621R 
PI0V2 00668R 
S03 00380R 



SYMBOL TABLE 

BETA 00196R 

LOGE 00715R 

OVFL 004 74R 

SAVE 00100R 

STORE 00442R 



CLR 00904R 

LSQ 00228R 

P 00000 

SIGN 00406R 

UNFL 00518R 



EDGAR OOOOOR 

LSQM 00336R 

PCK 02365 

SOEX 00436R 

ZRES 00530R 



10130 • FLOATING POINT SQUARE ROOT. VARIABLE LENGTH 





OSA 


FS0R3 






00004 00005 -0000 




OORG 


EDGAR 






00000 


10160 FSQR3 


TFM 


PCK+5 


,•♦20 


,17 


00000 10 02370 -0020 


10170 


B7 


PCK 


, 


,6, 1 


IR TO PICK AND RETURN 

00012 49 0236N 00000 


10150 


DC 


44 


,075050 


0550000002 


0000000805 040000560000000005 , 350 
00350 00044 


10190 


BO 


• ♦20 


,BETA-1 -P,0, 


,-L 00020 ML 00040 00195 


10200 


B7 


ZRES 


-Pi 


• t 


BR IF RESULT ZERO 

00032 M9 00530 00000 


11020 


MM 


BETA 


-P,50 


ao, 


DIV CHAR BY 2 

00040 J 3 00196 OOONO 


U030 


BNF 


• ♦36 


i BETA- 


2 -P»0, 


BR POR POSITIVE ARG 

000S2 MM 00088 00194 


11040 


CF 


BETA-2 


-P 




00064 L3 00194 00000 


11050 


TOM 


401 


tO 


* * 


• SET NEG ARG INDICATOR 

00076 IS 00401 00000 


11060 


BO 


SQ3 


,91 


.0, 


BR IF CHAR OOD 



159 
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0008 I MS 00)90 00011 



11070 




TFM 


$02*42 


• 9? 


.010, 


,-L Ki.vt MANTISSA AM 

00100 J6 00166 000R7 


hobo 




8NF 


•♦24 


.99 


,0, 


BR IF CHAR POSITIVE 

00U2 M4 00136 00099 


11090 


SQ2 


SF 


97 






00124 32 00097 00000 


1 1100 




TF 


FXK+15 


• 97 


»6, 


STORE RESULT CHAR. PROPER SI6N0 

00136 26 0238- 00097 


11110 




TF 


99 


•CLR-92-P 


, • 


•2L 00148 20 00099 00812 


11120 




TF 




.BETA- 2 - 


P.. 


MOVE NAM! INTO 97/98 MINUS L 

00160 20 00000 00194 


uno 




TFM 


LS0*18 


.97 


,010, 


,-2L INITIAL MANT ADR HI ORDER 

00172 J6 00246 000R7 


u uo 




TF 


LSQ*23 


t $03*18 


.01, 


INITIAL RESULT ADR 

00184 KO 00251 00398 


11150 




TF 


LSQM- 6 


tLSQ*18 


f 


INITIAL MANT ADR 

00196 KO 00330 00246 


11160 




TF 


BETA- 2 


-P .ONE 7-40- 


p.. 


•*L SET RESULT TO ONE L*l DIGITS 

00208 KO 00194 00573 


11170 




B7 


LSQM 




• 0. 


00220 M9 00336 00000 


11200 


ISO 


AM 


LS0*23 




•0*10. 


AOD 2 TO RESULT 

00228 Jl 0025J 000-2 


12010 




S 






( f 


SUB RESULT FROM MANTISSA 

00240 22 00000 00000 


12020 




BNN 


LSO 




.0. 


CONTINUE UNTIL MANT IS NEG 

00252 M6 00228 01300 


12030 




CM 


LS0*23 


tBETA-2 - 


P. 07 


00264 JM 00251 -0194 


12040 




BNL 


SOEX 




• 0. 


BR IF TERMINAL RESULT ADR 

00276 M6 00436 01300 


12050 




A 


LSO* I 8 


t LSQ*23 


,01611 


• RESTORE LAST SUB 

00286 KJ 00240 0025J 


12060 




CF 


LSQ*18 


» 


.06 


00300 L3 00240 00000 


12070 




AM 


LSQM-6 


1 01 


.010. 


REDUCE MANT FIELD LENGTH ONE 

00312 Jl 00330 000-1 


12080 




SF 








00324 32 00000 00000 


12090 


LSQM 


AM 


LSQ+18 


.02 


.010. 


STEP MANTISSA AOR.HI ORDER, +2 

00336 Jl 00246 000-2 


12100 




AM 


LSQ+23 


,01 


.010, 


ST! P •>»"•;.'. C ,»,PR ♦ 1 

0034B J I 00251 000-1 


12110 




SM 


LS0*23 


,09 


,0610, 


STFP RESULT -9 

00360 J2 0025J 000-9 


12120 




«7 


LSQM2 




,0, 


CONT LOOP WITH NEAT 2 DIGITS 

00372 119 00240 00000 


11190 




DC 


if* t 


70700200065020,316 


00316 00016 


12140 


S03 


AM 


99 


,50 


,10, 


ADD .5 »0 CMAA/2 

00380 11 00099 OOONO 


12150 




TOM 


BETA-2 


-P,0 


,211, 


-L, LiiUCT 4 MANT FUR QUO CHAR 

00392 J5 -0194 0000- 


12160 




CF 


BETA- I 


-P. 


* • 


-L, 00404 L3 00195 00000 


12170 




TFM 


SQ2+42 


,9B 


• 010, 


,-L MOVE MANT A OR 

00416 J6 00166 000R8 


12180 




87 


SQ2-12 




,0, 


BR TO STORE CHAR ♦ IN IT LOOP 

00429 M9 00112 00000 


12200 


SQEX 


TF 


80 


.CLR-IQO- 


p.. 


•*L 0043* 20 00080 00904 


13010 




MM 


BETA-2 


-P.50 


,10. 


RESUL7/2 00449 J 3 00194 OOONO 


13020 




SF 


98 




. t 


-L, DEFINE PIELO 

00460 32 00099 00000 


13030 




TF 


PCK+25 


,97 


.6, 


STORE MANT RESULT 



B7 P( kMO . ,6, RETURN TO MAINLINE 

00484 49 0237N 00000 
DEND u2U61 02061 



NOSDIG 02401 
BRD 0020&R 
FC0S3 OOOOOR 
NINE 00808R 
PCK 02365 
P02CH 00760R 
TWOPI 01009R 



AAB 00910R 

CLF 00088R 

FS1N3 0OO32R 

0NE2 00621R 

PI 00962R 

SAVE OOIOOR 

UNFL 0051 BR 



SYMBOL TABLE 

AB 00914R 

CLR 00904R 

H34 010UR 

OVER 00400R 

PICK 00198R 

SIGN 004 06R 

ZRES 00531H 



ALPHA 00U5U«< 
OONE 00588R 
LN10 00763R 
OVFL 00474R 
PI0V2 00668R 
STORE 0044 2R 



&ETA 00196R 
EDGAR OOOOOR 
LOGE 00715R 
P 00000 
PLACE 00716R 
SUM 00472R 



l3070»«*»»« VARIABLE LENGTH 







OSA 


FC0S3 


,FSIN3 




00004 00005 -0000 
00009 00005 -0032 






DORG 


EDGAR 






00000 


13100 


FC0S3 


tFm 


CLF* U 


• 010 


• 09, 


I NIT FOR COS 

00000 J6 00099 00-10 


13110 




TFM 


PCK* 5 


,CLF 


.17 


00012 10 02370 -0099 


13120 




B7 


PCK 




.6. 


GO TO PICK AND RETURN 

00024 49 0236N 00000 


13140 


FSIN3 


TFM 


CLF*ll 


.-Oil 


.09, 


INIT FCR POSITIVE SIN 






TFM 








00032 J6 00099 00-1 J 


13150 




PCK* 5 


,•♦20 


.17 


00044 10 02370 -00*4 


13160 




B7 


PCK 


• 


.*• 


GO TO PICK AND RETURN 






DC 








00056 49 0236N 00000 


13180 




46 ,0500507056 


5000510007 0507005651 0070510000 §05*09.349 














00349 0004* 


13190 




8NF 


• ♦36 


•BETA-2 


-P 


000*4 MM 00100 00194 


13200 




TOM 


CLFMO 


,0 


• 0, 


AO JUST FOR NEG SIN 

0007* J 5 00099 00000 


14010 


CLF 


CF 


BETA-2 


-P 




00099 L3 00194 00000 


14020 




CF 


BETA-i 


-P, 


• • 


-L 00100 L 3 00199 00000 


14030 




TF 


SAVE 


-P,CLR-94 


-P •• 


.♦I MOVE L^2 ZEROS TO SAVE 






CM 








00112 KO 00100 00910 


14040 




BETA 


-P. 00 


,10 


00124 J4 0019* 000-0 


14050 




BNL 


POICH 


• 


• 0, 


BR IF POSITIVE OR IfRO CHAR 

0013* M* 007*0 01S00 


14060 




CM 


BETA 


-P. 00 


•1011, 


• ♦L 00149 J4 0019* 000— 


14070 




BL 


BRO 


• 


• 0. 


BR IF CHAR LESS THAN — L 

001*0 M7 /n.>9 01300 


14080 




TFM 


•♦30 


• SAVE 


-P. 07, 


•-L CHAR BETtfflN 0 ,> L 

00172 Jf «W02 -0100 


14090 




S 


• ♦18 


• BETA 


-P,0 


00194 m miM 0019* 


14100 




TR 




• BETA-l 


-P.. 


»-L 0019* U 00000 00195 


14110 


BRO 


80 


•♦24 


•CLF*ll 


• 01, 


8R IF SIN ROUTINE 

00208 ML 00232 00099 


14120 




A 


SAVE-P 


•PI0V2- 


%5-P,. 


t HCONVERT TO SIN 








SAVE 






00220 KJ 00100 00*23 


14130 




S 


-P.TNOPl- 


*• tlf 


• ♦L 08232 KK 00100 009*4 


14140 




BH 


•-12 


• 


tOt 


SUB 2 PI FROM MANT UNTIL Ml 8 

00144 m 00232 OilOO 



it I 
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1*150 




SF 


SAVE-l 


-P, 


1 1 


-L 


00256 


L2 


00099 


00000 


14160 




A 


SAVE 


-Pt 


PI-45 




, ♦L 00268 KJ 


00100 


0091 7 


14170 




BN 


• ♦36 


i 


• 0 




00280 


M7 


00316 


01 300 


14180 




SM 


CLF*10 




01 ,010 




00292 


J2 00098 


000-1 


14190 




SF 


SAVE 


-P 






00304 


L2 


00100 


AAAAA 

00000 


14200 




A 


SAVE 


-Pt 


PI0V2-45-P,, 




,*L 00316 


KJ 


00100 


00623 


15010 




TF 


80 


t 


CLR-106-P,, « 




•2L 00328 


20 


00080 


00798 


15020 




DC 


48*5552705600 0002202000 


5055000000 0008550000 00560050 


,348 
















00348 


00048 




15030 




M 


SAVE 


-P. 


SAVE -P 




00340 


KL 


00100 


00100 


15040 




TF 


SAVE 


-P. 


98 #10, 




,-l 00352 


K6 


00100 


O0OR8 


1 5050 




sr 


SAVE-l 


-P, 




-L 


00364 


L2 


00099 


00000 


15060 




TF 


BETA 


-P. 


0NEZ-47-P,! 




,+LSET BETA EQUAL I PLUS L+l ZERO 
















00376 


KO 


00196 


00574 


15070 




TR 


AA8-3 


t 


H34-1 ,01 




00 388 


LJ 


00907 


01010 


15080 


OVER 


TOM 


SUM* I 


f 


2 ,011, 




SET FOR SUBTRACTION 




















00400 


J5 


00473 


OOOOK 


15090 




TF 


99 


i 


98 ,10, 




,-L 00412 


26 


00099 


O0OR3 


15100 




TFH 


97 


f 


0000 ,58, 


-L 


00424 


16 


000R7 


0-000 


15110 




D 


98 


, 


AB ,15 , 


-L 


00436 


2R 


000R8 


00914 


IS120 




BZ 


DONE 


t 


,0, 




BR IF QUOTIENT ZFRO 




















00448 


M6 


00588 


01200 


1M 30 




TF 


ALPHA 


-P, 


95 ,10 




00460 


K6 


00050 


000R5 


1 *>1 40 


SUM 


S 


BETA 


-P. 


ALPHA -P 




00472 


KK 


00196 


00050 


15150 




AM 


AAB 


t 


2 ,010 




00484 


Jl 


00910 


000-2 


IS I 60 




AM 


AAB-2 


t 


2 ,010 




00496 


Jl 


00908 


000-2 


15170 




M 


AAB 


» 


AAB-2 ,01, 




4DIGIT PRODUCT 

00508 


KL 


00910 


00908 


15180 




TF 


AO 


t 


99 ,0 




00520 


K6 


00914 


00099 






TF 


80 


• 


CLR-106-P, , 




,2L 00532 


20 


00080 


00798 


15200 




M 


SAVE 


-P, 


ALPHA -P 




00544 


KL 


00100 


00050 


1601.1 




BNF 


OVER 


t 


SUM^l ,01 




00556 


MM 


00400 


00473 


16020 




TDM 


SUM*l 


i 


1 ,0, 




SET TO ADD 0056tt 


J5 


00473 


00001 


16010 




B7 


OVER+12 , 


,0 




00580 


M9 


00412 


00000 


16050 


DONE 


C 


HETA-l 


-P. 


CLR-95-P ,, 




♦♦L 00588 


KM 


00195 


00809 


16060 




BE 


P0ZCH*60 , 


,0, 




BR IF L + l ZEROS 






















00600 


M6 


00820 


01200 


16070 




TFM 


SAVE 


-P, 


01 ,10 




00612 


J6 


00100 


000- I 


16080 




DC 


48,0750775070 0000500505 


5000500051 0000505000 


05057005, 


,350 
















00350 


00048 




16090 




BD 


PLACE- 


24 , 


BETA- I -P,0, 




,-LBR IF NORMALIZATION NOT REQ 
















00624 


ML 


00692 


00195 


16100 




SM 


SAVE 


-P, 


01 ,10 




00636 


J2 


00100 


000- 1 


16110 




TR 


BETA-1 


-P, 


BETA -P,, 


-L 


,-L 00648 


LJ 


00195 


00196 


16120 




TO 


BETA-l 


-P. 


NOS DIG 




ENTER NOISE DIGIT 
00660 


K5 


00195 


02401 


16130 




SF 


BE T A- I 


-P, 


, r 


-L 


00672 


L2 


00195 


00000 


16140 




B7 


•-60 








00684 


M9 


00624 


00000 


16160 




BD 


PLACE 




CLF+10 ,01 




00692 


ML 


00716 


00098 


16170 




SF 


BETA-2 


-P 






00704 


L2 


00194 


00000 


16180 


PLACE 


TF 


PCKU5 


• 


SAVE -P,6, 




STORE CHAR 00716 


20 


0238- 


00100 


16190 




TF 


PCK4-25 




BETA-2 -P.6, 




STORE MA NT 00728 


20 


0239- 


00194 


16200 




TD 


ALPHA+1-P, 


H34+7 ,1, 




RESTORE RM 00740 


KN 


00051 


01018 


17010 




B7 


PCK+10 


i 


,6, 




RETURN TO MAINLINE PROGRAM 


















00752 


49 


0237N 


00000 


17030 


POZCH 


CM 


BETA 


-Pi 


03 ,10 




00760 


J4 


00196 


000-3 


17040 




BL 


• ♦80 




tO, 




BR IF CHAR SMALLER THAN 03 


















0077? 


M7 


00852 


01300 


1 7050 




CM 


BETA 


-P, 


00 ,10, 




,+L 00784 


J4 


00196 


000-0 



wmmmmmmmmmmmmm, 

PAGE 9 



17060 




BNH 


• ♦44 


t 


• 0, 


BR IF CHAR LESS OR EQUAL L 

00796 M7 00840 01100 


17070 




TDM 


401 


,0 


.11* 


CHAR TOO LARGE 

00808 15 00401 0000- 


17080 




TD 


ALi'HA* 1 


t-P,H34+7 


* , 


RESTORE RM 00820 KN 00051 01018 


17100 




B7 


ZRFS 






00832 M9 00530 00000 


17120 




TDM 


401 


,0 




00840 15 00401 OOOOu 


17130 




TFM 


• ♦42 


, SAVE-l 


-P,07, 


ADJ TO SUB TWO PI FROM MANT 

00852 JO 00894 -0099 


17140 




S 


• ♦30 


♦ BETA 


-P,0, 


UNTIL REDUCED TO NEG NUMBER 

00864 KK 00894 00196 


17150 




TDM 


BETA-2 


-P,0 


.11, 


-L 00876 J5 00194 0000- 


17160 




T p 




, BETA-2 


-P 


00888 20 00000 00194 


17170 




B 


8RD 




,0 


00900 M9 00208 00000 


17180 




DORG 


• -4 






00907 


17190 


AAB 


DS 


4 






00910 00004 


17200 


AB 


OS 


4 






00914 00004 


18010 




Di> 


I 






00915 00001 


18020 


PI 


DC 


47 


,31415926535897932384626433832795028841971693993 














00962 00047 


18030 


TWOPl 


DC 


47 


,6283185307179586476925286766559005 768 3943387987 














01009 00047 


18040 


H34 


DC 


2 


,01 




01011 00002 


18050 




DC 


2 


,02 




01013 00002 


18060 




DC 

OENO 


5 

02072 


,0002* 




01018 00005 
02072 



NOSDIG 02401 
CLR 00904R 
LOGE 00715R 
PCHAR 00836R 
SAVE 00100R 
TEST 00064R 



ALPH 00196R 
EDGAR OOOOOR 
NINE 00808R 
PCK 02365 
SIGN 00406R 
TEST I 00804R 



SYMBOL TABLE 

ALPHA 00050R 

EOD 01040R 

ONEZ 00621R 

PICK 00198R 

SIX 01255R 

TEST2 00652R 



ATN1 00424R 
FATN3 OOOOOR 
OVFL 00474R 
PI0V2 00668R 
STORE 00442R 
UNFL 00518R 



BETA 00196R 
LN10 00763R 
P 00000 
PI0V4 01346R 
TAN6 01301R 
ZRES 00530R 



18070****** FLOATING ARC TANGENT VARIABLE LENGTH 







DSA 


FATN3 




00004 00005 -0000 






DORG 


EDGAR 




00000 


18090 


FATN3 


TFM 


PCK+5 ,»*20 


tl7 


00000 10 02370 -0020 


18100 




B7 


PCK , 


.6, 


BR TO PICK AND RETURN 

00012 49 0236N 00000 


18130 




DC 


50 ,0700055050 


0000510005 


0576705070 7000065020 51500825,350 
00350 00050 


18120 




TFM 


TEST+11 , 


,08, 


SET INDICATORS 

00020 J6 00075 0-000 


18140 




BD 


•♦20 , BETA-1 -P,0, 


,-L 00032 ML 00052 00195 


18150 




B7 


EOD* 12 , 


» , 


8R IF ZERO MANT 

00044 M9 01052 00000 


18170 




TO 


TEST^9 , BETA-2 -P,0, 


SAVE MANT SIGN 












OO0S2 KN 00073 00194 


18180 


TEST 


CF 


BETA-2 -P 




00064 L3 00194 00000 


18190 




CM 


BETA -P, 


• 10 


00076 J4 00196 000-0 


18200 




BH 


PCHAR , 


• 0, 


BR IF CHAR POSITIVE 



113 



PACE 10 



19010 




BE 


ALPH 


» 


tOt 




BR IF CHAR IERO 
















00100 M6 00196 01200 


19020 




CM 


BETA 


-P, -99999 


tlOi 




♦ L 00112 J 4 00196 999RR 


190)0 




81 


EOD 


t 


.0. 




BR IF CHAR LESS THAN -IL-l 1 
















00124 M7 01040 01300 


190*0 




TFM 


ALPH- I 


, BETA-2 


-PtOT 




00136 JO 00195 -0194 


19050 




A 


ALPM-1 


,BE7A 


-P,0 




00148 KJ 00195 00196 


19060 




JT 


BETA-2 


-P.CLR-96-P ,, 


-L 


§*L CLEAR AREA LEFT OF BETA 
















00160 KO 00194 00808 


19070 




CF 


BETA- I 


-P, 


t * 


-L 


EXPAND BETA BY REMOVING FLAG 
















00172 L3 00195 00000 


19080 




TF 


BETA-2 


-P, 


1 1 




ADJUST BETA FIELD FOR CHAR 














00184 K6 00194 00000 


19090 


ALPH 


SF 


BETA-l 


-P. 


1 1 


-I 


CONTRACT BETA BY RESETTNG FLAG 
















00196 L2 00195 00000 


19100 




CM 


BETA 


-P,29 


• 10, 


-L 


00208 J4 00196 000K9 


19110 




BL 


ATNl-72 , 


,0, 




BR IF MANT LESS THAN .29 
















00220 M7 00352 01300 


19120 




TF 


79 


.CLR-lOO 


-p.. 




.♦L 00232 20 00079 00804 


19130 




MM 


BETA-2 


-P,6 


,10, 




6«MANT IN 99 












-L* 


00244 J3 00194 000-6 


191*0 




TOM 


98 


,-1 




1*6»MANT IN 99 
















00256 15 00098 OOOOJ 


19150 




S 


BETA-2 


-P,SIX-45 


,1, 




♦L MANT-.6 L 0IG1TS 














00268 KK 00194 01210 


19160 




TF 


ALPHA 


-P,99 


t » 




10+6«MANT MOVED TO ALPHA.L+2DG 
















00280 K6 00050 00099 


19170 




TF 


99 


♦CLR-94- 


p ,. 




,2L 2L*2 ZEROS 
















00292 20 00099 00810 


19180 




ID 


98 


, BETA-2 


-p., 


-L 


, L DIGITS 1 
















0030* 2Q 00098 0019* 


19190 




DC 


48 ,2552000855 5256030106 2020055008 5552000000 56550855,348 
















00348 000*8 


19200 




D 


100 


.ALPHA 


-p,, 


-L 


, L+2 DIGITS 00316 2R 00100 00050 


20010 




TF 


BETA-2 


-P,97 


» » 




,-L MANT IS (MANT-.6)/( 10+6»MANT) 
















00328 K6 0019* 00097 


20020 




SF 


TESTM1 , 


• 0, 




I ND THIS CALC MADE 
















003*0 L2 00075 00000 


20030 




TF 


80 


.CLR-106 


-p,, 




,2L ZEROS 
















00352 20 00080 00798 


20040 




M 


BETA-2 


-P, BETA-2 


-p,. 




SQUARE MANT 0036* KL 0019* 0019* 


20050 




TF 


SAVE 


-P,99 






,-L SAVE IS MANT»MANT.L DIGITS 
















00376 K6 00100 00099 


20060 




TF 


ALPHA 


-P.CLR-95 


-p.. 




,*L INI T ALPHA TO 00 L+l ZEROS 
















00388 KO 00050 00809 


20070 




TFM 


ATN105 ,99999 


,10, 




,2L 00*00 J6 00*59 999R9 


20080 




TFM 


ATNl-3 


,99999 


,10, 




.♦L 00*12 J6 00*21 999R9 


20090 


AtNl 


TF 


99 


,CLR-92- 


p • • 




,*L L ♦* ZEROS 
















00*2* 20 00099 00812 


20100 




TFM 


98 


,10 


,10, 


-L 


00*36 16 00098 OOOJO 


20110 




DM 


98 




t , 


-L 


00**8 19 00098 -0000 


20120 




S 


96 


! ALPHA 


-p 




00*60 2K 00096 00050 


2ono 




TF 


ALPHA 


-P,96 


f • 




L*l DIGITS 
















00*72 K6 00050 00096 


201 40 




TF 


80 


, CLR-106 


-p,. 




,2L 00*8* 20 00080 00798 


20150 




M 


ALPHA 


-P,SAVE 


-Pt. 




2L + 1 OIGITS 
















00*96 KL 00050 00100 


20160 




TF 


ALPHA 


-P,99 


» » 




,-L L*l DIGITS 
















00508 K6 00050 00099 



164 



20170 


S* 


A TN I ♦ 35 


t 


,2 ,010 




20180 


SM 


ATNl-3 




.1 ,010 




20190 


BNZ 


ATNl 




,0, 


BR 


20200 


TF 


SAVE 


-Pi 


,0NEZ-*7-P,, 


.♦L 


21010 


S 


SAVE 


-P, 


, ALPHA -P,, 


ONE 


21020 


TF 


80 




.CLR-106-P, , 


• 2L 


21030 


M 


SAVE 


-P, 


»BETA-2 -P,, 





00520 J2 00*59 000-2 
00532 J2 00*21 000-1 
IF LESS THAN L-l PASSES 

00544 M7 00*2* 01200 
L*2 DIGITS 

00556 KO 00100 0057* 
MINUS SUM 0F(C0EF»MANT»»2) 

00568 KK 00100 00050 
00580 20 00080 00798 
2L*2 DIGIT PRODUCT 

00592 KL 00100 0019* 
*8 ,0000202100 202650250* 50**2000*0 0205000000 0008*025,3*8 

003*8 000*8 
0060* MM 00652 00075 
00616 M6 006*0 01300 
-L 00628 32 00099 00000 

-L,*L l + l DIGITS 

006*0 2 J 00099 01256 
00652 MM 00688 0007* 
-L 0066* 32 00099 00000 

-L,*L L*2 DIGITS 

00676 2J 00099 00623 
00688 J6 00196 000-1 
-L INSERT RM AT 100-L 

00700 2N 00100 00197 
•-2L BR IF NORMALIZATION NOT REQD 

00712 M3 00768 00098 
0072* J2 00196 000-1 
-2L.-2L 00736 31 00098 00099 

-L INSEAT NOISE DIGIT 

fT"*** 25 00099 02401 
0M60 M9 00712 00000 
-2L 001 m 32 00098 00000 

,-L 007S0 26 0239- 00097 

00792 20 0238- 00196 
00804 MM 00828 00073 
00816 12 0239- 00000 
00828 49 0237N 00000 
INDICATE POSITIVE CHAR 

00836 J5 ©0074 OOOOJ 
,2L 00848 20 00099 00809 

-2L DIVIDEND EQUALS .1 

00860 15 00100 OOOOJ 
-L, OIVISOR IS M43T 

00872 2R 00099 00194 
) 0000010000 0500555670 7051000*. :*6 
00348 ©0048 
,-2L 8R IF MANT IS 10000C .« 

00864 MS 009*0 03099 
-2L REDUCE TO L DIGITS 

00696 32 00100 00000 
00908 K6 00194 00099 
REDUCE CHAR BY 1 

60920 J2 00196 000-1 
THESE 3 009)2 M9 00964 00000 

,-L INSTRUCTIONS GO 

00960 K6 001*4 0§0§S 
WITH BD ABOVE 

9*991 J2 00196 000-2 



21050 




BNF 


TEST2 


.TEST+U 


,01 


21060 




BNN 


TEST2-12 




,0 


21070 




SF 


99 






21080 




A 


99 


,TAN6-45 


,'!• 


21090 


TEST2 


BNF 


• ♦36 


.TEST+IO 


,01 


21100 




SF 


99 


• 


, f 


21110 




A 


99 


,Pinv2-45-P,, 


21120 




TFM 


BETA 


P.l 


,10 


21130 




TU 


100 


,BETA^l 


-p,» 


211*0 




BD 


TEST I- 36 


,98 


,0, 


21150 




SM 


8ETA 


P,l 


,10 


21160 




TR 


98 


,99 


, » 


21170 




TD 


99 


,N0S DIG 


f » 


21180 




87 


•-48 




tO 


21200 




SF 


98 






22010 




TF 


PCK+25 


^97 


li, 


22020 




TF 


PCK*15 


,8ETA 


-P,6 


22030 


TEST1 


BNF 


•♦24 


,TESU9 


,01 


220*0 




SF 


PCK^25 


t 


,6 


22050 




87 


PCK^IO 


t 


,6 


22070 


PCHAR 


TDM 


TEST^IO 


,-i 


,0, 


22080 




TF 


99 


,CLR-95- 


P »• 


22090 




TDM 


100 


,-1 


, t 


22100 




D 


99 


, BETA-2 


-P.t 


22110 




DC 


48 ,0440525000 525000005 


22120 




60 


• ♦56 


.99 


• 0, 


22130 




SF 


100 




t • 


22140 




TF 


BETA-2 - 


P,99 


• 1 


22150 




SM 


BETA 


P,l 


,10, 


22160 




87 


• ♦32 




• 0, 


22160 




TF 


BETA-2 - 


pUb 


• f 


22190 




SM 


BETA 


P,2 


• 10* 



its 
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22200 




BL 


• ♦44 


t »0» 


BP IP OPERAND IS ONE 














00964 


M7 01006 


01300 


23010 




BE 


ALPH 


t »0» 


BR IF CHAR REDUCED TO ZERO 














00976 


M6 00196 


01200 


23020 




SF 


BETA 


-p. • • 


CHAR STILL POSITIVE»MAKE NE6 












00988 


L2 00196 


00000 


23030 




67 


TEST+46 




01000 


M9 00112 


00000 


23050 




TFM 


PCK+15 


i ,610, 


STORE 01006 


16 0238- 


000-0 


23060 




TF 


PCK+2S 


.PI0V4-45 ,16, 


•♦L 01020 


20 0239- 


01301 


23070 




B7 


TESTl 




01032 


M9 00604 


00000 


73090 


600 


BO 


• ♦32 


•TEST+10 ,01, 


qr ir noun nunc 


THAN PI0V2 














ML 01072 


00074 


2H00 




TF 


PCK^25 


•BETA-2 -P. 6 


01052 


20 0239- 




23110 




B7 


TESIt-12 


0 1064 


M9 00792 


A AAA A 


23130 




TF 


ALPHA 


-P, BETA-2 -P 


01072 


KO 00050 


00194 


23140 




TF 


BETA-2 


-P,Pt0V2-46-P,i 


.4*1 i * i mm T< 

l T l L ▼ l U1W1I9 


KO 00194 


00622 


23150 




CF 


ALPHA- 1 


-P. •• 


-L 01096 


L3 00049 


00000 


23160 




TOM 


ALPHA 


-P. illt 


-L 01108 


J5 00050 




23170 




CM 


BETA 


-P.00 ,1011 


• •♦L 01120 


J4 00196 


000— 


73180 




BNH 


• ♦48 


• .0 


01132 


M7 01180 


ouoo 


2 U90 




TFM 


• ♦35 


, ALPHA -P,07 


01144 


JO 01179 


-0050 


7 3200 




OC 


10 ,0550050000,310 


00310 


00010 




24010 




A 


•♦23 


•BETA -P,0 


01156 


KJ 01179 


00196 


24020 




S 


BETA-2 


-P 


01168 


K2 00194 


00000 


74030 




TF 


PCK+25 


•8ETA-3 -P,6 


01180 


20 0239- 


00193 


24040 




TFM 


PCK+15 


•I ,610 


01192 


16 0238- 


000- 1 


74050 




6 


TEST I 


. .0 


01204 


M9 00804 


00000 


24060 




OOKG 


• -4 




01211 






24070 


SIX 


OC 


45 


,600000000000000000000000000000000000000000000 














01255 


00045 




24080 


T'N6 


OC 


46 


,5404195002705841554435783646085999101351482514 














01301 


00046 




2.4090 


IM0V4 


DC 


45 


,785398163397448309615660845819875721049292349 














01346 


00045 








DENO 


02091 




02091 















SYMBOL 


NOSOIG 


02401 


GOBACK 


01016R 


ALPHA 


CLR 


00904R 


EDGAR 


OOOOOR 


E12 


FEX3 


OOOOOR 


GORD 


00608R 


LNIO 


□NEZ 


00621R 


OVFL 


00474R 


P 


PI0V2 


00668R 


REC1P 


00688R 


SAVE 


STORE 


00442R 


TEN34 


01069R 


UNFL 



TABLE 










00050R 


BETA 


00196R 


CALC 


00468R 


00436R 


FACT 


00740R 


FEXT3 


00020R 


00763R 


LOGE 


00715R 


NINE 


00808R 


00000 


PCK 


02365 


PICK 


00198R 


00100R 


SETUP 


00144R 


SIGN 


00406R 


00518R 


ZRES 


0O53OR 







74100 • FLOATING EXPONENTIAL VARIABLE LENGTH 

DSA FEXT3 ,FEX3 00004 00005 -0020 

00009 00005-0000 
DORG EDGAR 00000 
24110 FFX3 TDM SETUPS ,1 ,0, ALLOW MUL BY LOG E FOR EXP 

00000 J5 00145 00001 

24120 B7 FEXT3+12 , ,0 00012 M9 00032 00000 1 A ft 

74140 FEXT3 TDM SETUP* 1 ,9 ,0, PREVENT MUL BY LOG E FOR EXT 

00020 J5 00145 00009 



24150 
24160 


TFM 

B7 


PCK + 5 
PCK 


,•♦20 ,17 
, ,6, 


24180 


DC 


46,0056070005 5020250008 


74190 
24200 


TFM 
TF 


PCK+15 
ALPHA- 2 


,1 ,610 
-P.0NE2-45-P,, 


25010 
25020 


BD 
37 


• ♦20 

GOBACK- 


,BETA-l -P,0, 
12, ,. 


25040 


TD 


RECIP-l 


, BETA-2 -P,0, 


25050 
25060 
25070 


CF 

TFM 

TF 


BETA-2 

101 

97 


-P 

• * • 
, BETA-2 -P., 


25080 SETUP 


B 


• ♦92 


, ,0, 


25100 
25110 


TF 
M 


80 

BETA-2 


,CLR-106-P,, 
-P.L0GE-45-P,, 


25120 


BD 


• ♦56 


•98 ,0, 


25130 
25140 
25150 


SM 
SF 
TF 


BETA 
99 

BETA-2 


-P,l ,10 

• » • 
-P. 102 •• 


25160 
25180 


B7 
TF 


• ♦20 
BETA-2 


• .0 
-P,101 ,• 


25190 
25200 


CM 
BNH 


BETA 
GOBACK- 


-P»-00 ,1011 
12. .0. 


26010 
26020 


CM 
BE 


BETA 
CALC 


-P, .10, 
• ,0, 


26030 


BL 


CALC+68 


» .o, 


26040 
26050 


CM 

BH 


BETA 
E12 


-P.2 ,10 
• tO, 


26070 


BL 


• ♦44 


• ,0, 


26060 


OC 


46, 07770070 7007770050 


26080 


A 


PCK+15 


•BETA-4 -P. 6. 


26090 


TR 


BETA-5 


-P,BETA-3 -P, t 


26100 
26120 


B7 
TDM 


E12-12 
BETA-6 


-P. .U. 


26130 
26140 
26150 


CF 
A 

TR 


BETA-5 
PCK+15 
BETA-S 


-P. •• 
•BETA-9 -P,6 
-P, BETA-4 -P, t 


26160 


BNV 


•♦3a 


» fOt 



00032 10 02370 -0052 
BR TO PICK AND RETURN 

00044 49 0236N 00000 
5604504052 0052510050 000050 , 348 
00348 00046 
00052 16 0238- 000-1 
,+L ONE. L+4 DIGIT MANTISSA 

00064 KO 00048 00576 
,-L 00076 ML 00096 00195 

BR IF MANT ZERO 

00088 M9 01004 00000 
NON ZERO MANTISSA 

00096 KN 00887 00194 
00108 L3 00194 00000 
-L 00120 16 00101 -0000 

-L L+4 DIGITS IN 101-L 

00132 20 00097 00194 
MUL 8Y LOG E IF EXP 

00144 M9 00236 00000 
,2L 00156 20 00080 00798 

.♦L 2L+2 DIGIT PRODUCT 

00168 KL 00194 00670 
,-2L BR IF HIORDER NOT ZERO 

00180 M3 00236 00098 
00192 J2 00196 000-1 
-21, 00204 32 00099 00000 

•-L MOVE L+4 DIGITS 

00216 K6 00194 00102 
00228 M9 00248 OOQOO 
•-L MOVE L+4 DIGITS 

00236 K6 00194 00101 
,+L 00248 J4 00196 000— 

BR IF CHAR LESS THAN -L 

00260 M7 01004 01100 
00272 J4 00196 000-0 
BR IF CHAR ZERO 

00284 M6 00468 01200 
BR IF CHAR BETWEEN -L AND ZERO 

00296 M7 00536 01300 
00308 J4 00196 000-2 
BR IF CHAR LARGER THAN 2 

00320 M6 00436 OUOO 
BR IF CHAR BETWEEN 0 AND +2 

00332 M7 00376 01300 
5090007000 7000000505 76705070, 348 
00346 00046 
,-L CHAR EQUALS +2 

00344 2 J 0238- 00192 
-l.-L SHIFT LEFT 2 POSITIONS 

00356 LJ 00191 00193 
00366 M9 00424 00000 
-L CHAR EQUALS +1 

00376 J5 00190 0000- 
-L 00366 L3 00191 00000 

,-L 00400 2J 0236- 00191 

-L.-L SHIFT LEFT 1 POSITION 

00412 LJ 00191 00192 
6R IF AOJ CHAR DOES NOT OVFLOW 

00414 N7 00416 01400 



I €7 
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2*l?0 E12 


6NP 




tit 


88 IF MANT POSITIVE 












00436 MM 00474 00687 


. 

26180 




87 


UNFL - P 




00448 N9 00518 00000 


26200 




SF 


BETA'S -P» 




-21 00456 12 00191 00000 


27010 


CALX 


TFM 


• ♦* # 


,0810, 


INIT SIZE IND 












00468 J6 00477 0-0-0 


27020 




CM 




1 10t 


-L 00480 J4 00192 000L4 


27030 




BL 


GOtO f 


tOt 


68 IF BETA LESS THAN .34 ♦CHAR 












00492 M7 00608 01300 


27040 




SM 


AFTA-4 -P. 14 


t lOt 


-L ADJ BETA BY -.34 












00504 J2 00192 000L4 


270*0 




AM 




tOtOt 


STEP SIZE IND 












00516 Jl 00477 000-1 


27060 




67 


CALC+12 t 


tOt 


CONTINUE REDUCTION OF BETA 












00528 M9 00460 00000 


27080 






• ♦!>'# # Be 


a.m. 


PftftrFCC IF CHAR MFC 










00536 JO 00595 -0192 


27090 






•♦47 (BETA - 


P»0 


00548 KJ 00595 00196 


27100 




TF 


BETA— 6 •ritlU'lo"!' 


t t 


— Lf "L w — — 1/ 1 1» 1 , rlCLU 










00560 KQ 00190 00808 


27110 






BETA-5 -Pi 


♦ • 


-L 00572 L3 00191 00000 


27120 




TF 


8ETA-4 -P, 


« t 


cuict a | r.HT y O T THAR ^IZf 












00584 K6 00192 00000 


2 7130 




_ 


BETA-5 -P, 


t » 


-L 00596 L2 00191 00000 


27140 




DC 


44,0856405252 0055085502 


2020005000 0000000851 4052 ,348 












00348 00044 


27150 


GOAD 




80 .CLR-106- 


Pt. 


,2L 00608 20 00060 00798 


27160 






BETA-4 -P,LN10-46- 


P,t 


,*L 2L*4 DIGIT PROOUCT 










00620 KL 00192 0071 1 


27170 




SF 


97 , 


t t 


_ 2 L 00632 32 00097 00000 


27180 




TF 


SAVE -P,99 


t t 


I L*4 DIGIT FIELDS 










00644 K6 00100 00099 


27190 




TF 


BETA-2 -P,99 




f — L 00656 K6 00194 00099 


27200 




TFM 


FACT*ll ,2 


!oio 


UUOOO %J O \J\J 1 J k \J\JU C 


28010 




A • 


ALPHA-2-P,SAVE 


p 


00680 KJ 00048 00100 


28020 




TF 


80 ,CLR-106- 


Pit 


,2L 00692 20 00080 0079d 


28030 






SAVF -P, BETA-2 - 


p,, 


2L*8 DIGIT PRODUCT 










00704 KL 00100 00194 


28040 




TF 


99 »96 


I t 


_ i l *A HIT. IT nlVIDKNl) 












00716 26 00099 00096 


28050 




TFM 


96 t 


• 10, 


— L 00728 16 00096 000—0 


28060 


FACT 


OM 


97 , 


1 t 


-L 2 DIGIT DIVISOR* L*4 QUOTIENT 












00740 19 00097 —0000 


28070 




8 


FACT*56 , 


,0, 


BR WHEN TERM REDUCES TO ZERO 












00752 M6 00796 01200 


28080 




TF 


SAVE -P,97 


t » 


i +l. ninTT riFi n 
uiui i ricLU 












00764 K6 00100 00097 


28090 




AM 


FACT* 1 1 ,1 


,010 


00776 Jl 00751 000-1 


28100 




B7 


FACT-60 , 


tO, 


v.*n- lit* i i ci\n 










00788 M9 00680 00000 


28120 




. 

CM 


CALC*9 ', 


,010 


00796 J4 00477 000—0 


281 30 




BE 


RECIP , 


tO, 


BR IF FURTHER ADJ NOT REQUIRED 










nnana mjl nnjtfin (11700 
UUOUO — O UUOOCJ UltUU 


28140 






80 .CLR-106-P,, 


, 2LADJUST FOR REDUCTNS BY • 34 












00820 20 00080 00798 


28150 




M 


ALPHA-4-P. TEN34-45 ,1 


,L 2L*4 DIGIT PROOUCT 










00832 KL 00046 01024 


28160 




SF 


97 t 


t , 


-?L 2L»3 DIGITS 00844 32 00097 00000 


2R170 




TF 


»LPHA-4-P,98 




,-L L*2 DIGITS 



168 



00856 K6 00046 00098 



28180 




SM 


CALC*9 




, 1 ,010, REDUCE INDICATOR 

00868 J2 00477 000-1 


28190 




B7 


•-84 




, ,0 00880 M9 00796 00000 


29010 




DC 


22, 0000084025 000200000005 ,350 00350 00022 


29020 


RECIP 


BNF 


GOBACK- 


12 


,RECIP-1 ,01, BR IF MANT WAS POSITIVE 

00888 MM 01004 0088 1 


29030 




SF 


PCK*15 




, ,6, MAKE CHAR NEGATIVE 

00900 32 0238- 00000 


29040 




TF 


99 




,CLR-94-P ,, .2LCALC RECIPROCAL IF NEG MANT 

00912 20 00099 00810 


29050 




TFM 


99 




,10 ,10, -2L, 21*2 DIGIT DIVIDEND 

00924 16 00099 OOOJO 


29060 




D 


100 




,ALPHA-4-P,, -L. L*2 DIGIT DIVISOR 

00936 2R 00100 00046 


29070 




BV 


GOBACK-24 


, ,, BR IF ORIG OPER I OR 1/LOGE 












00948 M6 00992 01400 


29080 




TF 


PCK*25 




,97 ,6, ,-L STORE RESULT MANTISSA 

00960 26 0239- 00097 


29090 




AM 


PCK*15 




, 1 ,610, REDUCE CHAR BY ONE 

00972 11 0238- 000-1 


29100 




B7 
AM 


PCK^IO 
PCKU5 




, ,6, RETURN TO MAINLINE 

00984 49 0237N 00000 
,2 ,610 00992 11 0236- 000-2 


29120 




TF 


PCK*25 




,ALPHA-6-P,6, STORE RESULT MANTISSA 

01004 20 0239- 00044 


29130 


GOBACK 


B 


PCKUO 




, ,6, RETURN TO MAINLINE 

01016 49 0237N 00000 


29140 




OORG 


• -4 




01023 


29150 


TEN34 


OC 

DEND 


47 
02102 




,21877616239495525622261149163841873167116056246 

mm* 00047 

^102 



NOSDIG 02401 
COUN 00380R 
GOAL 00844R 
ONEZ 00621R 
PI0V2 00668R 
UNFL 005 18R 



ALPHA 00050R 
CZERO 00*598 
LNIO 00763R 
OVFL 00474R 
PLUS 00692R 
ZRES 00530R 



SYMBOL TABLE 

BETA 00196R 
EDGAR OOOOOR 
LOGE 00715R 
P 00000 
SAVE 001008 



CLR 00904R 

FLN3 00020R 

NINE 00808R 

PCK 02363 

SIGN 00406R 



CORN 00608R 
FL0G3 OOOOOR 
NLG 008768 
PICK 001988 
STORE 00442R 



29160 • FLOATING POINT LOG AND IN* VARIABLE LENGTH 





OSA 


FL0G3 


tFLN3 




00004 
0000* 


00005 *<l<>0 
0000! -0C20 




OORG 


E0GA8 






00000 




291*0 FLOGS 


TOM 


CORN* I 


tl 


tOt 


SET FOR COMMON LOG 

00000 


J5 00609 00001 


29200 


07 


• ♦20 


t 


tO 


00012 


M* 00032 00000 


30020 FLN3 


TDM 


CORN* I 


t* 


tO» 


SET FOR NATURAL LOG 

00020 


JS 00609 00009 


30030 


TFM 


PCK*5 


,•♦20 


tl7 


00092 


10 02370 -0052 


30040 


B7 


PCK 


i 


t6t 


68 TO PICK AND SiiTUi*! 

#00% 1 


*• 0236N 00000 


2*160 


OC 


30 ,0700060080 0500900105 7070700053 
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30050 


BD 


• ♦56 


•BETA— I — PfOt 


,-L 


• ■ ic fcjfiu icin tar 
B". If* NUN tcRD AKli 












00092 ML OUIOB 0019* 


30060 


TOM 


401 


1 0 tilt 




cct i kin cm i n/* no i ki nt yean 
)tl INU rUK LUu UK IN Ur tCKU* 












AAAll IK AA1AI AAAA. 

0U064 13 00401 uoou— 




TF 


PCK ♦25 


.lit UlaiCaO . A. 


» »L 


3 lUKt RANI I33A 












AAAfi tn r\ 1 1n_ AAlu 

000f6 2U 0249— 00763 




5 


PCK*" 


I "6. 




uitu men cirki 
Ml in new SlvN 












AAAH AHA. AAAAA 

UOOBS 32 0239— OOOOO 


30090 


B7 


QVFL^24- 


Pf tt 


BR TO 


STORE CHAR AND RTN TO MAlNLNE 












nni aa no nniaa aaaaa 
OOIOO N9 00498 OOOOO 


301 10 


BNF 


• ♦36 


»8ETA-2 -P#0t 


BR I F 


HANI PUS 1 1 I Vc 












AAIAI MM AAI 11 AAIOA 

00108 H™ 00144 00194 


30120 


TON 


40 1 


• 0 1 1 




re, i kin tni uc/*it iuc 
SET INU rOR NEGATIVE 












aai 1A IC AA1A1 AAAAA 

00120 15 00*01 OOOOO 


301 30 


CF 


BETA-2 - 


Pt it 




MAKE POSITIVE 












00132 L3 00194 00000 


30140 


TFH 


CORN-25 


♦CZERO-45 t017 ( 


♦L 


INITIALIZE 00144 JO 00583 -0914 


301 50 


TF 


GOAL-13 


tBETA -P,0, 




r AUC /* L-J A O AAici V fy AAA*1 AAIOI 

SAVE CHAR 001*36 KO 00831 00196 


30160 


CF 


BETA-l - 


Pt »» 


-L, 


EXPAND FIEL0 TO L^l DIGITS 












00168 L3 00195 00000 


301 70 


TOM 


BETA-2 - 


Ptl til* 


-L , 


ADD 1*0 00180 J5 00194 0000J 


301 80 


CM 


BETA-l - 


P,15 ,10, 


-L , 


00192 J4 00195 000J5 


30190 


BNL 


• ♦44 


t fOt 




BR IF MOD MANT NOT LESS 1.5 












00204 M6 00248 01300 


30200 


A 


BETA-2 - 


P, BETA-2 -P., 




DOUBLE MANT. L+l DIGITS 












00216 KJ 00194 00194 


31010 


AM 


CORN-2 5 


,48 ,010, 




A0J FOR NEXT CONSTANT 












00228 Jl 00583 OOOMd 


31020 


U7 


•-60 


. ,o 




00240 M9 OOIBO 00000 


31070 


DC 


42.56705508252552085552550103 


5106202050 085552, 350 












00350 00042 


31040 


TF 


ALPHA - 


P,ONE Z-48-P.. 


.♦L 


L^l DIGITS 












00248 K0 00050 00573 


31050 


TOM 


ALPHA - 


P,2 .11. 


-L, 


CONVERT TO TW02 












00260 J5 00050 0000K 


31060 


S 


ALPHA - 


P, BETA-2 -P.. 




2.0 MINUS MOD MANT (2.0-Z) 












00272 KK 00050 00194 


31080 


TF 


99 


.CLR-93-P ,. 


,2L 


00284 20 00099 00811 


31090 


LD 


97 


•ALPHA -P., 


-L, 


00296 2Q 00097 00050 


31100 


D 


98 


, BETA-2 -P., 


-L, 


(2.0-ZJ/Z EQUALS V 












00308 2R 00098 00194 


31110 


TF 


BETA 


P. 98 ,, 


,-L 


L^2 DIGITS 












00320 K6 00196 00098 


31120 


TF 


80 


,CLR-106-P,, 


,2L 


00332 20 00080 00798 


31130 


M 


BETA 


P .BETA -P., 




2L^4 DIGITS 












00344 KL 00196 00196 


31140 


TF 


SAVE 


P. 97 ,. 


,-L 


Y«»2 L*2 DIGITS 












00356 K6 00100 00097 


31150 


A 


BETA 


P. BETA -P., 




DOUBLE Y 00368 KJ 00196 00196 


31160 COUN 


TFM 


• *<i 


,99999 ,010, 


,+L 


INITIALIZE COUNT TO L-l TERMS 












00380 J6 00389 999R9 


3 1 170 


TFM 


C0UN+71 


,99999 ,010, 


,2L 


nnioi ii AAici aaaan 


31180 


TF 


ALPHA -P.CZERO-46 *. 


»*L 


L^2 DIGITS. ZERO ALPHA 












00404 K0 00050 00913 


31190 


TF 


99 


♦CLR-92-P •• 


.♦L 


00416 20 00099 00812 


31200 


TFM 


98 


,10 ,10, 


-L, 


OBTAIN RECIPROCAL TERM 












00428 16 00098 000J0 


32010 


DM 


98 




-L, 


00440 19 00098 -0000 



32020 




A 


ALPHA 


-P.97 


t , 


L+2 DIGITS TO PREV TOTAL 














00452 Kl 00050 00097 


32030 




TF 


80 


,CLR- 


106-P,, 


,2L PRODUCT OF Y»»2 AND TOTAL OF 














00464 20 00080 00798 


32040 




M 


ALPHA 


-P.SAVE 


-P,, 


PREVIOUSLY CALC TERMS 














00476 KL 00050 00100 


32050 




TF 


ALPHA 


-P.97 


t , 


,-L L^2 DIGITS STORED TOTAL 














00488 K6 00050 00097 


32060 




SM 


COUN+71 


,2 


,010, 


REDUCE DIVISOR 














00500 J2 00451 000-2 


32070 




SM 


C0UN^9 


,1 


,010, 


REDUCE NO OF UNCALC TERMS 














00512 J2 00389 000-1 


32090 




BNZ 


COUN+36 




,0, 


BR IF L-l TERMS NOT CALC 














00524 M7 00416 01200 


320 




oc 


46. 08552550 


5052000865 


5250066005 5050605000 07770050 ,350 














00350 00046 


32100 




TF 


80 


,CLR- 


106-P,, 


,2L 00536 20 00080 00798 


32110 




M 


ALPHA 


-P,BETA 


-P,, 


2Y • SUM OF L-l TERMS 














00548 KL 00050 00196 


32120 




A 


97 


.BETA 


-P,, 


-L ADD 2Y TO ABOVE PRODUCT. L^2 














00560 2J 00097 00196 


32130 




TF 


BETA 


-P, 


1 1 


SET WITH PROPER CONSTANT L->3 














00572 K6 00196 00000 


32140 




SF 


BETA 


-P 




00584 L2 00196 00000 


32150 




S 


BETA 


-P.97 


f • 


,-L SUB ACCUM TOTAL FROM CONSTANT 














00596 K2 00196 00097 


32160 


CORN 


b 


NLG 


, 


,0, 


BR IF FINDING NATURAL LOG 














00608 M9 00876 00000 


32170 




TF 


80 


,CLR- 


106-P,, 


,2L 00620 20 00080 00798 


32180 




M 


LOGE-45 


-P.BETA 


-P.t 


♦L f 00632 KL 00670 00196 


32190 




TF 


BETA 


-P,97 


t • 


,-L L+3 DIGITS 00644 K6 00196 00097 


32200 




SF 


BETA 


-P 




00656 L2 00196 00000 


33010 




TF 


80 


,CLR- 


100-P,, 


•♦L 0066B 20 00080 00604 


33020 




M 


0NEZ-46-P.G0AL 


-13 ,1, 


♦L. ORIG CHAR • ONE. L*5 DIGITS 














00680 KL 00575 00831 


33030 


PLUS 


A 


99 


, BETA 


-P 


00692 2J 00099 00196 


33040 




TF 


BETA 


-P,99 


• • 


PREPARE FOR NORMALIZATION 














00704 K6 00196 00099 


33050 




CF 


BETA 


-P 




00716 L3 00196 00000 






C 


CLR-92 


-P,98 


t ♦ 


t ♦L 00728 K4 00812 00096 


33060 




BE 


ZRES 


-P. 




BR IF L^4 ZEROS 00740 M6 00530 01200 


33070 




TFM 


PCKM5 


• 3 


.610, 


SET CHAR OF 3 














00752 16 0238- 000-3 


33080 




BO 


G0AL-2« 


♦ BETA 


-4 -P.O. 


,-L BR IF HI ORDER DIGIT NON-ZERO 














00764 ML 00820 00192 


33090 




TR 


BETA-4 


-P, BETA 


-1 -Pt • 


-Lt-t 00776 LJ 00192 00193 


33100 




SM 


PCKM5 


.1 


• 610 


00768 12 0238- 000- I 


33110 




TO 


BETA 


-P.NOS 


DIG ,, 


INSERT NOISE DIGIT 














00600 K5 00196 02401 


33120 




07 


•-48 


i 


.0, 


CONTINUE NORMALIZATION 














00611 M9 00764 00000 


33140 




DC 


14 ,7005000000 04*0 , 


330 00390 00014 


33150 




SF 


BETA-4 


-P. 


1 1 


-L, SIT FIELD DEFINITION 














00620 L2 00192 00000 


33160 




TF 


PCK+25 


, BETA 


-5 -P,6, 


STORE MANT 00632 20 0239- 00191 




GOAL 


BNF 


PCKMO 


i99 


,4, 


AFFIX SIGN AND RETURN TO MAINLINE 














00644 44 0237N 00099 






SF 


PCK^25 


t 


,6 


00856 32 0239- 00000 






B7 


PCKMO 


f 


,6 


00666 49 0237N 00000 
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'AGE IS 



33190 NLG 


TF 


60 »CLR-100-P»» t*L UuNVcKS ION rOB. LM 






OOlrt 20 00010 






UHID— 49— PtwUAL— I S , * *t» L*5 UIu I 1 > OOHI Kl 007(1 


34010 


8 


"LU5 t tOt RfclUBW lU UUWWOH >ct T ION 






AAAAA MA ft /% A. A 4 

OOvOO H9 00692 


J40 9U (.&ERQ 


DC 


▲ A A AAAIA AAAJ.A 

*B tO 00999 00041 


37090 


OC 


♦ B t P™ *I4 « »BU3»Tf¥^9 » €94 Ic 4%9P I r09oBU f 99UU1 5%5© 






AIAA1 AA AX A 

OlOOT 00049 


37100 


OC 


4B»- 1 966294161 I 1 *B906*BB944o424<Tl*©,J931.»6i9lU0026B72 






01055 00048 


37110 


OC 


48,-207944154167983592825169636437452970422650040308 






01103 00048 




DENO 


02122 02122 



SYMBOL TABLE 



N0S0IG 02401 
FSRS3 OOOOOR 
OVFL 004 74R 
SAVE 00100R 



ALPHA O005OR 

LN10 00763R 

P 00000 

SIGN 00406R 



BETA 00196R 
LOGE 00715R 
PCK 02365 
STORE 00442R 



CLR 
NINE 
PICK 
UNFL 



00904R 
00808R 
00198R 
005 18R 



EDGAR OOOOOR 
0NE2 00621R 
PI0V2 00668R 
ZRES 00530R 





DSA 


FSRS3 
EDGAR 






00004 


00005 -oooo 




D0RG 






00000 






34080 FSRS3 


TFM 


PCK*5 


,•♦20 


t » 


SET FOR RIGHT SHIFT 

00000 


10 02370 


-0020 


34090 


B7 


PCK 


» 


,6, 


BR TO PICK AND RETURN 
00012 


49 0236N 


00000 


34070 


DC 


14 .5000 


00000005 


,320 


00320 


00014 




34110 


BNF 


• ♦24 


,PCK*15 


,011, 


RETAIN PROPER SIGN 

00020 


M4 00044 


0238- 


}4120 


SF 


BETA 


P 




00032 


L2 00196 


00000 


Ul30 


S 


PCK*15 


,PCK+15 


,611, 


CLEAR A FIELD TO ZEROS 
00044 


22 0238- 


0238- 


34140 


SM 


PCK*20 


1 1 


,10, 


FIND AND CLEAR HI ORDER FLAG 














00056 


12 02385 


000- 1 


34150 


BNF 


•-12 


,PCK^20 


,011, 


IN 8 FIELD 00068 


N4 00056 


0238N 


34160 


CF 


PCK*20 




,6 


00080 


33 0238N 


00000 


34170 


TF 


PCKM5 


Ibeta 


P,6, 


STORE 00092 


20 0238- 


00196 


34180 


B7 

DEND 


PCK*10 
02141 


» 


,6, 


RETURN TO MAINLINE 

00104 
02141 


49 0237N 


00000 



SYMBOL TABLE 



NOSDIG 02401 
EDGAR 00000R 
0NE2 00621R 
PI0V2 00668R 
ZRES 00530R 



ALPHA 00050R 
FSLS OOOOOR 
OVFL 00474R 
SAVE 00100R 



BETA 00196R 

LN10 00763R 

P 00000 

SIGN 00406R 



CL 00140R 
LOGE 007 1SR 
PCK 02365 
STORE 00442R 



CLR 00904R 

NINE 00808R 

PICK 00198R 

UNFL 00S18R 



172 



00004 00005 -0000 







DOR 6 


EDOAR 






00000 






34200 


FS' 


TFM 


PCK* 5 


,•♦20 


,17 


00000 


10 02370 


-0020 


35010 




B7 


PCK 




,6 


00012 


49 0236N 


00000 


34190 




DC 


14 ,050 


00000000005 


,314 


00314 


00014 




35030 




TO 


CL +19 


,BETA 


P,0, 


SAVE SIGN OF B 00020 


KN 00159 


00196 


35040 




CF 


BETA 


-P 




00032 


L3 00196 


00000 


35050 




TF 


• ♦47 


,PCK^20 


, , 


ADJ A ADR TO LO ORDER ADR IN 
















00044 


K6 00091 


02385 


35060 




SM 


• ♦35 


a 


,010, 


ACCORDANCE WITH B FIELD LENGTH 
















00056 


J2 00091 


000-1 


35070 




AM 


PCK+15 


,1 




00068 


H 02380 


-0001 


35080 




BNF 


•-24 




,0 


00080 


M4 00056 


00000 


35090 




TF 


PCKM5 


Ibeta 


P. 6, 


STORE 00092 


20 0238- 


00196 


35100 




C 


PCK* I 5 


,PCK+20 


» , 


CLEAR LO ORDER B FIELO 


AND A FIELO 














00104 


24 02380 


02385 


35110 




BNL 


CL ^20 




,0 


00116 


M6 00160 


01300 


35120 




AM 


PCK* 15 


, 1 


,10 


00128 


11 02380 


000-1 


35130 


CL 


TDM 


PCKM5 


,0 


• 6 


00140 


15 0238- 


00000 


35140 




B7 


CL -36 




,0 


00152 


M9 00104 


00000 


35160 




BNF 


PCKMO 


»CL +19 


,16, 


SET SIGN AND EXIT 


















00160 


4M 0237N 


00159 


35170 




SF 


PCK+20 


, 


,6 


00172 


32 0238N 


ooooo 


35180 




B7 


PCKMO 


t 


,6 


00184 


49 0237N 


00000 






DEND 


02151 






02151 







NOSOIG 02401 
LN10 00763R 
P 00000 
SIGN 00406R 



ALPHA 00050R 
LOGE 00715R 
PCK 02365 
STORE 00442R 



SYMBOL TABLE 

BETA 00196ft 
NINE 0080BR 
PICK 0019SR 
TFLS3 OOOOOR 



CLR 00904R 
•ONEZ 0062«» 

PI0V2 om&m 

UNFL 00518ft 



EOGAR OOOOOR 
OVFL 00474R 
SAVE 00100R 
ZRES 00530ft 



DSA 
DOftG 

36010 TFLS3 TFM 



36020 
35200 
36040 
36050 
36060 



B7 
DC 
TF 
TF 
87 



TFLS3 

EDGAR 
PCK^5 

PCK 
4 

PCK^25 
PCK>15 
PC*>10 



,•♦20 



,17, 



t ,6 
,0505 ,324 
tBETA-2 -P,6, 
,8ETA -P,6. 
t 



00004 00005 -0000 

ooooo 

BR TO PICK AN0 RETURN 

OOOOO 10 02370 -0020 
00012 49 02 36* 00000 

oo924 oooo* 

00020 20 0239- 00194 
OOC32 20 0238- 00196 



DEND 02161 



MOVE ft-2 TO A-2 

MOVE 8 TO A 

RETUftN TO MAINLINE 

00044 49 02* 
02161 



h ooooo 



NOSOIG 02401 
EOGAR OOOOOR 
OVFL 00474R 
SAVE 00100R 



ALPHA 00050ft 
LN10 0076 1R 
P OOOOO 
SIGN 00406ft 



SYMBOL TABLE 

BETA 00196ft 
LOGE 00715ft 
PCK 02365 
STOftE 00442ft 



8 TPS J 00000ft 
NINE 00808ft 
PICK 00198ft 
UNFL 00518ft 



CLR 00904ft 
ONEZ 00621ft 
PI0V2 00868ft 
ZRES 00530ft 
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OSA 


BTFS3 






DOUG 


EDGAR 




36070 BTFS3 


TFM 


PCK>5 


•••20 #17 


36000 


B7 


PCK 


t t* 




OC 


8 


,00050003 ,390 


36100 


SM 


PCK*25 


• 1 •• 


36110 


TF 


PCK*25 


•BCTA-2 -P,6, 


36120 


TF 


• ♦30 


»PCK*10 .0. 


36130 


BT 


PCKM5 


•BETA -P,6. 


36140 


B7 




• • • 



DEND 02171 



00004 00005 -0000 
00000 

00000 10 02370 -0020 

00012 49 0236N 00000 

00350 00008 

ADJ FOR A-3 00020 12 02390 -0001 

MOVE B-2 TO A-3 00032 20 0239- 00194 
SAVE MAINLINE RETURN A OR 

00044 K6 00074 02375 

BT TO DESIRED IOC 

00056 2P 0238- 00196 
RETURN TO MAIN LINE 

00068 49 00000 00000 
02171 



174 



PAGE I 



SPS 110 MONITOR I SUBROUTINE SET 03 



NOSDIG 02401 
LN10 00559R 
P 00000 
UNFL 00314R 



ALPHA 00050R 
LOGE 00511R 
PCK 02365 
ZRES 00326R 



SYM90L TABLE 

BETA 00196R 

NINE 00604R 

PICK 00198R 



CLR 00702R 
ONEZ 00417R 
PI0V2 00464R 



EDGAR OOOOOR 
OVFL 00258R 
SAVE OOIOOR 



01080****** PCK AREA MAY BE USEO AS A WORK AREA IF SUBR NOT USED. IF 

0I090****** SUBROUTINES REQUIRED, THEN THE AREA IS USEO AS FOLLOWS 

01100»»*»*» 02401 NOISE DIGIT. SOURCE, SUBROUTINE SUPERVISOR 

01110»»»»»» PCK AOR OF PICK. SOURCE , SUBROUT I NE SUPERVISOR 

0U20t»»»»» PCK + 5 AOR OF RETURN TO SUBR. SOURCE , SUBROUT INE 

01130****** PCK+10 AOR OF RETURN TO MAINLINE. SOURCE, PRIMARY LINKAGE 

01140»»*««* PCK+15 ADR OF A OPERANO CHARACTERISTIC. SOURCE » PICK 

01150«»««#» PCK+20 AOR OF B OPERAND CHARACTERISTIC. SOURCE, PICK 

01160 PCK + 25 ADR OF A OPERANO MANTISSA. SOURCE, PICK 

01170»»*««» PCK+30 AOR OF B OPERAND MANTISSA. SOURCE.PICK 

01180****** PCK+31 RESERVED FOR POSSIBLE RECORD MARK 

01190* PCK+35 4 RESERVED CORE 

01200 PCK-6 THRU PCK-90 SUBVEC FOR THE 17 FURNISHED SUBROUTINES 

02010» AORS ARE SUPPLIEO BY THE SUBROUTINE SUPERVISOR 

02020«««««« PCK-91 OOWN TO ENO OF IORT MAY BE USED IF NO ADDED SUBROUTS 

• SPSII 0 SUBROUTINES - AUTO FLOATING POINT 4 MAY 1963 • • JHB 

02040»»»»»« FOR OPtRANOS A AND B ONLY 







OSA 


PICK 






00004 


00005 -0198 




EOGAR 


OS 


• •-4 






00000 


00000 




02080 


PCK 


OSB 


5 ,8 


,2365 




02365 


00040 






NOSDIG 


OS 

DORG 


,02401 
EOGAR 






02401 
00000 


00000 




02100 


ALPHA 


OS 


51 






00050 


00051 




02110 


P 


OS 


0 


, ALPHA-ALPHA 


00000 


00000 




02130 


SAVE 


DS 


50 






00100 


00050 




02140 


BETA 


OS 
OS 


96 
I 






00196 
00197 


00096 
0000 1 




02160 


PICK 


TO 


401 


,BETA*l-P 


,1, 


RESET ERROR INDICATOR 
00198 


2N 00401 


00197 


02170 




TR 


PCKM1 


,PCK*10 


,11, 


MOVE OPERANDS FROM MAINLINE 


0237N 














00210 


31 02376 






AM 


PCK*10 


»U 


»5, 


CALC RETURN ADR AND OVERFLOW 
















00222 


11 023P5 


00011 


03130 




TFL 


BETA 


,PCK*20 


,U» 


MOVE B TO BETA 

00234 


-6 00196 


0238N 


03150 




BV 


PCK»5 


• 


.6, 


RETURN TO SUBROUTINE 

00246 


46 0237- 


01400 






OC 


14 


,00100110000020 


•350 00350 


00014 




04030 OVFL 


TDM 


401 


.-1 




OO2S0 


IS 00401 


OOOOJ 






SP 


NINI-44 




f f 


♦I 00270 


12 00960 


00000 






TFL 


PCK+IS 


! NINI-43 


• *t 


•♦L 00201 


00 0231- 


00901 






CF 


NINI-43 


t 


• tt 


•♦L 00294 


L3 00599 


00000 






BT 


PCK*10 


• 


.4 


00308 


49 0237N 


00000 


04090 


UNFL 


TDM 


401 


• 1 




00314 


19 00401 


00001 




ZRES 


SF 


CLR*l 




f • 


-L 00326 


L2 00703 


00000 






TFL 


PCKM5 


!CLR +2 


• 8 


00338 


00 0238- 


00704 






CF 


•-10 


• 


• 6 


• 00 110 


L3 0033K 


00000 



175 



PAGE 2 



04120 

04140****** 
04150 ONEZ 

04160 PI0V2 

04170 LOGE 

041S0 LN10 

04190 NINE 



04200 CLR 

05010 

05020 



00962 49 0237N 00000 



87 PCKMO • v 6 
SHARED CONSTANTS 

DC 49 ,1000000000000000000000000000000000000000000000000 

00417 00049 

DC 47 ,15707943267946946192313216916397514420965846996 

00464 00047 

DC 47 ,43429446190325162765112891891660506229439700580 

00511 00047 

DC 48 ,230258509299404546401799145466436420760110148662 

00559 00046 

DC 45 ,999999999999999999999999999999999999999999999 

00604 00045 

DC 2 ,99 00606 00002 

OS 96 96 ZEROS 00702 00096 

DC 46 ,0 ,• 00702 00046 

DC 49 ,0 ,«-47 00655 00049 

DC 2 ,-99 00704 00002 

OENO 03001 03001 



SYMBOL TABLE 



NOSOIG 02401 
EDGAR OOOOOR 
OVFL 0025SR 
SAVE 00100R 



ALPHA 00050R 
LN10 00559R 
P 00000 
UNFL 00314R 



BETA 
LOGE 
PCK 
ZRES 



00196R 
00511R 
02365 
00326R 



CLR 

NINE 

PICK 



O0702R 
00604R 
00198R 



DIVMl OOOOOR 
ONEZ 00417R 
PI0V2 00464R 





DSA 


DIVW1 






0000* 00005 -0000 




DORG 


EDGAR 






00000 


05050 0IVW1 


TR 


PCKfll 


,PCK+10 


,11 . 


MOVES DIV OPERANDS INTO PCK AREA 












00000 31 02376 0237N 


05060 


AM 


PCKMO 


,21 


1 1 


CALC RETURN ADR 00012 11 02375 -0021 




TF 


85 


,CL R-10 




00024 20 00085 00692 


05070 


ID 


PCK*25 


,PCK*15 


,611 


00036 28 0239- 0238- 


05080 


0 


PCKOO 


,PCK+20 


,611 


00048 29 0?MK 023RN 


05090 


B7 


PCK*10 


f 


16 


00060 49 0237N 00000 




OEND 


03011 






03011 



ZRODIV 00196R 
EDGAR OOOOOR 
FS3 OOOOOR 
ONEZ 004 I 7R 
PI0V2 00464R 



NOSOIG 02401 
FA3 00020R 
LN10 00559R 
OVFL 00258R 
SAVF 00100R 



SYMBOL TABLE 

ALPHA 00050R 

FD3 00060R 

LOGE 005 UR 

P 00000 

UNFL 00314R 



BETA 00196R 
FLOP 00116R 
MOVE 00072R 
PCK 02365 
UNFLO 00176R 



CLR 00702R 

FM3 00040R 

NINE 00604R 

PICK 00198R 

ZRES 00326R 



FLOATING POINT ADD, SUBTRACT, MULTIPLY AND OIVIDE. VARIABLE L 
DSA FS3 ,FA3 ,FM3 ,FD3 00004 00005 -0000 

00009 00005 -0020 t » £ 

00014 00005 -0040 * • • 

00019 00005 -rof.: 

OORG EDGAR 00000 



FS3 


TDM 


FLOP*l 


,2 




00000 


J5 


00117 


00002 




B7 


MOVE* 12 






00012 


M9 


00084 


00000 


FA3 


TDM 


FL0P*1 


,1 




00020 


J5 


00117 


00001 




B7 


MOVE* 12 






0003? 


M9 


00084 


00000 


FM3 


TDM 


FL0P*1 


,3 




00040 


J5 


00117 


00003 




87 


MOVE 






00052 


M9 


00072 


00000 




DC 


4,0005,! 


550 




00350 


00004 




FD3 


TDM 


FL0P*1 


,9 




00060 


J5 


00117 


00009 


MOVE 


TF 


79 


,CL R-17 




00072 


20 


00079 


00685 




TFM 


PCK+5 


,FL0P-12 




00084 


10 


02370 


-0104 




B7 


PCK 


, 


• 6 


00096 


49 


0236N 


00000 




BXV 


•♦12 






00104 


M6 


00116 


01500 


FLOP 


FADD 


PCKM5 


,PCK*20 


,611 


00116 


01 


0238- 


0238N 




BV 


ZRODIV 






00128 


M6 


00196 


01400 




BNXV 


PCK*10 




,6 


00140 


47 


0237N 


01500 




TDM 


401 


,-l 




00152 


15 


00401 


OOOOJ 




BNF 


PCK+10 


,PCK+15 


,611 


00164 


44 


0237N 


0238- 


UNFLO 


CF 


401 


,0000 


,810 


00176 


33 


00401 


0-0-0 




B7 


PCKflO 




,6 


00188 


49 


0237N 


00000 


ZRODIV 


TDM 


401 


,0 


,11 


00196 


15 


00401 


0000- 




FAOO 


PCKU5 


, UNFLO* 11 


.6 


00208 


OJ 


0238- 


00187 




BN7. 


PCK»10 


i 


,6 


00220 


47 


0237N 


01200 




TFM 


PCK*15 


,99 


,61011 


00232 


16 


0238- 


OOORR 




B7 


PCK* 10 




,6 


00244 


49 


0237N 


00000 




DEND 


03024 






03024 









SYMBOL TABLE 



NOSOIG 02401 
FSQR3 OOOOOR 
NINE 00604R 
PICK 00198R 
SO? 00380R 



ALPHA 00050R 
LNIO 00559R 
ONEZ 004 I 7R 
PI0V2 00464R 
UNFL 00314R 



BETA 00196R 

LOGE 00511A 

OVFL 002 S8R 

SAVE 00100R 

ZRES 00326R 



CLR 0070?« 

LSQ 00£2«* 

P 00000 

SQEX 00436R 



EDGAR OOOOOR 

LSQM 00336k 

PCK 02365 

SQ2 00124R 



10130««»»«» 



10160 FSQR3 
10170 



10150 



10190 
10200 



11020 
11030 



11040 
11050 



11060 

11070 



FLOATING POINT SQUARE ROOT. VARIABLE LENGTH 
DSA FSQR3 00004 00005 -0000 

DORG EDGAR 00000 
TFM PCK*5 ,»*20 ,17 00000 10 02370 -0020 

B7 PCK , ,6, 68 TO PICK ANO RETURN 

00012 49 0236N 00000 
DC 44 ,075050 0550000002 0000000805 040000560000000005, 350 

00330 00044 

, BETA- I -P,0, ,-L 00020 ML OOC 4C 50195 

,, 6R IF RESULT ZERO 



BO 
87 



•♦20 
ZRES 



-P» 

BETA -P,50 ,10, 
•♦36 tBETA-2 -P,0, 



CF 6ETA-2 -P 
TOM 401 ,0 



80 SQ3 
TFM S02*42 



,98 
i97 



* 9 

• Of 

tOlOf 



00032 M9 OC- 26 00000 
DIV CHAR BY 2 

00040 J 3 00196 OOONO 
6R FOR POSITIVE ARG 

00052 MM 00088 00194 
00064 L3 00194 00000 
SET NEG ARG INDICATOR 

00076 15 00401 00000 
6R IF CHAR ODD 

00066 MS 00360 00096 
L MOVE MANTISSA ADA 
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00100 J6 00166 000R7 



11080 




6NF 


•♦24 


t99 


.0. 


BR IF CHAR POSITIVE 


















00112 MA 


00136 


00099 


11090 


SQ2 


SF 


97 






00124 32 


00097 


00000 






TF 


SQEXM7 


.97 


. * 


STORE RESULT CHAR 


















00136 K6 


00463 


00097 


11110 




TF 


99 


•CLR-92- 


P t. 


•2L 00148 20 


00099 


00610 


11120 




TF 




, BETA-2 


-P.. 


MOVE MANT INTO 97/98 


MINUS 


L 














00160 20 


00000 


00194 


11130 




TFM 


LSQ*18 


.97 


• 010. 


•-2L INITIAL MANT ADR HI 


ORDER 
















00172 J6 


00246 


000R7 


11140 




TF 


LSQ+23 


,SQ3*18 


• 01. 


INITIAL RESULT AOR 


















00184 KO 


00251 


00398 


11150 




TF 


LSQM-6 


• LS0M8 


. . 


INITIAL MANT ADR 


















00196 KO 


00330 


00246 


11160 




TF 


8ETA-2 


-P,ONE Z-48 


I-P.. 


.♦I SET RESULT TO ONE L+l OIGITS 














00208 KO 


00194 


00369 


11170 




B7 


LSQM 


. 


• 0, 


00220 M9 


00336 


00000 


11200 


LSQ 


AM 


LSQ*23 


.2 


,0610, 


ADO 2 TO RESULT 


















00228 Jl 


0025J 


000-2 


l?010 




S 




* 


» » 


SUB RESULT FROM MANTISSA 
















00240 22 


00000 


00000 


12020 




BNN 


LSQ 




,0, 


CONTINUE UNTIL MANT 


IS NEG 
















00252 M6 


00228 


01300 


12030 




CM 


LSQ+23 


, BETA-2 


-P.07 


00264 JM 


00251 


-0194 


120*0 




BNL 


SQEX 




,0, 


BR IF TERMINAL RESULT ADR 
















00276 M6 


00436 


01300 


12050 




A 


LSQ+18 


,LSQ+23 


,01611 


, RESTORE LAST SUB 


















00288 KJ 


00240 


0025J 


12060 




CF 


LSQ+18 


• 


,06 


00300 L3 


00240 


00000 


12070 




AM 


LSQM-6 


,01 


,010, 


REDUCE MANT FIELD LENGTH ONE 














00312 Jl 


00330 


000-1 


12080 




SF 








00324 32 


00000 


00000 


12090 


LSQM 


AM 


LSQU8 


,02 


,010, 


STEP MANTISSA ADR, HI 


ORDER. 


,♦2 














00336 Jl 


00246 


000-2 


12100 




AM 


LSQ*23 


,01 


,010, 


STEP RESULT ADR *1 


















00348 Jl 


00251 


000- I 


12110 




SM 


LSQf23 


,09 


,0610, 


STEP RESULT -9 


















00360 J2 


0025J 


000-9 


12120 




B7 


LSQ+12 




,0, 


CONT LOOP WITH NEXT 1 


2 DIGITS 














00372 M9 


00240 


00000 


11190 




DC 


16 ,70700200065020,316 


00316 00016 




12140 


sg3 


AM 


99 


,50 


• 10, 


ADD .5 TO CHAR/2 


















00380 11 


00099 


OOONO 


12150 




TOM 


BETA-2 


-P.0 


,211, 


-L, LENGTHEN MANT FOR ODD CHAR 
















00392 J5 


-0194 


0000- 


12160 




CF 


BETA-l 


-P, 


* , 


-L , 00404 L3 


00195 


00000 


12170 




TFM 


SQ2*42 


.98 


,010, 


,-L MOVE MANT ADR 


















00416 J6 


00166 


000R3 


12180 




B7 


SQ2-12 


» 


.0, 


BR TO STORE CHAR ♦ 


INIT LOOP 














00428 M9 


00112 


00000 


12200 


SQEX 


TF 


80 


,CLR-100-P,, 


,*L 00436 20 


00080 


00602 


13010 




MM 


BfcTA-2 


-P.50 


• 10. 


RESULT/2 00448 J3 


00194 


OOONO 


13020 




SF 


98 


, 


. , 


-L, DEFINE FIELD 


















00460 32 


00098 


00000 






TFM 


99 




f , 


INSERTS CHAR 


















00472 16 


00099 


-0000 






TFL 


PCK+15 


»99 


,6, 


STORE RESULT 
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B7 PCK+10 
DEND 03061 



RETURN TO MAINLINE 

00496 49 0237N 00000 
03061 



NOSDIG 02401 
BRD 00208R 
FC0S3 OOOOOR 
NINE 00604R 
PCK 02365 
POZCH 00760R 
ZRES 00326R 



AA8 00910R 
CLF 00088R 
FSIN1 00032R 
ONEZ 00417R 
PI 00962R 
SAVE OOIOOR 



SYMBOL TABLE 

AB 00914R 

CLR 00702R 

H34 01011R 

OVER 00400R 

PICK 00198R 

SUM 00472R 



ALPHA 00050R 
DONE 00588R 
LNIO 00559R 
OVFL 00258R 
PI0V2 00464R 
TWOPI 01009R 



8ETA 001964 

EDGAR OOOOOR 

LOGE 00511R 

P 00000 

PLACE 00716R 

UNFL 00314R 



13060» 
13070* 



FLOATING SIN-COS 

VARIABLE LENGTH 







DSA 


FC0S3 


,FSIN3 




00004 00005 -0000 
00009 00005 -0032 






DORG 


EDGAR 






00000 


13100 


FC0S3 


TFM 


CLF*U 


.010 


,09, 


INIT FOR COS 

00000 J6 00099 00-10 


13110 




TFM 


PCK+5 


,CLF 


,17 


00012 10 02370 -0088 


13120 




B7 


PCK 




,6, 


GO TO PICK AND RETURN 

00024 49 0236N 00000 


13140 


FSIN3 


TFM 


CLF+11 


, -Oil 


,09, 


r INIT FOR POSITIVE SIN 

00032 J6 00099 00-1 J 


13150 




TFM 


PCK+5 


• •♦20 


,17 


00044 10 02370 -0064 


13160 




B7 


PCK 




,6, 


GO TO PICK AND RETURN 

00056 49 0236N 00000 


13180 




DC 


46 ,0500507056 


5000510007 0507005651 0070510000 505608,348 














00348 00046 


13190 




BNF 


• ♦36 


, BETA-2 


-P 


00064 MM 00100 00194 


13200 




TDM 


CLF*10 


• 0 


,0, 


ADJUST FOR NEG SIN 

00076 J5 00098 00000 


14010 


CLF 


CF 


BETA-2 


-P 




00088 L3 00194 00000 


14020 




CF 


BETA-l 


-P. 


» » 


-L 00100 L3 00195 00000 


14030 




TF 


SAVE 


-P.CLR-94 


-P .» 


•♦L MOVE L+2 ZEROS TO SAVE 

00112 KO 00100 00608 


14040 




CM 


BETA 


-P. 00 


• 10 


00124 J4 00196 000-0 


14050 




BNL 


POZCH 


. 


.0, 


BR IF POSITIVE OR ZERO CHAR 

00136 M6 00760 01300 


14060 




CM 


BETA 


-P,00 


•1011, 


• ♦L 00148 J4 00196 000— 


14070 




BL 


BRD 


. 


,0, 


BR IF CHAR LESS THAN -L 

00160 M7 00208 01300 


14080 




TFM 


• ♦30 


• SAVE 


-P. 07, 


,-L CHAR BETWEEN 0 ANO -L 

00172 JO 00202 -0100 


14090 




S 


• ♦18 


.BETA 


-P,0 


00184 KK 00202 00196 


14100 




TR 




•BETA-l 


-P.. 


,-L 00196 3J 00000 00195 


14110 


BRD 


BD 


• ♦24 


.CLFm 


• 01* 


BR IP SIN ROUTINE 

00208 ML 00232 00099 


14120 




A 


SA VE-P 


.PI0V2- 


45-P,, 


, ♦LCONVERT TO SIN 

00220 KJ 00100 00419 


14130 




S 


SAVE 


-P,TWOPI- 


*5 ,1, 


•♦L 00232 KK 00100 00964 


14140 




BH 


• -12 




,0, 


SU8 2 PI FROM MANT UNTIL NEG 
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00244 M6 00232 01100 



L-0 



f 4|§© 




SF 


SAVE" 1 


v 9 




• f 




00296 


12 


0009 9 


00000 


14140 






SAVE 


"1 




f 8 


• 




R J 




009 IT 


14170 




8N 


•♦36 


• 




-ft 






%y 


003 16 


01300 


14 ISO 




SM 


CLF*10 


» 


01 


• 010 




©©f9 1 


j2 


00098 


000-1 






SP 


SAVE 


-P 








00304 


12 


00100 


00000 








SAVE 


»P« 


P10V2-49 


-*•• 


• 


♦L 00316 


KJ 


00100 


00419 


19010 




TF 


80 


« 


CLR-106- 




• 


21 - 00318 


20 


00080 00596 


1 5020 




DC 


48»5592709600 0002202000 


S055000000 0008550900 00560050 , 


.346 


















00346 


00048 




1 5030 






SAVE 


-P» 


SAVE 


p 




00340 


KL 


00100 


00100 






TF 


SAVE 


-P, 


98 


tlOt 


• 


-L Q0392 


K6 


00100 


OOORB 


! cn!k!n 




SF 


SAVE-1 


»P, 




9 • 


-L 


00364 


L2 


00099 


00000 






TF 


SETA 


"Pi 


ONE 1-47- 




9 


♦LSET BETA EQUAL 1 PLUS L*l ZERO 


















00376 


KO 


00196 


00370 








AAB- 3 




M34-1 


• 01 




0O38S 


U 


00907 


01010 


• KAMA 

15080 






SUM* I 


1 


2 


• Oil* 




SET FOR SUBTRACTION 






















00 400 


J5 


00473 


OOOOK 








99 


1 


98 


• 10* 


• 


-L 00412 


26 


00099 


OOORB 


15100 




TCI* 


97 


« 


0000 


• 58. 


-L 


00424 


16 


OO0R7 


0-000 


15110 






98 


» 


AB 


• 15 i 


»-L 


00436 


2R 


000R8 


00914 


15120 




ft? 


DONE 


1 




•o« 




BR IF QUOTIENT ZERO 




















• 


00448 


W6 


00588 


01200 


151 30 




TF 


ALPHA 


«P. 


95 


• 10 




00460 


K6 


00050 


000R5 


15140 


SUM 


S 


BETA 


-P, 


ALPHA - 


P 




00472 


KK 


00196 


00050 


15150 






AAB 




2 


,010 




00484 


Jl 


00910 


000-2 


15160 




AM 


AAB-2 




2 


,010 




00496 


J I 


00908 


000-2 


1 51 70 






AAB 


! 


AAB-2 


• 01. 




4DIGIT PRODUCT 

QG508 


KL 


00910 


00908 


1 5180 






AB 




99 


• 0 




00520 


K6 


00914 


00099 


15190 




TF 


30 




CLR-106- 


p». 




2L 00532 


20 


00080 


00596 


15200 






SAVE 


-p! 


i ALPHA - 


p 




00544 


KL 


00100 


00050 


16010 




BNF 


OVER 




,SUMU 


• 01 




00556 




00400 


00473 


16020 




TDM 


SUM+1 




.1 


,0, 




SET TO ADD 00568 


J5 


00473 


00001 


16030 




8 7 


OVER+12 , 




,0 




00580 




00412 


00000 


16050 


DONE 


C 


BETA-l 


-p. 


.CLR-95-P 


• t 




♦I 00S88 


KM 


00195 


00607 


16060 




BE 


P0ZCH*60 , 




,0, 




BR IF L*l ZEROS 
























00600 


M6 


00820 


01200 


16070 




TFM 


SAVE 


-p. 


,01 


.10 




00612 


J6 


00100 


000-1 


16080 




DC 


48,0750775070 0000505505 


5000500051 0000505000 


05057005, 


,350 


















00350 


00048 




16090 




BD 


PLACE- 


?4 , 


BETA-l - 


P,0, 




-LBR IF NORMALIZATION NOT REQ 


















00624 


ML 


00692 


00195 


16100 




SM 


SAVfc 


-P. 


.01 


,10 




00636 


n 


00100 


000-1 


16110 




TR 


BETA-l 


-Pi 


.BETA 


p, , 


-L, 


-L . 00648 


LJ 


00195 


00196 


16120 




TD 


BETA-l 


-P. 


,NOS DIG 


» » 




ENTER NOISE DIGIT 
00660 


K5 


00195 


02401 


16130 




SF 


BETA-l 


-P, 


» 




-L 


00672 


12 


00195 


00000 


16140 




B7 


•-60 










00684 


M9 


00624 


00000 


16160 




BD 


PLACE 


( 


,CLFHO 


,01 




00692 


ML 


00716 


00098 


16170 




SF 


dETA-2 


-P 








00704 


L2 


00194 


00000 




PLACE 


I£ 
TFL 


BETA 
PCKU5 


-Pi 


, SAVE 
»BETA 


p., 

P. 6, 




STORE CHAR 00716 
STORE RESULT 

00728 


KO 
00 


00196 
0238- 


00100 
00196 


16200 




TO 


ALPHA* 1-P 


,H34*7 


,1, 




RESTORE RM 00740 


KN 


00051 


01018 


tioio 




B7 


PCK*10 


i 


> 


,6, 




RETURN TO MAINLINE PROGRAM 


















00752 


49 


0237N 


00000 


ITOK 






BETA 


-P, 


,03 


.10 




00 760 


J4 


00196 


000-3 










i 


» 


,0, 




BR IF CHAR SMALLER THAN 03 




















00772 


M7 


00852 


01300 



PAGE 7 



17050 




CM 


BET* 


-P 


,00 


,10, 


,♦1 00784 J4 00196 000-0 


17060 




BNH 


• ♦44 






,0, 


BR IF CHAR LESS Ok EQUAL L 

00796 M7 00840 01100 


17070 




TDM 


401 




,0 


,11, 


CHAR TOO LARGE 

00808 15 00401 0000- 


17080 




TD 


ALPHA* I 


-P 


,H34*7 


» 9 


RE STORE RM 00S20 KN 00051 OlOld 


17100 




B7 


ZRES 








00832 M9 00326 00000 


17120 




TDM 


401 




,0 




00840 15 00401 00000 


17130 




TFM 


• ♦42 




.SAVE-l 


-P,07, 


ADJ TO SUB TWO PI FROM MANT 

00852 JO 00894 -0099 


17140 




S 


• ♦30 




.BETA 


-P,0, 


UNTIL REDUCED TO NEG NUMBER 

00864 KK 00894 00196 


17150 




TOM 


9ETA-2 


-P 


,0 


,11, 


-L 00876 J5 00194 0000- 


17160 




If 






,BETA-2 


-P 


00888 20 00000 00194 


17170 




8 


3RD 




» 


,0 


00900 M9 00208 00000 


17160 






•-4 








00907 


17190 


AAB 


OS 


4 








00910 G0004 


17200 


AB 


OS 


4 








00914 00004 


18010 




OS 


I 








00915 00001 


16020 


PI 


oc 


47 




,31415926535897932384626433832795028841971693993 
















00962 00047 


18030 


TMOPI 


OC 


47 




,628 31853071795864769252867665590057683943387987 
















01009 00047 


18040 


H34 


OC 


2 




,01 




01011 00002 


1B050 




DC 


2 




.02 




01013 00002 


16060 




oc 

0EN0 


5 

03072 




,0002* 




01018 00005 
03072 



NOSOIG 02401 
CLR 00702R 
LOSE 009 UR 
PCHAR 006 36R 
SAVS 00100R 
TFST2 00632R 



ALPM 00196K 
EOGAR OOOOOR 
NINE 00604R 
PCK ©2365 

SIX 01235R 
UNFL 00314R 



SYMBOL TABLE 

ALPHA 00030R 

EOO 01040R 

ONE! 004 17R 

PICK 001*68 

TANA 012618 

ires Qonm 



&TN1 09424* 
FATN3 OOOOOR 
OVFL 00298R 
PI0V2 00464R 

TEST 00064R 



©ETA 00196R 
LHIO 00559R 
P 00000 
FI0V4 01326R 
TESTA 00T92R 



16070 • FLOATING ARC TANGENT VARIABLE LENGTH 

DSA FATN3 00004 mm% -0000 

OORC EOGAR 00600 

180*0 FATN3 TFM PCK* 5 ••♦20 «17 0000© 10 02570 -0020 

16100 87 PCK , c6« m TO PICS AND SUE TURN 

<«;-:-;*:* 0236N :;^qoo 

18130 DC 50 » 0700039050 0000310003 CI ?* .ro T0000&S020 * 1 90U62 • ^ 

£0350 00090 

18120 TFM TES?*U • «08 9 Si? INDICATES 

00020 M QOO »' 5-000 

18140 BO «*20 .BETA- 1 -P t 0» r»i 000S2 *& 00032 001*9 

17 TEST 1*24 00044 N* 00616 00000 

18170 TO TPS?** •BETA- 2 -P«0« HAVE mm 

osasi m ©0073 001*4 

16160 TEST CF BETA-2 »P 000ft4 it 001*4 00000 . _ , 

16190 CM BETA -P, ,16 000T6 J4 001*6 000-0 IS! 

18200 m pchar , ,o» m n char POii? ive 

mm® m v0f36 suoe 



19010 




BE 


ALPH 


t 


tO, 




BR IF CHAR ZERO 
















00100 H6 00196 01200 


19020 




CM 


BETA 


-P, -99999 


tlOi 




♦L 00112 J4 00196 999RR 


19030 




BL 


EOO 


t 


♦ Ot 




BR IF CHAR LESS THAN -(L-l ) 
















00124 M7 01040 01300 


19040 




TFN 


ALPH- I 


, BETA-2 


-P.07 




00136 JO 00193 -0194 


19090 




A 


ALPH- I 


.BETA 


-PtO 




0014B KJ 00199 00196 


190*0 




TF 


BETA-2 


-P.CLR-96- 


F M 


-L 


.♦L CLEAR AREA LEFT OF BETA 
















00160 KO 00194 00606 


19070 




CF 


B6TA-1 


-P» 


1 1 


-L 


EXPAND BETA BY REMOVING FLAG 
















00172 L3 00195 00000 


14080 




TF 


BETA-2 


-P, 


» t 




ADJUST BETA FIELD FOR CHAR 
















00184 K6 00194 00000 


190*0 


ALPH 


SF 


BETA-l 


-P» 


» t 


-L 


CONTRACT BETA BY RESETTNG FLAG 
















00196 L2 00195 00000 


19100 




CM 


BETA 


-P,29 


»10, 


-L 


00208 J4 00196 000K9 


191 10 




BL 


ATNl-72 


t 


»o, 




BR IF MANT LESS THAN .29 
















00220 M7 00352 01300 


19120 




TF 


79 


,CLR-10C 


I-Ptt 




,+L 00232 20 00079 00602 


19130 




MM 


BETA-2 


-P,6 


,10, 




6*MANT IN 99 
















00244 J3 00194 000-6 


191*0 




TOM 


98 


.-I 


» t 


-L 


l+6«MANT IN 99 
















00256 15 00098 OOOOJ 


191S0 




S 


BETA-2 


-P.SIX-45 


,1, 




♦L MANT- • 6 L DIGITS 
















00268 KK 00194 01190 


19160 




TF 


ALPHA 


-P,99 


1 » 




10+6*MANT MOVEO TO ALPHA. L+20G 
















00280 K6 00050 00099 


19170 




TF 


99 


.CLR-94- 


p »» 




•2L 2L*2 ZEROS 
















00292 20 00099 00608 


19180 




ID 


98 


, BETA-2 


-p.. 


-L 


, L DIGITS 1 
















00304 20 00098 00194 


19190 




DC 


48 ,2552000855 5256030106 2020055008 5552000000 56550855,348 
















00348 00048 


19200 




0 


100 


, ALPHA 


-p,, 


-L 


, L+2 DIGITS 00316 2R 00100 00050 


20010 




TF 


BETA-2 


-P,97 


» » 




,-L MINT IS (MANT-. 61/1 10*6»MANT) 
















00328 K6 00194 00097 


20020 




SF 


TESTfll , 


tO, 




I ND THIS CALC MADE 
















00340 L2 00075 00000 


20030 




TF 


ao 


,CLR-106-P,, 




.21 ZEROS 
















00352 20 00080 00596 


20040 




M 


BETA-2 


-P, BETA-2 


-p.. 




SQUARE MANT 00364 KL 00194 00194 


20050 




TF 


SAVE 


-P,99 


t , 




•-L SAVE IS MANT »M ANT «L DIGITS 
















00376 K6 00100 00099 


20060 




TF 


ALPHA 


-P.CLR-95 


-Pt, 




.♦L INIT ALPHA TO 00 L*l ZEROS 
















00388 KO 00050 00607 


20070 




TFM 


ATNU35 ,99999 


,10, 




,21 00400 J6 00459 999R9 


20080 




TFM 


ATNl-3 


,99999 


,10, 




,+L 00412 J6 00421 999R9 


20090 


ATN1 


TF 


99 


,CLR-92-P 




,+L L*4 ZEROS 
















00424 20 00099 00610 


20100 




TFM 


98 


,10 


,10, 


-L 


00436 16 00098 OOOJO 


20110 




DM 


98 




» f 


-L 


00448 19 00098 -0000 


20120 




S 


96 


t ALPHA 


-P 




00460 2K 00096 00050 


20130 




TF 


ALPHA 


-P,96 






L*l DIGITS 
















00472 K6 00050 00096 


20140 




TF 


80 


.CLR-106-P,, 




,2L 00484 20 00080 00596 


20150 




M 


ALPHA 


-P,SAVE 


-Pll 




2L*l DIGITS 
















00496 KL 00050 00100 


20160 




TF 


ALPHA 


-P,99 


f t 




,-L L*l DIGITS 
















00508 K6 00050 00099 



182 



20170 




SM 


ATNU35 ,2 


,010 




00520 J2 00459 


000-2 


20180 




SM 


ATNl-3 ,1 


,010 




00532 J2 00421 


000- 1 


20190 




BNZ 


ATNl , 


»o. 


BR IF LESS THAN L-l PASSES 














00544 M7 00424 


01200 


20200 




TF 


SAVE -P.ONEZ-47- 


p.. 


,+L L+2 


DIGITS 
















00556 KO 00100 


00370 


21010 




S 


SAVE -P, ALPHA - 


p.. 


ONE MINUS SUM OF ( C0EF»MANT»»2 ) 














00568 KK 00100 


00050 


21020 




TF 


80 ,CLR-106- 


p.. 


»2L 


00580 20 00080 


00596 


21030 




M 


SAVE -P , BETA-2 - 


p.. 


2L*2 DIGIT PRODUCT 
















00592 KL 00100 


00194 


21040 




DC 


48 ,0000202100 2026502504 5044200040 5200500500 00084025, 


,348 














00348 00048 




21050 




BNF 


TEST2 ,TEST*ll 


.01 




00604 MM 00652 


00075 


21060 




BNN 


TEST2-12 , 


,0 




00616 M6 00640 


01300 


21070 




SF 


99 , 


1 1 


-L 


00628 32 00099 


00000 


21080 




A 


99 ,TAN6-45 


tit 


-Lt+L L+l 


DIGITS 














00640 2J 00099 


01236 


21090 


TEST2 


BNF 


•♦36 ,TEST*10 


tOl 




00652 MM 00688 


00074 


21100 




SF 


99 , 


, t 


-L 


00664 32 00099 


00000 


21110 




A 


99 ,PI0V2-45 


-Pt. 


-L,*L L + 2 


DIGITS 
















00676 2J 00099 


00419 


21120 




TFM 


BETA -P,l 


tlO 




00688 J6 00196 


000-1 


21130 




TD 


100 ,BETA*l - 


p.. 


-L INSERT 


RM AT 100-L 
















00700 2N 00100 


00197 






BD 


TEST1-24 ,98 


* » 


,-2L BR IF 1 


NORMALIZATION NOT REQD 














00712 M3 00768 


00098 


21150 




SM 


BETA -P,l 


.10 




00724 J2 00196 


000- 1 


21160 




TR 


98 ,99 


. t 


-2L.-2L 


00736 31 00098 


00099 


21170 




TD 


99 ,NOS DIG 


t . 


-L INSEAT 


NOISE DIGIT 
















00748 25 00099 


02401 


21180 




B7 


•-48 , 


tO 




00760 M9 00712 


00000 


21200 




SF 


98 , 


. • 


-2L 


00766 32 00098 


00000 






TF 


BETA-2 -P,97 


t » 


t-L 


00780 K6 00194 


00097 


22030 


TESTl 


BNF 


•♦24 ,TEST+9 


.01 




00792 MM 00816 


00073 






SF 


BETA-2 -P 






00804 L2 00194 


00000 






TFL 


PCKM5 , BETA 


P.6 , 




00816 00 0238- 


00196 


22050 




87 


PCK+10 , 


.6 




00828 49 0237N 


00000 


22070 


PCHAR 


TOM 


TESTUO ,-1 


.0. 


INDICATE 


POSITIVE CHAR 
















00836 J5 00074 


OOOOJ 


22080 




TF 


99 ,CLR-93-P 


. t 


,2L 


00848 20 00099 


00607 


22090 




TDM 


100 r-l 


1 1 


-2L DIVIDEND 


EQUALS .1 
















00860 15 00100 


OOOOJ 


22100 




0 


99 , BETA-2 - 


p.. 


-Lt DIVISOR 


IS MANT 
















00872 2R 00099 


00194 


22110 




OC 


44 ,0440525000 5290000050 0050510000 


555670 7O5lO0O5i 


348 














00348 00044 




22120 




BO 


•♦56 ,99 


.0. 


,-2L BR 


IF MANT IS 100000., 
















00884 M3 00940 


00099 


22130 




SF 


100 , 


. . 


-2L REOUCE TO L DIGITS 
















00B96 32 00100 


00000 


22140 




TF 


BETA-2 -P,99 


. t 


t-L 


0090B K6 00194 


00099 


22150 




SM 


BETA -P,l 


tlOt 


REDUCE CHAR BY 1 
















00920 J2 00196 


000- 1 


22160 




B7 


•♦32 , 


.0, 


THESE 3 


00932 M9 00964 


00000 


22180 




TF 


BETA-2 -P,98 


1 1 


,-L INSTRUCTIONS GO 
















00940 K4 00194 


00098 


22190 




SM 


BETA -P,2 


.10, 




WITH BO ABOVE 





00952 J2 00196 000- > 
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12100 




BL 


•♦44 


. .0, BP IP OPERAND IS ONE 










00964 


N7 01008 


01300 


23010 




1c 


ALPH 


v t 0t BP IP CHAP PEOUCED TO ZERO 










00976 N6 00196 


01200 


23020 




SF 


BETA 


-p, CHAR S7ILL POSITIVE, MAKE MEG 








009B8 


L2 00196 


00000 


23010 




■7 


TE$T*4I 


1 01000 


M9 00112 


00000 




TFM 


BETA 


«-P, flOt STORE CHAR U10Q9 


J6 00196 


000-0 






jf 


BETA-2 


-P,PI0V4-4S ft t>L 01020 


RO 00194 


01281 


23070 




B7 


ICS 1 * 


01032 


N9 00792 


00000 


tOO 


BNF 


TEST1 


tTEST^lO it BR IF RESULT MORE 


THAN PI0V2 






01040 


NM 00792 


00074 


23130 




jp 


AL FN A 


-PtBETA-2 -P 01052 


KO 00050 


00194 


23140 




TF 


BETA— 2 


-PtPI0V2-46-Ptt t^L L+2 OIGITS 












01064 


KO 00194 


00418 


23190 




CF 


ALPHA**! 


-P, it -L 01076 


L3 00049 


00000 


23160 




TDM 


ALPHA 


-Pt tilt -L 01088 


J 5 00050 


oooo- 


23170 




CM 


BETA 


-Pt 00 tlOllt •♦L 01100 


J4 00196 


000— 


23180 




BNH 


• ♦48 


,0 01112 


M7 01160 


01 100 


23190 




TFM 


•♦35 


t ALPHA -P,07 0U24 


JO 01159 


-0050 




DC 


10 


,0550555000 ,350 00350 


00010 




24010 








♦BETA -P.0 01136 


KJ 01159 


00196 


24020 




S 


BBTA-2 


-P 01148 


K2 00194 


00000 




TF 


BETA— 2 


-P,BETA-3 -P 01160 


KO 00194 


00193 






TFM 


BETA 


-P.Ol ,10 01172 


J6 00196 


000-1 


24050 






TESTl 


, ,0 01184 


M9 00792 


00000 


24060 




OORG 


• •4 


01191 






24070 


SIX 


OC 


45 


,600000000000000000000000000000000000000000000 








01235 00045 




24080 


TAN6 


DC 


46 


,5404195002705841554435783646085999101351482514 










01281 


00046 




24090 


PI0V4 


DC 


45 


,785398163397448309615660845819875721049292349 




DEND 


03091 


01326 
03091 


00045 





NOSOIG 02401 
CLR 00702R 
FEX3 OOOOOR 
ONEZ 004 I 7R 
PI0V2 00464R 
UNFL 00314R 



GOBACK 01028R 
EOGAR OOOOOR 
GORO 00608R 
OVFL 00258R 
RECIP 00888R 
ZRES 00326R 



SYMBOL TABLE 

ALPHA 00050R 
E12 00436R 
LN10 00559R 
P 00000 
SAVE 00100R 



BETA 
FACT 
LOGE 
PCK 



00L96R 
00740R 
00511R 
02365 



SETUP 00144R 



CALC 00468R 
FEXT3 00020R 
NINE 00604R 
PICK 00198R 
TEN34 01093R 



FLOATING EXPONENTIAL 



DSA FEXT3 



,FEX3 



VARIABLE LENGTH 







OORG 


EDGAR 




24110 


FEX3 


TDM 


SETUP*! ,1 


• Ot 


24120 




B7 


FEXT3*12 , 


,0 


24140 


FEXT3 


TOM 


SETUP* 1 ,9 


,0, 


24150 




TFM 


PCK*5 ,**20 


,17 


24160 




B7 


PCK , 


,6, 



00004 00005 -0020 
00009 00005 -0000 
00000 

ALLOW MUL BY LOG E FOR EXP 

00000 J5 00145 00001 
00012 M9 00032 00000 

PREVENT MUL BY LOG E FOR EXT 

00020 J5 00145 00009 
00032 10 02370 -0052 

BR TO PICK ANO RETURN 



■18' 



00044 49 0236N 00000 
24180 DC 46,0056070005 5020250008 5604504052 0052510050 000050 , 348 

00348 00046 







TFM 


GOBACK- 


L ,01 ,10 




00052 J6 01027 000-1 


24200 




TF 


ALPHA-2 


-P,0NEZ-45-P,, 


.♦L 


ONE. L^4 DIGIT MANTISSA 














00064 KO 00048 00372 


25010 




BD 


•♦20 


, BETA-1 -P,0, 


,-L 


00076 ML 00096 00195 


25020 




87 


GOBACK- 


12, t, 


BR 


IF MANT ZERO 














00088 M9 01016 00000 


25040 




TO 


RECIP-1 


, BETA-2 -P,0, . 


NON 


ZERO MANTISSA 














00096 KN 00887 00194 


25050 




CF 


BETA-2 


-P 




00108 L3 00194 00000 


25060 




TFM 


101 




-L 


00120 16 00101 -0000 


25070 




TF 


97 


•BETA-2 -P,, 


-L 


m DIGITS IN 101-L 














00132 20 00097 00194 


25080 


SETUP 


8 


• ♦92 


, ,0, 




MUL BY LOG E IF EXP 














00144 M9 00236 00000 


25100 




TF 


80 


.CLR-106-P,. 


.21 


00156 20 00080 00596 


25110 




M 


BE TA-2 


-P,L0GE-45-P,, 


.♦L 


2L*2 DIGIT PRODUCT 














00168 KL 00194 00466 


25120 




BD 


• ♦56 


,98 ,0, 


t-2L 


BR IF HIORDER NOT ZERO 














00180 M3 00236 00098 


25130 




SM 


BETA 


-P,l ,10 




00192 J 2 00196 000-1 


25140 




SF 


99 


, * , 


-2L, 


00204 32 00099 00000 


25150 




TF 


BETA-2 


-P. 102 ,, 


,-L 


MOVE L*4 DIGITS 














00216 K6 00194 00102 


25160 




B7 


•♦20 


, ,0 




00228 M9 00248 00000 


25180 




TF 


BETA-2 


-P.lOl ,, 


,-L 


MOVE L*4 DIGITS 














00236 K6 00194 00101 


25190 




CM 


BETA 


-P. -00 ,1011 


tU 


00248 J4 00196 000— 


25200 




BNH 


GOBACK-12, ,0, 


BR 


IF CHAR LESS THAN -L 














* ?60 M7 01016 01100 


26010 




CM 


BETA 


-P. tlO, 




w0272 J4 00196 000-0 


26020 




BE 


CALC 


, tO» 


BR 


IF CHAR ZERO 














00284 M6 00468 01200 


26030 




BL 


CALC^68 , ,0, 


BR 


IF CHAR BETWEEN -L AND ZERO 














00296 M7 00536 01300 


26040 




CM 


BETA 


-P,2 ,10 




00308 J4 00196 000-2 


26050 




BH 


£12 


, #0f 


BR 


IF CHAR LARGER THAN 2 














00320 N6 00436 01100 


26070 




BL 


•♦44 


i ,0, 


BR 


IF CHAR BETWEEN 0 ANO *2 














00332 M7 00376 01300 


26060 




DC 


46, 07770070 7007770050 


5090007000 7000000 SO 5 76705070, 348 














00348 00046 






A 


GOBACK-1 .BETA-4 -P,, 


%-l 


CHAR EQUALS P2 














00344 KJ 01027 00192 


26090 




TR 


8ETA-5 


-P.BETA-3 -P,, 


-L,-L 


SHIFT LEFT 2 POSIT l** M S 














00356 LJ 00 . : 10193 


26100 




87 


£12-12 






0036B M9 00 JOOOO 


26120 




TON 


BETA-6 


-Pt tilt 


-L 


CHAR EQUALS ♦! 














©0376 J5 00**0 0000- 


26130 




CF 


BETA-5 


-Pt «t 


-L 


00988 L9 00191 00000 






A 


GOBACK* 


•I t BETA-5 -P f , 


t-L 


00400 KJ 01027 00191 


26150 




TR 


BETA-5 


-P» BETA-4 -P, t 


-it-i 


SHIFT LEFT 1 POSITION 














00411 LJ 00191 00192 


26160 




BNV 


•♦52 


t tOt 


BR 


IF AOJ CHAR DOES NOT OVPLOW 














00424 N7 00456 01400 


26170 


E12 


BMP 


OVPL 


-PtRECIP-l •!• 


BR 


IF MANT POSITIVE 



185 



00456 NN 00258 
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26 1 SO 




67 


UNFL 


>P 








0044S M9 00314 


00000 


26200 




SF 


BETA-5 - 


P» 




1 1 


-21 


00456 L2 00191 


00000 


27010 


CALC 


TFM 


• ♦9 


• 




• 0610 


t 


IMIT SIZfc INO 




















00461 J6 00477 


0-0-0 


27020 




CM 


6ETA-4 - 


P t 34 




• 10, 


-L 


00480 J4 00192 


000L4 


270)0 




Bt 


CORD 


t 




• 0, 




86 IF BETA LESS THAN .34 ♦CHAR 


















00492 M7 0060 B 


01300 


27040 




SH 


6ETA-4 - 


P t 34 




• 10* 


-L 


AOJ BETA BY -.34 




















00504 J2 00192 


000L4 


27090 




AM 


CALC*9 


tl 




• 010, 




STEP SIZE INO 




















00516 Jl 00477 


000-1 


27060 




87 


CALCM2 


i 




• 0, 




CONTINUE REDUCTION OF BETA 




















00528 M9 00480 


00000 


27060 




TFM 


• ♦59 


.BETA 


-4 - 


Pt07, 




PROCESS IF CHAR NE6 




















00536 JO 00595 


-0192 


27090 




A 


• ♦47 


• BETA 




P.O 




00546 KJ 00595 


00196 


27100 




TF 


6ETA-6 - 


P.CLR- 


96-F 


• f 


-L, 


♦ L l>4 UIGIT FIELD 




















00560 KO 00190 


00606 


27110 




CF 


BETA-5 - 


P. 




t • 


-I 


00572 L3 00191 


00000 


27120 




TF 


BETA-4 - 


Pt 




t • 




SHIFT RIGHT H R T CHAR SIZE 


















00584 K6 00192 


00000 


27130 




SF 


BETA-5 - 


P. 




• f 


-I 


00596 L2 00191 


00000 


27140 




DC 


44,0656405252 


0055085502 


2020005000 0000000851 4052 , 


,348 


















00348 00044 




27150 


GORD 


TF 


80 


• CLR- 


106- 


Pt , 


* 


2L 00608 20 00080 


00596 


27160 




M 


BETA-4 - 


P.LN10-46- 


p . . 


• 


♦L 2L+4 DIGIT PRODUCT 




















00620 KL 00192 


00513 


27170 




SF 


97 






• • 


— 2L 


00632 32 00097 


00000 


27180 




TF 


SAVE 


P.99 








-L L+4 DIGIT FIELDS 




















00644 K6 00100 


00099 


27190 




TF 


BETA-2 - 


P.99 




f 1 


• 


-L 00656 K6 00194 


00099 


27200 




TFM 


FACT+ll 


• 2 




• 010 




00668 J6 00751 


000-2 


28010 




A 


ALPHA-2- 


P.SAVE 




p 




00680 KJ 00048 


00100 


28020 




TF , 


80 


,CLR- 


106- 


p.. 


• 


2L 00692 20 00080 


00596 


28030 




M 


SAVE 


P.BETA 


-2 - 


p.. 




2L^8 DIGIT PRODUCT 




















00704 KL 00100 


00194 


26040 




TF 


99 


t96 




• » 


■• 


-L L+6 DIGIT DIVIDEND 




















00716 26 00099 


00096 


28050 




TFM 


96 


t 




• 10, 


-I 


00728 16 00096 


000-0 


28060 


FACT 


DM 


97 


t 




t f 


-L 


2 DIGIT DIVISOR. L+4 QUOTIENT 


















00740 19 00097 


-0000 


28070 




BZ 


FACT+56 


i 




• 0, 




BR WHEN TEAM REDUCES TO ZERO 


















00752 M6 00796 


01200 


28080 




TF 


SAVE 


P.97 




• • 




L+4 DIGIT FIELD 




















00764 K6 00100 


00097 


28090 




AM 


FACT+11 


.1 




• 010 




00776 Jl 00751 


000- 1 


28100 




B7 


FACT-60 


t 




• 0. 




CALC NEXT TERM 




















00788 M9 00680 


00000 


28120 




CM 


CALC+9 


» 




,010 




00796 J4 00477 


000-0 


28130 




BE 


RECIP 


» 




• 0, 




BR IF FURTHER AD J NOT REQUIRED 


















00806 M6 00888 


01200 


28140 




TF 


80 


,CLR- 


106- 


p.. 


• 


2LA0JUST FOR REOUCTNS BY .34 




















00820 20 00080 


00596 


28150 




M 


ALPHA-4- 


P.TEN34-45 


.1 


• 


L 2L+4 DIGIT PRODUCT 




















00832 KL 00046 


01048 


28160 




SF 


97 






f • 


-21 


2LO DIGITS 00844 32 00097 


00000 


28170 




TF 


ALPHA-4- 


P.98 




t • 


• 


-L L+2 DIGITS 




















00856 K6 00046 


00098 


28180 




SM 


CALC+9 


,1 




• 010, 




REOUCE INOICATOR 





13 



28190 


B7 


29010 


DC 


29020 RECIP 


BNF 




SF 


29040 


TF 


29050 


TFM 


29060 


D 


29070 


BV 




AM 




TF 




TFL 


29100 


B7 


29101 


AM 




TFM 



-84 , ,0 

26. 0000084025 0000000200 005005 



G0BACK-12,RECIP-1 
GOBACK-1 , 
99 .CLR-94-P 

99 ,10 

100 .ALPHA-4-l 
G0BACK-24, 



00868 J2 00477 000-1 
00860 M9 00796 00000 
,350 00350 00026 



G08ACK- 
• ♦23 
PCK+15 



GOBACK TFL 
B7 

29150 TEN34 DC 

DEND 



.01. BR IF MANT MAS POSITIVE 

00868 MM 01016 00887 
., MAKE CHAR NEGATIVE 

00900 L2 01027 00000 
,, ,2LCALC RECIPROCAL IF NEG MANT 

00912 20 00099 00608 
,10, -2L, 2L*2 OIGIT DIVIDEND 

00924 16 00099 OOOJO 
,, -L. L*2 DIGIT DIVISOR 

00936 2R 00100 00046 
,0, BR IF ORIG OPER 1 OR 1/LOGE 

00948 M6 01004 01400 
00960 Jl 01027 000-1 
00972 KO 0099N 01027 
,-L STORE RESULT 

00984 06 0238- 00099 
RETURN TO MAINLINE 

00996 49 0237N 00000 
01004 Jl 01027 000-2 
01016 J6 00046 00000 

STORE RESULT 

01028 00 0238- 00046 
,6, RETURN TU MAINLINE 

01040 49 0237N 00000 
21877616239495525622261149163841873167118056246 

01093 00047 
03102 



,01 ,10 

•GOBACK-1 ,6 

•99 ,6, 

» »6» 



GOBACK-1,2,10 
ALPHA-4-P 

PCK+15 ,ALPHA-4-P«6 



PCKMO 
47 
03102 



SYMBOL TABLE 



NOSOIG 


02401 


ALPHA 


00050R 


BETA 


00196R 


CLR 


00702R 


CORN 


00596R 


COUN 


00368R 


CZERO 


00959R 


EDGAR 


OOOOOR 


FLN3 


00020R 


FL0G3 


OOOOOR 


GOAL 


008 32R 


LN10 


00559R 


LOGE 


005UR 


NINE 


00604R 


NLG 


008 76R 


ONEZ 


004 17R 


OVFL 


00258R 


P 


00000 


PCK 


02365 


PICK 


00198R 


PI0V2 


00464R 


PLUS 


00680R 


SAVE 


00100R 


UNFL 


00314R 


ZRES 


00326R 



FLOATING POINT LOG AND LN. 



29190 FL0G3 



29200 

10020 PLN3 



10010 
10040 

291 BO 



VARIABLE LENGTH 

00004 00005 -0000 
00009 00005 -0020 
00000 
SET FOR COMMON LOG 

00000 J5 00597 00001 
00012 M9 00012 00000 
Sf T FOR NATURAL LOG 

00020 J5 00597 00009 
00012 10 02170 -0012 
BR TO PICK A NO RETURN 

00044 49 0216N 00000 
28 f 0700 60SO 0100900109 7070700099 »190 
. 00190 00028 

BO • ♦U (BETA- 1 -P, t ,-L BR IP NOM ZERO ARC 

00092 ML 00096 00199 



DSA FLOG 3 



OORG EDGAR 
TOM CORN^l 



B7 •♦20 
TON CORN+i 



TPN PCK* 5 
B7 PCK 



DC 



• FLN3 

fl 
f 

.9 

#•♦20 



• 0« 



tO 
»0, 



1 17 



187 
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30060 


TOM 


401 


1 0 


• lit 




SET IND FOR LOG OR LN OF ZERO* 














00064 15 00401 0000- 




SF 


NINE-45 


-F t 




PL 


SET UP TO STROE MEG NINES 














00076 L2 00559 00000 




67 


0VFL*12 


"Ft 






BR TO STORE AND RTN TO MAINLIN 














00088 M9 00270 00000 


30110 


6NF 


• ♦36 


, BETA- 2 


-F,0, 


6R IF 


MANT POSITIVE 














00096 MM 00132 00194 


301 20 


TOM 


401 


• 0 


• t 




SFT I MO FOR MFCATIt/F 
•ci inu run hcva i if c 














noma is 00401 00000 


30130 


CF 


6ETA-2 


-P. 


• t 




MAKE POS 1 T I VE 














0O120 L 3 OO 144 OOOOO 


30140 


TFM 


CORN-25 


,CZERQ-45 ,017, 




IMITIA1I2E OOll? JO 00<(71 -OQ14 

I'll 1 IWUffcC W .J* ww v V v r I UtIt 


30150 


TF 


GOAL- 13 


• BETA 


-PtO, 




SAVE CHAR 00144 KO 00619 00196 


30160 


CF 


BETA-l 


-P. 


• i 


-L , 


EXPAND FIELD TO L*l DIfifTS 














00156 L3 00195 00000 


301 70 


TDM 


8ETA-2 


-P. 1 


• lit 


-L , 


A00 1*0 00168 J 5 00194 0000 J 


30180 


CM 


BETA-l 


-P,15 


.10, 


-L , 


no ISO J4 onto* onn 11 


30190 


BNL 


• ♦44 


• 


• 0, 




bo IE MOD MANT MOT 1 Ft( 1 K 














onto? ma nn?iA niinn 

WW 1 7 4L Fill UUl JO W 1 JUU 


30200 


A 


BETA- 2 


-P, BET A- 2 


-p,, 




ODORI F MANT. 1*1 DIGIT* 














nn7H4 k 1 nniQ4 nniQ4 


31010 


AM 


CORN- 2 5 


,48 


,010, 




AOJ FOR NFXT CONSTANT 














nn?iA 11 nn*7i nnnMA 


31020 


67 


•-60 


t 


tO 




nn??& mq nm&A 00000 


31070 


OC 


42,56705508252552085552550103 
















noitn nnn&? 


31040 


TP 


ALPHA 


-P,0NEZ-48-P,, 


.♦L 


1 * 1 ntci ic 

L ♦ 1 UIul la 














UU(jO KU UUU3U UU1B7 


31050 


TOM 


ALPHA 


-P,2 


• 11, 


-L, 


rnuuPBT Tn run? 














OUf^a J) UOU90 UUUUR 


31060 




ALPHA 


-P.8ETA-2 


-p.. 




2*0 MINUS MUD MANT \£»0~C) 














UUcOU UUU3U UUlTt 


nan 
3 1080 




99 


.CLR-93-P ,, 


,2L 


nni7i jn nnnao nnino 

UU(U cU UUUtt UUOUt 


3 1090 


i n 


97 


.ALPHA 


-p l# 


-L, 




31 100 




98 


»BETA-2 


-p,. 


-L, 


IC.U Lift CWUALi T 














uucto UUU70 uuit? 


... 
31 110 




BETA 


-P,98 


» f 


•-L 


1*9 niciTt 














nninfl u *. nnia*. nnnos 


31120 




80 


.CLR-106-P,, 


,2L 


UUJtU (U uUUDU 


311 30 


M 


BETA 


-P.BETA 


-p., 




2L*4 DIGITS 














00332 KL 00196 00196 


3 1 140 


Tp 


SAVE 


-P,97 


» f 


,-L 


Y»«2 L*2 DIGITS 














00344 K6 00100 00097 


311 50 


A 


BETA 


-P. BE TA 


-p.. 




DOUBLE Y 00356 KJ 00196 00196 


ill &n rniiM 


TFM 


• ♦9 


, 99999 


,010, 


•♦LINITIALI2E COUNT TO L-l TERMS 














00368 J6 00377 999R9 


_ 


TFM 


C0UN+71 


,99999 


,010, 


• 2L 


00380 J6 00439 999R9 




TF 


ALPHA 


-P.CZERO- 


t6 ,, 


.♦L 


L*2 DIGITS. ZERO ALPHA 














00392 K0 00050 00913 


31 190 


T p 


99 


.CLR-92 


-p •• 


• ♦L 


00404 20 00099 00610 


3 1200 


TFM 


98 


,10 


,10, 


-L, 


OBTAIN RECIPROCAL TERM 














00416 16 00098 000J0 


32010 


DM 


96 




» » 


-L. 


00428 19 00098 -0000 


32020 


A 


ALPHA 


-pj97 


» • 




L*2 DIGITS TO PREV TOTAL 














00440 Kl 00050 00097 


32030 


TF 


80 


.CLR-106-P,, 


• 2L 


PRODUCT OF Y»«2 AND TOTAL OF 














00452 20 00080 00596 


32040 


M 


ALPHA 


-P.SAVE 


-p.. 




PREVIOUSLY CALC TERMS 



183 



00464 KL 00050 00L00 



32050 




TF 


ALPHA • 


P. 97 ,, 


,-L 1+2 DIGITS STORED TOTAL 












00476 K6 00050 


00097 


32060 




SM 


CQUN+71 


,2 ,010, 


REDUCE DIVISOR 

00488 J2 00439 


000-2 


32070 




SM 


CO UN +9 


,1 ,010, 


REDUCE NO OF UNCALC TERMS 




32090 










00500 J2 00377 


000- 1 




BNZ 


CO UN* 36 


• ,0, 


BR IF 1.-1 TERMS NOT CALC 

00512 M7 00404 


01200 


320 




DC 


46, 08552550 5052000865 


5250066005 5050605000 07770050, 


350 


32100 










00350 00046 






TF 


80 


,CLR-106-P,, 


•2L 00524 20 00080 


00596 


32110 




M 


ALPHA -P.BETA -P,, 


2Y • SUM OF L-l TERMS 














00536 KL 00050 


00196 


32120 




A 


97 


.BETA -P,, 


-L ADD 2Y TO ABOVE PRODUCT. L*2 












00548 2J 00097 


00196 


32130 




TF 


BETA -P, ,, 


SET WITH PROPER CONSTANT L*3 












00560 K6 00196 


00000 


32140 




SF 


BETA -P 


00572 L2 00196 


00000 


32150 




S 


BETA -P.97 ,, 


,-L SUB ACCUM TOTAL FROM CONSTANT 












00584 K2 00196 


00097 


32160 


CORN 


B 


NLG 


• ,0, 


BR IF FINDING NATURAL LOG 




32170 










00596 M9 00876 


00000 




TF 


80 


,CLR-106-P,, 


,2L 00608 20 00080 


00596 


32180 




M 


LOGE-45- 


P,BETA -P., 


♦L, 00620 KL 00466 


00196 


32190 




TF 


BETA 


P. 97 ,, 


,-L L*3 DIGITS 00632 K6 00196 


00097 


32200 




SF 


BETA -P 


00644 L2 00196 


00000 


33010 




TF 


80 


,CLR-100-P,, 


•♦L 00656 20 00080 


00602 


33020 




M 


ONEZ-46- 


P.G0AL-13 ,1, 


♦L, ORIG CHAR • ONE. L*5 DIGITS 












00668 KL 00371 


00819 


33030 


PLUS 


A 


99 


.BETA -P 


G*>©80 2J 00099 


00196 


33040 




TF 


BETA - 


Pt99 ,, 


PREPARE FOR NORMALIZATION 
00692 K6 00196 


00099 


33050 




cr 


BETA 


P 


00704 L3 00196 


00000 






c 


CLR-92 -P,98 ,, 


•♦L 00716 K4 00610 


00098 


33060 




BE 


ZRES 


P. .. 


BR IF L*5 ZEROS 00726 M6 00326 


01200 






TFM 


GOAL- I 


,03 ,10, 


SET CHAR EQUAL 3 




33080 










00740 J6 00831 


000-3 




80 


GOAL-24 


, BETA-4 -P,0, 


,-L 8R IF HI OROER DIGIT NON-ZERO 


33090 










00752 Ml 00808 


00192 




TR 


BETA-4 - 


P, BETA-3 -P,, 


-1,-1 00764 LJ 00192 


00193 






SM 


GOAL- I 


,01 ,10, 


REDUCE CHAR 00776 42 00631 


ooo- 1 

02401 


33110 




TD 


BETA 


P.N0S 0IG ,, 


INSERT NOISE DIGIT 

00788 KS 00196 


33120 




87 


•-48 


• .0, 


CONTINUE NORMALIZATION 

00800 M9 0075 > 


0L900 


33150 




0C 


16 


,7050005005000660 ,350 003S0 00016 






SF 


BETA-4 - 


*>. •• 


-I, SET FIELD DEFINITION 

00608 L2 001 r 


00000 




GOAL 


TFM 
BMP 


BETA-3 
• ♦24 


.99 ,, 


00820 J6 00193 
APPIX SIGN A NO RTN TO MAINLINE 


ooooo 






SF 






00832 M4 00656 


00099 






BETA-5 - 


P 


00644 L2 00191 


00000 






TFL 


PCKMS 


•BETA-3 -P,6 


00856 00 0236- 


00193 


33190 




87 


PCK^IO 


• .6 


00668 49 0237N 


00000 


NLG 


TF 


80 


.CLR-100-P,, 


•♦L CONVERSION FOR LN 




33200 










00676 20 00060 


00602 




M 


LN10-45-P.&0AL-13 ,, 


♦I. 1^5 DIGITS 00888 KL 00514 


00619 


34010 




B 


PLUS 


• »0» 


RETURN TO COMMON SECTION 
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00900 M9 00680 00000 
36030 CZERO DC 4t ,0 00959 00068 

37090 DC 68,-693l47l805599653094i72321214581765*807§50013636 

01007 00068 

37100 DC 48. -138629636111989061883666626291639313615100026872 

01035 00068 

37110 DC 48,-207944154167983592825169636437452970422650040308 

. 01103 00048 

DEND 03122 03122 



SYMBOL TABLE 



NOSDIG 02401 
EDGAR OOOOOR 
LOGF 0051 1R 
PCK 02365 
UNFL 00314R 



ALPHA 00050R 
FLOAT 00052R 
NINE 00604R 
PICK 00198R 
ZRES 00326R 



BETA 00196R 

FSLS 00020R 

ONEZ 00417R 

PI0V2 00466R 



BTFS 00096R 
FSRS OOOOOR 
00258R 
00100R 



OVFL 
SAVE 



CLR 00702R 

LN10 00559R 

P 00000 

TFLS 00040K 



DSA FSRS ,FSLS • TFLS ,BTFS 





DORG 


EDGAR 




FSRS 


TDM 


FLOAT+25 


.8 




B7 


FLOAT 




FSLS 


TDM 


FLOAT+25 


,5 




B7 


FLOAT 




TFLS 


TDM 


FL0AT+25 


.6 


FLOAT 


TR 


PCKUl 


.PCK+IO 




AM 


PCKflO 


.11 




FSR 


PCK*15 


.PCK+20 




B7 


PCK*10 


t 


BTFS 


TR 


PCK*ll,PCK*10,ll 




AM 


PCK+10,11 






TF 


•♦30.PCK+10 




8TFL 


PCK+L5.PCK+20.611 




B7 








DEND 


03144 





,611 
• 6, 



00004 


00005 -0000 


00009 


00005 -0020 


00014 


00005 -0040 


00019 


00005 -0096 


00000 








00000 


J5 


00077 


00008 


00012 


M9 


00052 


00000 


00020 


J 5 


00077 


00005 


00032 


M9 


00052 


00000 


00040 


J5 


00077 


00006 


00052 


31 


02376 


0237N 


00064 


11 


02375 


-0011 


00076 


08 


0238- 


0238N 


NE 








00088 


49 


0237N 


00000 


00096 


31 


02376 


0237N 


00108 


11 


02375 


-0011 


00120 


K6 


00150 


02375 


00132 


07 


0238- 


0238N 


00 U4 


49 


00000 


00000 


03144 
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1620 MONITOR I SYSTEM SPS II-D FLOW CHARTS 



191 



LABEL TABU • INDICATES UNBEFEMWtEO LABEL 




192 



CROSS-REFERENCE TABLE • INDICATES LABEL NOT FOUND 

.CNTNU UC 

. IMITI 2 7J 

.MNCAl 2 7V 

.RETRN IOP ION 

AORS 5G 

ASTER VT 

ASTER I 5U 

ASTER2 5V 

ASTER 3 5W 

A STOP 270 

BLNK 4R 

B'M.T 12B 12A 

BS 9D 7 J 7A 

sseve sc » 

BSHI 11 
BSLO 72 
CALL A2 1H 

CALL EX 2U 

CCON 17M 

CC0N2 l«F I TV 

CHARCO 18K 



8*8 



® 123 us w 



E 26U 190 19B IBM 17K 1SE 15W 

ENTER 2nX 



193 



SPS II*D~ PHASE A— SECTION Al PERMANENT 



PAGE 2 Of 27 



00 I 10 PHASE A 



00240 REACH 



26 



00250 PROSTN 



At AO I 

2G 



•* oevVce 



• 2C 



TYPE 



00140 READ* 

] Rl 

i £ 



2B 



RET CAAR. 
"LEAR INPUT 
jREA FOR 
TYPEWRITER. 
READ. 



TO PAQSTN 2N 

00200 REA02 2C 

• . • 

• • NO 

• REAO CARO • R SCAN 
• RESEQ OECK • 

• REQUEST • 2F 



• • YES 

• IS CARO A • RSCAN 
• CTL STMT • 



PUNCM 

RESEQUENCED 

SOURCE 

CARO 



I 
I 
I 
I 

00230 RSCAN I 2F 

I placVrms 



AFTER LAST I 
NON-BLANK I 

TO COL 76 I 



M-tafc 



ai*» Wocon 

• 16 



2N 



A2 



... „ — £2. 

• * " • NO 

• IS STATEMNT • RLOPl 
• COMMENTS • 

• • COL 6 • 3A 



YES 






YES 


00210 R2BE 


20 


00200 





2R 



OUTPU 
TPUT 

"to PHAsii" 



OUTPUT IF 
1-PASS MODE 
SUBROUTINE 
OUTP- - 



?S 



THIS SECT 
IN CORE 



196 



SPS II-D PHASE A SECTION Al PERMANENT 



00300 RLUP1 



RECORD MARK 
IN LABEL 

FIELO 



00310 OP 
Y~ 
I 
I 



RESET 

LABEL ♦ NO 
OF ERROR 
MESSAGE IF 
LAB NON-BLN 



YES 
ER2 



RECORD MARK 
IN OP CODE 



YES • 
OPl • ABSOLUTE 
• OP CODE 
3P • 



?8 S 
3M 



EA3 • OP CODE IN * 
• TABLE » 



001*0 OK 3F 

I transfer" 

I VECTOR. 



TO 3G 



3G 

BRANCH HERE 
TO ONE OF 
THE FOLLOW- 
ING 

ROUTINES 



PROCESS 
CODE. 







1. DGM I 

2. SAVRST I 

I: m? \ 

5. BOMK I 




3K 


6. mcJall I 

I: 4» i 




3L 


i 
i 


3. OSDNB 1 

J: ll 1 







IF 



PAGE 3 OF 27 
3U 



21. DAS 

22. HEAD 

23. OSB 

24. DM ESC 



CLEAR LAB 
STD ERROR 
PROC. £R2 



PROCESS OP 
CODE. 

SUBROUTINE 
INSTRN. 



00450 ER3A 

...... 



OP 
3V 



LANK OUT 

IP CODE 



STD ERROR 



3X 



SET 41 
(NOP) IN 
INTERMEOI AT 
CODE. PROC. 
SUB INSTRN 

TO LDLBL~ 



197 



SPS II -D PHASE A SECTION Al PERMANENT 



PACE « OF 27 



00480 EVALAD 




46 



RESET RELOC 
CNTR ANO 
I RELOCATION 
SWITCHES 
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0 




DC 


5,0,, 


-0000 


DC 


5,0, , 


-0000 


DSC 


1,1,, 


1 




DSC 


15,0',, 


00000000000000 



DISK SCRATCH AREA OEFINER. 

SPS, FORTRAN, A NO OUP CNTL CARD SOURCE. 

LAODR INITIALIZATION INDICATOR* 

LOADER ENTRY COOE AND INPUT OEVICE. 

LOAD SUP I NO. ANO MONITOR CNTL CARO SOUR. 

HIGHEST ADDRESS LOADED PLUS ONE. 

LOAOER INPUT BUFFER VECTOR. 

ORIVE CUOE FOR SYSTEM MODULE. 

TRANSMU HEAOLESS DDA-S HERE FOR OVRLAY. 



00602 
00402 



00407 
00410 

00415 

004 IS 
00421 

00432 

0042S 

00426 

00427 
00428 

00429 
00434 
00439 
00440 
00441 



OVERLAY READ ROUTINE 
H XX, XX, 02, 
34 IBMM0D,701,, 
36 IBMMOO, 702,0 
BI HALT, 1900,, 
B IBMM0D*13,,6, 
DORG »-9 
DSA 20 



RESET AND START UPON OVERLAY ERROR. 
SEEK ANO READ OVERLAY IN6 PROGRAM. 



HALT IF INO. 1900. 

BRANCH TO ITS FIRST LOCATION. 



00270 

00280 •••••• MAIN IORT ROUTINE. 

00290 • ENTRIES ARE IORBC, IOPT. IOSK, ANO IOGT. 

00300 • FILE DESCRIPTOR AND RETURN ADORESS VECTOR IS IOXX. 

00310 

00320 • DRIVE REPOSITION TABLE 

00330 REPOS DORG BNI+20 
00340 OC 2,0 

-0 

00350 DC 2,0 

-0 

00360 *. DC 2,0 

-0 



I 

5 X 



-0000 
3 



.0000 
6 

1 

3 

1 

1 

1 

1 

5 

5 

1 

15 



00456 N8 -0000 00000 

00468 34 00440 00701 

00480 L6 00440 00702 

00492 44 00454 01900 

00504 49 0045L 00000 
00504 

00510 5 X 1 

00510 -0020 



00512 
00513 



00515 
00517 
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00370 




DC 


2,0 


00519 




2 




00380 




ENTRY SECTION 










00390 


IORBC 


TDM 


DIOP+47,1,11. PUT ENTRY WITH READ BACK CHECK. 


00520 


15 


02033 


OOOOJ 


00400 


I0PT 


TFM 


DFILE*1UTT1+12,8 V PUT ENTRY. 


00532 


16 


01917 


0J764 


00410 




B 


IOGT +12 


00544 


49 


00576 


00000 


00420 




OORG 


•-1 


00554 








00430 


IOSK 


SF 


•»XX,, SEEK ONLY ENTRY. 


00554 


32 


00554 


00000 


00440 


IOGT 


TFM 


OF ILE + l 1 « TTl « • GET ENTRY. 


00566 


16 


01917 


-1752 


00450 




TFM 


BKPT,XOl,, TURN OFF ANY I/O INDICATORS. 


00578 


16 


00467 


-1846 


00460 




BI 


ERROR, 1900,11 


00590 


46 


00624 


0190- 


00470 


ERRET 


B 


BKPT,,16, WHITHER WANOEREST THOU, WAYFARER. 


00602 


4R 


0046P 


00000 


00480 




DORG 


• -4 


00609 








00490 


INOS 


DC 
-6 


2,06,, ERROR INDICATOR TABLE. 


00610 




2 




00500 




DC 
-7 


2,07 


00612 




2 




00510 




DC 
J6 


2,16 


00614 




2 




00520 




OC 


2,17 


00416 




2 




00530 




J7 
DC 


2,36 


00618 




2 




00540 




L6 
DC 


2,37 


00620 




2 




00550 




L7 
OC 


2,38 


00622 




2 




00560 




L8 

DSC 


l.« 


00623 




1 




00570 




ERROR INDICATOR SCANNER ROUTINE. 










00580 


ERROR 


TF 


•♦21, INOS, 7, INITIALIZE FOR CURRENT INDICATOR. 


00624 


26 


00645 


-0610 


00590 




BNl 


•♦24, XX,, TEST IF INDICATOR ON. 


00436 


47 


00660 


ooooo 


00600 




SF 


ERROR+11,,6, YES -SET FLAG INDICATOR. 


00648 


32 


0063N 


ooooo 


00610 




AM 


ERR0R*il,2,10, AOV* NCE ADDRESSING. 


00640 


11 


00635 


000-2 


00620 




CM 


ERK0Rm,IN0S*14 v , TEST IF FINISHED. 


00472 


14 


00635 


-0624 


00630 




BNI 


ERROR, 1300 


00684 


47 


00624 


01300 


00640 




TR 


OLOOA, ECALL, , YES -SET UP CALL TO THE ERROR ROUTINE. 


00494 


SI 


00441 


01799 


00650 




8 


OVRLAY,,, 


00708 


49 


00469 


OOOOO 


00660 




OORG 


•-3 


00716 








00670 


•••••« 


CALL LINK AND CALL LOAO ENTRV 










00690 


• 


SIMULATES AN IOGT ENTRY FOR SPS -CALL- PSUEOO-OP. 










00490 


IOCAL 


TFM 


OFILE^ll,TTl,, SET RE AO INDICATOR. 


00716 


14 


01917 


-1752 


00700 




TR 


CNTWO,IOXX,U, NOVE FILE DESCRIPTOR. 


00726 


31 


02155 


0096N 


00710 




TFM 


BKPT,X01O4,, PUNCH THE TINE CLOCK. 


00740 


14 


00447 


-1662 


00720 




AM 


IOXX, 9,, COMPUTE RETURN ADORESS. 


00732 


11 


00545 


-0009 


00730 




BNF 


ERRET-12.CNTM0*7 


00744 


44 


00590 


02162 


00740 




AM 


IOXX, 4 


00774 


11 


00545 


-0004 


00750 




8 


ERRET-12, , , EIECUTE ANY INDICATOR CHECK. 


00788 


44 


00590 


OOOOO 


00740 




OORG 


•-3 


00794 








00770 


•••••• 


MONITOR CALLER ( THROUGH MONITOR RETURN ROUTINE. I 










00780 NONCAL 


TR 


OLOOA, NOOA 


00796 


31 


00441 


01775 


00790 




8 


OVRLAY 


00906 


44 


00446 


OOOOO 


00800 




DORG 


•-3 


00816 








00810 




OISK FILE I/O PREPARATION SECTION 










00820 


DIO 


TO 


DIOPU,DPILE*lia&tSfT LOtt ORDER DIGIT OF OP COOE. 


00816 


29 


01987 


0191P 


00830 




TO 


•♦33,CNTNO,, OICOOI SCRATCH ANO HIGH UPDATE 


00828 


25 


00643 


02199 



277 



&*20/ litt super* i so® am© ion? 



PAGE 



00140 CP •*23,01OP*l02,r INDICATOR. 

ooino td oiqp*t,erret-2 

000*0 BNP CNkl 9 €MTMO#l M 

00070 TR MAPENT,HAPSCT»* 

A NAPENT*A,CNTW©*6 

A MAPENT*6«CNTM0*6 

TFH SK04.0IQX,, 

6 SEEK 

OORC *>-3 

OIOX TO DI0P*9*,NAPEWT*6,, READ SLOT FOR OIN ENTRY (0,20,40,40,601. 

TOM NAPENT'frA,©, 1 i, RfJTOAi SECTOR COUNT l-DOll 

TFM BKPT.X03,, PUNCH THE TIME CLOCK* 

3* MAPENT, 702, « READ THE DESIRED NAP ENTRY. 

8 ERRET-12,,, EXECUTE ERROR TEST* 



OOB90 
00900 
009 10 
00920 
00930 
009*0 
009SO 
009A0 
00970 
009B0 
00990 
01000 
01010 
01020 
01030 
010*0 
01090 
01060 
01070 
010B0 
01090 
01100 
Oil 10 
01120 
01130 
011*0 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
012*0 
01250 
01260 
01270 
01210 
01290 
01300 
01310 
01320 
01330 
013*0 
01350 
01360 
01370 
01360 
01390 



TEST IP OIN NUMBER SUPPLIES* 
YES -COMPUTE SECTOR TO RE AO. 



SEEK THE NAP ENTRY* 



nm 

B 

OORC 
TR 

BO 
A 

TO 

BNF 

CF 

FFM 

8 



ROVE OIN ENTRY TO WORKING SLOT. 

TEST IP VALID OIN ENTRY. 

NO -60 TO THE ERROR ROUTINE* 



MOVE OOA TO WORK INC SLOT. 
TEST FOR SECTOR SCRATCH RELOCATION. 
YES -COMPUTE ABSOLUTE SECTOR ADDRESS. 
GET ITS LOGICAL DRIVE CODE. 



TEST IP SEEK ONLY DESIRED. 

THE INDICATOR, 
PERFORM THE SEEK AND EXIT. 



YES -CLEAR 



MAPENT*6« 0, 1 1 • 
BKPT.XOitf 
MAPENT, 702, « 
ERRET-12 1 » f 
DORG •-* 

TR MAPENT,DI0P*99,U, 
DIQV»HAPENT,» 
ERR0R*72,,, 
3 

MAPENT t CNTM0+6, 1 1 
010V,DI0P*7,, 
MAPENTf 3 1 SRELOC 1 1 
MAPENT, SRELOC-3,, 
•♦**,IOSK, t 
IOSK,,, 

SK0*,I0XX,711, 

SEEK 
OORC «>-3 

BNF GTEST,DFILE*8, , 
TO 0I0P*11,CNTMD*1,, 
TFM SKO*,DIOP., 

8 SEEK 
OORG »-3 

CM MAPENT* 1 3 1 99999 * « 
HI »*2*,1200 
BNF DI0Z,HAPENT*13,, 
TR 0LDDA,RCALL,. 
8 OVKLAV 
OORG »-3 

POST 01 SK I/O HOUSEKEEPING SECTION 
CF DI0P*98,,, CLEAR POSSIBLE USERS ERROR TRAP I NO 

CHK2,0FILE*8,, BRANCH IF GET ENTRY. 

DI0P**7,0., KILL POSSIBLE RBC INDICATOR. 

I0XX,CNTND,6, EXIT IF NO REPOSITIONING REQUIRED. 

OR I VE, REPOS-OLDCV, , COMPUTE A SECTOR ADORES S PROM THE 



BRANCH IP GET ENTRY. 
SET MODE DIGIT. 
PERFORM THE SEEK. 



TEST IF RELOCATABLE LOADER REQUIRED. 

NO -TEST IF SPS SUPERVISOR REQUIRED. 
YES -READ AND EXECUTE CALLER. 



BNF 

TOM 
BNF 



TDM 
TF 
CF 
A 

TD 

e 

OORG 
BNF 
TF 
A 

BNF 



MAPENT*1»0,11, 
MAPENT4-3.DRIVE.il 
MAPENT* 2 

MAPENTO.DRIVE.il 
MAPENT, TEHP-5,, 
0I0Y*2* 

•-3 

CHK3*0IOP*7,, 
HIGM,HAPENT*13,» 
HIGH-2»MAPENT*8 
CHK*»SPSMLP f i 



REPOSITION CONSTANT. 



RESTORE THE LOGICAL DRIVE CODE DIGIT 



TEST IP HIGH INDICATOR TO BE UPDATED. 
YES. 

TEST IF SPS MAIN LINE PROGRAM. 



000 AO 
00892 
00044 


99 
1§ 


01999 


02066 

00400 


44 


01020 


02190 


00074 


Si 


OlttB 


01631 


00688 


21 


02124 


02141 


00900 


21 


02124 


02141 


00912 


IB 


02142 


-0932 


00924 


49 


01494 


00000 


00932 








004 32 


29 


02060 


02124 


00944 


14 


02124 


0000— 


00994 


16 


00447 


-0966 


00940 


16 


02118 


00702 


00900 


44 


00990 


00000 


00967 








00900 


91 


02116 


0208J 


01000 


45 


01066 


02118 


01012 


49 


00494 


00000 


01020 








01020 




02116 


0216J 


01032 


43 


01048 


01993 


01044 


21 


02121 


00425 


01094 


29 


02116 


00422 


01068 


♦4 


01 112 


00 5 54 


010B0 


M 


00994 


00000 


01092 


16 


02142 


-056N 


01104 


49 


01 494 


00000 


01112 








01112 


44 


01194 


0191* 


01124 


29 


01997 


02156 


01136 


16 


02142 


-1966 


011*8 


49 


01496 


00000 


01194 








01156 


14 


02131 


R9999 


01168 


46 


01192 


01200 


01180 


44 


01124 


02131 


01192 


31 


00441 


01603 


01204 


49 


00466 


00000 


01212 








01212 


33 


02084 


00000 


01224 


44 


01340 


0191* 


01236 


15 


02033 


00000 


01248 


44 


0056N 


02153 


01260 


11 


02154 


-1S9Q 


01272 


15 


02119 


0000- 


01264 


26 


02121 


0213M 


01296 






WWUOU 


01306 


21 


02121 


02 ISM 


01320 


15 


02116 


021** 


01332 


*9 


01092 


00000 


01340 








01340 


** 


01374 


01993 


01352 


26 


00434 


02131 


01364 


21 


00432 


02126 


01376 


44 


01406 


00*68 
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01*00 

01*10 
01*20 

01*30 CHK* 

01**0 

01*50 

01*60 

01*70 

01*80 

01*90 

01500 •••••« 
01510 • 
01520 • 
01530 SK01 
015*0 
01550 

01560 SEEK 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

016*0 

01650 SK02 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

017*0 

01750 SK03 

01760 

01770 

01780 

01790 

01600 •••••« 
01610 TT1 

01820 

01630 

016*0 

01650 

01660 

01870 

01660 



YES -GET ROUTINE TO HANOLE. 



TEST IF EXECUTION DESIRED. 
YES -SET UP THE EXIT. 



TR OLDDA, SUPRET,, 
B OVRLAY 
DORG »-3 

BNF X0**2*,CNT*D*1, , 
TF HALT*6« IQXX,, 
TFM IOXX .MAPENT* 16. 711 
BNR X 0**2*» MAPENT* 1* 
TFM I0XX f MAPENT*13 f 711 
B I0%*2^ 
OORG »-3 

SEEK ROUTINE -SEEKS WHEN NECESSARY, COMPUTES PHYSICAL 

DRIVE CODE CORRESPONDING TO USER SUPPLIEO DRIVE COOE, AND 
UPOATES CURRENT I/O CYLINOER POSITION INDICATOR. 

. INSERT SUPPLIEO DRIVE CODE. 



TEMP-5, MAPENT,, 

SK02 
-3 

TEMP-5, 0,10, 
TtMP,MAPENT*5 
TEMP-* 
TEMP, TEMP 
TEMP, TEMP 
TEMP,NAPENT*5 
SKO 1* MAPENT, , 
TEMP-5, TEMP-5, • 
TEMP-5, 1,10 
DRIVE, EQUIV,, 
DRIVE, TEMP-5 
MAPENT, DRIVE, 11, 
•♦32, MAPENT,, 
BKPT,SK02 
ERR0R*72,,, 
OORG »-3 

ORlVEtOLOCY-EOUIV, 
TEMP-*,,, 
TSNP-3, DRIVE, 11 
SK04, 1200,6, 
MAPENT, 701,, 
DRIVE, TEMP-3,6, 
SKO*, ,4, 
DORG *-* 

CONSTANTS AND OOA-S 
DC 2,16,, 



TD 
8 

DORG 

TFM 

TF 

CF 

A 

A 

A 

BD 

A 

AM 

TFM 

A 

TD 
80 
TFM 
B 



SF 

C 

81 

3* 

TF 

8 



DC 
L6 
DC 
N4 

DC 
J7 
DC 

L 7 
DC 
N7 

OC 
J3 
DC 
KB 



2,36, 
2,56 

2,17 

2,37 

2*5? 

2f26 



COMPUTE CYLINDER POR THIS CALL* 



TEST FOR SPECIFIED DRIVE COOE. 
NO -MUST BE COMPUTED. 

CONFUTE LOCATION OP PHYSICAL DRIVE COOE. 

REPLACE LOGICAL DRIVE CODE BY PHYSICAL. 
ERROR IF NO PHYSICAL DRIVE COOS. 

TELL THE OPERATOR A THING OR TWO. 

* GET OLD CYLINDER POSITION* 
COMPARE WITH OtSIREi CYLtNOfl R* 

TEST IP THE SEEK IS NECESSARY. 
YES -PERPORN THE SEW. 
UPDATE OLD CYLINDER POSITION 
RETURN TO CALLER. 



TABLE OP NON-DISK I/O HOE* ARB) BOTICE 

SPECIFIERS. 



01388 


n 


004*1 


01817 


01*00 


49 


00*69 


00000 


01*08 








01408 


** 


01236 


02156 


01420 


26 


00*62 


00565 


01432 


18 


00565 


-2130 


01444 


*5 


01236 


02132 


01454 


16 


00569 


-213J 


01448 


*9 


01236 


ooooo 


01476 








01476 


25 


021** 


02118 


01466 


49 


01604 


00000 


01496 








01496 


16 


02144 


000-0 


01908 


26 


02149 


02123 


01520 


33 


02145 


OOOOO 


01532 


21 


02149 


02149 


01944 


21 


02149 


02149 


01998 


21 


02149 


02123 


01966 


43 


01476 


02116 


01960 


21 


02144 


02144 


01992 


11 


02144 


000-1 


01604 


16 


02154 


-2102 


016&6 


21 


02154 


02144 


01426 


25 


02116 


021SM 


01640 


43 


01672 


02118 


01492 


16 


00467 


-1604 


01464 


49 


80696 


OOOOO 


01672 








01472 


It 


02194 


-0008 


01464 


92 


02149 


OOOOO 


01494 


24 


02144 


0215M 


01708 


46 


0214K 


01200 


817SO 


14 


82116 


00701 


01792 


16 


02I9N 


02146 


01744 


49 


0214ft 


OOOOO 


81791 








01792 




2 




01754 




2 




01794 




2 




01798 




2 




81740 




2 




017*2 




2 




01744 




2 




01744 




2 
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01990 




OC 


2*46 


01769 


2 






MB 








01900 




OC 


2» 19 


01770 


2 






J9 








01910 




OC 


2.29 


01772 


2 






K9 








01920 




DC 


2*49 


01774 


2 






M9 








019)0 


MODA 


OS 


Of • ♦! 


0177S 


0 


01940 




DSA 


0SA19 


01779 


5 










01779 


J9794 


019)0 




OC 


3.3 


01782 


3 






-03 








_ 




OC 


6,0* 


01788 


6 






-0000' 






01970 


ECALL 


OS 


0,»*1 


01789 


0 


01980 




OSA 


0SA10 


01793 


5 










01793 


J9749 


01990 




OC 


3.12 


01796 


3 






-12 








02000 




OSA 


ERROR 


01901 


5 










01801 


-0624 


02010 




OSC 
t 




01802 


1 


02020 


RCALL 


OS 


0,»M 


01803 


0 


02030 




OSA 


0SA15 


01807 


5 










01807 


J9783 


02040 




OSC 


1.0 


01808 


1 


020)0 




0 

OC 


2,3 


01810 


2 


02060 




-3 
DC 


6.0* 


01616 


6 






-0000* 






02070 


SUPRE T 


OS 


0,»M 


01817 


0 


02080 




OSA 


0SA17 


01821 


5 










01821 


J9789 


02090 




OC 


3,2 


01624 


3 






-02 








02100 




OC 


6,0* 


01830 


6 






-0000* 






02110 


MAPSCT 


OSC 


1,1 


01831 


1 


02120 




1 

DSA 


4800 


01636 


5 










01836 


4800 


02130 




OSC 


3*1 


01837 


3 






001 








02140 




DC 


6,0* 


01845 


6 






-0000 • 






02150 




CONTINUATION OF ENTRY SECTION 






02160 


XOi 


TF 


• ♦23,I0XX,U, MOVE FILE OESCRIPTOR TO CNTWO. 


01646 26 


01869 
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02170 




TR 


CNTHO.XX 




01858 


31 


02155 


00000 


02180 




AN 


I0XX.1,, 


COMPUTE RETURN ADDRESS. 


01870 


11 


00565 


-0001 


02190 




BNF 


DIO,CNTWO*S.» 


BRANCH IF DISK 1/0. 


01882 


44 


00616 


02160 


02200 




A 


0FILE*U*CNTWD*6*» 


NO -8UIL0 NON-DISK 1/0 INSTRUCTION* 


01894 


21 


01917 


02161 


02210 


OFILE 


TF 


I0P+10,XX 




01906 


26 


01940 


00000 


02220 




TO 


I0P*l.I0P*10 




01918 


25 


01931 


01940 


022 30 




I/O SECTION 












02240 


IOP 


30 


CNTW0+4.XX.06. 


CONSTRUCTED NON-DISK I/O INSTRUCTION. 


01930 


LO 


02I5R 


00000 


02250 




81 


DIOP+60,1900*. 


TEST FOR ANY I/O ERROR. 


01942 


46 


02046 


01900 


02260 




TFN 


BKPT.X03*. 


PUNCH THE TINE CLOCK. 


01954 


16 


00467 


-0986 


02270 




BNR 


IOXX, CNTWD+4, 0611. 


NO -TEST FOR AN INITIAL RECORD MARK. 


01966 


MS 


0056N 


0215R 


02280 




B 


ERROR + 72 « , , 


YES -EXECUTE CONTROL CARO TRAP ROUTINE. 


01978 


49 


00696 


00000 


02290 




OORG 


•-3 




01986 








02300 


OIOP 


30 


MAPENT, 700,010. 


CONSTRUCTED DISK I/O INSTRUCTION. 


01986 


LO 


02118 


007-0 


02310 




BNF 


•♦36, •♦35,, 


IF INDICATED, 00 AN RBC. 


01998 


44 


02034 


02033 


02320 




S 


• «-23,DI0P*ll 




02010 


22 


02033 


01997 


02330 




36 


MAPENT, 700, 10 




02022 


36 


02116 


007-0 


02340 




BNI 


X04.1900*. 


PROCEEO IF NO ERROR. 


02034 


47 


01212 


01900 


02350 




TFN 


BKPT.X04* . 


ERROR -PUNCH THE TINE CLOCK. 


02046 


14 


00467 


-1212 


02360 




BNF 


ERROR, •♦26,, 


BRANCH TO ERROR SCANNER OR USERS 


02056 


44 


00624 


02084 


02370 




CF 


•♦14, XX,, 


ERROR ROUTINE. 


02070 


33 


02084 


00000 


02390 




B 


XX 




02082 


49 


00000 


00000 


02390 




OORG 


2102 




02102 








02400 


•••••• 


DRIVE EQUIVALENCE AN! 


0 POSITION TABLES 










02410 


EQUIV 


OS 


0,**l 




02102 




0 




02420 




OC 


2,1 




02103 




2 




02430 




-1 

OC 


2*0 




02105 




2 




02440 




-0 
OC 


2,0 




02107 




2 




02450 




-0 
DC 


2*0 




02109 




2 




02460 OLDCV 


-0 
DS 


0*»*1 




02110 




0 




02470 




DC 


2*0 




02111 




2 




02480 




-0 
OC 


2.0 




02113 




2 




02490 




-0 
OC 


2*0 




02115 




2 




02500 




-0 
OC 


2*0 




02117 




2 




02510 




SYMBOL DEFINITIONS AND WORKING STORAGE 










02520 


MAPENT 


DSC 


20,0,, 


STORAGE FOR WORKING 0DA. 


02119 




20 








00000000000000000000 












02530 


SK04 


OC 


5,0** 


SEEK ROUTINE RETURN ADDRESS VECTOR. 


02142 




5 








-0000 












02540 


TEMP 


OC 


7*0*. 


SCRATCH FIELD FOR SEEK ROUTINE. 


02149 




7 








-000000 












02550 


DRIVE 


OC 


5,0*. 


VECTOR TO NODULE TABLES. 


02154 




3 








-0000 












02560 


CNTWO 


OSC 


13,0,, 


STORAGE FOR CALLING SEQUENCE RECORD. 


02155 




13 








0000000000000 












02570 


XX 


DS 


0*0, , 


INDICATES USED FIELD OR UNDEFINED SYMBOL 


00000 




0 




02580 


IOXX 


DS 


O.IQSKMIm 


CALL AND RETURN VECTOR. 


00965 




0 




02590 


•KPT 


OS 


O.HALUU,, 


INDIRECT RETURN BRANCH ADDRESS 


00467 




0 
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02400 
02410 
02420 

02*40 
02*90 
024*0 

02*70 

024*0 
02*90 
02700 
027IO 
02720 
02730 
02740 
02750 
02760 
02770 
02740 
02710 
02800 
U2810 
02820 
OS* Hi 
02840 
028SU 
02860 
028 70 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 

02970 



SVSOfc* 

SVSCAL 
NONIX 

%nm.p 

Ml 
4M2 

SUPINT 
COMM 
NCQMM 
MCC8UF 
MCVL 
OSAOO 
DSA01 
0SA02 
OSAO* 
DSA06 
0SA07 
0SA08 
0SA09 
OSAIO 
0SA11 
0SA12 
DSA13 
0SAt« 
0SA15 
0SA16 
DSA17 
0SA18 
DSA19 
0SA20 
DSA21 
DSA39 
0SA40 
0SA50 
0SA51 



02990 

03000 ••••• 
03010 ••••• 

03020 

03030 ••••• 
03040 ••• 
03050 

03060 TEST 
03070 

03080 NOfcRR 

03090 

03100 



OS 

OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
DS 
OS 
OS 
OS 
OS 
DS 
OS 
DS 
DS 
OS 
DS 
OS 
OS 
OS 
DS 
DS 
OS 
DS 

OORG 
OSC 

I 

DSA 



0»2402», 

@ 9 0¥«LAV*7»» 

@»HAl?*lt» 

0.QV4UV.. 

0*2200,, 

0.2205,* 

0,2934,, 

0,SYS0RG#400f » 

0, COMMAS©,, 

0, 13000, , 

0,98,, 

0,200»MCVL», 

0. OSAOO* 35,, 

0,OSA01*lt» 

0,OSA02*3,» 

0,OSA04*l e , 

G,DSA06*16», 

0»DSAQ7*3,, 

0,DSA04*45,, 

0,DSA09t5,, 

0,DSA10*12,, 

0*0SAU*6», 

0,DSA12*5,» 

0,DSA13*5,, 

0,0SA14*6,, 

0,DSA15O,, 

0,DSAl6O», 

0,DSA17*2,, 

0,DSA18*3,, 

0.DSA19O,. 

0.0SA01-5,, 

0,DSA08*4., 

0.DSA08+84,, 

0,17024,, 

O.DSAOO,, 

19982, 

1,1 

DSA04 



OBJECT MftOOMAN S7AN0AR0 ORIGIN, 

SVSTfM PRQOftAM COMMUNICATION 6t*IT. 

NON-IIICUtl mo. Sff if 4*9. IfC. 

m SUPfRVlSOA PU6 WHEN MLP LOAO RIOUfST 

SNOiftiet victors ?o sit record mams 

FOR ?MI SPS SUP. AFTER NLP LOAO. 
ENTRY TO TMI SPS SUPIRVISO*. 

location of conn sector in MOM i Ten. 

-^MONITOR IMOS. IN THIS SIC TOR 
MOM I TOM CMTL CAtO Ml AO 4UFPER. 
MOM I TOM CYLINDER 
FIMST SECTOR IM MOM! TOM CYLINDER 
LOADER RETURN ANALYZER STAGE 2 
ARITHMETIC TABLES. 
COMMON AM© OVEMLAY READ ROUTINE 
MAIN IQRT 

RELOCATABLE LOADER CORE SAVE AREA 
MONITOR 

NAMED LOAO ROUTINE STAGE 2 
ERROR ROUTINE STAGE 0 
STAGE 1 
STAGE 2 
STAGE 3 
STAGE 4 



ERROR ROUTINE 
ERROR ROUTINE 
ERROR ROUTINE 
ERROR ROUTINE 
SPS SUP AND LOADER CALLER STAGE 1 
LOADER CALLER STAGE 2 
SPS SUPERVISOR RETURN ANALVZER 
LOADER RETURN ANALYZER STAGE 1 
MONITOR AND OUP SUP. LOAOER SUBR. 
NAMED LOAO ROUTINE STAGE 1 
ERROR ROUTINE STAGE 0 PLUS 
SYSTEM COMMUNICATION SECTOR. 
SVSTEM OOA SECTOR. 
SPS SUPERVISOR 
RELOCATABLE LOAOER 
CONTROL TO WRITE ON DISK. 



OC 3,20 
-20 

DC 6,402» 
-0402* 

IQRT SUBROUTINES WHICH NORMALLY RESIOE ON OISK FOLLOW 

OVERLAY ERROR ROUTINE STAGE 0 
SAVE ERROR COUNT ROUTINE 
OORG ERROR 
BNF N0ERR,IN0S,7, 
AM COUNT, 01, 10,, 
AM TESI>U,02,10 f , 
M TEST+18, 02,10., 
CM TEST + U.IN0S»12... 



01402 


0 


00471 


0 


00417 


0 


00444 


0 


02200 


0 


02201 


0 


QitS* 


0 


02402 


0 


02492 


0 


12000 


0 


00090 


0 


19400 


0 


19*39 


0 


1963* 


0 


19419 


0 


19440 


0 


19454 ' 


0 


19459 


0 


197*4 


0 


19749 


0 


19741 


0 


197*7 


0 


19772 


0 


19717 


0 


19783 


0 


197B* 


0 


19749 


0 


19791 


0 


19794 


0 


19797 


0 


19630 


0 


19663 


0 


19743 


0 


17024 


0 


19600 


0 


199*2 




19942 


1 


19947 


5 


19987 


J9639 


19990 


3 


19996 


6 



TEST 1N0 TABLE 

UP THE ERROR COUNT 

MOOIFV ERROR TEST 

MODIFY ERROR COUNT LOCATION 

TEST LAST INDICATOR 



00624 
00624 44 
00*3* 11 
00*44 11 
00**0 
00*72 



U 
14 



00444 -0610 

01125 000- I 

00435 000-2 

00442 000-2 

00635 -0622 
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03110 




BNH TEST 


006B4 


47 


00624 


01100 


03120 


•* 


WRITE ERROR COUNT TO OISK 










03130 




TP I8MWRT, IBMMQOf t , SET CORRECT MODULE 


00696 


25 


01024 


00440 


03140 


• NO ERROR COUNT TO OISK IF FULL TRACK 










03160 




BNF MRTCT*12,0LD0A*14,, WRITE ERROR COUNT NO FLAG 


00704 


44 


00740 


00455 


03170 




B GOGO 


00720 


49 


00870 


00000 


03180 




OORG »-3 


00724 






03240 


WRTCT 


34 IBMWRT,701,,, SEEK THE ERROR COUNT 


00724 


34 


01024 


00701 


03250 




38 IBMWRT,702.., WRITE THE ERROR COUNT 


00740 


34 


01021 


00702 


03260 




BI BIGTRB, 1900 


00752 


46 


00772 


01900 


03270 




8 GOGO 


00744 


49 


00470 


00000 


03240 




OORG »-3 


00772 








03290 


BIGTRB 


RCTV 


00772 


34 


00000 


00102 


03300 




WATY NES1,,, OISK WRITE ERROR MESSAGE 


007*4 


39 


00417 


00100 


03310 




H 


00794 


44 


00000 


00000 


03320 




B WRTCT 


00*04 


49 


00724 


00000 


03330 




OORG *-4 


00415 








03340 


MES1 


OAC 27, BAD DISK WRITE.RESET START* 


00417 




27 


X 2 



4 



BAO DISK WRITE.RESET START * 



03350 


• •• 


MESSAGE IF ENTERING 


IORT ERROR 










03360 


GOGO 


CM 


BKPT.XOl,, 


TEST IF CALLEO AT ENTRY 


00B70 


14 


00467 


-1446 


03370 




BE 


MESSG 




. 004*2 


44 


00940 


01200 


03380 




CM 


BKPT,X0l+36 




00194 


14 


00447 


-1682 


03390 




BE 


MESSG 




00904 


44 


00960 


01200 


03400 




TR 


OLDDA.JQFF,, 


NO-CALL IORT ERROR 


00918 


31 


00441 


01042 


03410 




8 


OV RLAVH2,,, 


ELIMINATE SEEK 


00930 


49 


00440 


00000 


03420 




OORG 


•-4 




00937 








03430 


MES2 


OAC 


11, ENT ERROR • 




00939 




11 


X 2 






ENT ERROR • 












03440 


MESSG 


RCTV 






00940 


34 


00000 


00102 


03450 




WATY 


MES2, , , 


10 IN MESSAGE 


00972 


39 


00939 


00100 


03460 




WNTV 


INOS-l,,, 


10 INDICATORS 


00944 


31 


00609 


00100 


03470 




RCTV 






00994 


94 


00000 


00102 


03480 




BI 


•♦12,700 




01004 


44 


01020 


00700 


03490 




B 


EEXIT*12 




01020 


49 


01442 


00000 


03500 




DORG 


•-3 




01024 








03510 


IBMWRT 


OC 


1,1 




01024 




1 




03520 




J 

DSA 


0SA10*S 




01033 




5 


X 1 












01033 




J9754 




03530 




DC 


3.1 




01094 




3 








-01 














03540 




OS A 


ERROR+500 




01041 




5 


X 1 












01041 




-1124 




03530 


JOFF 


OS 


Q,»*l 




01042 




0 




01360 




OSA 


0SA21 




01044 




5 


X 1 












01044 




J4430 




03570 




OC 


3,5 




oio*f 




9 








-05 














0 3580 




OSA 


ERROR 




01054 




9 


X 1 












01054 




-0424 




03590 




OSC 


Is 9 t ■ 




OlOfi 




1 
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0)410 • ROUTINE TO TYPE OUT A NO RESTORE THE ERROR COUNTERS TO 2IR0 



03620 




DORG 


ERR0R*300 




01126 








0)410 


COUNT 


OC 
-0 


2,00,,, 04 




01121 








0)440 




OC 
-0 


2,00,,, 07 




01127 








0)450 




OC 
-0 


2,00,,, 14 




01129 








0)440 




OC 
-0 


2,00,,, 17 




01131 








0)470 




OC 

-0 


2,00,,, 36 




0113) 








0)440 




DC 
-0 


2,00,,, )7 




011)3 








01490 




DC 
-0* 


3,00*,,, 38 




01136 








0)700 




DORG 


ERROR+524 




01 146 








0)710 




RCTY 


, , • 


CALL IN 8Y ENTERING 


01148 


)4 


00000 


00102 


0)720 




WNTY 


46,,, 


340003200701 


01140 


36 


00046 


00100 


0)7)0 




TR 


66, 120, , 


340003200702 


01172 


31 


00046 


00120 


03760 




38 


32, 702, , 


4900070011975400100046 


01164 


36 


00032 


00702 


0)750 




H 






01194 


46 


00000 


00000 


03760 




DORG 


•-9, 


NOW WASN-T THAT NICE 


01198 








0)770 




OC 


2,0 . 




01199 












-0 














03710 




DC 
-0 


2,0 




01201 








03790 




DC 

-0 


2,0 




0120) 








03800 




DC 

-0 


2,0 




01205 








03610 




DC 

-0 


2,0 




01207 








03620 




DC 

-0 


2,0 




01209 








03630 




DC 


3,0* 




01212 








03640 




THIS ROUTINE REMAINS 


IN CORE WITH ALL ERROR ROUTINES 










03630 




DORG 


ERR0R*600 




01224 








03860 


BBUFF 


00 






01224 


00 


00000 


00000 


03870 




DSC 


8,0* 




012)6 




B 








0000000* 












03860 


SIOXX 


DSC 


6,0* 




01244 




6 








00000* 












03890 




TFM 


•♦23,INDS,, 


ROUTINE TO DETERMINE ERROR INOS. 


01250 


16 


01273 


-0610 


03900 


CHECK 


TF 


•♦33, XX, 7 




01262 


26 


01295 


-0000 


03910 




CF 


•-1..6 




01276 


33 


012 7L 


00000 


03920 




BNI 


•♦36, XX 




01266 


47 


01322 


00000 


03930 




SF 


CHECK+11,,6 




01296 


32 


0127L 


00000 


03940 




SF 


CHECK+8 




01)10 


32 


01270 


00000 


03930 




AM 


CHECK+11,2,10 




01)22 


11 


01273 


000*2 


03960 


CHEK1 


CM 


CHECK + U,IN0S*12,6 




01334 


14 


01273 


0-622 


03970 




BNI 


CHECK, 1300 




01346 




01262 


01300 


03980 




BNF 


0TEST»CHECK*8», 


ON OISK ERROR, DISTINGUISH IF OVERFLOW. 


01358 


44 


00760 


01270 


03990 


CHEK2 


BO 


RETRY, STEPS, , 


IF NOT, GO INTO RETRY LOOP. 


01370 


43 


01036 


01200 


06000 


HOLLER 


RCTY 


, , » 


TYPE ERROR MESSAGE. 


01382 


34 


00000 


00102 
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06010 




WATY 


EMSG1 




01394 


3*4 


01779 


00100 


04020 




SPTV 






01406 


34 


00000 


00101 


06030 


HOI 


WNTY 


SIOXX 




01418 


36 


01244 


00100 


06040 




SPTV 






01430 


34 


00000 


00101 


06050 




NOP 


H06 




01442 


41 


01478 


00000 


06060 


HO) 


WNTY 


INOS-l 




01454 


38 


00609 


00100 


06070 




SPTV 






01466 


34 


00000 


00101 


06080 


H04 


H 


ERROR+8 




01478 


48 


00632 


00000 


06090 




TFM 


81-5,81,711, 


INITIALIZE INDIRECT BRANCH. 


01490 


16 


01568 


-157L 


06100 




RNTY 


BBUFF,, , 


READ THE OPERATORS ENTRV. 


01502 


36 


01224 


00100 


04110 




SPTV 






01514 


34 


00000 


00101 


04120 




BI 


•-24,400, , 


IF SSW4, ALLOW REENTRY. 


01526 


46 


01502 


00400 


04130 




SF 


BBUFF, , * 


COMPUTE BRANCH ADDRESS. 


01538 


32 


01224 


00000 


04140 




S 


Bl-5,8BUFF*l 




01550 


22 


01568 


01225 


04150 




B 


BI, ,6, , 


PERFORM INDIRECT BRANCH. 


01562 


49 


0157L 


00000 


04160 




OORG 


•-4 




01569 








04170 


81 


DSA 


EEXIT 




01573 




5 


X I 












01573 




-1630 




04180 




OSA 


RETRY 




01578 




5 


X 1 












01578 




-1036 




04190 




OSA 


APHASE 




01583 




5 


X 1 












01583 




-1606 




04200 




DSA 


AJUB 




01588 




5 


X 1 












01588 




-1594 




04210 




DSA 


RETN 




01593 




5 


X 1 












01593 




-1674 




04220 


AJOB 


TOM 


•♦23,0,, 


SET MONITOR RETURN INDICATOR. 


01596 


15 


01617 


00000 


04230 


APHASE 


TOM 


SYSCAL ,4 




01606 


15 


00475 


00004 


04240 




TFM 


BKPT.MONCAL 




01618 


16 


00467 


-0794 


04250 


EEXIT 


NOP 


MAPENT, SAVOOA, , 


RESTORE WORKING OOA IF OISK I/O ERROR. 


01630 


41 


02118 


01149 


06260 




TR 


OLOOA, ERRB, , 


RESTORE MAIN ROUTINE AND RETURN. 


01642 


31 


00441 


01809 


06270 




TFM 


0LDCVH,MCYL,10, 


RESTORE MONITOR MODULE CYLINDER IND. 


01454 


14 


02111 


000R6 


06280 




B 


QVRLAVM2 




01444 


49 


00480 


00000 


06290 




DORG 


•-3 




01474 








06300 


RETN 


RNTY 


BBUFF , , , 


REAO OPERATORS ENTRY. 


01676 


36 


01224 


00100 


06)10 




SPTV 






01686 


34 


00000 


00101 


06)20 




BI 


•-24,400, , 


ALLOW REENTRY IF SSW4. 


01696 


44 


01674 


00400 


04330 




SF 


BBUFF,,, 


INITIALIZE FOR RETURN. 


01710 


32 


01224 


00000 


06)60 




TF 


6KPT,BBUFF^4 




01722 


24 


00467 


01228 


06)50 




TDM 


DIOP^47,0 




01734 


15 


02033 


00000 


06)60 




CF 


IOSK 




01744 


33 


00354 


00000 


06)70 




CF 


DIOP+98 




01758 


33 


02064 


00000 


06)80 




8 


EEXIT 




01770 


49 


01630 


00000 


06)90 




OORG 


•-3 




01778 








06400 


ENSG1 


OAC 


9, OSK ERR 




01779 




9 


X 2 






OSK ERR • 












04410 


SIOP 


34 


MAPENT, 702,0 




01784 


L6 


02116 


00702 


04420 




OSC 

• 






01806 




1 




044)0 


ERR8 


OS 


©,•♦1 




01 809 




0 




04640 




OSA 


0SA04+1 




0181) 




3 


X 1 
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04470 




osc 
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04400 




DOItC 


19982, 


04490 




OSC 


lrl 


04900 




1 

DSA 


0SA10 


04910 




ec 


3.12 






»12 


ERROR 


04920 




OSA 


04910 




OSC 




04540 




OVERLAY ERROR ROUT I M 


04590 




OORG 


ERROR 


04560 


E0030 


TF 


SI0XX*4,I0XX,« 


04570 




CM 


BVDT . «nl _ _ 


04590 






cuu fuii.ni 1 1 


04590 




ONI 


CUU^Uf ItUU 


04600 




BNR 


Fno<m.rMtun»4. i i . 


04610 




TFM 


DV DT. f flWV. Tl 1 . 


04620 




TR 


QLODAt I9 f t 


04630 




B 


QVRLAY*12,DSA14,, 


04640 




OC 


3.6 






-06 




04650 




OSA 


ERROR 


04660 




OSC 
i 


!.• 


04670 


EQ040 


CM 


BKPT,X04,« 


04680 




BNI 


E 0050. 1200 


04690 




TFM 


BKPT,I0P*24 


04700 




TR 


0L0DA.»*19., 


04710 




H 


0VRLAV*12,DSA12,. 


04720 




OC 


3.5 






-05 




04730 




OSA 


ERROR 


04740 




OSC 


it* 


04750 


E0050 


RCTY 




04760 




WATY 


ENSG21 , , . 


04770 




B 


APHASE. , • 


04780 




OORG 


•-3 


04790 


E0070 


Bl 


E0100.1200,, 


04800 




CM 


4KPT.X04,, 



CONTROL 70 MR1 f E ON DISK. 



E STAGE 0 PLUS 

MOVE RETURN ADDRESS FOR TYPE -OUT. 
THREE POSSIBILITIES FOR THIS. 
BRANCH IF DISK I/O, 

TEST IF CNTL CARO TRAP. 
YES -SET PROPER RETURN POINT. 
LOAD AND EXECUTE ERROR ROUTINE 
STAGE 4. 



TEST IF ERROR AT NON-DISK I/O TIME. 



LOAD AND EXECUTE ERROR ROUTINE 
STAGE 2. 



IMPOSSIBLE ERROR -MACHINE FAILURE OR 

INCORRECT IORT CALLING SEQUENCE. 
TERMINATE THE CURRENT PHASE. 

TEST IF AT MAP SECTOR READ TINE. 
NO -TEST IF AT DISK I/O TIME. 



01913 




49941 




01919 




1 








9 




01921 




-0402 




01922 




* 
i 












19992 




1 




19997 






X 1 


19997 




49749 




19990 








19999 




5 


X 1 


19995 




-0624 




19996 




1 




00624 








00624 


26 


01248 


00565 


00636 


14 


00467 


-0988 


00649 


44 


00932 


02160 


00960 


4? 


00730 


01200 


00672 


45 


00800 


0215R 


00694 


16 


0046? 


— 096N 


00696 


31 


00441 


00715 


00708 


49 


00480 


19777 


00722 




3 




00727 




5 


X i 


00727 




-0624 




00728 




1 




00730 


14 


00467 


-1212 


00742 


47 


00800 


01200 




16 


00467 


-1954 


00766 


31 


00441 


00785 


00778 


49 


00480 


19767 


00792 




3 




00797 






X 1 


0079? 




-0624 




00798 




1 




00800 


34 


00000 


00102 


00812 


39 


01077 


00100 


00824 


49 


01606 


00000 


00832 








00832 


46 


01044 


01200 


00844 


14 


00467 


-1212 
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04810 




BNI 


E0090.1200 




00856 


4? 


00950 


01200 


04820 




TFM 


H04*6,ERR0R+20t. 


YES -INITIALIZE FOR DISK ERROR. 


00868 


16 


01484 


-0644 


04830 




TD 


DIOP»l2.SIOP*12 




00880 


25 


01998 


01608* 


04840 




TR 


SIOP.OIOP 




00892 


31 


01796 


01986 


04850 




TOM 


UIQP*12,4 




00904 


15 


01998 


00004 


04860 


E0080 


TR 


0LDDA,»*19,, 


LOAD AND EXECUTE ERROR ROUTINE 


00916 


31 


00441 


00935 


04870 




B 


0VRLAV*12,0SAU, , 


STAGE 1. 


00928 


49 


00480 


19761 


04880 




DC 


3.6 




00942 




3 








-06 














04890 




DSA 


ERROR 




00947 




5 


X I 












00947 




-0624 




04900 




OSC 


I . * 




00948 




1 




04910 


E0090 


CM 


BKPT, ABOl . . 


TEST IF ILLEGAL NAME LOAD REQUEST. 


00950 


14 


00467 


J0926 


04920 




BI 


£0095,1200 




00962 


46 


01010 


01200 


04930 




CM 


BKPT, SK02 s e 


NO -TEST IF ILLEGAL DRIVE COOE. 


00974 


14 


00467 


-1604 


04940 




BNI 


E0050.1200 




00986 


4? 


00900 


01200 


04950 




TFM 


H04*6,R0VC0,, 


VES -SET UP FOR ERROR PROCEDURE. 


00996 


16 


01484 


-0996 


04960 


E0095 


TR 


0LDDA,»*19., 


LOAD AND EXECUTE ERROR ROUTINE 


01010 


31 


00441 


01029 


04970 




B 


OVRLAVM2.DSA13,, 


STAGE 3. 


01022 


49 


00480 


19772 


04980 




OC 


3,5 




01036 




3 








-05 














04990 




OSA 


ERROR 




01041 




5 


X 1 












01041 




-0624 




05000 




OSC 


I. 1 




01042 




1 




05010 


EOIOO 


BNR 


E0080,MAPENT„ 


TEST IF ENPTV MAP ENTRY CALL. 


01044 


45 


00916 


02116 


05020 




TFM 


M04*6,MERR*. 


VES -SET UP CALL TO THE ERROR ROUTINE. 01096 


16 


01464 


-0872 


05030 




8 


E009S 




01048 


49 


01010 


00000 


05040 




OORG 


•-3 




01076 








05050 EMSG21 


DAC 


8, IMP ERRS 




0107? 




8 


X 2 






IMP ERR* 












05060 




OORG 


19982. 


CONTROL TO WRITE ON DISK. 


19962 








05070 




OSC 


1.1 




19992 




1 




05080 




1 

OSA 


DSA21 




19987 




5 


X 1 












1999? 




J9430 




05090 




DC 


3,5 




19990 




3 








-05 














05100 




DSA 


ERROR 




19999 




5 


* 1 












19999 




-0424 




05110 




OSC 






19996 




1 




05120 




OVERLAY ERROR ROUTINE STAGE 1 










05130 




OORG 


ERROR 




00624 








05140 




B 


H0446..6 


BRANCH AS PRESET. 


00624 


49 


0149N 


00000 


05190 




OORG 


•-3 




00632 






09160 




TOM 


NS0P»13,9, e 


DISABLE ANY READ CHECK. 


00632 


15 


01073 


00009 


091 70 




TDM 


EEXI7.3,, 


INI TEAL I If ERROR RETURN. 


00644 


11 


01610 


00003 


09180 




TFM 


EEX!T«42tOVRLAY 




00656 


16 


01672 


-0446 


05190 




TR 


NlOPfSiOP?, 


MOVE THE 1/0 INSTRUCTION. 


00668 


31 


01060 


01796 


09200 




TDM 


N!0PU2,4, ( 


CLEAR TH£ RECORD NARK. 


00490 


11 


01072 


00004 
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09210 
09220 
05210 
0*240 
09290 
09240 
052T0 
09240 
09240 
09900 
09910 
09920 
09930 
09940 
09941 
09390 
09940 
05970 
09340 
09340 
09400 
09410 
04420 
05490 
09440 
05450 
05440 
05470 
05480 
05490 
05500 
05510 
05520 
05530 
05540 
05590 
09940 
05570 
05540 
05590 
05600 
05610 
05620 
05630 

05640 

05650 

C5660 

05670 

05680 
05690 



TR S AVOOA t MAPENT t • 
WTEST BNF •♦20,INDS,7, 
• RETRY, vt 
OORC 

AM WTEST*>11,2 
CM WTEST*ll,INDSt>l2 
8MI WTEST, 1)00 
OTEST BNI •♦24,3800 
INOS+12 
EEXIT,INDS*12 
CYLOVF TFM NEXT, 200,, 

•♦2)»HAPENT*3 
•♦24, TEETH 
NEXT, 100 
NE WOO A* I 3,0 
NEXT-2, MAPENT* 3 
NEW00A*9,NEXT,, 
NEXT,HAPENT*5,, 
NEW00A*11,NEXT 
NEXT ,MAPENT*9 » « 
RETRY, NEXT, , 
DRIVE, 99, 610, , 
00VFL,1200 
NEXT, , , 
0,» 

NEXT-2 

NENDO A+8, NEXT 
NENDDA*9,,, 
NEWDDA* I 3, MAPENT* 1 3 

DRIVE, 1,610, UFOATE CYLINDER POSITION INDICATOR 

MAPENT+l, NEMDOA+1 , , MOVE NEW OOA TO WORKING SLOT. 
CMEK2*ll,CHEK2*ll,U,RE0UCE RETRY COUNT. 



RETRY 
NIOP 



8NI 
SF 
BNF 
TFM 
TO 
80 
TFM 
TFM 
A 

TF 

S 

TF 

S 

BNF 

CM 
Bl 
CF 
OS 
SF 
TF 
SF 
A 

AM 

TR 
TD 
34 
30 
BNF 
TD 
36 
BNI 
B 



SAVE THE WORKING DOA. 
DETERMINE IF NON-CYLINDER OVERFLOW ERROR* 
NO. 



YES -COMPUTE AOORESS OP TOP OF NEXT CYL. 



COMPUTE NUMBER OF SECTORS PROCESSED. 

COMPUTE NUMBER OF SECTORS VET TO PROCESS. 
MUST RETRY IF 0 OR LESS. 
TEST IF ORIVE OVERFLOW. 

NO -SET NEW SECTOR COUNT. 



COMPUTE NEW CORE AOORESS. 



MAPENT,701, 



RESEER. 

I/O INSTRUCTION GETS MOVED HERE. 
TEST IF ALSO READ BACK CHECK. 
YES -GET MODE DIGIT. 



SEE IF ANY TROUBLE THIS TIME. 



DOVFL 

EMSG2 
NEWODA 
SAVODA 
STEPS 
TEETH 



•+36,DI0P*47, , 
•♦23,DIOP*47 M 
MAPENT,700 
EEXIT.1900,, 
CHECK-12 
OORG »-3 

TF EMSG1H2,EMSG2»4,, INITIALIZE FOR DRIVE OVERFLOW TYPE-OUT. 

B HOLLER 

OORG *-3 

DAC 3,0FL, 

OFL 

OSC 15,0* 
00000000000000* 
OSC 20,0 

00000000000000000000 

OSC 10, 1234567*90, 1200, UP, UP, UP ANO — WHOOPS. 

1234567890 

DAC 5, 1211 

♦ ♦♦♦♦ 

OORG 19982,, CONTROL TO WRITE ON OISK 

OSC 1,1 

I 





j| 


01 169 


02118 




44 


00724 


•0410 


00716 


49 


01034 


00000 


00724 










1 1 


00715 


-0002 


00734 


14 


00715 


-0622 


0074B 


47 


00704 


0 1 300 




47 


00784 


03800 


00772 


32 


00622 


00000 


00784 


44 


01630 


00622 


00796 


16 


00963 


-0200 


00808 


2% 


00831 


02121 


00820 


4) 


00844 


01211 


00832 


14 


00963 


-0100 


00844 


16 


01 167 


-0000 


00896 


2| 


00961 


02121 


00868 


24 


01 199 


00963 


00880 


22 


00969 


02123 


00892 


26 


01 169 


00963 




22 


00963 


02126 


00*116 




01036 


00963 


00928 


14 


0219M 


0OOR9 


00940 


44 


01 128 


01200 


00992 


33 


00963 


00000 


00943 




o 




00964 


32 


00961 


00000 


00974 


24 


01 162 


00963 


????? 


32 


01 163 


OOOOO 




2| 


01 167 


021 31 


01012 


1 1 


0219M 


000—1 


01024 




02119 


01159 


01034 


«» 


01391 


01 38 J 




)4 


02 118 


00701 


ftl ftJLft 


)0 


onnoo 

UUUVU 


00000 


oi nw 




01 108 


02033 


01094 


»* 




02033 




36 


02 118 


00700 


01108 


47 


01630 


01900 


01120 


49 


01250 


00000 


01128 








01128 


26 


01791 


01153 


01140 


49 


01382 


00000 


01148 








01149 




3 


X 2 


01154 




15 




01169 




20 




01200 




10 




01211 




5 


X 2 


19982 








19982 




1 





286 

bVHHHbMHHb^ 

1620/1311 SUPERVISOR AND 10RT PACE 14 



05700 




DSA 


OS All 




19987 




5 


X 1 












19987 




J9761 




05710 




OC 


3,6 




19990 




) 








-06 














05720 




OSA 


ERROR 




19995 




5 


X 1 












19995 




-0624 




05730 




DSC 


I,* 




19996 




1 




05740 




OVERLAY ERROR ROUT I 


NE STAGE 2 










05750 




OORG 


ERROR 




00624 








05760 




TFM 


CHEK2-6,EEXIT*12, 


, INITIALIZE ERROR CHECK EXIT. 


00624 


16 


01364 


-1642 


05770 




TOM 


CHEK2+1.1 




00636 


15 


01371 


00001 


05780 




TFM 


81*5, 10PA,, 


SET RETRY ADDRESS. 


00648 


16 


01578 


-1004 


05790 




TD 


IOP*12,SIOP*12,, 


MOVE THE I/O INSTRUCTION. 


00660 


25 


01942 


01808 


05800 




TR 


SI0P,10P 




00672 


31 


01796 


01930 


05810 




TR 


IOPA, 10P 




00664 


)1 


01004 


01930 


05820 




TDM 


I0P*12,4,, 


CLEAR THE RECORO MARKS. 


00696 


15 


01942 


00004 


05830 




TDM 


I0PAM2.4 




00708 


15 


01016 


00004 


05840 




SF 


I0P*9,,, 


INITIALIZE FOR OEVICE COMPARISON 


00720 


32 


01939 


00000 


05850 




TDM 


IOP«10,0 




00732 


15 


01940 


00000 


05860 




CM 


IOP»ll, 100,9, 


DETERMINE IF A TYPE ERROR 


00744 


14 


01941 


OOJOO 


05870 




BNI 


Z01,1200 




00754 


47 


00836 


01200 


05880 




CM 


!0P*1,36,10, 


YES -0ETERM1NE IF A READ. 


00748 


1* 


01931 


O00L6 


05890 




BI 


•♦36,1200 




00780 


46 


00816 


01200 


05900 




CM 


10P*1,37,10 




00792 


14 


01931 


000L7 


05910 




BNI 


EEXIT+12,1200, , 


EXIT IF A WRITE. 


00804 


47 


01642 


01200 


05920 




TF 


EMSG1»4,EMSG7«4,, 


SET UP ERROR MESSAGE. 


00814 


26 


01783 


01077 


05930 




B 


HOLLER 




00828 


49 


01382 


00000 


05940 




OORG 


•-3 




00834 








05950 


101 


CM 


!OP«ll,200,9, 


TEST IF P/T PUNCH ERROR 


00834 


14 


01941 


OOKOO 


05960 




BNI 


202,1200 




00848 


47 


00880 


01200 


05970 




TF 


EMSC1*4,EMSG6*4,, 


YES -SET UP ERROR MESSAGE. 


00640 


24 


01783 


01071 


05980 




B 


HOLLER 




00872 


49 


01382 


00000 


05990 




OORG 


•-3 




00880 








06000 


Z02 


CM 


10P»11, 300,9, 


TEST IF P/T READER ERROR 


00660 


14 


01941 


OOLOO 


06010 




BNI 


203,1200 




00892 


47 


00924 


01200 


06020 




TF 


EMSG1»4,EMSG9*4,, 


YES -SET UP ERROR MESSAGE* 


00904 


24 


01763 


01049 


06030 




8 


HOLLER 




00916 


49 


01362 


00000 


06040 




DORG 


•-3 




00924 








04050 


203 


CM 


I DPMI, 400, 9, 


TEST IF CARD PUNCH ERROR 


00924 


14 


01941 


OOMOO 


06060 




BNI 


204,1200 




00934 


4? 


00960 


01200 


06070 




TF 


EMSG1*4,EMSG4*4,, 


YES -SET UP ERROR MESSAGE. 


00948 


24 


01783 


01099 


06080 




BNF 


HOLLER, IN0S+2, , 


TEST IF WRITE CHECK. 


00940 


44 


01362 


00612 


06090 




B 


IOPA,,, 


YES -GIVE FREE RETRY. 


00472 


49 


01004 


00000 


06100 




DORG 


•-3 




00980 








06110 


Z04 


TF 


EMSG1*4,EHSG304,, 


SET UP ERROR MESSAGE. 


00960 


24 


01763 


01093 


06120 




BNF 


HOLLER, INDS, t 


TEST IF RE AO CHECK. 


00992 


44 


01362 


00610 


06130 


I0PA 


30 




NON-DISK I/O INSTRUCTION. 


01004 


)0 


00000 


00000 


06140 




BNI 


EEXITM2,1900 t , 


EXIT IF NO ERROR. 


01014 


47 


01442 


01900 


04150 




TFM 


CHEKU! I ,!**$♦•«, 


NO -GIVE THE LOOP A WHIRL. 


01026 


14 


01949 


-0618 


04160 




B 


CHECK-12 




01040 


49 


01290 


00000 


06170 




OORG 


•-3 




01046 








06180 


EMS63 


OAC 


ItCDR, 




01049 




3 


X 2 






COR 
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19 



0&1§® E«SG* 


OAC 


3. COP, 




01091 




3 


X 2 






COP 














0*300 




OAC 


3tPT9, 




010*1 




3 


I 2 






#*TH 














0*210 


EHSC* 


OAC 


3.PTP, 




010*? 




3 I 2 






PTP 














0*220 


EMSG7 


OAC 


3»TVP» 




01073 




9 


X 2 






tv* 














0*2 30 




OGRG 


19902* 


CONTROL TO WRITE ON DISK* 


19902 








0*2*0 




osc 


1,1 




19992 




1 




0*2 SO 




I 

OSA 


0SA12 




19907 




3 


X 1 












1999 7 




J 97* 7 




0*2*0 




DC 


3,5 




19990 




3- 








-05 














0*270 




DSA 


ERROR 




19999 




9 


X 1 












19995 




-0*2* 




06200 




OSC 


lt« 




1999* 




1 




0*290 




ERROR ROUTINE STAGE 


3 










06300 


* 


PROCESSES INVALID OIMS* PROGRAM NAMED LOAOS AND DRIVE COOES 










06310 




DORG 


ERROR 




00624 








06320 




B 


H04*6,,6, 


EXECUTE INDIRECT BRANCH. 


00624 


49 


0149M 


00000 


06330 




DORG 


•-3 




00*32 








063*0 




TFM 


81, RNAM,, 


INITIALIZE FOR ILLEGAL NAME CALL. 


00*12 


16 


01973 


-0712 


06330 




TF 


EMSG1*4,ENSG11*4 




0064* 


2* 


01 793 


01083 


06360 




TOM 


H03»l,9 




0065* 


15 


01*99 


00009 


06370 




TFM 


H03+6,AA02A+6 




00**9 


16 


01**0 


-0235 


06380 




TO 


AA02A+18,SIQP»12 




00*80 


29 


002*7 


01908 


06390 




TFM 


81*5, RDIM 




<>06?2 


16 


01578 


-0780 


06+00 




B 


HOLLER 




00 704 


49 


01382 


000 00 


06410 




OURG 


•"3 




00 712 








06620 


RNAM 


RATY 


BBUFF* I,,, 


READ THE TVPEO NAME. 


00712 


37 


01225 


00100 


06* 30 




SPTV 






00724 


34 


00000 


00101 


06+40 




81 


• -24,400,, 


ALLOW RE-ENTRY IF SSW4. 


00736 


46 


00712 


00400 


06450 




SF 


B8UFF 




00748 


32 


«U22* 


00000 


06460 




TF 


AA02A*l6,BBUFF*ll 




00760 


26 


00245 


01235 


064 70 






EEXlT+12 




00772 


49 


01*42 


00000 


06480 






•-3 




00780 








06490 


RDIM 


RNTY 


BBUFF , , « 


READ THE TVPEO 01 M NUMBER. 


00780 


36 


01224 


00100 


06500 




SPTV 






00792 


34 


00000 


00101 


06510 






•-24,400 




00804 


46 


00780 


00400 


06520 




SF 


BBUFF 




00816 


32 


01224 


00000 


065 30 


RDIM1 


NOP 


RMAP*20.,, 


NOP/ BRANCH SWITCH. 


00828 


41 


0097* 


00000 


06540 




TF 


AA04*7,BBUFF*3 




00840 


26 


00291 


01227 


06550 




TFM 


BKPl,AB06*24,, 


SET RETURN POINT. 


00852 


16 


004*7 


J1178 


06560 




B 


EFXIT*12 




00864 


49 


016*2 


00000 


06570 




DORG 


•-3 




00872 








06580 


MERR 


tt 


RMAP~2,CNTWD*6 




00872 


26 


00954 


02161 


06590 




TFM 


BlfRMAP 




00884 


16 


01573 


-0956 


06600 




TFM 


8 1*5, RMAP 




00896 


16 


01578 


-0956 


06610 




TF 


EMSG1*4,EMSG10*4 




00908 


26 


01783 


01077 


06620 




TFM 


BKPT, 010*60 




00920 


16 


00467 


-0876 


.06630 




TFM 


HQ3*6,RMAP-5 




00932 


16 


01460 


-0951 
















i y o 
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PAGE 


U6640 




8 


HOLLER 




00944 


49 


01382 


00000 


06650 




OORG 






00951 








06660 




DC 


5,0» 




00955 




5 








-000 














066 70 


RMAP 


TDM 


RDIM1*1,9 




00956 


15 


00829 


00009 


06680 




R 


RDIM 




00968 


49 


00780 


00000 






OORG 


• -3 




00976 








06700 




TF 


CNTWD*6,8BUFF*3 




009 76 


26 


02161 


01227 






B 


EEXIT*12,,, 


GO TRY AGAIN WITH NEW MAP NUMBER. 


00988 


49 


01662 


00000 


06 720 




DORG 


•-3 




00996 






06730 


RDVCD 


TFM 


81, RDIM,, 


INITIALIZE FOR ILLEGAL ORIVE COOE ERROR. 


00996 


16 


01573 


-0780 






TF 


EMSG1*4,EMSC20*4 




01008 


26 


01783 


01089 






TDM 


HO 3-11.9 




01020 


15 


014*3 


00009 


06760 




TF 


RDIKI*6,DC0E*18 




01032 


26 


00834 


01070 


06770 




8 


RNAM— 20 




01044 


49 


00692 


00000 


06780 




DORG 


•-3 




01052 








06790 


OCOE 


TO 


TEMP-5, BBUFF, 0 




01052 


K5 


02144 


01224 


06800 




8 


EEXIT+12 




01064 


49 


01642 


00000 


06810 




DORG 


•-3 




01072 








06820 


CMSG10 


OAC 


3, MAP, 




01073 




3 


X 2 






MAP 












06830 


EMSGll 


OAC 


3, NAM, 




01079 




3 


X 2 






NAM 














06840 


EMSG20 


OAC 


3, MOD, 




01085 




3 


X 2 






MOD 












06850 




OORG 


19982, 


CONTROL TO WRITE ON DISK. 


19982 








06860 




DSC 
I 


1,1 




19992 




«h 1 




06870 




OSA 


0SA13 




■ rma -ft 
19987 




5 


X I 












19987 




J9772 




06880 




DC 


3,5 




19990 




3 








«05 














06890 




DSA 


ERROR 




19995 




9 


X 1 


06900 










19993 




-0624 






OSC 






1999* 




1 





06910 • ••• 

06920 • 

06930 

06940 

04930 

06960 

06970 

06980 VUG 

06990 

0 7000 

07010 

07020 

07030 

07040 

07030 

07060 

07070 V01 

07080 



ERROR ROUTINE STAGE 
MONITOR CONTROL CARO 

DORG ERROR 

TO V00*3,FSPS,, 

TO , V00*ll,I0P*9 

CF V00*8 

cf voo*u 

CM •♦8, XX, 710 

BNI EEXIT*12,1200 

CM I0P*l,37,10,, 

BI Y02.1200 

CM I0P*1,36,10,, 

BNI EEXIT*12,1200 

A •♦23,CNTN0**,, 

BNR EEXim2,l,7 

TOM 0VRLAV*10,1,U, 

AM •-13, 1,, 

BNR V018,— ?5,ll 



TRAP PROCESSOR 

TEST IF FROM CONTROL CARO SOURCE, 



YES -TEST IF ALPHAMERIC Hi AS 

NO -Till IF NUMERIC Rf AO* 

YES -Til? P09 SfCONO RECOtO 

YES -SIT INOICATOI. 
TEST IP INO OP 409 CAW 9 



00624 








00*24 


25 


00*90 


00429 


00*3* 


29 


00*93 


01939 


00*48 


93 


00*90 


00000 


00**0 


33 


00*93 


00000 


00*72 


14 


00*90 


-00-0 


00*9* 


47 


01**2 


01200 


00*9* 


1* 


01931 


OOOtT 


00709 


4* 


0089* 


01200 


00720 


14 


01931 


0OOL6 


00732 


*? 


01*42 


01200 


00744 


21 


007*7 


©2159 


0075* 


43 


01*42 


-0001 


007*8 


If 


00478 


OOOOJ 


00780 


11 


007*7 


-0001 


00792 


45 


00852 


0076P 






2U! 
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07090 




AM 


•-37,1 




07100 




ON* 


Y01B,«-*9,ll 




07110 


vou 


TON 


SYSCAL.O,, 


V:$ -SI 


07120 




TOM 


0VRLAV»10,0,, 


t EAR C 


07110 


V01B 


RCTV 


• » t 


TfPE TR 


071*0 




MATY 


EMSG1) 




07190 




B 


APHASEM2, 1 1 


EXIT TO 


071*0 




OORG 


•-3 




07170 


V02 


TO 


V07^9,CNTW0**,11, 


MOVE IN 


071*0 




A 


•♦23.CNTWD**,, 


TEST FO 


07190 




ON* 


EEXIT*12,2,7 




07200 




TO 


Y07*ll*»-I*ll, 


YES -MO 


07210 




TOM 


OVRLAV+10,1,, 


SET I NO 


07220 




A 


• ♦23.V02O5,, 


TEST IF 


072)0 




BNR 


V06,2»7 




072*0 




A 


•♦23,»-l 




i)W»0 




BNR 


Y06,2,7 




072*0 




B 


V01A,,, 


YES. 


07270 




OORG 


• -3 




072*0 


V06 


A 


• ♦*7,V02O5,, 


MOVE TM 


07290 




A 


•♦18, •♦35,, 


BUFPE i 


07300 




TO 


155,SI0P*12,2 




07310 




TR 


ERROR, 1,7 




07320 




TFM 


MCCBUFU,0,10 




07330 




AM 


•-6,2 




073*0 




CM 


•-18,MCCBUF*1*1 




07350 




BN I 


•-36,1300 




073*0 




TR 


MCCBUF**, ERROR 




07370 


V07 


TFM 


MCCBUFO,XX,8 




07380 


V07A 


SF 


MCCBUF.,2, 


INITIAL] 


07390 




AM 


Y07A*6,1 




07400 




CF 


YOTA»6, ,6 




07*10 




AM 


Y07A^6,1 




07*20 




CM 


Y07A^6,MCCBUF*160 




07430 




BN1 


Y07A,1300 




07**0 




B 


Y01B, , , 


GO TO 


07*50 




OORG 


• -3 




07**0 


EMSG13 


DAC 


8, TRP ERR*, 








TRP 1 


ERR • 




07*70 




OORG 


19982,, 


CONTROL 


07*80 




OSC 


Itl 




0 7*90 




1 

OSA 


DSA1* 




07500 




DC 


3,6 








-06 






07510 




DSA 


ERROR 




07520 




DSC 







ENO OF JOB INOICATOR. 



07530 •••••• SPS SUPERVISUR AND RELOCATABLE LOADER CALLER STAGE 1 

0 75*0 DORG 0 

07550 TFM OLDCY+ I ,MCYL , 10 , RESTORE MONITOR MOOULfc CYLINDER INO. 

07560 BNF LCA01 , QLOOA+6, , DETERMINE IF NON-TRA DISK LOAO. 



00*0* 


u 


007*7 


-0001 


OOtl* 


*5 


00*92 


0076P 


00*21 


19 


00*75 


00000 


001*0 


15 


00*7* 


00000 


00192 


1* 


00000 


00102 


00*** 


19 


01201 


00100 


00*7* 


*9 


01*1* 


00000 


0088* 








00*1* 


25 


01117 


0215R 


00*9* 


21 


00919 


02159 


0090* 


*5 


01**2 


-0002 


00920 


25 


01119 


0091R 


00912 


15 


00*7* 


00001 


009** 


21 


009*7 


00919 


009S* 


*5 


01000 


-0002 


009** 


21 


00991 


00967 


009*0 


♦ 5 


01000 


-0002 


00992 


*9 


00*2* 


00000 


01000 








01000 


21 


010*7 


00919 


01012 


21 


01030 


010*7 


0102* 


25 


-0155 


01808 


0101* 


31 


00*2* 


-0001 


010** 


1* 


13001 


000-0 


010*0 


11 


0103* 


-0002 


01072 


I* 


0105* 


J3161 


010** 


*7 


010*8 


01300 


0109* 


31 


1300* 


0062* 


01108 


16 


13003 


0-000 


01120 


32 


J3000 


00000 


01132 


11 


0112* 


-0001 


on** 


33 


01120 


00000 


Oil 5* 


1 1 


01 12* 


—000 1 


011*0 


1* 


0112* 


J3160 


011*0 


*7 


01120 


01300 


01 192 


*9 


00852 


nn nnn 


01200 








01201 




8 


X 2 


19982 








19982 




1 




19987 




5 


X 1 


19987 




J9777 




19990 




3 




19995 




5 


X 1 


19995 




-062* 




19996 




I 




00000 








00000 


16 


02111 


000R8 


00012 


** 


00072 


00**7 



21)2 
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07570 




TOM 


LOINPT,0,U, 


07580 




TR 


DIMENT,MAPENT, , 


07590 




BNF 


•♦2*,CNTMD^7,, 


07600 




TF 


HIGH.CNTWOm,, 


07610 


LCA01 


BNF 


LCA06A , LD I NPT , , 


07620 




BD 


LCA0*,L0INPT v , 


07630 




BNF 


LCA06,MAPENT*13,, 


076*0 




SF 


FSPS.,, 


07650 


LCAO* 


BNF 


LCA06,FSPS,, 


07660 


LCA02 


TFM 


I0XX,»^23«, 


07670 




B 


10GT,LCA08,7 


07680 




TFM 


I0XX,»^23, , 


07690 




B 


I0GT,LCA09,7 


07700 


LCA06 


BNF 


•♦2*,0IMENT*l*,, 


07710 




TF 


DIMENT^ L3,DIMENT^1 


07720 


LCA06A 


TR 


0LDDA,LCA07, , 


07730 




B 


0VRLAVn2 


077*0 




OORG 


•-* 


07750 


LCA07 


OS 


0,»*1 


07760 




DSA 


DSA16 


07770 




DC 


3,3 






-03 




07780 




OSA 


0 


07790 




OSC 


1,' 


07800 


LCA08 


OSC 


2,22 






22 




07810 




DSA 


LCA03 


07820 




DSC 


l,» 


07830 


LCA09 


OSC 


2,-22 






2K 




078*0 




OSA 


LCA02A 


07850 




OSC 


I.' 


07860 


LCA02A, OSC 


1,1 


07870 




OSA 


DSA02 



YES -SET INDICATOR* 
MOVE WORKING OOA TO COMMON SLOT. 
NO -TEST IF SPECIFIED LOAO ADDRESS. 
YES -MOVE IT INTO THE HIGH INDICATOR. 
BRANCH IF TRA CALL. 
TEST IF CALL FOR DISK LOAD. 
TEST IF CALL FOR SPS SUPERVISOR. 
YES -SET FLAG. 

TEST IF CALL FOR SPS SUPERVISOR. 
READ SPS SUPERVISOR INTO CORE. 

RESTORE MPY TABLE ANO EXECUTE SUP. 

TEST FOR SPECIFIEO ENTRY AOORESS. 
18,, YES -LETS PLAY BALL. 

LOAO ANO EXECUTE STAGE 2 OF CALLER. 



0002* 
00036 
000*8 
00060 
00072 
0008* 
00096 
00108 
00120 
00132 
001** 
00156 
00168 
00180 
00192 
0020* 
0021* 
00223 
00223 
00227 

00227 
00230 



00235 
0023* 



00237 
002*3 



002*3 
002** 



002*5 
00251 



00251 
00252 



00293 
0029* 



15 00*28 

31 00*02 
** 00072 
26 00*3* 
** 0020* 
*3 00120 
** 00180 

32 00*29 
** 00180 

16 00565 
*9 00566 
16 00565 
*9 00566 
** 0020* 
26 00*15 

00**1 



*9 00*80 



PAGE 

0000- 
02118 
02162 
02166 
00*28 
00*28 
02131 
00000 
00*29 
-0155 
-0237 
-0179 
-02*5 
00*16 
00*20 
00223 
00000 



0 

5 X 



J9786 
3 



-0000 

I 



2 

5 X 



-0273 
I 



2 

5 X 



-0253 
1 



1 

5 X 



07890 



OC 3,2 
-02 

OSA 100 



OSA SUPENT 



00298 
002*1 



002** 
00271 



J9636 
1 



-0100 
9 R 



00271 



-291* 
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'AGE 


07910 


OSC 




00272 


1 




07920 LCA03 


OSC 

I 

OSA 


Itl 


00271 


1 




07930 


0SA50 


00274 


S 


X 1 


079*0 
07950 


DC 
OSA 


If SO 

SYSORG-2 


00274 
00241 

00244 


4 7024 
§ 


X 1 


07940 


OSC 


1 • 


00244 
00247 


-2400 

i 




07970 
07940 


OORG 
OSC 


1.1 


19942 
19942 


i 




07990 


1 

OSA 


0SA1S 


19947 


9 


X 1 


00000 
01010 


DC 

-01 

OC 


3.1 
4.0* 


19917 
19990 

19994 


J9743 
3 

4 





14 



04020 •••••« 

01030 

08040 

08050 

08040 

08070 

08080 

08090 

08100 

08110 

08120 

06130 LCB01 

08140 

08150 

08140 

08170 

08180 

08190 

08200 

08210 

08220 LC802 

08230 

08240 

08250 

08260 

082 70 

08280 LC808 
08290 



-0000* 

RELOCATABLE LOADER CALLER 

OORG 0 

BNF LCB02 .LDINPTt • 

GNTW0*6,HALT«>6,, 
LCBOl , LDINPTt • 
SK03+1.9, , 
SK04,»*20 
8 SEEK 
OORG «-i 

TO OIHENT.MAPENT. • 
TF CNTW0»6,IOXX, , 

0RIVE-S.TEHP-5.. 
CNTWD*13,DRIVE-5 
•♦24.SPSMLP+1*. 
FSPS,., 
•♦i6,SPSMLP, , 
SPSMLP,,, 
SPSMLP*! 
•*24 ( ClNIT tt 
LAOOR.O.. 
I0XX.«*23«, 
I0RBC.ICB08.7 
HAL T*8«CNTW0*18 
0L0DA.LCB1G., 
OVKLAV+12 



TF 

BO 

TOW 

TFM 



TO 

TK 

BNF 

SF 

BNF 

CF 

SF 

BNF 

TFM 

TFM 

8 

TF 

TR 



STAGE 2 

BRANCH IF TRA CALL. 
SAVE POSSIBLE RETURN ADDRESS. 
BRANCH IF NON-DISK LOAD. 
DISK -COMPUTE PHYSICAL ORIVE CODE. 



GIVE DRIVE CODE TO LOADER 
SAVE POSSIBLE RETURN AOORESS. 
MOVE THE DERIVED ORIVE CODE. 
SAVE CALLING PARAMETERS. 
WATCH OUT FUR THOSE NON-DISK MAIN-LINE 

LOADS FOR THE SPS SUPERVISOR. 
TEST IF SPS MAIN LINE PROGRAM. 
YES -INDICATE RELOCATABLE. 

TEST IF TO INITIALIZE LOADER FIELD. 
YES. 

WRITE UPPER SAVE AREA ON DISK. 

11 .INITIALIZE CYLINDER POSITION FOR LOADER. 
READ AND EXECUTE THE LOADER. 



OURG 
OSC 
22 
OSA 



• -4 

2.22 



OSC i.« 



00000 








00000 


44 


00200 


00428 


00012 


24 


02161 


00462 


00024 


43 


00092 


00424 


00034 


15 


01709 


00004 


00048 


16 


02142 


-0044 


00060 


49 


01496 


OOOOO 


00044 








00044 


25 


00402 


02118 


00040 


26 


02161 


00565 


00092 


25 


02149 


02144 


00104 


31 


02148 


02149 


00114 


44 


00140 


00469 


00128 


32 


00429 


OOOOO 


00140 


44 


00176 


0046B 


00192 


33 


00468 


OOOOO 


00164 


32 


00469 


OOOOO 


00176 


44 


00200 


00427 


00148 


16 


00439 


-0000 


00200 


16 


00565 


-0223 


00212 


49 


00520 


-0255 


00224 


26 


00464 


0217L 


00236 


31 


00441 


00278 


00244 


49 


00480 


OOOOO 


00255 








00255 




2 




00261 




5 


X 1 


00241 




-0263 




00242 




1 





2»4 
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08310 LCB09 
08320 

08330 
08340 



08360 LCBIO 
08370 



OSC 
1 

DSA 



OC 3,2 
-02 

OSA ERKET*1500 



08380 

08390 



08400 
08410 



08440 



08450 •••••• 

08460 
08470 
08480 
08490 
08490 
08500 
08510 
08520 
08530 
08540 
08550 
08560 
06570 
06560 
08590 
08600 
06610 

04620 LRA02 

06630 

08640 

08450 

08660 

06670 

06680 

06690 



OS 
OSA 



0,**l 
DSA51 



3,9 

6,502* 



OC 
-09 
DC 
-0502' 
OORG 19982 
DSC 1,1 
1 

DSA DSA16 



CONTROL TO WRITE ON DISK. 



3,3 



,0« 



STAGE 1 



DC 
-03 

DC < 
-0000' 

RELOCATABLE LOADER RETURN ANALYZER 

OORG 0 

TR OL00A.LRA05,, RESTORE I ORT ANO THE UPPER SAVE AREA 

B QVRLAYM2... VIA THE OVERLAY RE AO ROUTINE. 

OORG »-3 

TFM BNI*18,IBMM00*13, 711, RESTORE OVAL AY ROUTINE EXIT. 

TR 0L00A.LRA06., INITIALIZE FOR STAGE 2. 

TF CNTWD*18,HALT«>8.6. RESTORE LOAD MODULE CYLINDER I NO* 

TFM HALT*U,0!MENT+14.711 V SET STAGE 2 RETURN ADDRESS. 

BNF LRA02.L0INPT, , BRANCH IF TCD EXIT FROM LOADER. 

TR 0RIVE-5,CNTW0»13,, RESTORE CALLING PARAMETERS. 

TF 10XI,CNTWD»6 

TD TEMP-5.DRIVE-S 

TR MAPENT , OIMENT 

TFM HALT»ll,CHK4 vf 

BNF •♦24,0VRLAV«21, 

CF CNTWD* 1,». 

CF OVRLAY+21 

TFM 0LDCY»1*MC¥L»13 

TFM HALT*6 t « 

BNF 0VRLAY*12,FSPSts FIST IP CALLED BY SPS SUPERVISOR. 

BNF 0VRLAY*12«SPSNLP*1» . YES -TEST If MAIN LINf mmmm IDA©, 

TFM HALT*U,OINENT*>l4f711tSET STAGE 2 RETURN ADDRESS. 

TR UL00A,»»19 t , READ IN SPS SUPERVISOR 'RETURN 

8 0VRLAV*12,0SA1T,. A^ALYIii, 

OC 3.2 

-02 



SET STAGS 2 INOIRECT RETURN AOORESS. 
CHECK FOR NON-EXECUTE OF NON-DISK LOAD. 
YES -CLEAR THE EXECUTION INDICATOR. 

RESTORE HON! TOR MODULE CYLINDER I NO. 



00243 




1 




00248 




5 


X I 


00246 




J9656 




00271 




3 




00276 




5 


X 1 


00276 




-2102 




00277 




1 




00278 




0 




00262 




5 


X I 


00282 




J9600 




00265 




3 




00291 




6 




19982 








19982 




1 




19987 




5 


X 1 


19967 




J9786 




19990 




3 




19996 




6 




OOOOO 








OOOOO 


31 


00441 


00249 


00012 


49 


00460 


OOOOO 


00020 








00020 


14 


00510 


-04 9L 


00032 


31 


00441 


00293 


00044 


24 


0217L 


00444 


00096 


14 


00447 


-042- 


00066 


44 


00174 


00426 


OOOBO 


31 


02149 


02166 


00092 


24 


0054S 


02161 


00104 


29 


02144 


02149 


00116 


91 


02116 


00402 


00126 


14 


00447 


-1406 


00140 


44 


00144 


00469 


00192 


33 


02194 


OOOOO 


00164 


33 


00489 


OOOOO 


00176 


16 


02111 


000R4 


00166 


14 


00462 


-0008 


00200 


44 


00460 


00429 


00212 


44 


00440 


00449 


'00224 


14 


00447 


-042- 


00296 


31 


00441 


00255 


00246 


49 


00440 


19749 


00242 




3 





2»5 
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08710 LRA09 
06720 



08730 
017*0 



DC 6,0* 
-0000 • 
OS 0,«»1 
DSA 0SA06 



DC 3.18 
-18 

OSA 902 



08750 




DSC 


l,« 


08760 


LRA06 


OS 




08770 




DSA 


OSAOl 


08780 




OC 


3t4 






-04 




08740 




OSA 


0 


08800 




DSC 


l.« 


08810 




DORG 


19982, 


08820 




DSC 


1,1 


088)0 




1 

DSA 


DSA18 


088*0 




DC 


3,3 






-03 




088*0 




DC 


6,0* 






-0000 f 


08860 




SPS SUPERVISOR RETUf 


08870 




DORG 


0 


08880 




CF 


FSPS,, , 


08890 




BD 


SRA02.LDINPT,, 


08900 




BNF 


SRA02,SPSMLP,, 


08910 




CF 


SPSMLP,,, 


06920 




TFM 


HALT*ll,CHK4*L2i, 


08930 


SRA02 


CF 


SPSMLPU,,, 


08940 


SRAOl 


TFM 


HAIT+6, 8 


08950 




TFM 


0LDCY^1,MCYL,10, 


08960 




TFM 


GTEST*54,0VRLAY, , 


08970 




TD 


RMl,INDS*13,6, 


08980 




TO 


RM2,INDSM3,6, 


08990 




TR 


QLODA, SRA03, , 


09000 




8 


OVRLAY+12 


09010 




OORG 


• -3 


09020 


SRA03 


OS 


0,«*l 


09030 




DSA 


DSAOl 



CONTROL TO WRITE ON DISK. 



N ANALYZER STAGE 1 

CLEAR THE SPS SUPERVISOR FLAG. 

6RANCH IF NON-DISK LOAD. 

TEST IF RELOCATABLE. 

NO -TURN OFF THE INDICATOR. 

SET STAGE 2 INDIRECT ADDRESSES. 

TURN OF MAIN-LINE PROGRAM INDICATOR. 

RESTORE MONITOR MODULE CYLINDER IND. 
RESTORE BRANCH AODRESS IN IORT. 
SET TWO RECORO MARKS IN THE SPS 

SUBROUTINE WORK AREA. 
READ ANO EXECUTE STAGE 2. 



00261 




6 




00269 




0 




00273 




5 


X 1 


00273 




J 9440 




00276 




3 




00281 




3 


X 1 


00281 




-0902 




00282 




1 




00283 




0 




00287 




9 


X 1 


00267 




J9639 




00290 




3 




00299 




9 


X 1 


00299 




-0000 




00296 




1 




19982 








19962 




1 




19987 




9 


X 1 


19987 




J9791 




19990 




3 




19996 




6 




00000 








00000 


33 


00429 


00000 


00012 


43 


00060 


00428 


00024 


44 


00060 


00466 


00036 


33 


00468 


00000 


00048 


16 


00467 


-1420 


00060 


33 


00469 


00000 


00072 


16 


00462 


-0006 


00084 


16 


02111 


000R6 


00096 


16 


01210 


-0468 


00108 


25 


0220- 


00623 


00120 


25 


0220N 


00623 


00132 


31 


00441 


00152 


00144 


49 


00480 


00000 


00152 








00152 




0 




00156 




3 


X 1 


00156 




J9635 





DC 
-04 



00159 



296 
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22 



09050 


DC 


6.0* 




-0000* 


09060 


DORG 


19982, 


09070 


DSC 


1,1 


09080 


1 

DSA 


DSA17 


09090 


DC 


3,2 




-02 




09100 


DC 


6,0* 




-0000* 




» SPS SUPERVISOR ANO 1 


09120 


OORG 


0 


09130 


B 


HALT+6,,6, 


09140 


DORG 


8 


09150 


SF 


cinit,,, 


09160 


BNF 


•♦20, FSPS,, 


09170 


B 


I0XX,,6, 


09180 


DORG 


•-3 


09190 


BO 


•♦20,SYSCAL,, 


09200 


B 


HALT*ll,,6, 


09210 


DORG 


•-3 


09220 


TR 


0LDDA,#*19,, 


09230 


B 


0VRLAY+12,DSA19 


09240 


DC 


3,3 




-03 




09250 


DC 


6,0* 




-0000* 


09260 


DORG 


19982, 


09270 


DSC 


1,1 


09280 


1 

DSA 


OSAOl 


09290 


DC 


3,1 




-01 




09300 


DC 


6,0* 




-0000* 




• IORT LOAD PROCESSOR 


09320 


DORG 


0 


09330 


A 


•*23,HALT*6,, 


09340 


A 


•♦39,1,711 


09350 


A 


•*47,**23 


09340 


TO 


•♦47,26,7 


09370 


TD 


*-l,AA04-l,6 


09360 


TR 


AA02A,l8,71l 


0*>5*Q 


TOM 


•-25, XX, 6 


09400 


TF 


AA02A^23«HALT*6» * 


09410 


TR 


AA02A^24,CNTWD 


09420 


TFM 


I0XX,*^23tt 


09430 AA02 


6 


IQA8C,AA03,7 


09440 


TFM 


I0XX,*^23# , 


09450 


8 


IOGT,»M2.7 


09460 


OSC 


2,-22 




2K 





CONTROL TO WRITE ON OISK. 



19982 
19982 



LOAOER RETURN ANALYZER STAGE 2 

INDIRECT EXECUTE BRANCH. 

RESTORE LOADER INITIALIZATION I NO. 
TEST IF CALLEO BY SPS SUPERVISOR. 
YES -RETURN TO IT. 

TEST IF CALLEO BY A SYSTEM PROGRAM. 
NO -RETURN THROUGH PRESET BRANCH. 

EXECUTE SYSTEM RETURN ANALYZER. 



CONTROL TO WRITE ON OISK. 



MOVE NAME ANO POSSIBLE LOAD ADDRESS. 



SAVE IORT CALLING PARAMETERS. 
SAVE CORE TO BE OVERLAID. 



RE AO ANO EXECUTE SECTION 2. 



19987 




5 


X 1 


19987 




J9789 




19990 




3 




19996 




6 




00000 








00000 


49 


0046K 


00000 


00008 








00008 


32 


00427 


00000 


00020 


44 


00040 


00429 


00032 


49 


0056N 


00000 


00040 








00040 


43 


00060 


00475 


00092 


49 


0046P 


00000 


00060 








00060 


31 


00441 


00079 


00072 
00086 


49 


00480 
3 


19794 


00092 




6 




19982 








19982 




1 




19987 




5 


X 1 


19987 
19990 




J9635 
3 




19996 




6 




00000 








00000 


21 


00023 


00462 


00012 


21 


00047 


-OOOJ 


00024 


21 


00071 


00047 


00036 


29 


00083 


-0026 


00048 


29 


0004P 


00283 


00060 


31 


00229 


-0010 


00072 


19 


0004P 


00000 


00084 


26 


00252 


00462 


00096 


31 


00253 


02159 


00106 


16 


00969 


-0131 


00120 


49 


00920 


-0261 


00132 


16 


00969 


-0139 


00144 


49 


00966 


-0196 


00196 




2 





2«J7 



V 
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09470 

09460 
09*90 
09500 

09310 
09520 

09530 



DSA «*? 



OSC 



It* 

1,1 



OSC 

i 

OSA DSA09 



OC 3,5 
-05 

OSA ABOO 



DSC 1,» 



095*0 DORG 229 

09550 AA02A OSC 32,0 

00000000000000000000000000000000 
09560 AA03 OSC 2,02 



09570 

09580 

09590 
09600 

09610 
09620 

09630 

09640 AA04 

09650 

09660 
09670 



09710 
09720 * 
09730 



02 

OSA »*7 



OSC 1,1 
1 



OC 3,10 
-10 

DSA SYSORG*8500 



OSC 1,» 

OSC a.3200000 1 
3200000* 
OSC 5,0* 
0000* 

DORG 19982, 
OSC 1,1 
1 

OSA 0SA20 



OC 3,3 
-03 

DC 6,0* 
-0000* 

MONITOR CALLER SUBROUTINE -ALSO PROCESS ES RETURNS TO THE 
OUP SUPERVISOR FROM ITS CALLS TO THE RELOCATABLE LOADER. 

OORG 0 



CONTROL TO WRITE ON 01 SK. 



00 1*2 



00162 
00163 



00166 
00169 



00169 
001 71 



00177 



0017? 
001 7B 



00229 
00229 



00261 
00267 



00267 
0026B 



00269 
00274 



00274 
00277 



002 02 



002B2 
00263 



00284 
00292 



199B2 
19962 



19987 



19987 
19990 



19996 



PACE 

5 I 1 



-0164 
1 



1 

5 X 



49744 
3 



J0902 
1 



32 
2 

5 X 



-0269 
1 



1 

5 X 



-1400 
3 



.10902 
1 



8 

5 

1 

5 X 



J9797 
3 
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09740 




TFM 


0L0CV*1,MCVL,10, 


SET CYLINDER POSITION* 


00000 


16 


02111 


000R8 


09750 




8 


MCA03 




00012 


49 


00100 


00000 


09760 




OORG 


20 




00020 








09770 




TFM 


HALT*6,MB000,» 


SET ENTRY TO THE MONITOR. 


00020 


16 


00462 


-2902 


09780 




TFM 


8NI*18,IBMM0DM3, 


711, RESTORE OVRLAV ROUTINE EXIT. . 


00032 


16 


00510 


-045L 


09790 




B 


MCA01 




00044 


49 


00208 


00000 


09800 




OORG 


•-3 




00052 








09810 


MCAOO 


BNF 


MCA06.HALT, , 


TEST IF MONITOR ALREADY IN CORE. 


00052 


44 


00250 


00456 


09820 




a 


MBOOO,,, 


YES -BRANCH DIRECTLY TO IT. 


00064 


49 


02902 


00000 


09830 




OORG 


• -4 




00071 








09840 


MCA04 


OSC 


2,2 




00071 




2 




09850 




02 
OSA 


MCAOOA 




00077 




5 


X 1 












00077 




-0079 




09860 




DSC 


1.' 




00078 




1 




098 70 


MCAOOA 


OSC 
0 


1,0,, 


ODA TO SAVE CORE ON 8-TH CYLINDER 


00079 




1 




09880 




OC 


5,1400,, 


OF DISK SCRATCH AREA 


000B4 




5 








-1400 












09890 




DC 


3,177 




00087 




3 








J77 














09900 




DSA 


SYSORG-100 




00092 




5 


X 1 












00092 




-2302 




09910 




DSC 


It* 




00093 




1 




09920 




OORG 


100 




00100 








09930 


NCA03 


BNR 


•+24,SYSCALt, 


REPLACE ANY SVSCAL R.M. BY 0. 


00100 


45 


00124 


00475 


09940 




TOM 


SYSCAL,0 




00112 


15 


00475 


00000 


09950 




BNF 


MCAOO,SYSCAL,, 


TEST IF OUP CALL. 


00124 


44 


00052 


00475 


09960 




TOM 


SYSCAL,5,, 


YES -SET SYSCAL RETURN COOE. 


00136 


15 


00473 


00005 


09970 




TFM 


I0XX,»*23,, 


SAVE CORE FOR THE OUP SUPERVISOR. 


00148 


16 


00365 


-0171 


09980 




B 


I0RBC,MCA04,7 




00160 


49 


00320 


-0071 


09990 




TFM 


I0XX,«*23,, 


LOAD THE OUP SUPERVISOR. 


00172 


U 


00363 


-0199 


09991 




B 


10GT,MCA05,7 




00 164 


49 


00566 


-0241 


10000 




TFM 


HALT*6,CHK4+12, , 


SET UP EXIT AFTER RESTORATION OF TABLES. 


00196 


16 


00462 


-1420 


10010 


MCA01 


TR 


OL0DA,»*19,, 


RESTORE ARITH TABLES ANO EXECUTE 


00206 


31 


00441 


00227 


10020 




B 


OVRLAYtDSAOlf , 


NONITOR OR OUP SUPERVISOR. 


00220 


49 


00466 


19635 


10030 




DC 


3,4 




00234 




3 








-04 














10040 




OC 


6,0* 




00240 




6 








-0000* 












10050 


Mf, 405 


OSC 


3,220 




00241 




3 








220 














10060 




DC 


5,139*, 




00246 




5 








-139* 












10070 


MCA 06 


TR 


0L0DA,»*19,, 


READ IH THE MONITOR PLUS THE IORT VIA 


00230 


31 


00441 


00269 


10080 




B 


0VALAY*12»DSA04,,* TWi OYRLAY READ ROUTINE. 


00262 


49 


00480 


19640 


10090 




OC 


3,109 




00276 




3 








J09 














10100 




DC 


6,502* 




00262 




6 








-0501 














10110 




OORG 


19982,, 


CONTROL TO MRlTi ON DISK. 


19962 








10120 




OSC 


1,1 




19962 




1 





i 
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DSA 0SA19 



10140 

10190 

101*0 •••••• 

10170 •••••• 

lOliO 

10190 •••••• 



OC 3,1 

-03 . . 

OC 6,0* 
-0000* 

MONITOR -MAIN ROUTINE 

COMMUNICATION SECTOR ASSEMBLED PARAMETERS 



10318 THE PRINCIPAL INPUT DEVICE NUMBER MILL BE 5 PGR CARD SYSTEM 



10319 
10320 



AND 3 FOR PAPER TAPE ON SYSTEM DELIVERY. 



DSC l f 5tCONM*73tt 



PRINCIPAL INPUT DEVICE CARD 



10360 DSC 1,«,CQMM*99 
f 

10370 COLD START ENTRY TO THE MONITOR -CLEAR STORAGE, THEN 

10380 • THE FOLLOWING INSTRUCTIONS MUST BE LOADED INTO 0. 

10390 • 3*0003200701 

10400 ■ 360003200702 

10410 • 4902402X 



19987 



19987 
19990 



10200 
10210 


OC 19,0*,C0MM»L8, 
-OOOOOOOOOOOOOOOOO* 
DC 2,B,C0MM*4l, 

.a 


HEAOLESS DOA-S FROM SPS ANO FORTRAN. 
STANOARO SPS MANTISSA LENGTH. 


02820 
02843 


10220 


OC 
-2 


2,2,COMM*43t 


STANDARO SPS SUBROUTINE SET. 


02849 


10230 


OSC 
0 


li0,C0MM*44, 


STANOARO SPS NOISE DIGIT. 


02844 


10240 


DC 
-8 


2,8,C0MH^46, 


alANuARO rURIRAN RANII>»4 LcNuin. 


02848 


10250 


OC 
-4 


2,4,C0MM*4S, 


STANDARD FORTRAN FXD. PT. MORO LENGTH. 


02890 


10260 


OSC 

1 


l,l,C0NM*49, 


NUMBER OF MODULES IN 1620 SYSTEM. 


02891 


10270 
10280 


OSC 
0000 

oc 


4.0, MCOMM, 

2.1, NCOHM*5 


MONITOR STATUS INDICATORS. 


02892 
02897 


10290 


-I 

DC 


2,0,MC0MMW 




02899 


10300 


-0 
DC 
-0 


2 ( 0,MC0MM»9 




02861 


10310 


DC 


2,0,MC0MM*U 




02863 


10312 


-0 

DSC 

0 


1»0»MC0MM412» 




02864 



10321 


5 

OC 1, 

J 


l,C0HM*76, 


OBJECT SYSTEM SIZE 


02B78 


10330 


DC 5. 


0 t C0MM+88. 


LOWEST ADDRESS LOADED BY LOADER. 


02890 




-0000 








10340 


OC 5, 


0,COMM*93, 


CURRENT LOAOER RELOCATION INCREMENT. 


02895 




-0000 








10350 


OC 5, 


0,C0MM*98, 


CARD SEQUENCE NUMBER FOR LOADING. 


02900 




-0000 









PAGE 
9 X 1 



29 



J9794 
3 



300 



10420 
10430 
10440 
10450 
10460 
10470 
10480 



1620/1311 SUPERVISOR ANO IORT 

V19636U300I02 

X IS THE MONITOR CONTROL CARD SOURCE - 

•I TYPEWRITER IF ANY OTHER DIGIT IS SUPPLIEOt 

-3 P/T READER THE MONITOR WILL ASSUME THE 

*5 CARO READER VALUE 1 (TYPEWRITER) 



26 



10490 


• 


ANO WHERE Y IS THE 


0R1VE CODE FOR THE PHYSICAL MOOULE 










10500 


• 


ON WHICH THE MONITOR 


NOW RESIDES - 










10510 


• 




*l MODULE 0 


IF ANY OTHER DIGIT IS SUPPLIED, 










10520 


• 




«3 MOOULE 1 


THE MONITOR WILL ASSUME THE 










10530 


• 




*5 MOOULE 2 


VALUE 1 (MOOULE 0) 










10540 


• 




»7 MOOULE 3 












10550 


• 
















10560 




DORG 


SYSORG 




02402 








10570 


MAOOO 


TO 


402,MCR01A,, 


MOVE ARITHMETIC TABLES TO PROPER ADDRESS. 


02402 


25 


00402 


04455 


10580 




TR 


100,102 




02414 


31 


00100 


00102 


10590 




TOM 


402,0 




02426 


19 


00402 


00000 


10600 




TO 


•♦23,31 




02438 


25 


02461 


00031 


10610 




BO 


•♦24,MCD01 




02490 


43 


02474 


10690 


10620 




TOM 


31,1 




02462 


15 


00031 


00001 


10b30 




TO 


MCOMM+3,31 




02474 


25 


02899 


00031 


10640 




CF 


32,,, 


SET UP LOGICAL MODULE 0 DRIVE CODE 


02484 


33 


00032 


00000 


10650 




TO 


•♦23,32,, 


EQUIVALENCE. 


02498 


25 


02521 


00032 


10660 




BO 


•♦24,MCD04 




02910 


43 


02534 


10720 


10670 




TOM 


32,1 




02922 


15 


00032 


00001 


10680 




TD 


MCOMM+5,32 




02934 


29 


02857 


00032 


10690 


MAO 10 


TOM 


MCOMM,0,, 


INITIALIZE COMM SECTOR INDS. 


02946 


15 


02852 


00000 


10700 




TOM 


HCOMM+1,0 




02998 


15 


02853 


00000 


10710 




TOM 


MC0MM*2,0 




02970 


15 


02854 


00000 


10720 




TDM 


MC0MMU2,4 




02982 


15 


02844 


00004 


10730 




TFM 


BNU18,IBMM0DH3,7U 


02994 


16 


00910 


-045L 


10740 




TFM 


OLOCVU.MCYL.IO 




02404 


14 


02111 


OOORB 


10750 




TF 


EQUIV+1,NC0NM*9,, 


READ DOA-S FOR SPS, FORTRAN, DUP, AND 


02418 


26 


02109 


02B97 


10760 




TD 


!BNM00,HC0HM*5,, 


THE EQUIVALENCE TABLE AND DUMP THEM 


02430 


29 


00440 


02897 


10770 




BTM 


UT05,8,, 


ONTO OISK ON SPECIAL SECTOR. 


02442 


17 


08390 


-0008 


10780 




TR 


SPS00A,UT09-1,U 




02494 


31 


10802 


0B94R 


10790 




BTM 


UT05,136 




02444 


17 


08390 


-0196 


10800 




TR 


FORDOA,UT09-1,U 




02478 


31 


10822 


0834R 


10810 




BTM 


UT09,139 




02490 


17 


08390 


-0139 


10820 




TR 


0UP00A,UT09-1,U 




02702 


31 


10842 


0834R 


10830 




BTM 


UT09,2 




02714 


17 


08390 


-0002 


10840 




TR 


EQU0DA,UTO5-l,U 




02724 


31 


10662 


0834R 


10850 




TFM 


I0XX,«^23 




02718 


16 


00969 


-2761 


10860 




B 


IORBC,MA020,7 




02790 


49 


00520 


-2769 


10870 




B 


MBOOO,,, 


PROCEEO TO THE INTER-PHASE ENTRY. 


02742 


49 


02902 


00000 


10880 




DORG 


•-4 




02749 








10890 


MA020 


OSC 


2,22 




02749 




2 




10900 




22 
OSA 


MA029 




02779 




9 


X 1 












01779 




-2777 




10910 




OSC 

i 


lt« 




01174 




1 




10920 


MA029 


OSC 


lei 




0177? 




1 
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lots® 




OSA 


0SA40 




02TB2 




S 


X I 












02702 




49743 




10940 




oc 


It I 




02 TBS 




1 








-01 














10950 




OSA 


SPSOOA 




02790 




S 


X 1 












02790 




.... 
JQBOc 




10% AO 




osc 

t 


lt« 




02 It I 




1 




lOtfO 




INTER-PHASE ENTRY TO MONITOR. 










lotto 




DOUG 


$¥$QPS&#50© 












I otto 


NBOOO 


RCTY 


m 


RESTORE TYPEtHUTfR CARRIAGE. 


02t02 


14 




00102 


lOttl 




TO 


KREC*2tC0NM67* t » 


SAVE SYSTfN Sill 


02914 


2S 


0t7t4 


02878 


I0tt2 




TR 


0LDCY,M8226-l,, 


SET ARM 1N0ICATCWS SO SEEK MUST OCCUR 


02924 


31 


021 10 




1 1000 




TF 


EQU!V*l,MCONN*f, f 


RESTORE LOGICAL ORIVE I NODULE E0U1V. 


02938 


26 


02 1 O S 


02857 


1 1010 




TO 






02950 


2S 


00440 


02857 


i 1020 




SF 


HALT,,, 


INOICATE PRESENCE Of MONITOR. 


02942 


32 


Q0496 


00000 


1 10)0 




TOM 


I0P*37,9,, 


DISABLE CONTROL CARD TRAP. 


02974 


IS 


01967 


00009 


1 1040 




BD 


MB033,OVRLAV*10,, 


TEST FOR ENTRY VIA CNtL CARD TRAP* 


029B4 


41 


OS 162 


00478 


1 1050 




TOM 


MIOl.O., 


NO -SET UP TO RE AO A CNTL CARD. 


©2998 


IS 


09428 


00000 


1 1040 


MB010 


TO 


•♦34,MC0MM*12,, 


ON AY EATCHAV. 


03010 


2S 


01044 


02844 


1 10T0 




TO 


•♦23. SYSCAL 




03023 


2S 


0S043 


00475 


I ioto 




TO 


SYSCAL .MC006 




0S0S4 


JS 


004 7S 


10740 


i ioto 




60 


MB020, SYSCAL, , 


TEST IF ENO OF JOB. 


03044 


43 


01070 


00475 


moo 




BTM 


UTOT.l,, 


YES -GO TO JOB CLOSING ROUTINE. 


03058 


17 


OS 782 


-0001 


1 11 10 


MB020 


TO 


•♦23, SYSCAL,, 


EXECUTE A COMPUTEO BRANCH ON SYSCAL. 


03070 


23 


03093 


00475 


11120 




TO 


•♦23.MC009 




03082 


25 


0110S 


10770 


111 so 




TF 


•♦18.MCD10 




03094 


24 


01112 


10781 


11140 




B 


MB025,,6 




03104 


49 


0112- 


00000 


11150 




OORG 


M8000*214, 


TRICKY, WHAT SAY — . 


03114 








11140 


MB025 


OSA 


MCR01,MB080,MB100 


,MB100,MB140 


03120 




5 


X 5 












03120 




-4068 














03125 




-3274 














03130 




-3422 














03135 




-3422 














03140 




-34S8 




11170 


HBO 30 


TOM 


SYSCAL, 0, , 


FORCE TERMINATION OF JOB. 


03142 


15 


00475 


00000 


11 180 




B 


MB01G+4B 




03154 


49 


03058 


00000 


1 1190 




DORU 


•-3 




03142 








1 1200 


MB035 


SF 


NONEX, , , 


INHIBIT EXECUTION. 


03142 


32 


00457 


00000 


1 1210 




TO 


•-1,0VRLAY*10,, 


SAVE RETURN COOE. 


03174 


25 


03173 


00478 


11220 




TOM 


0VRLAY*10,Q,, 


RESTORE MAIN INO. 


03184 


15 


00478 


00000 


1 1250 




BNF 


MB045,MB035*U,, 


TEST IF READ NUMERICALLY. 


03198 


44 


03254 


03173 


1 1240 


MBQ<»0 


WATY 


MMiO, , , 


TYPE RELOAD MESSAGE. 


03210 


59 


10339 


00100 


1 1250 




RCTY 






03222 


34 


00000 


00102 


1 1260 




H 




WAIT FOR OPERATOR. 


03234 


48 


00000 


00000 


1 1270 




B 


MB010-12 




03246 


49 


02998 


00000 


1 1280 




OORG 


• -3 




03254 








1 1290 


M8Q45 


TOM 


MIOl.lt* 


INHIBIT READING A CONTROL CARD. 


03254 


15 


09828 


00001 






B 


M8010 




03266 




03010 


00000 


11310 




OORG 


«-3 




03274 








11320 


MB080 


BTM 


UTll,,, 


TEST FOR INHIBITED EXECUTION. 


03274 


IT 


09604 


-0000 


11330 




TOM 


MD02.6,, 


SET SYSCAL CODE. 


03284 


15 


09731 


00006 


11340 




TOM 


MC0MM*12,6,, 


SET DUP INDICATOR. 


03298 


15 


02844 


00006 



302 
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11350 




TR 


MR02*DUPDDA, , 


GET DDA FOR DUP SUPERVISOR. 


03310 


31 


09732 


10842 


11340 




BNR 


MB08ltMR02, , 


TEST IF VALID. 


03322 


45 


03390 


09732 


11370 




TFM 


POINT, 139, , 


NO. 


03334 


16 


09754 


-0139 


11380 


MB080A 


WATY 


MM36,,, 


TYPE ERROR MESSAGE. 


03344 


39 


10439 


00100 


11390 




WNTY 


POINT-3,,, 


IDENTIFY MISSING DIM ENTRY. 


03358 


18 


09753 


00100 


11400 




RCTY 






033T0 


34 


ooooo 


00102 


11410 




B 


UT10F 




03382 


49 


09550 


OOOOO 


11420 




OORG 


•-3 




03390 








11430 


MB081 


NOP 






03390 


41 


OOOOO 


ooooo 


11440 




TO 


MB22S+T,MCR01A» , 


NO LOAD ADDRESS. 


03402 


25 


04040 


04455 


11450 




B 


MB200,, 


GO TO EXECUTE LOAD. 


03414 


49 


03734 


OOOOO 


11460 




OORG 


•-3 




03422 








1 1470 


MB 100 


BTM 


UTll,,, 


TEST FOR INHIBITED EXECUTION. 


03422 


17 


09606 


-0000 


11480 




BNF 


MB145tMC0MM+l f , 


TEST IF PHASE BEGAN WITH EXECUTE CARD. 


03434 


44 


03690 


02853 


11490 




BNF 


MB110tMC0MM*2t t 


YES -TEST IF EXECUTION INHIBITED. 


03446 


44 


03464 


02854 


11500 




B 


UTIOF,, , 


YES. 


03458 


49 


09550 


OOOOO 


11510 




OORG 


•-3 




03446 








11520 


M8U0 


TOM 


MC0NM*12,4, , 


SET EXECUTION INDICATOR. 


03466 


15 


02864 


00004 


11530 




BNF 


MBUOB, COMM+22,, 


TEST IF PROGRAM LOADED TO DISK. 


03478 


44 


03566 


02824 


11540 




BO 


MBUOB, COMM+22,, 


YES -TEST IF IN CORE IMAGE FORMAT. 


03490 


43 


Q3566 


02824 


11550 




BNF 


•*20,C0MM*39,, 


YES -TEST IF A DIM NUMBER SUPPLIED. 


03502 


44 


03522 


02841 


11560 




B 


MBUOB,,, 


MHERE ARE YOU. 


03514 


49 


03566 


OOOOO 


11570 




OORG 


•-3 




03522 








11560 


MB 1 10A 


BT 


UT05,COMM*39,, 


GO TO GET THE DDA. 


03522 


SI 


08350 


02841 


11590 




TR 


MR02,UT05-l,U, 


MOVE TO TEMPORARY SLOT. 


03534 


31 


09732 


0834R 


11600 




BNR 


MB190,MR02,« 


TEST IF VALIO. 


03544 


45 


03710 


09732 


11610 




B 


MX004«12,», 


NO -TYPE ERROR MESSAGE AND CLOSE JOB. 


03556 


49 


07206 


OOOOO 


11620 




OORG 


•-3 




03566 








11630 


MBUOB 


TR 


MR02*1,C0NN,, 


USE DDA IN COMN SECTOR AS LOAD OOA. 


03566 


31 


09733 


02802 


11640 




A 


MR02+ 3 , SRELOC 1 1 


CONVERT FROM SCRATCH TO ABSOLUTE 


03578 


21 


0973S 


00425 


11650 




TO 


MR02,SREL0C-3,, 


SECTOR ADDRESS. 


03590 


25 


09732 


00422 


11660 




TFM 


MR02* 13 ,99999,, 


FORCE THE RELOCATABLE INDICATOR. 


01602 


14 


0974S 


R9999 


11670 




BNF 


• ♦24,C0MMU2,, 


TEST IF THE SPS SUPERVISOR REQUIRED. 


01614 


44 


03618 


02814 


11680 




SF 


MR02»13,,, 


YES -SET FLAG INDICATOR. 


01426 


32 


0974S 


OOOOO 


11690 




TFM 


HIGH, SYSORGt t 


RELOCATABLE PROGRAMS MILL BE LOADED 


03638 


14 


00434 


-2402 


11700 




B 


MB19S, 1 1 


AT SYSORG. 


01*»0 . 


49 


03722 


OOOOO 


11710 




DORG 


•-3 




0S6S0 








11720 


MB 140 


BNF 


• ♦20,M€0MMU,, 


TERMINATE JOB IF THIS PHASE INVOLVES 


01690 


44 


01678 


028S3 


11730 




B 


MBOSOtt, 


EXECUTION OF A USER-S PROGRAM. 


01670 


49 


01142 


OOOOO 


11740 




OORG 


•-3 




03670 








11750 




BTM 


UTll, 


TYPE NON EXECUTE MESSAGE. 


01678 


17 


09606 


-0001 


11740 


MB145 


TOM 


MC0MM*1,0,, 


INDICATE PHASE NOT BEGUN. 


01690 


IS 


G28SS 


OOOOO 


11770 




B 


MCROl-12,,, 


GO TO CONTROL CARO REAO EXECUTIVE. 


01702 


49 


040S6 


OOOOO 


11780 




DORG 


•-3 




03710 








11790 


MB 190 


TDM 


MB225,3,» 


FORCE UPOATING OF HIGH INDICATOR. 


03710 


IS 


0403S 


00003 


11800 


MB 195 


TDM 


MD02.0, , 


SET SYSCAL COOf. 


01722 


IS 


09711 


OOOOO 


11810 


•••••• 


FINAL LOA© AMD ilgCUTI OF SYSTEM OR USERS mm»m m 










11820 


MB200 


TF 


E0UIV«3 t MC0MM47tt 


MOVE REMAINOER OF EQUIV TASLf » 


03714 


26 


02103 


02859 


11830 




TF 


E0UI¥*5fMC9MM*9 




01746 


26 


02107 


02841 


11840 




TF 






03738 


26 


02109 


02863 


11850 




TR 


HiPO$»LREC»» 


$1? DRIVE mPG%llim TABLE T© 2ER0-S. 


01770 


li 


DOS 12 


09601 


11840 




TDM 


REPOS*T e O 




01782 


15 


Q0SI9 


OOOOO 


11870 




TO 


•♦47,FSPS,« 


MOVE CQNffiOt mm SOURCE TO COMMON. 


01794 


25 


01841 


00429 


11880 




TO 


FSPS»MC0MM»3 




01806 


IS 


00429 


028SS 


11890 




BNF 


•♦24,**23 




03818 


44 


01842 


03841 


11900 




SF 


FSPS 




01810 


Si 


00429 

3 


OOOOO 

03 
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I 1910 




SF 


k-wi nr Mil 


FOR GOOD MEASURE. 


0)842 


12 


00428 


00000 


1 1920 




SF 


CINI T 




0)814 


32 


00427 


00000 


1 19)0 




TR 






0)844 


31 


02846 


09776 


1 1940 




TFM 


I nun . 


Miff r ohm ^Fr.rnR on diu. 


0)878 


16 


00969 


•3901 


1 1990 










0)890 


49 


00920 


•4010 


1 1940 




TOM 


IUr*J f v 9f • 




0)902 


I) 


01947 


00005 


1 1970 




TO 






0)914 


25 


0047) 


09731 


1 1990 




CF 






0)924 


13 


00456 


00000 


1 1990 




CF 


MALT*! ' 




0)9)8 


33 


00457 


00000 


12000 




80 


M8210, SYSCAL , t 


TEST FOR EXECUTION. 


0)9)0 


43 


0)996 


00475 


12010 




MATY 


MM2Sttt 


YES -TYPE MESSAGE. 


0)942 


39 


10277 


00100 


12020 




RCTY 






0)974 


)4 


00000 


00102 


12010 


MB210 


TFM 


I0XX,««21,, 


LOAO AND EXECUTE OESIREO PROGRAM. 


0)984 


16 


00565 


-4009 


12040 




g 






0)998 


49 


00566 


-40)) 


12010 


MB220 


osc 


2.22 




04010 




2 




12060 




22 
OSA 


M8222 




04014 




5 


X 1 












04014 




-4018 




12070 




OSC 
1 


1.' 




04017 




1 




12080 


MB222 


osc 


l 9 I 




04018 




I 




12090 




1 

OSA 


OSA 39 




0402) 




5 


X 1 












0402) 




J9663 




12100 




OSC 


).l 




04024 




3 








001 














12110 




DSA 


COMM 




04011 




5 


X 1 












040)1 




-2802 




12120 




OSC 


It' 




04032 




1 




121)0 


M8225 


osc 


2,-22 




040)3 




2 




12140 




2K 
OSA 


MR02 




04039 




5 


X 1 












04039 




-9732 




12150 




OSC 


It' 




04040 




1 




12160 




DSC 


5,0* 




04041 




5 








0000' 














12161 


MB226 


DC 


2,-01 




04047 




2 




12162 




-J 
DC 


2,-01 




04049 




2 








-J 
DC 


2.-01 








2 








-J 
DC 


3,-01* 




040)4 




j 




12170 




MONITOR CONFKOL CARD 


READ SUPERVISOR ROUTINE. 










12180 




TDM 


MI01,0,, 


TURN OFF ALREADY READ INO. 


040)6 


15 


09828 


00000 


12190 


MCROl 


TD 


MCR02A+11 «MC0MM+3« (DECODE CONTROL CARD INPUT SOURCE. 


04068 


25 


04127 


02855 


12200 




TO 


•*2),MC0MM+) 




04080 


25 


04103 


02855 


12210 




TF 


MCR06*6,MCD02 




04092 


26 


04941 


10700 


12220 




80 


MCR04,MI0l,, 


TEST IF CNTL CARD ALREADY READ. 


04104 


43 


04304 


09828 



30 4 

1620/1)11 SUPERVISOR AND I0RT PAGE 30 



12230 


MCR02A 


BNF 


MCR03,MC001 t , 


TEST IF TYPEWRITER INPUT. 


04116 


44 


04188 


10690 


12240 




RCTY 


» t » 


YES -TYPE ENTER MESSAGE. 


04128 


34 


00000 


00102 


12250 




MATY 


MM01 




04140 


39 


09831 


00100 


12260 




BNF 


•♦24.MI03,, 


TEST IF IN JOB CARD SEARCH. 


04152 


44 


04176 


09829 


12270 




WATY 


MM24 




04164 


)9 


10297 


00100 


12280 




RCTY 






04176 


34 


00000 


00102 


12290 


MCR03 


TFM 


•♦18,HCCBUF,, 


CLEAR THE CONTROL CARD BUFFER. 


04188 


16 


04206 


J 3000 


12)00 




TR 


XX,MCR04A*7 




04200 


31 


00000 


04451 


12310 




AM 


MCR03*18,4 




04212 


1! 


04206 


-0004 


12320 




CM 


MCR03+18,MCCBUF»160 


04224 


14 


04206 


J)160 


12330 




BNI 


MCR03*12,1300 




04236 


47 


04200 


01300 


12340 




TFM 


IOXX,**23«« 


READ A RECORO FROM CONTROL RECORD SOURCE. 


04248 


16 


00565 


-4271 


12350 




8 


I0GT,MCR06,7 




04260 


49 


00566 


-49)5 


12360 




BNI 


•♦32,400,, 


IF SSM4, ALLOW RE-ENTRY ON TYPEWRITER 


04272 


4? 


04304 


00400 


12370 




BNF 


•♦20,MCR02A*ll,ll, 


INPUT. 


04284 


44 


04304 


0412P 


12380 




B 


MCR01-12 




04296 


49 


04056 


00000 


12390 




OORG 


•-) 




04)04 








12400 


MCR04 


BNF 


• *24,MCR02A+U,U, 


RESTORE CARRIAGE IF TYPEWRITER INPUT. 


04)04 


44 


04328 


0412P 


12410 




RCTY 






04)16 


)4 


00000 


00102 


12420 




TDM 


MI01,1«, 


TURN ON CNTL CARD READ INHIBITOR. 


04)28 


15 


09828 


00001 


12430 




BNR 


MCR01-l2,MCCBUF*l,,R£A0 AGAIN IF NO DOUBLE R.M. 


04340 


45 


04056 


1)001 


12440 




BNR 


MCR01-12,MCCBUF*3 




04352 


45 


04056 


1)00) 


12450 




TFM 


MF01,4,, 


TREAT AS COMMENTS CARD IF ANY R.M. 


04)64 


16 


09704 


-0004 


12460 




8TM 


UT03,MCCBUF*5,, 


IN COLS. 3-6. 


04)76 


17 


09038 


J 3005 


12470 




BNR 


MCR04A,M001 




04)88 


45 


04444 


09730 


12480 




BNR 


NCR05A,MCCBUF»5,, 


TEST FOR END OF JOB. 


04400 


45 


04626 


1)005 


12490 




BNR 


MCR05A,HCCBUF*7 




04412 


45 


04628 


1)007 


12500 




TDM 


MIOWO,, 


01 SABLE CONTROL CARD READ INHIBITOR. 


04424 


15 


09828 


00000 


12510 




8 


MB030 




044)4 


49 


0)142 


00000 


12520 




OORG 


•-3 




04444 








125)0 


MCR04A 


CF 


MCCBUF+6,,, 


CLEAR FLAGS FOR COLS. 4,1 ANO 4. 


04444 


33 


13006 


00000 


12)40 




OORG 


•-4 




04491 








12590 




DC 


2.0 




044)2 




2 




12560 




-0 
DC 


3,0', 




044)5 




3 




12570 




-0« 
CF 


MCC8UF*8 




04494 


)) 


1)008 


00000 


12580 




CF 


MCCBUFMO 




04448 


)3 


1)010 


00000 


12590 




TOM 


MOOl.O 




04480 


IS 


097)0 


00000 


12400 


• 


DECODE CONTROL CARD 


TYPE 










12410 




C 


MCCBUF*ll»NM02*6,, 


TtST FOR -JOB- CARD. 


04492 


24 


1)011 


09985 


12420 




81 


WJ80l,l200 




04904 


46 


04944 


01200 


124)0 




C 


MCC8UF*U»MM0)*6,» 


TEST FOR -TVPE- CARD. 


04914 


24 


1)011 


09893 


12440 




BNI 


MCR05»1200 




04)28 


47 


04572 


01200 


12490 




TOM 


MCOMM*),!, , 


YES -SET INDICATOR. 


04940 


IS 


02955 


00001 


12440 




8TM 


UT06,,, 


GO TO TYPE-OUT ROUTINE. 


04992 


17 


09494 


-0000 


IS470 




8 


MCR01-12,,, 


GO TO REAO ANOTHER CARD. 


04944 


49 


04056 


00000 


! "480 




OORG 


•-) 




04972 








12490 


MCR05 


C 


MCC8UF*ll,MM04*4,, 


TEST FOR -PAUS- CARD. 


04972 


24 


1)011 


09901 


12700 




BNI 


MCR05A,1200 




04994 


47 


04629 


01200 


12710 




BTM 


UT04,,, 


VES -GO TO TYPE-OUT ROUTINE. 


04994 


17 


09494 


-0000 


12720 




H 


* $ * 


AFTER START. REAO ANOTHER CARO. 


04408 


48 


00000 


00000 


127)0 




8 


MCROl- 12 




04420 


49 


04056 


00000 


12740 




OORG 


•-3 




04429 








12790 


MCR05A 


•0 


HCR0W2.MI03,, 


RE-READ IF IN JOB CARD SEARCH* 


04429 


4) 


040)6 


09929 


12740 




BTM 


UT04.,, 


GO TO TYPE OUT THE CARO. 


04440 


17 


09494 


-0000 
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91 



into 




to 


8£R01-l2»M001.« 


READ Mf XT CAR0 if FQRCE0 COMMENTS CARD* 


066 §2 


41 


04056 


09730 


lifts 




TO 


CGMM«22 » E RFC • > 

CCff 9 M9»%» 9 9 


INITIAL I2F SK AMD FOB TRAM PROftltOR 


06604 


11 


02024 


09756 


12 ft 0 




TDM 


COMM* 39«0t 11 f 


OUTPUT F IELDS. 


04676 


|§ 


02041 


0000* 


12000 




TR 


COMM,MREC 




04600 


11 


02002 


09009 


12010 




f 0 


SFD1NT. MCtfMMfc 3 




04 TOO 


21 


00426 


02059 


12020 




f R 


f.fM£M«>?&.KAFt. « 


ni SARI 8 COMM SECTOR EMOICAtORS PUR 

Ul «Olil WWn vKtilUn iflUlliMlvMt « UM 


04712 


31 


02076 


09792 


12010 




TOM 


£fJMM«R2.0. II. 

*e*I»*«^9»« 9 Vf 119 


cbc ANA PAR f ft AM Sti&ROUTlNI LQAfiCfti. 


04724 


II 


02004 


0000* 


12140 




TFM 


rl g 19rJ |#? AIM w 




06736 


}t 


00414 


•2402 


12ttO 




TO 


M82 2 §♦ 7 • M£ AO 1 6 




04740 


It 


04060 


04495 


lit 00 




£ 


MfXftuF* 1 1 ntifil r a . 


TlST FOR -SPS- CARD. 

1991 rw V— ■— 


04760 


24 


13011 


09909 


I2tf 0 




01 


M&ROl . l?AO 




04772 


46 


04196 


01200 


12ttO 




c 


MCCBUF^U.MMOA+A. • 


TEST FOR -SPSX- CARD. 


04764 


24 


11011 


09917 


12190 




SI 


"JrV* 9 KVV 




04796 


46 


062 It 


01200 


12900 




c 


M££ftUF«l 1 .MUAY9-A. . 


f set cne -»«cnB- f tin. 


04600 


24 


11011 


09925 


12910 




SI 


MFTOt . 12AO 




04420 


46 


06550 


01200 


12920 




c 


MCCRUF ♦ 1 1 • MM06+6 • * 


TEST FOR -F0RX- CARD. 


04632 


24 


13011 


09933 


12930 




BI 


W 9 V< 9 ItwV 




04t44 


46 


06570 


01200 


12990 






MmilFtl 1 . MMA4»A. . 
nV#W9wrT *. & tnRVTT9| f 


TccT FfiB «_nii*— r Attn 


048 $6 


|4 


1301 1 


09941 


12990 




B I 


Hnpni . I ?AA 

WUrWi 9 1CUU 




04660 


46 


06806 


01200 


12900 




C 


nvtovr» 14, WB|WT9( 9 


Ttcr cnt .yen. r ign 
101 run new vA9ti#« 


04800 


24 


1301 1 


09949 


12970 




Bl 


mvaai . t ?nn 

"Wvl 9 ItVU 




04692 


46 


06910 


01200 


12900 






"tt BUS* • Ji 1 9 »W i 1 ▼ O 9 9 


TccT cm .icnc. run 


04904 


24 


1301 1 


09957 


12990 




BI 


MXQ02 f 1200 




04916 


46 


06942 


01200 


13000 




B 


NCR01-12.MCCBUF*!, 


7 .COMMENTS CARD -60 TO READ NEXT ONE. 


04926 


49 


04056 


J3001 


13010 


MCH06 


OS 


0,«-4 




04999 




0 




13020 




DC 


2, XX 




04941 




2 




13030 




XX 
DSC 


lt» 




04942 




I 




i inin 




OS 


0,MCR04A*11 




04495 




0 




l *a«a 
) 




JOB CARD PROCESSOR 












1 3060 


M JB01 


BTM 


UT07,,, 


uU IU JUB tLUit (JUT HtHJI INC. 


a2q«a 


1 7 


08782 


-0000 




MJB02 


BTM 


UT06,,, 


l*U IU LUNIHUL KCvUKU lift UUI KUVI 1 IHC« 




1 7 


08494 


—0000 


i !non 




TFM 


F0,«*23,,, 


ncrnnc mi ■* 


04968 












B 


UT10,HJB02A,7 




04900 


49 


09 1 38 


— 5060 


1*1 fin 




BNF 


MJB03,F4,, 


MIICT ICBCin It 1UV CDont 


04992 




05074 


09590 


131 10 




BNF 


MJB30tFl,» 


cylT IP O M 
C A 11 t r 1%. n« 


05004 


4 A 


06150 


09587 


1 3120 




BNF 


MJB04,ND0l 




05016 


A4 


05142 


097 30 






BO 


MJB03B.MC001,, 


DinrPFn ic pantos: a niciT 
rnuttsU ir rRurtu vial 9 • 


05028 


43 


0b 1 30 




1 3140 




TFM 


F0.MJB03,, 




05040 


16 


09586 


-5074 


13150 




B 


UT10E 




05052 


49 


09482 


uuuuu 


13160 




OORG 


• -3 




05060 








1)170 


MJB02A 


DSC 


4,0100 




05060 




4 








0100 














13180 




DC 
-7 


2,7 




05065 




2 




13190 




DC 


2,1 




05067 




2 




13200 




DSA 


MJB02X*ll 




05072 




5 


X i 












05072 




-*5039 




1 32 10 




DSC 


19* 




05073 








13220 


MJB03 


RCTY 






05074 


34 


00000 


00102 


13230 


MJB03A 


TOM 


MC0MM*3,l,, 


CHANGE SOURCE INDICATOR* 


05066 


IS 


02855 


00001 


13240 




TOW 


M!03,1,U, 


INDICATE JOB CAR0 SEARCH. 


03098 


If 


09829 


0000J 



31,6 
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13250 




TDM 


MCOMM.0,, 


INDICATE JOB NOT BEGUN. 


05110 


15 


02852 


00000 


13260 




B 


MCR01-12.99 


GO TO CNTL CAR0 READ SUPERVISOR. 


05122 


49 


04056 


00000 


13270 




DORG 


•-3 




05130 








13280 


MJB03B 


TO 


MCOMH*3,MF02,ll 




05130 


25 


02855 


0970R 


13290 


MJB04 


SF 


MJB10.99 


INITIALIZE TO SCAN REMAINDER OF CARD. 


05142 


32 


05250 


00000 


13300 




SF 


MJB15 




05154 


32 


05574 


00000 


13310 




TO 


MJ6U»ll,C0MM*49 




05166 


25 


05377 


02851 


13320 




TO 


MJB20+8,C0MM*49 




05176 


25 


06034 


02851 


13330 




TDM 


MJB15A*ll,l 




05190 


15 


05689 


00001 


13340 




TFM 


MJB13A*6,MC0MM*S 




05202 


16 


05544 


-2857 


13350 




TFM 


MJB17*11,4 




05214 


16 


05941 


-0004 


13360 




TFM 


MJB50A*5,8«10 




05226 


16 


06175 


000-8 


13370 




TFM 


MJB55A*5,12,10 




05238 


16 


06189 


000 J 2 


13380 


MJB10 


BNF 


MJB12A«-129«99 


IGNORE CONTROL CARD FIELD IF SCAN OVER. 


05250 


44 


05494 


05250 


13390 




TFM 


F0,»*23,, 


DECODE CURRENT DRIVE EQUIV. FIELD. 


05262 


16 


09586 


-5285 


13400 




B 


UT10,MJB50A,7 




05274 


49 


09138 


-6170 


13410 




TOM 


MJB12A+1, I, , 


SET ERROR RETURN SWITCH. 


05266 


IS 


05483 


00001 


13420 




BNF 


MJB12«-20,F4,, 


CHECK FOR ANY ERROR. 


05296 


44 


05410 


09590 


13430 




BNR 


•♦44, M00 I,, 


TEST IF CARD FINISHED. 


05310 


45 


05354 


09730 


13440 




CF 


MJBIO999 


YES -NO FURTHER SCAN OF FIELDS* 


05322 


33 


05250 


00000 


13450 




CF 


MJB15 




05934 


33 


05574 


00000 


13460 




B 


MJB12A>12 




05346 


49 


05494 


00000 


13470 




DORG 


•-3 




05354 








13480 




BNF 


MJB12AU2,MD01,, 


IGNORE A BLANK. 


05354 


44 


05494 


09730 


13490 


MJB11 


CM 


MF02,XX,610, 


NO -CHECK IF WITHIN CORRECT RANGE. 


05366 


14 


0970R 


000-0 


13500 




BNI 


MJB13,1300 




05376 


47 


05514 


01300 


13510 


MJB12 


TFM 


F0,»«20,« 


NO -TYPE ERROR MESSAGE. 


05390 


16 


09586 


-3410 


13520 




B 


UT10E 




05402 


49 


09482 


00000 


13530 




DORG 


•-3 




05410 








13540 




WATY 


MM17 




05410 


39 


10023 


00100 


13550 




RCTY 






05422 


34 


00000 


00102 


13560 




H 




WAIT FOR OPERATOR. 


05434 


48 


00000 


00000 


13570 




BNI 


MJB03.400,, 


IF NO SSW4, SOURCE CHANGES TO TYPEWRITER. 


05446 


47 


05074 


00400 


13580 




WATY 


MM31,,, 


INDICATE THAT CONDITION IGNORED. 


05456 


39 


10361 


00100 


13590 




RCTY 






05470 


34 


00000 


00102 


13600 


MJB12A 


NOP 


MJB15A-20,,, 


NOP /BRANCH SWITCH. 


05462 


41 


05658 


00000 


13610 




TF 


MF02,MJB13A*6,6ll 


9 9 ALLOW THE 01 D EQUIVALENCE TO STAND. 


05494 


26 


097OR 


0354M 


13620 




B 


MJB13A«12 




05506 


49 


05550 


000O0 


13630 




OORG 


•-3 




09514 








13640 


MJB13 


A 


MF02,MF02,61l, 


COMPUTE PHYSICAL 0RIVE CODE. 


05514 


21 


0970R 


097OR 


13630 




AM 


MF02, 1,610 




05526 


11 


0970R 


000- 1 


13660 


MJB13A 


TF 


XX,MF02,2il, 


MOVE TO MCOMM EQUIV TABLE. 


05510 


24 


-0000 


0970R 


13670 




AM 


MJB13A46,EQUiy-MC0MM-4,,M0VE 70 I0RT EQUIV TAttE. 


05550 


11 


05544 


-075M 


13660 




TF 


MJB13A«6,MF02,6U 




05562 


26 


0534M 


0970R 


13690 


MJB15 


BNF 


MJB15A-20,*,, 


TEST IF R.M. ALREADY ENCOUNTERED. 


05574 


44 


05658 


05574 


13700 




TFM 


F0,»«23,, 


NO -EXTRACT CURRENT PACK NO. FIELD. 


05566 


16 


09566 


-5409 


13710 




B 


UT10,MJ855A97 




05996 


69 


09138 


-6184 


13720 




TDM 


MJB12A*1,9»9 


SET SWITCH. 


09610 


15 


01483 


00009 


13730 




BNF 


MJB12»20,F4,, 


CHECK FOR ANY ERROR. 


05622 


44 


05410 


09990 


13740 




BNR 


•♦24 ( M001 9 9 


NO -TEST IF CARD FINISHED. 


09614 


43 


05656 


09730 


13750 




CF 


MJ615999 


YES -NO FURTHER SCAN OF PACK NO. FIELDS. 


05646 


11 


05574 


00000 


13760 




80 


••♦20 8 «J81fA#6.a } 


SKIP TO INC IF MODULE NOT ATTACHES. 


05651 


43 


056ft 


0554M 


13770 




8 


MJ820 




09670 


49 


06026 


00000 


13760 




OORG 


®»3 




09670 








13790 


MJ815A 


TOM 


MJB23,XX.109 


READ TRACK CONTAINING PACK NUMBER. 


05678 


IS 


06114 


000*0 


13600 




TFM 


I0XS,»*23 




09690 


16 


00569 


-5713 



30? 
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1)810 




B 


IOGT,MJB22,7 




05702 


49 


00566 


-6126 


13020 




BNF 


MJB17,MJBIS,, 


IGNORE CHECK IF END OP CARO, OR 


05716 


44 


05930 


05574 


13830 




BNF 


MJB17.MD01,, 


BLANK FIELD, OR 


05726 


44 


05930 


09730 


13840 




BNF 


MJB17.F4,, 


IGNORED ERROR IN FIELD. 


05738 


44 


05930 


09590 


13890 




SF 


I6003,i, 


CONPARE TNE PACK NUMBERS. 


05750 


32 


14005 


00000 


13860 




C 


14009,MF02,11 




05762 


24 


14009 


0970R 


13870 




81 


MJB17.1200 




05776 


46 


05930 


01200 


13880 




TO 


•*23,MJB23, , 


PACK NO. ERROR. -GET NODULE NUMBER. 


05786 


25 


05809 


06134 


13890 




BTM 


UT01,XX 




05798 


17 


07958 


-0000 


13900 




TO 


MM16*56,UT01-2 




05810 


25 


10015 


07956 


13910 




WATY 


MM16 




05822 


39 


09959 


00100 


13920 




TF 


HM17*T2,MM32*14 




05836 


26 


10095 


10413 


13930 




WATY 


MM17 




05866 


39 


10023 


00100 


13960 




TF 


MM17*78,MM33*20 




05858 


26 


10101 


10435 


13950 




RCTV 






05870 


34 


00000 


00102 


13960 




H 


» , , 


WAIT FOR OPERATOR. 


05882 


48 


00000 


00000 


13970 




BNI 


MJB15A.400,, 


RE-REAO PACK NO. IF SSW4 OFF. 


05894 


47 


05678 


00*00 


13980 




WATY 


MM31,,, 


TYPE CONDITION IGNORED MESSAGE* 


05906 


39 


10363 


00100 


13990 




RCTV 






05918 


34 


00000 


00102 


16000 


MJB17 


BTM 


UT05.XX, , 


READ IN DIM SECTOR FOR THIS LOGICAL 


05930 


17 


08350 


-0000 


1*010 




SF 


14000, t, 


MODULE AND MOVE SECTOR ADDRESS FOR 


05962 


32 


14000 


00000 


16020 




AM 


UT05-l,5,, 


THIS PACK TO PROPER DIM ENTRY. 


05956 


11 


08349 


-0005 


1*0 30 




TF 


UT05-1, 14004,6 




05966 


26 


0834R 


14004 


14031 




AM 


UT05-1, 1,610, 


AOO 1 TO SECTOR ADORESS. 


05978 


11 


0834R 


000- 1 


14040 




TD 


MAPENT»TENP-5» , 


WRITE IT BACK OUT ON DISK. 


05990 


25 


02118 


02144 


14050 




TFM 


IOXX,*>*23 




06002 


16 


00565 


-6025 


14060 




B 


I0RBC.MJB21.7 




06016 


49 


00520 


-6118 


14070 


MJB20 


SM 


•♦8, 1,710, 


EXIT IF ALL NODULES FOR THIS 


06026 


12 


06034 


-00- 1 


14080 




BNI 


MJB3O*U00,, 


CONFIGURATION PROCESSEO. 


06038 


47 


06150 


01100 


14090 




AM 


MJB13A*6,MC0MM- 


EQUIV+6 


06050 


11 


05544 


-0756 


14100 




AM 


MJB15A*U,2,10 




06062 


1 1 


056B9 


000-2 


14110 




AM 


MJfll7»ll,l 




06074 


11 


05941 


-0001 


14120 




AM 


M JB50A*5, 1,10 




06086 


1 1 


061 75 


000- 1 


14130 




AM 


MJ855A*5.5, 10 




06098 


11 


06189 


000-5 


14140 




B 


MJBIO, , , 


REPEAT FOR NEXT LOGICAL MODULE. 


061 10 


49 


05250 


00000 


14150 




DORG 


• -3 




06118 








14160 


MJB21 


DSC 


2,22 




06118 




2 




14170 




22 
OSA 


UT05B 




06124 




5 


X 1 












06124 




-8468 




14180 




osc 


I, * 




06125 




1 




14190 


MJB22 


osc 


2,26 




06126 




2 




14200 




26 
OSA 


MJB23 




06132 




5 


X I 












06132 




-613* 




1*210 




DSC 


I , * 


• 


061 33 




I 




14220 


HJ823 


DSC 


1*1 




06134 




1 




14230 




1 

DSA 


19800 




06139 




5 


X 1 












06139 




J9800 




14240 




DC 


3,20 




06142 




3 
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1*250 




OSA 


14000 




0614/ 




5 


X 1 












06147 




J4000 




1*260 




DSC 


l,» 




06148 








1*270 


MJB30 


TOM 


MI03,0, , 


DISABLE JOB CARO SEARCH. 


06150 


15 


09829 


00000 


1*280 




B 


MCROl-12, ,, 


GO READ ANOTHER CNTL CARD. 


06162 


49 


04056 


00000 


1*290 




OORG 


•-3 




06170 








1*300 


MJB50A 


DSC 


4,0100 




06170 




* 








0100 














1*310 




DC 


2,0 




06175 




2 




1*320 




-0 
DC 


2,1 




06177 




2 




1*330 




-1 
DSC 


6,0' 




06178 




6 








00000* 












1*3*0 


MJB55A 


DSC 


4,0100 




06184 




* 








0100 














1*350 




OC 


2,0 




06189 




2 




1*360 




-0 
DC 


2,5 




06191 




2 




1*370 




-5 
DSC 


6,0* 




06192 




6 








00000* 












1*380 




SPS AND SPSX CNTL 


CARO PROCESSOR 










1*390 


MSP01 


TDM 


MC0MM*1,3,, 


SET SPS ENTRY INO. 


06198 


15 


02853 


00003 


14400 




B 


• ♦20 




06210 


*9 


06230 


00000 


14410 




DORG 


•-3 




06218 








14420 


MSP02 


TDM 


MC0MM*1,3, 11, 


SET SPSX ENTRY IND. 


06218 


15 


02853 


OOOOL 


14430 




TDM 


MCOMM.l,, 


INDICATE PHASE BEGUN. 


06230 


15 


02852 


00001 


14440 




TOM 


MCOMM+12,5 




06242 


15 


0286* 


00005 


14450 




TFM 


FO,**23,, 


OECOOE COL. 7. 


06254 


16 


09586 


-6277 


14460 




B 


UT10,MSP05A,7 




06266 


49 


09138 


-6493 


14470 




TD 


•♦23,SFDINT,« 


TEST IF LEGITIMATE. 


06278 


25 


06301 


00426 


14480 




BD 


•♦20.MC001 




06290 


43 


06310 


10690 


14490 




8 


UTIOEf f , 


NO -KILL THIS PHASE. 


06302 


49 


09482 


00000 


14500 




OORG 


•-3 




06310 








14510 




BNF 


MSP03,F1 




06310 


44 


06430 


09587 


14520 




BNF 


MSP03, MCOMM+ 1 , , 


TEST IF SPSX CARO. 


06322 


44 


06430 


02853 


14530 




TFM 


F0t*+23,f 


YES -DECODE COLS. 8-9. 


06336 


16 


09566 


-6357 


14540 




B 


UT10,MSP05B,7 




06366 


49 


09138 


-6507 


14550 




BNF 


MSP03.F1 




06358 


44 


06430 


09587 


14560 




TFM 


F0,**23,, 


DECODE COL. 10. 


06370 


16 


09566 


-6393 


14570 




B 


UTIO.MSP05C7 




06382 


49 


09138 


-6521 


14580 




BNF 


MSP03,Fl 




06396 


44 


06430 


09587 


14590 




TFM 


F0,«*23,, 


DECODE COLS. 11-12. 


06406 


16 


09586 


-6429 


14600 




B 


UT10,MSP05D,7 




06418 


49 


09138 


-6535 


14610 


MSP03 


TR 


MR02,SPSD0A», 


MOVE ODA FOR SPS ASSEMBLER. 


06630 


31 


09732 


10802 


16620 




BNR 


MSP06,MR02,, 


TEST IF VALIO. 


06642 


45 


06474 


09732 


16630 




TFM 


POINT, 8, , 


NO -TERMINATE CURRENT PHASE. 


06454 


16 


09756 


-0008 


16640 




8 


HBOBOA 




06466 


49 


03346 


00000 


14650 




DORG 






06474 








16660 


MSP04 


TDM 


MD02,*, 


SET SYSCAL CODE. 


06474 


15 


09731 


00004 


16670 




8 


MB081+12 




06486 


49 


03602 


00000 


14680 




DORG 


•-6 




06493 








14690 


MSP05A 


DSC 


6,0101 




06493 




4 








0101 















3 U ii 
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PA6E 






DC 


2»7 


- 


04448 




2 




14710 




-7 
DC 


2»1 




04400 




2 




14720 




-I 
OSA 


SPDINT 




04405 




9 


X 1 












0*904 




•042* 




14730 




DSC 

8 






04904 




1 




14740 


MSP0S4 


DSC 


4.0101 




04907 




4 








0101 














l*?50 




DC 


2.8 




04912 




2 




1*740 




-8 

DC 


2#2 




04914 




2 




14770 




-2 
DSA 


C0MM»81 




044 19 




5 


A 1 












04919 




-2483 




14740 




DSC 


I** 




04920 




1 




14740 


MSP05C 


DSC 


* a 010l 




04921 




4 








0101 














14800 




DC 


2,10 




04924 




2 








JO 














1*410 




DC 


2*1 




04929 




2 




14420 




-1 
OSA 


C0MM*77 




04533 




5 


X 1 












04933 




-2879 




1*830 




DSC 


It * 




04914 




1 




1*8*0 


MSP050 


OSC 


*,0101 




04939 




* 








0101 














1*840 




OC 


2*11 




065*0 




2 




1*840 




Jl 

OC 
-2 


2*2 




065*2 




2 




1*870 




OSA 


C0MM*79 




065*7 




5 


X 1 












065*7 




-2881 




1*880 




OSC 


It 1 




065*8 




1 




1*890 


•••••• 


FOR AND FORX CNTL 


CARD PROCESSOR. 










1*900 


MFTOl 


TOM 


MCOMM^l,*., 


SET FOR ENTRY I NO. 


06550 


15 


02853 


oooo* 


1*910 




B 


• ♦20 




06562 


*9 


06582 


00000 


1*920 




OORG 


•-3 




06570 








1*930 


NFT02 


TON 


MCUMMU,*,11, 


SET FORX ENTRY I NO* 


06570 


15 


02853 


OOOOM 


1*9*0 




TDM 


MCOMM, I,, 


INDICATE PHASE BEGUN. 


06582 


15 


02852 


00001 


1*950 




TOM 


MC0MM*t2.5 




0659* 


15 


0286* 


00005 


1*960 




TFM 


F0,«*23,, 


DECODE COL. 7. 


06606 


16 


09586 


•6629 


1*970 




B 


UT10,MSf>05A.7 




06618 


*9 


09138 


-6*93 


1*980 




TO 


•♦23.SFDINT,, 


TEST IF LEGITIMATE. 


06430 


25 


06653 


00*26 


1*490 




BD 


•♦20,HC001 




04442 


43 


04442 


10690 


15000 




B 


UT10E,, , 


NO -KILL THIS PHASE. 


0445* 


49 


09*82 


00000 


15010 




OORG 


•-3 




04662 








15020 




8NF 


MFT03.Fi 




06642 


** 


0673* 


09587 



3)0 
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15030 




TFM 


F0,»*23tt 


DECODE COL. 8. 




0667* 


16 


09584 


-4697 


150*0 




B 


UT10»MFT05B» 7 






06686 


*9 


09138 


-6778 


15050 




BNF 


MFT03.Fl 






06698 


** 


0673* 


09587 


15060 




TFM 


F0t"23.t 


DECODE COLS. 9-10. 




06710 


16 


09586 


-6733 


15070 




B 


UT10.MF T05C.7 






06722 


*9 


09138 


-6792 


15080 


MFT03 


TR 


MR02r FQRDDA. . 


MOVE DOA FOR FORTRAN 


COMPILER. 


0673* 


31 


09732 


10922 


15090 




BNR 


MSPO*.MR02,, 


TEST IF VALID. 




067*6 


45 


06*7* 


09732 


15100 




TFM 


POINT, 136 






06798 


16 


09756 


-0136 


15110 




B 


MB080A 






04770 


44 


033*6 


00000 


15120 




DORG 


♦-3 






04778 








15130 


MFT05B 


DSC 


*,010i 






04778 




* 








0101 
















151*0 




DC 
~8 


2.8 






06783 




2 




15150 




DC 
-I 


2,1 






06785 




2 




15160 




OSA 


CQMM*82 






06790 




5 


X 1 














06790 




-288* 




15170 




DSC 
• 


It 1 






06791 




1 




15180 


MFT05C 


DSC 


*,0101 






06792 




* 








0101 
















15190 




DC 
-9 


2,9 






06797 




2 




15200 




DC 
-2 


2,2 






06799 




2 




15210 




DSA 


COMM+75 






0680* 




5 


X 1 














0680* 




-2877 




15220 




OSC 


It* 






06805 




1 




15230 


•••••• 


DUP CNTL CARD PROCESSOR 












152*0 


M0P01 


TOM 


MGGMM+1,2,, 


SET PHASE INDICATOR. 




06806 


15 


02853 


00002 


15250 




TDM 


MCOMM, 1 , , 


INDICATE PHASE BEGUN. 




06818 


19 


02852 


00001 


15260 




TOM 


MCOMM+12.6,, 


SET DUP INDICATOR. 




06830 


IS 


0286* 


00006 


15270 




TOM 


M002,*,, 


SET SVSCAL COOE. 




04442 


15 


09731 


0000* 


15280 




TFM 


F0,**23., 


DECOOE COL. 7. 




04854 


14 


09584 


-6*77 


15290 




B 


UT10,MSP0SA.7 






04844 


44 


09138 


-4*93 


15300 




TO 


•♦23, SFDINT, , 


TEST IF LEGITIMATE. 




04879 


25 


04901 


00*26 


15310 




BD 


MB080*2*,HCDOl 






04890 


43 


03298 


10690 


15320 




B 


UTLOE,,, 


NO -KILL THIS PHASE. 




04902 


49 


09482 


00000 


15330 




DORG 


•-3 






04410 






153*0 




KEQ AND XEQS CNTL 


CARO PROCESSOR 












15350 


MXQ01 


CF 


FSPS,,, 


SET XEO ENTRY INDICATORS. 


04910 


33 


00424 


00000 


153*0 




TFM 


HX003B*li,27,lO 






04922 


14 


07157 


000*7 


15370 




B 


MXG02*2* 






04934 


49 


04444 


00000 


15380 




DORG 


•-3 






04942 






13390 


MX002 


SF 


FSPS,,, 


SET XEOS ENTRY INDICATORS. 


04942 


32 


00429 


00000 


15*00 




TFM 


MXQ03BM1.3*»10 






04994 


14 


07197 


OOOL* 


15*10 




TDM 


MCOMM,!,* 


INDICATE PHASE BEGUM. 




04944 


15 


02491 


00001 
00004 


15*20 




TOM 


MCOMM* 1,1, 11 






04978 


19 


02993 


15*30 




TOM 


MC0MM*!2t*», 


si? 08JECT m&mm indicator. 


04990 


15 


02944 


00004 


15**0 




BNF 


•♦20«MCOMM«2. « 


TEST IF EXECUTION IS 


INHI9ITE0 


07902 


44 


07022 


02*5* 


15*50 




8 


UT10F... 


YES -TYPE MESSAGE Aft* 


• FINISH W 401. 


07014 


44 


09990 


00000 


15*60 




OORG 


•-3 




07022 
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15410 




fFN 


FO, •♦21, # 


OE TERM INI IF COLS. 7-12 LEGITIMATE. 


07022 


1* 


0959* 


-7045 


1MI0 




8 


UT10,MXQS0,7 




0701* 


*9 


09119 


-781) 


15*90 




80 


MXQ07,N001 




070*6 


*1 


07*18 


097)0 


1*100 




BNF 


MXOOltMOOl 




07058 


** 


07078 


097)0 


19910 




8 


UT10E*,, 


NO "NAMES MUST 8E NON-NUMERIC. 


07Q70 


*9 


09*92 


00000 


19520 




DOUG 


•-) 




07078 








155)0 


MXQ03 


TFM 


MXQ01A»21iMXQ55»i 


INITIALIZE TO OECOOE REST OF CARD. 


07078 


1* 


0711) 


-7827 


15540 


MXQ03A 


TFM 


F0,*+2),, 


PERFORM THE SCAN. 


07090 


1* 


0958* 


-711) 


1SS50 




8 


UTIOtXX 




07102 


*9 


09118 


00000 


15590 




AM 


•"-It 1* 




0711* 


11 


07111 


-001* 


15570 




BNR 


•♦20,HD0l,, 


TEST FOR A.M. 


0712* 


*5 


071** 


097)0 


15590 




B 


MXQ06-2*,,, 


YES -ENO OF CARD. 


07118 


*9 


07170 


00000 


15590 




DOUG 


• -1 




071** 








15*00 


MXQ03B 


CM 


F5»XX 




071** 


1* 


09592 


-0000 


15*10 




BNI 


MXQOlA.llOO 




07198 


*7 


07090 


01300 


15*20 




BO 


MXQ12 t LDINPT* » 


BRANCH IF NON-DISK LOAD INPUT. 


07170 


*3 


0767* 


00*28 


15*10 




BNF 


MXQU,C0MM*15,, 


BRANCH IF PROGRAM NAME SUPPLIED. 


07182 


** 


07*62 


02837 


15**0 


MXQO* 


BNF 


MXQ05,C0HMO9, , 


TEST IF DIM ENTRY PICKED UP. 


0719* 


** 


0722* 


028*1 


15650 




MATY 


MM17tti 


NO -TYPE ERROR MESSAGE AND CLOSE JOB. 


0720* 


39 


10*75 


00100 


15**0 




B 


UT10F 




07218 


*9 


09550 


00000 


15*70 




DORG 


• -3 




0722* 








15*90 


MXQ05 


BT 


UT05,C0MM*19 t i 


GO TO PICK UP THE DIM ENTRY. 


0722* 


27 


08350 


028*1 


15*90 




TR 


MR02,UT05-lt 11* 


MOVE FOR LOAO ROUTINE. 


07218 


31 


09732 


0834R 


15700 




BNR 


•♦20,MR02,, 


TEST IF EMPTY. 


07250 


*5 


072 70 


09732 


15710 




B 


MXQ0*H2,,, 


YES -ERROR. 


072*2 


*9 


07206 


00000 


15720 




DORG 


•-3 




07270 








15710 




TF 


MF01.MA02M3,, 


DETERMINE IF RELOCATABLE. 


072/0 


26 


0970* 


09745 


157*0 




CF 


MF01 




07282 


33 


0970* 


00000 


15750 




CM 


MFOlt 99999 




0729* 


1* 


0970* 


R9999 


157*0 




BI 


MXQOftAt 1200 




0710* 


** 


07338 


01200 


15770 


MXQ06 


TFM 


MXQ06C*6 f MB190, , 


NO -FORCE UPOAIING OF HIGH 1N0ICAT0R. 


07119 


1* 


07*1* 


-3710 


15790 




B 


MXQ06B 




07110 


*9 


0738* 


00000 


15710 




OORG 


• -3 




07118 








15800 


MXQ06A 


BNF 


•♦24, COMMAS,, 


YES -MOVE IN LOAO ADDRESS IF ANY. 


07118 


** 


07362 


02810 


15810 




TF 


MB225*U,C0MM*12 




07350 


2* 


0*04* 


02814 


15820 




CF 


MB225*ll 




071*2 


33 


04044 


00000 


15810 




TFM 


MXQ06O6, MB195 




0717* 


I* 


0741* 


-3722 


158*0 


MXQQ6B 


BNF 


•♦24,C0MM»13, i 


MOVE IN ENTRY ADORESS IF SUPPLIED. 


0718* 


** 


07*10 


02815 


15850 




TF 


MR02«18,COMM»17 




07398 


2* 


09750 


02819 


158*0 


MXQ06C 


B 


MB195,,, 


MB190 OR M8195. 


07*10 


*9 


03722 


00000 


15870 




DORG 


•"3 




07*18 








15880 


MXU07 


CF 


MCCBUF+14, * t 


CLEAR EXCESS FLAGS IN NAME FIELD. 


07*18 


33 


1301* 


00000 


15890 




CF 


MCCBUF+16 




07*30 


33 


13016 


00000 


15900 




CF 


MCCBUF-flS 




0 7**2 


33 


13018 


00000 


15910 




CF 


MCCBUF+20 




07*5* 


33 


13020 


00000 


15920 




CF 


MCCBUF*22 




07**6 


33 


13022 


00000 


15910 


MXQ08 


TFM 


A803O0.MXQ09, , 


INITIALIZE FOR EQUIVALENCE TABLE SEARCH. 


07*78 


16 


1106* 


-7590 


159*0 




TFM 


AB03»50tMXQ10 




07*90 


16 


11Q84 


-7610 


15950 




TFM 


AB03*43,MCCBUF*23 




07502 


16 


11077 


J3023 


15960 




TF 


C0MM+35,MCCBUF*23 




0751* 


26 


02837 


13023 


15970 




TO 


AB09A i EQUDDA 




0752* 


25 


11379 


10662 


15980 




BNR 


•♦20,EQUD0A 




07538 


*5 


07558 


10862 


15990 




8 


• ♦20 




07550 


*9 


07570 


00000 


16000 




OORG 


•-3 




07558 








16010 




TF 


AB09A+5.E0U0DA+5 




07558 


26 


11384 


10867 


16020 




TFM 


MXQ03A^23,MXQ55+14 




07570 


16 


07113 


-7841 



312 
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16030 




B 


MXQ03A , , , 


RETURN TO OECOOE REST OF CARD. 


07582 


*9 


07090 


00000 


16040 




OORG 


•-3 




07590 








16050 


MXQ09 


WATY 


MM38,,, 


COULO NOT FINO -TYPE ERROR MESSAGE. 


0 7590 


39 


10511 


00100 


1*060 




B 


UUOF,,, 


FINISH UP. 


07*02 


*9 


09550 


00000 


1*070 




OORG 


•-3 




07*10 








16080 


MXQ10 


AM 


A803+U,*., 


MOVE CORRESPONDING DIM NUMBER TO 


07610 


11 


11045 


-0004 


16090 




TF 


C0MM*39,AB03U1,U 


, TO THE COMM SECTOR. 


07*22 


2* 


02841 


U04N 


16100 




B 


MXQ05,,, 


GO PICK UP THE DIM ENTRY. 


07*3* 


49 


07226 


00000 


16110 




OORG 


•-3 




07**2 








16120 


MXQ11 


BNR 


A 802- 12 , EQUDDA* , 


GO TO EQU TABLE SEARCH IF DOA VALID. 


07*42 


45 


10986 


10862 


16130 




TFM 


POINT, 2,, 


NO -TYPE ERROR MESSAGE. 


0765* 


16 


09756 


-0002 


161*0 




b 


MB080A 




076** 


49 


03346 


00000 


16150 




DORG 


•-3 




07674 








16160 


MXQ12 


TO 


•♦23,LDINPT,, 


TEST FOR LEGITIMACY OF INPUT DEVICE. 


07*7* 


25 


07697 


00428 


16170 




BO 


MXQl 3 » MC005 




07*9* 


43 


07718 


10730 


16180 




TFM 


POINT, 27,9, 


NO -TYPE MESSAGE ANO EXIT. 


07*98 


16 


09756 


00-27 


16190 




B 


UT10E 




07710 


49 


09482 


00000 


16200 




DORG 


•-3 




07718 








16210 


MXQ13 


TR 


MR02.MXQ20,, 


SET UP TO EXECUTE LOADER CALLER. 


07718 


31 


09732 


07798 


16220 




TO 


0IMENT^14 V MCR01A 




07730 


25 


0041* 


04455 


16230 




BNF 


•♦24,C0MM*13 




077*2 


44 


077** 


02815 


16240 




TF 


0IMENT^l8tC0MM^17 




0775* 


26 


00*20 


02819 


16250 




BNF 


•♦24,C0MM^8 




077** 


44 


07790 


02810 


16260 




TF 


HIGH,C0MM*12 




07778 


26 


00*3* 


02814 


16270 




B 


MB195 




07790 


49 


03722 


00000 


16280 




OORG 


•-3 




07798 








16290 


MXQ20 


OSC 


1*1 




07798 




1 




16300 




1 

OSA 


DSA15 




07803 




5 


X 1 












07803 




J9783 




16310 




DC 


3,3 




0780* 




3 








-03 














16)20 




OC 


6,0* 




07812 




* 








-0000* 












16)30 


MXQ50 


OSC 


4,1001,, 


PROGRAM NAME. 


07813 




* 








1001 














1*3*0 




OC 


2,7 




07818 




2 




1*350 




-7 

OC 


2*6 




07820 




2 




1*3*0 




-* 

OSC 


*,0« 




07821 




* 








00000* 












16370 


MXQ55 


OSC 


4,0101,, 


DIM NUMBER. 


07827 




* 








0101 














1*380 




OC 


2,13 




078)2 




2 








J3 














14 y**) 




OC 


2.4 




078)* 




2 




1**00 




-* 

OSA 


C0MMO9 




078)9 




5 


X 1 












078)9 




-28*1 




1**10 




DSC 
• 


It* 




078*0 




1 




1**20 




DSC 


4,0101,, 


LOAO ADORESS. 


078*1 




* 





0101 




1*10/ till SWIftVISOR AMD I Oft? 



1*490 
1*440 
1*490 



dc 

41 



1*470 
10*00 

1*490 
1*900 

1*910 
1*920 
1*930 
1*9*0 
1*S90 

1*9*0 
16970 
1*5*0 
1*990 
1**00 

1*610 
16620 
16630 
166*0 

16650 

16660 
16670 
166*0 



2tl? 
ItS 



Of A C0MM612 

DSC !•• 
• 

OfC 6.0101 

0101 

OC 2,22 

K2 

OC 2,5 

r9 

OS A C OHM* 17 

DSC 1,» 
• 

DSC 4,0101,, 
0101 

DC 2*27 
X7 

DC 2*1 
-1 

OS A LDINPT 

DSC !•• 
• 

OSC 4,0101,, 
0101 

DC 2,29 
K8 

OC 2.1 
-1 

OSA C0NM*82 

OSC 1 . * 
• 

DSC 4,0101,, 
0101 

OC 2,29 
K9 

OC 2,2 

-2 

DSA C0MM+7S 



DSC i,« 
, 

DSC 4.0101., 
0101 

DC 2,31 

H 



ENTRY ADDRESS* 



INPUT SOURCE. 



SUBROUTINE SET INOCNT IF ICAT ION FOR FOftTfU 



CONTROL CARO COUNT FOR FORTRAN. 



SPS SUSftOUTtNE SET. 



•ft** 


f 


070*0 


2 






07091 


i X 


OTifJ 


-mo 


•fit* 


i 


07091 


* 


070*0 


2 


070*1 


2 


070*7 


9 X 


070*7 


-2019 


070*0 


1 


07**9 


4 


0707* 


2 


0707* 


2 


07001 


9 X 


07001 


-0*20 


07002 


1 


07003 


* 


07*09 


2 


07090 


2 


07099 


9 X 


07099 


-20*6 


0709* 


1 


07097 


* 


07902 


2 


0790* 


2 


07909 


9 X 


07909 


-2077 


vrvil) 


1 


07911 


* 






0701* 


2 



3J4 
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1**90 
1*700 

16710 
16/20 
16730 
16740 
16750 

16760 
16770 
16780 
16790 
16*00 

169 10 

16*20 •••••• 

16830 • 
16940 

1**90 UT01 

1*0*0 

16870 

1*880 

16*90 

1*900 

1*910 

1*920 

1*930 •••••• 

1*940 • 
16950 • 
1*9*0 

16970 UT03 

1*980 

1*990 

1 7000 

17010 UT03A 

17020 

17030 

170*0 

17090 



2,2 



DC 
-2 

OSA C0NM«91 



SPS NOISE DIGIT. 



SPS MANTISSA LENGTH. 



OSC 1,« 

OSC 4,0101,, 
0101 

DC 2,33 
L3 

OC 2,1 
-I 

DSA CONN^77 



DSC l,« 

DSC 4,0101,, 
0101 

DC 2,34 
L4 

DC 2,2 

-2 

DSA C0MM*79 



OSC 
* 

ROUTINE TO NUj 
DIGIT FIELD A{ 
DC 5,0,,, 

-0000 

TFN #-2,0,8, 
CF UTOl-i.,7, 
TO •-1.UT01-1 
A UT01-1,UT01-1 
A UTOl-UUTOI-l 
A UT01-1,UT01*23 
88 

OORG 

ROUTINE TO EXTRACT NUMERICAL STRIF FROM MONITOR CONTROL 
CARO READ IN AREA {MONITOR READ IN AREA HAS FLAGS IN EVERY 
EVEN DIGIT POSITION) 

OC 5,0,, CALLING SEQUENCE 

-0000 

TON NOOltOr, 
TFM MF02,MF03-20»* 
A MP0l,MF01, t 
A NF01,UT03-i,, 
TF UT03B*8,UT03-l,ll, 
GNft •♦2A,UT038*3,, 
TOM MD01»0», 
OORG •,, 
OSC 1,*,, 



Lf A OIGIT 9V FIVE -RESULT IS A FIVE 
SSEO AT UT01-1 

CALLING SEQUENCE 

TO "23, DIGIT 

otn uroito 



TFM NFOUNCHAR 

ITM UTOStAOOR 

NMER1 tCWAR IS THE NUM9f£ ©# CHARS. 
SN THE FIELD, AOOR IS THf AOOfttSS \9tk 
THE FIELD -AS IT MOULD Oi AOOR03SE0 - 
FOR AN ALPMANfOIC I OF ISfCONO OIOITJ. 



PAGE 

2 

9 X 



07910 
07923 

07923 -2*83 

07924 1 

07929 4 

07930 2 

07912 2 

07937 5 X I 

07937 -2*79 

07939 1 

07939 4 

07944 2 

0794* 2 

07991 9 X I 

07991 -2981 

07992 I 

07997 9 

07990 1* 0799* 0-000 

07970 33 07997 -0000 

07902 29 07901 07997 

0799* 21 07997 07997 
tl 07997 07997 
07997 0799 U 



00019 
00090 
08032 



21 

00090 42 00000 00000 



0009* 9 

00090 19 09730 00000 

00090 1* 09709 -9709 

000*2 21 09704 09704 

0007* 21 09704 00097 

00000 2* 0019* 0009P 

00090 49 09124 0019*; 

00110 19 09790 
Mill 

ooiai i 



SIS 
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17060 




|| 


... 


UPON RETURN. M001 CONTAINS MINUS ZERO 


01122 


42 


00000 


00000 


17070 




DORG 


•*9tt 


IF THE FIELD MAS PURE NUMERIC. PLUS 


01124 








17060 




AH 


MP02 f It » 


2IR0 IP BLANK. A RECORD NARK IP IT 


01124 


11 


09709 


-0001 


17090 




TO 


MF02.UT096^6|6. 


CONTAINED A RECORD NARK. ANO PLUS ONE 


01136 


25 


0970R 


06156 


moo 


UT09B 


CM 


• ♦6i ©t 710. t 


IP THE PIELO MAS NON-NUMERIC. 


06148 


14 


08196 


»eo-o 


ITl 10 




INI 


• ♦98. 1200, f 




§6160 


47 


08198 


01200 


1T120 




IMP 


UT09C*M00l * i 

v t wm f Willi . . . 


A ONE DIGIT SOURCE FIELD IS ALWAYS TRi 


INS- 01172 


44 


08234 


09730 


171 SO 




TOM 


M001 1 It t 


FERREO INTO A TMO OIGIT OBJECT FIELO. 


OB 164 


19 


09730 


0000 1 


17140 




|| 




SOURCE FIELDS OF MORE THAN ONE DIGIT 


01196 


42 


00000 


00000 


17190 




00*0 


•-9, t 


RETAIN THEIR ORIGINAL OIGIT COUNT. THE 01191' 








17140 




CM 


UT03B*9,70, 10, 


LOCATION OF THE OBJECT FIELD IS GIVEN 


01191 


14 


08156 


OOOPO 


17170 




AMI 


UT03B*)6t HOOt t 


BY MP02 tIT MILL BE IN NFO!) 


01210 


47 


06184 


01300 


17110 




TOM 


MOOltOtll 




06222 


15 


09730 


0000- 


17190 


UT09C 


AM 


UT09-1 »2 




01294 


11 


09037 


-0002 


17200 




c 


UT09-l»MF0l 




06246 


24 


08037 


09704 


17210 




BNI 


UT03A, 1 300 




06296 


47 


08066 


01300 


17220 




CM 


MP02 ( MF09-19 




06270 


14 


09709 


-9710 


17230 




BNI 


•♦48t 1200 




08262 


47 


06330 


01200 


17240 




TO 


MF09-16tMF0S-19 




08294 


25 


09711 


09710 


17290 




TOM 


MF03-19.0 




08304 


15 


09710 


00000 


17260 




TFM 


NF02.MF09-16 




08918 


16 


09709 


-9711 


17270 




SF 


MP09-19 




08990 


92 


09710 


ooooo 


17260 




61 






08942 


42 


00000 


00000 


17290 




OOAC 


•-9 




08344 








17900 




WON I TOR SUBROUTINE TO READ A MAR SECTOR INTO 0-99 










17910 




DC 


5.0 




08348 




5 








-0000 












17)20 


UT05 


TR 


UTOSBtMAPSCTtt 


CALLING SEQUENCE 


08350 


91 


08466 


01831 


17990 




A 


UT05B«6»UT05-l.t 


BTM UT09.0INNUM 


06342 


21 


06474 


06349 


17940 




A 


UT05B*6,UT0S-1,, 


WHERE DIMNUM IS THE DIM ENTRY 


06374 


jl 


06474 


08349 


17950 




TO 


UT0SAU1,UT0SB^6,, 


WHICH IS OESIREO IN THIS SECTOR. 


08366 


25 


06457 


08474 


17960 




TOM 


UT05B+6.0, 11, 


UPON RETURN UT05-1 CONTAINS CORE 


06398 


15 


08474 


0000- 


17970 




TFM 


10XX, •♦29,, 


ADDRESS OF THE REQUESTED ENTRY 


06410 


16 


00565 


-8433 


17960 




6 


I0GT,UT05A1,7, 


1-0,20. 40, 60, 80) 


08422 


49 


00566 


-8460 


17990 




TFM 


UT05-1.0 




08494 


16 


08349 


-0000 


17400 


UT05A 


TOM 


UT05-2.XX 




08446 


15 


08348 


OOOOO 


17410 




61 






06458 


42 


00000 


OOOOO 


17420 




OORC 


•-9 




06460 








17490 


UT05A1 


OSC 


2.22 




06440 




2 




17440 




22 
OSA 


UT05B 




06466 




s 


X I 












06466 




-8468 




17450 




OSC 
• 


I.' 




08467 




I 




1 7460 


UT05B 


DSC 


20.0 




08468 




20 








00000000000000000000 












17470 




SUBROUTINE TO TYPE A 


MONITOR CONTROL CARD. 










I 7460 




DC 


5.0 




08492 




5 








-0000 












17490 


UT06 


BNF 


»*l4.MCR02Am. Hi 


RETURN IF INPUT FROM THE TYPEWRITER*. 


08494 


44 


08500 


0412P 


W500 




BB 






08506 


42 


00000 


OOOOO 


17510 




OORG 






08508 








17520 




RCTY 




RESTORE TYPEWRITER CARRIAGE. 


06508 


34 


00000 


00102 


17590 




TFM 


UTOAAUl.MCCBUFHli 


>, DETERMINE LAST NON-BLANK COLUMN OF 


06520 


16 


08551 


J 3011 


17540 




B 


UT06BU2,,, 


CARD. 


08532 


49 


08632 


OOOOO 



316 
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17550 




DORG 


•-3 




08540 








17560 


UT06A 


80 


UT06B , XX 




08540 


43 


08620 


OOOOO 


17570 




AM 


UT06AU1.1 




08552 


11 


08551 


-0001 


17580 




BD 


UT06BU2,UT06A*ll, 


11 


08564 


43 


08692 


0855J 


17590 




AM 


UT06A+11.1 




08576 


11 


08551 


-0001 


17600 




CM 


UT06A+U.MCCBUF + 160 


06588 


14 


08551 


J3160 


17610 




BNI 


UT06A,1300 




08600 


47 


08540 


01300 


17620 




B 


UT06C 




08612 


49 


08652 


OOOOO 


17630 




DORG 


•-3 




08620 








17640 


UT06B 


AM 


UT06A*ll,l 




08620 


11 


08551 


-0001 


17650 




TF 


UT06D+ll,UT06AUL 




08632 


26 


08725 


08551 


17660 




B 


UT06B-44 




08644 


49 


08576 


OOOOO 


17670 




DORG 


•-i 




08652 








17680 


UT06C 


TD 


19998,MCC8UF*1, , 


DUMP INITIAL RECORD MARKS. 


08652 


25 


19998 


13001 


17690 




TO 


19999, MCC6UF*9 




08664 


25 


19999 


13003 


17700 




DNTY 


19998 




06676 


35 


19998 


00 1 00 


17710 




BNR 


•+14,MCCBUF*5,, 


RETURN IF R.M. IN COL. 3. 


06666 


45 


08702 


13005 


17720 




88 






06700 


42 


OOOOO 


OOOOO 


17730 




DORG 


•-9 




06702 








17740 




AM 


•♦23,2,, 


SET R.M. AFTER LAST SIGNIFICANT CHAR. 


06702 


11 


08725 


-0002 


17750 


UT060 


TD 


UT06EUI.XX 




06714 


25 


08775 


OOOOO 


17760 




TO 


e-l,MCR0U.6 




06726 


25 


0872N 


04455 


17770 




WATY 


MCCBUF*5..t 


TYPE REMAINDER OF CARO. 


06796 


39 


13009 


00100 


17780 




RCTY 






06750 


34 


OOOOO 


00102 


17790 


UT06E 


TOM 


UT060*ll,XX,6. 


RESTORE OIGIT. 


06762 


15 


0872N 


OOOOO 


17800 




88 






06774 


42 


OOOOO 


OOOOO 


17810 




OORG 


•-9 




06776 








17620 




JOB CLOSE-OUT SUBROUTINE. 










17830 




OC 


5,0 




08780 




5 








-0000 












17640 


UT07 


80 


•♦14,MC0MM., 


FORGET IT IF ME HAVEN-T DONE ANYTHING* 


08762 


43 


08796 


02852 


17650 




86 






08794 


42 


OOOOO 


OOOOO 


17860 




OORG 


•-9 




06796 








17870 




80 


•♦44.UT07-1., 


TYPE ENO OF JOB MESSAGE IF FORCED. 


08796 


49 


06840 


08761 


17860 




TO 


•♦23,HC0MM»3.. 


NO -TYPE ONLY IF THE CONTROL CARD 


0BB08 


25 


08691 


02855 


17690 




80 


•♦20.NCD09.. 


SOURCE IS NOT THE TYPEWRITER 


08820 


49 


08640 


10730 


17900 




B 


• •20 


08832 


49 


06852 


OOOOO 


17910 




DORG 


•-9 




08840 








17920 




MATY 


MM21 




§8140 


99 


10157 


00100 


17930 




RCTV 






08832 


94 


OOOOO 


00102 


17940 




TD 


UT07C,MC0MM«9 




06864 


25 


09122 


02897 


17990 




TDM 


UT07AU11.0 




08676 


15 


09003 


OOOOO 


17960 




B 


• ♦20 




06888 


49 


08908 


OOOOO 


17970 




OORG 


•-3 




08696 








17960 


UT07A 


94 


UT07C,701 (V 


REFRESH THE COMMON REGION AND THE 


06696 


94 


09122 


00701 


17990 




BI 


••12.600. . 


OVRLAY READ ROUTINE* 


01908 


46 


08920 


00600 


16000 




61 


•♦12.700 




08920 


46 


06992 


00700 


18010 




BI 


•♦12.1600 




08932 


46 


06944 


01600 


18020 




81 


•♦12.1700 




08944 


46 


06996 


01700 


16090 




96 


UT07C.702 




089S6 


96 


09122 


00702 


16040 




BNI 


UT07B.1900 




08968 


47 


09060 


01900 


16090 




TD 


•♦23."29.11. 




0696)0 


25 


09009 


0900L 


16060 


UT07A1 


BO 


UT07A.MCD11 




01992 


49 


06696 


10790 


16070 




MATY 


MM22... 


COMPLAIN LOUDLY IF ANY ERROR, 


09004 


99 


10179 


00 100 


16080 




MATY 


MM23 




§9016 


99 


10269 


00100 


16090 




RCTV 






09026 


94 


§§000 


00102 



SI7 




1 
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1 1 100 


H 


• • » 




AtAAA 




00000 


00000 


18110 


0' 


UTOTA 






40 


00006 


00000 


If 120 


00R6 


••3 




00900 


v ti- 
ll 






(Itlw MlwfS 


TON 


MC0JMM«0t • 


InlleALscK mSllwiif »M&IvA?lm» MP 


00000 


as aft j 


00000 


10140 


TOM 




B t SI 1** 


04072 




02001 


00000 


101 f 0 


TON 






00004 




OI«V% 


00000 


10UO 


TOM 


MI03.1.11 




00000 


11 


09*24 


OOOOJ 


10110 


TO 


I OMMOO t MC 0MM4| 




00100 


21 


00440 


02097 


10100 


00 


• 9 * 


OOUNCI SACK, 


00120 


42 


00000 


00000 


into 


mm 






00122 








1 A) A A llYATf 


DSC 


i „ i 




ism i ji 




i 




10210 


1 

0SA 


0SA04 




09127 




9 


X 1 










091 27 




J 06 39 




i inn 
16220 


DC 
-01 


3.1 




09190 




* 




* 


OC 


6*402* 




09116 




6 






-0402* 












IS2*0 •••••• 


SUBROUTINE TO Of TEAM IMC VALIDITY OF A CONTROL CARD FIELD. 










IVcSO UI 10 


TP 


•♦23.F0.ll, 


MOVE CALLING SEQUENCE RECORD* 


09130 


26 


09161 


01510 


10240 


TA 


fi*xx 




09100 


31 


09907 


AAAAA 

ooooo 


102 TO 


AM 


F0.1.. 


COMPUTE NORMAL RETURN AOORESS. 


09162 


1 1 


09506 




1 0200 


TF 


P01NT.F5*. 


INITIALIZE COLUMN TYPE-OUT POINT EM* 


091T4 


26 




09592 


i i>tn 


CF 


POINT-l 




09106 


94 


09719 


AAAAA 




SF 


Fl... 


INITIAL HE RETURN I NO. FLAGS. 


09190 


J a 


09907 


AflnnA 


}:::„ 


SF 


F4 




09210 


32' 




AAAAA 


10320 


TFM 


UTlOA*23,MCCOUF-l 


» , INITIALIZE CALL TO UT03* 


09222 


16 


09293 


J2999 


1 0330 


A 


UT10A*23.F5 




09234 


21 


09293 




1 0340 


A 


UT10A*23,F5 




09244 


21 


09291 


09592 


1 8350 


TO 


UT10A*11,F6 




09290 


29 


09201 


09594 


18340 UT10A 


TFM 


MF01.XX,. 


EXTRACT NUMERIC STRIP IF ANY. 


09270 


16 


09704 


-0000 


18370 


BTM 


UT03.XX 




09262 


1 7 


08038 


— 0000 


18360 


BNR 


UT100.M001. . 


NO -CHECK FOR R.M. 


09294 


45 


09330 


09730 


1 8390 


CF 


Fl,,, 


YES -SET INDICATOR. 


09306 


33 


09567 


AAAAA 

OOOOO 


1 8400 


BO 


UUOE.Fl, 


GO TO ERROR ROUTINE IF NOT ALLOWED* 


09318 


43 


09482 


09587 


18410 


B 


FO, ,6 




09330 


4V 


09560 


AAAAA 

OOOOO 


18420 


DORG 


•-3 




09336 








1 MA. 1A 1 IT 1 AB 
I JO U 1 I OB 


BO 


UT10C.M001,, 


GO TO ALPHA- S TEST IF ALPHAMERIC. 


09336 


A3 


09442 


09730 


1 8440 


8NF 


UT100.M001.. 


GO TO BLANK-S TEST IP BLANK. 


09350 


44 


09462 


09730 


1 8450 


BNF 


F0.F7-4.6, 


NUMERIC -EXIT IF NO MOVE DESIRED. 


09362 




09500 




18460 


CM 


F6.1.10. 


NUMERIC -MOVE DIGIT OR A FIELD. 


09174 


14 


09594 


000—1 


1 8470 


BNI 


•♦24, 1200 




09386 


47 


09410 


0 1200 


1 8460 


TOM 


•♦13,5 




09398 


15 


0941 1 


00005 


18490 


TF 


F7,MF02,611 




09410 


24 


0959R 


0970R 


i fc?n 


TOM 


•-11, 6 




09422 


15 


0941 1 


00006 


1 8510 


B 


F0..6 




09434 


4 V 


09580 


OOOOO 


1 8520 


OORG 


•-3 




09442 








lit in ■ i T 1 nf 
1 05 JU U 1 I OL 


BO 


UT10E.F2,, 


GO TO ERROR IF ALPHA-S NOT ALLOWED. 








09586 




B 


F0..6 




09454 


♦ 9 


09580 


AAAAA 
OOOOO 


18550 


OORG 


•-3 




09462 








16560 UT10D 


BO 


UT10E.F3., 


GO TO ERROR IF BLANK-S NOT ALLOWED. 


09462 


41 


09482 


09569 


18570 


B 


F0,,6 




09474 


49 


09560 


00000 


16580 


DURG 


•-3 




09402 








18590 UT10E 


WATY 


MM39,,, 


TYPE ERROR MESSAGE* 


09402 


39 


10549 


00 1 00 


18600 


WNTY 


POINT-l 




09494 


38 


09755 


00100 



316 
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18610 




WATY MM45 




09506 


31 


10435 


00100 


16620 




BD UT10F.F4., 


BRANCH IF PHASE TO OE DELETED. 


09518 


43 


09550 


09590 


18630 




CF F4,,, 


SET RETURN 1ND. 


09530 


33 


09590 


00000 


18640 




B F0,,6 




09542 


49 


09580 


OOOOO 


18650 




DORG «-3 




09550 








18660 


UT10F 


WATY MM40,,, 


TYPE PHASE DELETED MESSAGE 


09550 


39 


10997 


00100 


18670 




RCTY 




09962 


34 


OOOOO 


00102 


18660 




B MB140,, 


WINO-UP. 


09574 


49 


03438 


OOOOO 


18690 




OORG »-3 




09902 








18700 


FO 


DC 5,0,, 


CALL AND RETURN VECTOR. 


09506 




5 








-0000 












18710 


Fl 


DSC 1.0., 
0 


R.M. ERROR. 


09587 




1 




16720 


F2 


OSC 1,0,, 
0 


ALPHA ERROR. 


09500 




1 




18730 


F3 


OSC 1,0,, 


OLANK ERROR. 


09509 




1 




18740 


F4 


0 

OSC 1,0,, 


END PHASE ON ANY ERROR. 


09590 




1 




18750 F5 


0 

OC 2,0,, 


STARTING CARD COL. 


09592 




2 




16760 


F6 


-0 

DC 2,0,, 

-0 


FIELD LENGTH. 


09594 




2 




18770 


F7 


DC 5,0,, 


MOVE TO ADDRESS FOR NUMERIC DATA. 


09999 




5 








-0000 












18780 




DSC 1«S 
* 




09600 




1 




18790 


•••••• 


NON EXECUTE TESTER. 












18800 




OC 5,0 




09605 




5 








-0000 












18810 


UT11 


BO •♦24, ^-l,, 


PICK THE ENTRY. 


09606 


43 


09630 


09405 


18820 




BNF UTUA*12,NONEX,, 


TEST IF EXECUTE INHIOITOft IS ON. 


09610 


44 


09690 


00457 


16830 




BNF •♦20,NCOHN*2.* 


YES -TYPE ONLY IF NOT ALREADY TYPED. 


09610 


44 


09650 


02054 


16640 




8 UTUA 




09642 


49 


09606 


00000 


18850 




DORG «-3 




09690 








18660 




MATY MM19 




09690 


14 


10107 


00100 


16870 




RCTY 




09602 


14 


00000 


00102 


16000 




SF MCOMM«2,,, 


TURN ON EXECUTION INHIBITOR* 


09*74 


12 


02014 


00000 


18090 


UT11A 


CF NONEX 




09606 


21 


004S7 


00000 


19900 




00 




09*00 


42 


00000 


OOOOO 


18910 




DORG »-9 




09700 








18920 


•••••• 


MONITOR SCRATCH FIELDS 










16930 


MF01 


OC 5,0 




09704 




5 








-0000 












16940 


MP02 


OC 5*0 




09709 




5 








-0000 












16990 


MFOi 


OC 20*0 




09729 




20 








-0000000000000000600 












19960 


MD01 


OSC 1*0 
0 




09710 




1 




16970 


M002 


OSC 1*0 
0 




09731 




1 




16900 


NR02 


DSC 2©*0« ** 


HOLDS ODA FOR PA06AAM MONITOR IS CALL IN*. 


00712 




20 








0000000000000000000 • 












18990 


POINT 


DC 5*0,, 


LOOKV HERE. MA. 


09796 




9 








-0000 













91 B 
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PACE 45 



19000 




DSC 


It'. 


09757 


19010 




» INITIALIZATION RECORDS. 




19020 


IREC 


OSC 


2.0 


09758 






00 






19030 




DC 


12.-0 


09771 






-0000000000- 




19040 




oc 


4,o», 


09775 






-00* 






19050 


JREC 


oc 


1.0 


097 76 


190*0 




OSC 


5,-0 


09777 






0000- 




19070 




DSC 


5.-0 


09782 






0000- 




19080 




DSC 


5,0*, 


09787 






0000 






19090 


KHfeC 


DC 


1,0 


09792 


19100 




OC 


2,-0 


09794 


19110 




DSC 


1,-0 


09795 


19120 




DC 


2,-0 


09797 


19130 




DC 


2,-0 


09799 


191*0 




DSC 


l.». 


09800 


19150 


LREC 


OC 


1.0 


09801 


19160 




OSC 


2,-0 


09802 






0- 






191T0 




DSC 


2,-0 


0980* 






0- 






19180 




DSC 


2,-0 


09806 






0- 






19190 




DSC 
• 


I.', 


09808 


19200 


MREC 


DSC 


19,0* 


09809 



000000000000000000* 
19210 • THE FOLLOWING INDICATORS ARE NON-ZERO OR FLAGGED IF TRUE. 



19220 


MIOl 


OSC 1,0,, CNTL CARD REAO INO. 


09828 






19230 


MI03 


0 

DSC 1,0,, -JOB- CARO SEARCH INO. 

0 


09829 






19240 




» MONITOR OAC-S 








19250 


MMOl 


OAC 24, ENTER MONITOR CNTL REC.*, 


09831 


24 X 


2 






ENTER MONITOR CNTL REC.« 








19260 


MM02 


OAC 4, JOB , 


09879 


4 X 


2 






JOB 








19270 


MM0 3 


OAC 4, TYPE, 


09887 


4 X 


2 






TYPE 








19280 


MHO* 


OAC 4.PAUS, 


09895 


4 X 


2 






PAUS 








19290 


MM05 


DAC 4.SPS , 


09903 


4 X 


2 






SPS 









320 
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PAGE 


19300 


MM06 


OAC 4.SPSX, 


09911 


4 


X 2 






SPSX 








19310 


MM07 


OAC 4, FOR , 


09919 


4 


X 2 






FOR 








19320 


MM08 


DAC 4,F0RX, 


09927 


4 


X 2 






FORX 








19330 


MM09 


OAC 4,DUP , 


09935 


4 


X 2 






DUP 








19340 


MM10 


OAC 4.XEQ , 


09943 


4 


X 2 






XEQ 








19350 


MM11 


OAC 4.XEQS, 


09951 


4 


X 2 






XEQS 








19360 


MM16 


DAC 32, PACK NUMBER ERROR ON MODULE 0. *, 


09959 


32 


X 2 






PACK NUMBER ERROR ON MODULE 0. • 








19370 


MM17 


OAC 42? SET SSM4 TO IGNORE , OFF TO RE-ENTER CARD.*, 


10023 


42 


X 2 






SET SSW4 TO IGNORE, OFF TO RE-ENTER CARD.* 








19380 


MM19 


DAC 25, EXECUTION IS INHIBITED. », 


10107 


25 


X 2 






EXECUTION IS INHIBITED. • 








19390 


MM21 


DAt 1 1, END OF JOB* , 


10157 


U 


X 2 






END OF JOB* 








19400 


MM22 


DAC 43, CANNOT RESTORE COMMON -RESET ANO START TO *, 


10179 


43 


X 2 






CANNOT RESTORE COMMON -RESET ANO START TO • 








19410 


MM23 


DAC 6, RETRY*, 


10265 


6 


X 2 






RETRY* 








19420 


MM25 


OAC 10, EXECUTION*, 


10277 


10 


X 2 






EXECUTION* 








19430 


MM26 


OAC 21, JOB CARO GROUP ONLY*, 


10297 


21 


X 2 






JOB CARO GROUP ONLY* 








19440 


MM30 


OAC 12, MUST RELOAD* , 


10339 


12 


X 2 






MUST RELOAD* 








19450 


MM31 


OAC 18, CONDITION IGNORED* , 


10363 


16 


X 2 






CONDITION IGNORED* 








19460 


MM32 


DAC 8, COMPARE * , 


10399 


8 


X 2 






COMPARE* 








19470 


MM33 


DAC 12, -ENTER CARD*, 


10415 


12 


X 2 






-ENTER CARD* 








19480 


MM36 


OAC 18, SYSTEM DIM ERROR *, 


10439 


18 


X 2 






SYSTEM DIN ERROR • 








19490 


MM37 


OAC 18, OBJECT DIM ERROR «, 


10475 


18 


X 2 






OBJECT OIN ERROR • 








19500 


MM38 


OAC 19, OBJECT NAME ERROR *, 


10511 


19 


X 2 






OBJECT NAME ERROR • 








19510 


MM39 


DAC 24, ERROR IN FIELD AT COL. *, 


10549 


24 


X 2 






ERROR IN FIELD AT COL. • 








19520 


MM40 


OAC 19, PHASE TERMINATED. *, 


10597 


19 


X 2 






PHASE TERMINATED. • 








19530 


MM45 


DAC 3,. •* 
. • 


10635 


3 


X 2 


19540 




FOLLOWING ARE MONITOR-S QUICK ANO DIRTY OISIT DECODERS. 








19550 




OORG SVSORG*82B6 


10690 






19560 


MC001 


OSC 2.-01 
OJ 


10690 


2 




19570 




OSC 8,01010000 


10692 


8 








01010000 








19580 


NC002 


OS 0,o*l 


10700 


0 




19590 




DC 2,6 


10701 


2 





19600 

19610 

19620 

196*0 

19640 

19650 

19660 

19670 

19680 

19690 

19700 

19710 

19720 

19730 

1974.0 

19750 
19760 
14770 

19780 

19790 
19800 



2.8 



HCD01 
MC004 
MCD05 
MCDQ6 
MC007 
MCOOB 
MCD09 
MC010 
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oc 

-8 

OC 6.100000 

400000 

DSC 10,0010000000 
00 I 0000000 
DSC 10.0101010100 
0101010100 
DSC 10,0001010000 
0001010000 
OSC 10,0000000000 
0000000000 
OSC 10,0124444444 
0124444444 
OSC 10,0663466666 
0443444444 
OSC 10,1357911111 
13579U111 
DC 2,-20 
K- 
OC 
KN 
DC 
L- 

DC 2,-35 

IH 

OC 2,-40 
M~ 

DSC 10,1234567890 
123*567890 

SYSTEM DIM ENTRY SECTOR -THESE DOA-S ARE PICKED UP 
OORG SYSORG+8400, BY THE COLD START ROUTINE. 

OSC 1,0,, DDA FOR SPS ASSEMBLER. 



2,-25 
2.-30 



0 

OSA 



OC 3.0 
-00 

USA 0,0 



19810 DSC 

19820 FORDDA OSC 

0 

1983U OSA 



19840 
19850 



1, ' t 
1,0. 

0 



DOA FOR FORTRAN COMPILER. 



DC 3,0 
-00 

OSA 0,0 



10703 
10709 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10781 
10783 
10785 
10787 
10789 
10790 



10802 
10802 



10807 
10810 



10815 
10820 
10821 

10822 

10827 

10827 
10830 



10835 
10840 



2 

6 
10 
10 
10 
10 
10 
10 
10 

2 

2 

2 

2 

2 
10 

1 

5 X 



-0000 
3 



-0000 
-0000 



1 

5 X 



-0000 

3 



-0000 
-0000 



322 
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19860 




DSC 






10841 




1 




19870 


OUPODA 


DSC 
0 


1.0,, 


DDA FOR DUP SUPERVISOR. 


10842 




1 




19880 




DSA 


0 




10847 




5 


X 1 












10847 




-0000 




19890 




DC 


3,0 




10850 




3 








-00 














19900 




DSA 


0,0 




10855 




5 


X 2 












10855 




-0000 














10860 




-0000 




19910 




DSC 


1. • , 




10861 




I 




19920 


EQUDDA 


DSC 
0 


1,0,. 


OOA FOR EQUIVALENCE TABLE. 


10862 




I 




19930 




DSA 


0 




10867 




5 


X 1 












10867 




-0000 




19940 




DC 


•3.0 




10870 




3 








-00 














19950 




DC 


6,0' 




10876 




6 








-0000 • 












19960 




I ORT LOAD PROCESSOR 


FOR NAMEO PROGRAMS SECTION 2 










19970 




DORG 


SYS0RG+8500 




10902 








19980 


A BOO 


BNF 


AB05,AA02A*5,, 


TEST FOR A SPECIFIED LOAD ADDRESS. 


10902 


44 


11134 


00234 


19990 




TF 


AA04*ll,AA02A+4,, 


YES -MOVE TO CALLING PARAMETER RECORD. 


10914 


26 


00295 


00233 


20000 


AB01 


SF 


AA02A+5,,, 


INITIALIZE SCAN. 


10926 


32 


00234 


00000 


20010 




TFM 


10XX,«*23 




10938 


16 


00565 


J 0961 


20020 




8 


I0SK,AB08,7 




109S0 


49 


00554 


J1363 


20030 




TF 


AB09A*5,MAPENT+5 




10962 


26 


11384 


02123 


20040 




TD 


AB09A , TEMP-5 




10974 


25 


11379 


02144 


20050 




TD 


A810*4U*AB09,, 


SET A GROUP MARK FOR LOOP TEST. 


10986 


25 


11805 


11378 


20060 


A BO 2 


TFM 


10XX,**23, , 


READ 4 EQUIVALENCE TABLE SECTORS. 


10998 


16 


00565 


J1021 


20070 




8 


I0GT,AB08*8,7 




11010 


49 


00566 


J1371 


20080 




TFM 


AB03+U,AB10*U,, 


INITIALIZE 4 SECTOR SCAN. 


11022 


16 


11045 


J1405 


20090 A803 


BNR 


•♦32, XX,, 


TEST IF TABLE IS EXHAUSTEO. 


11034 


45 


11066 


00000 


20100 




TFM 


BKPT, AB01 




11046 


16 


00667 


J0926 


20110 




8 


ERR0RW2 




11098 


49 


00696 


00000 


20120 




OORG 


• -3 




11066 








20130 




C 


AB03*ll,AA02A*l6,6 


.COMPARE CURRENT ENTRY. 


11066 


24 


U06N 


00245 


20140 




BI 


AB06.1200,, 


BRANCH IF FOUNO. 


11078 


46 


11154 


01200 


20150 




AM 


AB03*11.16,, 


NO -ADVANCE ADDRESSING. 


11090 


11 


11045 


-0016 


20160 




55 


AB03,A603*ll,ll, 


TEST IF 4 SECTORS EXHAUSTEO. 


11102 


55 


11034 


U04N 


20170 




AM 


AB09A*5,4, , 


YES -INCREMENT SECTOR ADDRESS. 


11116 


11 


11384 


-0004 


20180 




B 


AB02 




11126 


49 


10998 


00000 


20190 




OORG 


•-3 




11134 








20200 


AB05 


TF 


AA02A*16,AA02A*12, 


.MOVE NAME FOR NO LOAD ADDRESS CASE • 


11134 


26 


00249 


00241 


20210 




8 


AB01 




11146 


49 


10926 


00000 


20220 




DORG 


• -3 




11196 








202 30 


AB06 


AM 


AB03*U«4,, 


MOVE FOUNO OIM ENTRY. 


11194 


11 


11045 


-0004 


20240 




TF 


AA04*6,A8Q3*ll,lI 




11166 


26 


00290 


U04N 


20250 




BNF 


•♦24,AA02A*26,, 


TEST IF REPOSITIONING OESIREO. 


11178 


44 


11202 


00255 


20260 




SF 


AA04,», 


yes -set imiwm* 


11190 


32 


00284 


00000 


20270 




BO 


•*24,AA02A*26 9f 


TEST If EXECUTION OfSJRiO. 


11202 


43 


11226 


00255 
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RAGE 49 



20280 
20290 
20)00 
20310 

20320 ABOT 

20)30 

20340 

20350 

20360 

20370 

20310 

20390 

20400 

20410 

20420 

20430 AB08 
20440 
20450 
20460 
204 70 



SR AA04+1,,, 
TR O.ABOT,, 
B Ot • * 
DORG »-3 
TFW I0XX.23,, 

I0GT,AA03,7 
OFILE ♦lltTTlt , 
IOXX t AA02A*23 
CNTW0,AA04 
OLDCV*l,NCVL,, 
MALT»6,X0U34». 
OLODA, 103 
0VRLAV,0SA01,, 
3*3 



R 

TRW 
TF 
TR 
TFN 
TFM 
TR 
B 

DC 
-03 
OC 6,0* 
-0000* 
DSC 3#220 
220 

DC 4,2 
-002 
DSC l,» 
* 

DSC 2,22 
22 

DSA AB09A 



20480 AB09 DSC 1,0,, 

0 

204*0 AB09A OSC 1.1 



YES -SET INDICATOR. 

OVERLAY SECTION I NITN TERMINATION 

ROUTINE. 

RESTORE CORE. 

DUMMY UR A GET ENTRY TO IORT. 



SET UR TO RESTORE MRV TABLE AND 
EXECUTE LOAD. 



YOU-RE ON YOUR OWN NOW* BOY. 



GROUR MARK FOR TEST. 



20510 
20520 



DC 3,4 
-04 

DSA AB10 



11214 
1122* 
U23B 
11246 
11246 
11258 
11270 
U2B2 
11294 
11306 
U31B 
11330 
11342 
U3S6 

11362 

11363 

11369 

11370 

11371 

11377 

11377 
11376 

11379 

U3B4 

11384 
11387 



32 00289 

31 00000 

49 00000 

16 00565 

49 00566 

16 01917 

26 00565 

31 02155 

16 02111 

16 00462 

31 00441 

49 00468 
3 



00000 
11246 
00000 

-0023 
-0261 
-1752 
00252 
00284 
-0098 
-1882 
00103 
19635 



3 
4 
1 

2 

5 X 



J1379 
1 



1 

5 X 



-0000 
3 



20540 ABIO 

20550 

20560 



20580 
20590 



DSC i,» 

00 , , , 
OORG 19982, 
OSC 1,1 

I 

DSA 0SA08 



OC 3,90 
-90 

OSA SVSORG 



OSC 1,« 



RE AO BUFFER FOR FOUR SECTORS. 
CONTROL TO WRITE ON DISK. 



11392 
11393 



J 1 394 
1 



11394 00 00000 00000 
19982 

19982 1 

19987 5X1 



19987 
19990 



19995 



19995 
19996 



J9659 
3 



-2402 
1 
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amo 



mm 



PAGE 51 



APMASE 


01606 


A600 


im®i 


0IA39 


19661 


LCA02 


00112 


MC009 


10770 


« ICTftB 


oo? n 


AB9& 


iota* 


0SA4O 


U741 


LCAOI 


00273 


MC010 


107B1 


CYtOVF 


00796 


A102 


UPftf 


0U90 


11024 


LCA04 


90120 


MC011 


10790 


DlftffNT 


00402 


ABO* 


11034 


oust 


19600 


LCA06 


001 80 


MCOMM 


02052 


OUPOOA 


10142 


iios 


11134 


£0030 


00624 


LCA07 


00223 


MCR01 


04048 


EHSGIO 


01073 


AB06 


til 54 


EQ040 


00730 


LCA08 


00237 


MCR03 


04188 


EMSGU 


01079 


ABO? 


11246 


£0050 


00800 


LCA09 


00245 


MCR04 


04304 


EHSG13 


01201 


AB06 


11383 


£0070 


00832 


LCBOl 


00092 


MCR05 


04572 


ENSG20 


01085 


AB09A 


11379 


E0060 


00916 


LCB02 


00200 


MCR04 


04935 


EMSG21 


01077 


AB09 


11 378 


£0090 


oitfo 


LCB08 


00255 


HCVL 


00098 


EQUOOA 


10662 


AB10 


11394 


£0095 




LCB09 


00263 


MOOl 


09730 


FORDDA 


10822 


AJOB 


01594 


E01O0 


01044 


LCBIO 


00278 


M002 


09731 


HOLLER 


01382 


81 


01573 


EC ALL 


0178$ 


LRA02 


001 76 


MOOA 


01775 


IBMMOO 


00440 


BBUFF 


01224 


EEX I T 


01630 


LRAOS 


00269 


M0P01 


06806 


1BMMRT 


01028 


BKPT 


00467 


EMSG1 


01779 


LRA06 


00283 


MERR 


00672 


LCA02A 


00253 


BNI 


00492 


EMS62 


01149 


LREC 


09801 


ME 51 


00817 


LCA06A 


00204 


CHECK 


01262 


EN$G3 


01049 


MAOOO 


02402 


MES2 


00939 


IDINPT 


00428 


CHER t 


01334 


EMSG4 


01055 


MA010 


02544 


MESSG 


00960 


MAPENT 


02118 


CHER 2 


01370 


EMSGS 


01061 


NA020 


02769 


MF01 


09704 


MAPSCT 


01631 


CHKI 


91020 


EMSG6 


01067 


NA02S 


0277? 


MF02 


09709 


M606OA 


01346 


CHR2 


01340 


ENSG7 


01073 


M6000 


02902 


MF03 


09729 


M6110A 


03522 


CHR3 


01376 


EQUlV 


02102 


MB 010 


03010 


MFT01 


06550 


MBllOB 


03S66 


CHR4 


01408 


ERRS 


01609 


MB020 


03070 


MF TO 2 


06570 


MCAOOA 


00079 


CINIT 


00427 


ERRET 


00602 


HB025 


03120 


MFTOJ 


06734 


MCC8UF 


13000 


CNTWO 


02155 


ERROR 


00624 


M8030 


03142 


MI01 


09628 


MCROIA 


04455 


COHM 


02802 


FO 


09566 


M8035 


03162 


MI03 


09829 


MCR02A 


04116 


COUNT 


01125 


Fl 


09567 


MB040 


03210 


MJBOl 


04944 


MCR04A 


04444 


DCDE 


01052 


F2 


09586 


MB045 


03254 


MJB02 


04956 


MCR05A 


04628 


OFILE 


01906 


F3 


09569 


MB060 


03274 


MJB03 


05074 


MFT05B 


06778 


01 OP 


01986 


F4 


09590 


MB081 


03390 


MJB04 


05142 


MFT05C 


06792 


010 


00816 


F5 


09592 


MB 100 


03422 


MJ810 


05250 


MJB02A 


05060 


OIOX 


00932 


F6 


09594 


HB110 


03466 


MJB1 1 


05366 


MJ802X 


05028 


DIOV 


01068 


F7 


09599 


MB140 


03658 


MJB12 


0^390 


HJB03A 


05086 


DIOZ 


01124 


FSPS 


00429 


HB145 


03690 


MJB13 


05514 


MJB03B 


05130 


DOVFL 


01128 


GOGO 


008 70 


MB 190 


03710 


MJB15 


05574 


MJB12A 


05482 


DRIVE 


02154 


GTEST 


01156 


MB 195 


03722 


MJB17 


059 30 


MJB13A 


05538 


OSAOO 


19600 


HOI 


01416 


M8200 


03734 


MJB20 


06026 


MJB15A 


05678 


DSA01 


19635 


HO 3 


01454 


MB210 


03986 


MJB21 


06118 


MJB50A 


06170 


0SA02 


19636 


H04 


01478 


MB220 


04010 


MJB22 


06126 


MJB55A 


06164 


0SA04 


19639 


HALT 


00456 


MB222 


04016 


MJB23 


06134 


MONCAL 


00796 


0SA06 


19640 


HIGH 


00434 


MB225 


04033 


MJ830 


06150 


MSP05A 


06493 


0SA07 


19656 


1N0S 


00610 


MB226 


0404 7 


MM01 


096 31 


MSPOSB 


06507 


0SA08 


19659 


IOCAL 


00716 


MCAOO 


00032 


MM02 


09879 


HSP05C 


06521 


0SA09 


19744 


I OCT 


00566 


MCA01 


00208 


MMQ3 


09867 


MSP050 


06535 


0SA10 


19749 


I OP A 


01004 


NCA03 


00100 


MM04 


09895 


MXQ03A 


07090 


0SA11 


19761 


10P 


01930 


NCA04 


00071 


MMQ5 


09903 


MXQ03B 


07146 


0SA12 


19767 


I OP T 


00532 


MCA05 


00241 


MM06 


09911 


MX006A 


07338 


0SA13 


19772 


I0R8C 


00520 


MCA06 


00250 


MM07 


09919 


MXQ06B 


07386 


0SA14 


19777 


io$x 


00554 


MC001 


10690 


MM 08 


09927 


MXQ06C 


07410 


0SA15 


19783 


IOXX 


00565 


MC002 


10700 


MM09 


09935 


NEMOOA 


01154 


0SA16 


19786 


IREC 
J0# 


09756 


NC003 


10710 


MMIO 


09943 


OVRLAY 


00468 


0SA17 


19789 


01042 


MC004 


10720 


MMil 


09951 


AA02A 


00229 


0SA18 


19791 


JREC 


09776 


MC005 


10730 


MM 16 


09959 


AA02 


00120 


0SA19 


19794 


KREC 


09792 


MC006 


10740 


MM 1 7 


10023 


AA03 


00261 


DSA20 


19797 




00439 


MC007 


10750 


MM19 


10107 


AA04 


00284 


DSA21 


19630 


m 


00072 


MC008 


10760 


MM21 


10157 
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MM22 


10179 


MXQ07 


07418 


RM2 


02205 


UT06A 


08540 


Y01A 


00828 


MM23 


10265 


MXQ08 


07478 


RMAP 


00956 


UT06B 


08620 


Y01B 


00852 


MM25 


10277 


MXQ09 


07590 


RNAM 


00712 


UT06C 


08652 


YOl 


00780 


MM26 


10297 


MX010 


07610 


SEEK 


01496 


UT060 


08714 


Y02 


00884 


MM 30 


10339 


MXQil 


07642 


SI OP 


01796 


UT06E 


08762 


V06 


01000 


MM31 


10363 


MXQ12 


07674 


S10XX 


01244 


UT06 


08494 


Y07A 


01120 


MM32 


10399 


MXQ13 


07718 


SK01 


01476 


UT07A 


08896 


Y07 


01108 


MM33 


10415 


MXQ20 


07798 


SK02 


01604 


UT07B 


09060 


201 


00836 


MM 36 


10439 


MXQ50 


07813 


SK03 


01708 


UT07C 


09122 


Z02 


00860 


mn 


10475 


MX055 


07827 


SK04 


02142 


UT07 


08782 


203 


00924 


MM38 


10511 


NEXT 


00963 


SRA01 


00072 


UTIOA 


09270 


204 


00960 


m 39 


10549 


N10P 


01060 


SRA02 


00060 


UT10B 


09338 


SAVOOA 


01169 


MM40 


10597 


NOERR 


00648 


SRA03 


00152 


UT10C 


09442 


SFOINT 


00426 


MN45 


10635 


NONEX 


00457 


STE,PS 


01200 


UTIOD 


09462 


SPSOOA 


10802 


MR02 


097 32 


OLDCY 


02110 


TEETH 


01211 


UT10E 


09462 


SPSMLP 


00468 


MREC 


09809 


OLDOA 


00441 


TEMP 


02149 


UT10F 


09550 


SRELOC 


00425 


MSP01 


06198 


OTEST 


00760 


TEST 


00624 


UT10 


09138 


SUPENT 


02934 


MSP02 


06216 


POINT 


09756 


TTl 


01752 


UT11A 


09666 


SUPRET 


01817 


MSP03 


06430 


RCALL 


01603 


UTOl 


07956 


UTU 


09606 


SYSCAL 


00475 


MSP04 


06474 


R01M1 


00828 


UT03A 


08066 


NRTCT 


00728 


SYSORG 


02402 


MXQOl 


06910 


ROIM 


00780 


UT03B 


08148 


WTEST 


00704 


UT05AI 


08460 


MXQ02 


06942 


ROVCO 


00996 


UT03C 


08234 


X01 


01646 


UT07A1 


08992 


MXQ03 


07078 


REPOS 


00512 


UT03 


08036 


X03 


00988 






MXQ04 


07194 


RETN 


01674 


UTOSA 


08446 


X04 


01212 






MXQ05 


07226 


RETRY 


01036 


UT05B 


08466 


XX 


00000 






MXQ06 


07318 


RMl 


02200 


UT05 


06330 


voo 


00672 







END OF ONE ASSEMBLY. 
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PAGE 


00120 


OORG 2500 


02500 








00190 


• WRITE SEGMENT 1 OF LOADER ON DISK. 










00140 


TRY I 34 DCONT 1.701 


02500 


34 


02564 


00701 


00150 


38 DCONT 1,702 


02512 


36 


02584 


00702 


00160 


BNI RIGHT 1,1900 


02524 


47 


02560 


01900 


00170 


H 


02536 


48 


00000 


00000 


00180 


8 TRY1 


02548 


49 


02500 


00000 


00190 


RIGHT 1 TRA 


02560 


36 


00000 


00500 






02572 


49 


00000 


00000 


00200 


DCONT 1 DSC 9,119600009 


02584 




9 






119600009 












DSA CAR0IN-10 


02597 




5 


X 1 






02597 




-0502 




00220 


DORG 502 


00502 








00 2 25 


FAKE DC 2,0 

-0 


00503 




2 




00230 


• OISK INPUT PROGRAM. IF CARO INPUT, 8RING IN SEGMENT 2. 










00240 


8 LOADER 


00504 


49 


01266 


00000 


00250 


DORG »-4 


00511 








00260 


• INPUT CONTROL FOR DISK INPUT. 00 A IS AT CNTL, CVLOV IS LOCATION 










00270 


• OF CYLINDER OVERFLOW ROUTINE, LD 3 IS ERROR MESSAGE, OK IS 










00280 


• NORMAL EXIT. 










00290 


NORM DC 1,7 
P 


00311 




1 




00300 


DSA CNTL,CYLOV 


00316 




5 


X 2 






00516 




-0920 








00321 




-0554 




00310 


DC 2,73 


00323 




2 






P3 










00320 


DSA OK 


00328 




5 


X 1 






00328 




-0630 




00330 


DC 1,* 
» 


00329 




1 




00340 


• SECTOR ADDRESSES AND COUNTS FOR DISK INPUT. 










00350 


CNTL1 DC 8,00100200 


00537 




8 






-0100200 










00360 


CNTL2 DC 8,00200100 


00545 




8 






-0200100 










00370 


CNT DC 8,00300000 


00553 




6 






-0300000 










00380 


• CYLINDER OVERFLOW ROUTINE. 










00390 


• IF OVERFLOW OCCURRED, UPDATE ARM POSITION CODE FOR IOCS. 










00400 


CVLOV AM ARM, 1,10 


00354 


11 


00464 


000-1 


00410 


• READ ONE OR TWO SECTORS FROM NEXT CYLINDER, AND CONTINUE. 










00420 


TF D1S-1 .CNTL2 


00366 


26 


00933 


00545 


00430 


AM CNTL+5, 1 


00ST8 


11 


00925 


-0001 


00440 


80 MORE, CNTL *5 


OOStO 


43 


00610 


00923 


00450 


8 DIS 


00602 


49 


00934 


00000 


00460 


DORG •-3 


00610 








00470 


MORE TF DIS- I .CNTLl 


00610 


26 


00933 


00937 


00480 


8 CVL0V*24 


00612 


49 


00576 


00000 


00490 


OORG «-3 


00630 








00500 


• NORNAL EXIT. INCREMENT SECTOR ADDR. IV 3, DECREMENT COUNT IV 3, 











3 2 0 \V 
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00910 


• 


go to of sim procossing tmw. 










00920 




tO 9K»23*02$~6 


00490 


29 


00499 


00924 


00990 




AN €NTL»9 t XX 


00442 


11 


00929 


-0000 


00940 




SM WAPfNT«9*9»9 


00444 


12 


00410 


00-03 


00990 




8 PIN 


00444 


44 


01092 


00000 


00940 




0046 «-2 


00473 










* 


CONTROL TO OR! NO IN MOMENT 2* 










00990 




OC l»7 


00679 




1 








P 

OSA C0MT2,CYL0V 


00400 




9 


X 2 








00400 




-0444 










00449 




-0994 




00410 




OC 2.74 


00447 




2 




00620 




OSA CARD I N 


00492 




5 


X 1 








00492 




-0912 




00630 




DOA TO BRING IN SEGMENT 2. TRANSMITTED TO OUT BEFORE USAGE* 










00640 




DC It* 


00493 




1 




00690 




OC 1,0 


00694 




I 




00660 




OSA CAROAO 


00699 




9 


X I 








00699 




49409 




00670 




DSC 3*3 


00700 




3 








003 














OSA CARDIN-10 


00707 




9 


X I 








00707 




-0902 




00690 




DSC 1 » ' 
• 


00708 




1 




00700 


• 


ADDRESS TO BRANCH TO AFTER DISK READ ERROR. 










00710 




DSA DIS 


00713 




9 


X 1 








00713 




-0934 




00720 


• 


LOAD ADDRESS FOR INPUT. 


00718 








00790 




OC 9,0 




5 








-0000 










00740 


• 


FOR DISK INFUT. HAS CHARACTER COUNT REACHED 300... 










00790 




CM CHAR If 300 


00720 


14 


00443 


-0300 


00760 




BNE «*32 


00732 


47 


00744 


01200 


00770 


• 


IF SO. GET MORE INPUT. 










007S0 




TFM CtO 


00744 


16 


00439 


-0000 


00740 




8 DISK 


00794 


49 


00644 


00000 


00400 




DORG »-3 


00744 








00010 


• 


IF NOT, ARE WE READY FOR A NEW T5-CMARACTER GROUP... 










00820 




C CHARl f C 


00744 


24 


00443 


00439 


00830 




BNE BEGIN 


00774 


47 


01164 


01200 


00840 




8 HERE, ,7 


00748 


49 


ouu 


-0000 


00850 




DORG »-3 


00794 








00660 


• 


INFUT CONTROL FOR CARO INPUT. 0 IS INPUT LOCATION, ERR IS ERROR 










00670 


• 


ROUTINE, LO 2 IS ERROR MESSAGE, CENO IS NORMAL EXIT. 










00880 


READ DSC 1*0 


00794 




1 





0 
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00890 


DSA O t ERR 


00601 




3 


X 2 






00401 




-0000 








00004 




-1030 




00900 


OC 2,72 


00404 




2 






P2 










00910 


OSA CENO 


00413 




5 


X I 






00413 




-0994 




00920 


SC iff • 
• 


00414 




1 




00930 


• TO BRING IN SEGMENT 2, TRANSMIT INPUT CONTROL AND ODA. 












OUT TO C0NT2,ARM*1 


00414 


29 


00494 


00469 


00990 


TR A, GET 


00424 


31 


01073 


00679 




TFM C,0 


00440 


14 


00439 


-0000 


00970 


8 OIS+12 


00992 


49 


00944 


00000 


00980 


DORG *-4 


00999 








00990 


• CHARACTER COUNTER. 










01000 


CHAR1 DC 9,0 


00963 




5 






-0000 










01010 


• DISK INPUT.. EXIT WHEN SECTOR COUNT IS ZERO. 










01020 


DISK CM MAPENT*8,0ff9 


00964 


14 


00410 


00-00 


01030 


BNH SIX 


00976 


47 


02204 


01100 


01040 


• NOT ZERO - TRANSMIT INPUT CONTROL ANO 3- SECTOR DOA. 










01090 


TR A, NORM 


00449 


31 


01073 


00911 


01040 


TP OIS-l ,CNT 


00900 


24 


00933 


00933 


01070 


B DIS, ,2 


00912 


49 


-0934 


00000 


01040 


DORG »-3 


00920 








01090 


• ODA FOR OISK INFUT. VARIABLE COUNT AND CORE ADDRESS TO HANDLE 










01100 


• CYLINDER OVERFLOW. 










OHIO 


CNTL DSC 6,0 


00920 




6 






000000 










01120 


DC 8,0 


00999 




8 






-0000000 










01130 


• INPUT ROUTINE. SEEK, GET INPUT DEVICE, READ* CHECK FOR ERROR. 










01140 


DIS 34 8,701,6 


00994 


34 


01070 


00701 


01190 


TO •♦21*4 


00944 


29 


00947 


01073 


01140 


RO 36 Off 702*6 


00999 


36 


01070 


00702 


01170 


BNI E-lff 1900*6 


00970 


47 


©109- 


01900 


01140 


ANYERR 81 •♦12,0600 


00942 


44 


00994 


00600 


01190 


81 ••12,1600 


00944 


44 


01004 


01600 


01200 


81 •♦12*1700 


01004 


44 


01014 


01700 


01210 


81 CIN, 3800,6 


01019 


44 


01 041. 


03900 


01220 


• ERROR ROUTINE. WRITE LO X* HALT* REREAD. 










01230 


ERR TP STOP* 9*0 


01090 


24 


01043 


01089 


01240 


WATV ST0P*3 


01042 


39 


01097 


00100 


01290 


*fi)F M 93440 


01094 


44 


93440 


00000 


01240 


DORG »-4 


01041 








01270 


DSC 9*0* 


01041 




9 






0000* 










01240 


BACK B DfSKX,,6 


01044 


49 


0071L 


00000 


01240 


DORG *-4 


01073 








01300 


• INPUT CONTROL. OEVICf COOf • CORE AOOR. FOR INPUT* ERR R0UT4NI* 










01310 


• ERROR NESSGff NORMAL EXIT. 










01320 


A DC 1,0 


01079 




1 
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01310 


8 


DC 5 V 0 


01078 




5 








-0000 










01340 


CIN 


DC 5,0 


01083 




5 








-0000 










01)90 


D 


DC 2,0 


01083 




2 




01)60 


E 


-0 

DC 6,0* 


01091 




6 








-0000* 










013TO 


• BEGIN PROCESSING A T5-CMARACTER GROUP. 










OHIO 


FIN 


TF CMARl.C 


01092 


26 


00863 


00439 


01)90 


• IF 


THIS IS FIRST GROUP, COMPUTE RELCON, UNLESS RETURNING FROM TCO. 










01 400 


RCON 


8NF TO ,TCO 


01104 


44 


01176 


00426 


01410 




TF RELCON, HIGH 


01116 


26 


00449 


00434 


01420 




SF FIN 


01128 


32 


01092 


00000 


01460 


• SET 


LOU TO FIRST AOORESS ON FIRST CAROPLUS RELCON. 










014T0 


ZERO 


TF L0N.4 


01140 


26 


00444 


00004 






8NR *«24 ,NAPENT*14 


01152 


45 


01176 


00416 






TF MAPENT+13,L0U 


01164 


26 


00415 


00444 


01480 


• RESET TCO INOICATOR. 










01490 


TO 


SF TCO 


01176 


32 


00428 


00000 


01520 


• TO 


BRING IN SEGMENT 3, TRANSMIT INPUT CONTROL AND OOA. 














TO C0NT3 ,AAM*1 


01188 


25 


01250 


00465 


01540 




TR A, RPROG 


01200 


31 


01073 


01231 


01550 




TR 0UT.C0NT3 


01212 


31 


00816 


01250 


01560 




B OIS 


01224 


49 


00934 


00000 


015T0 




DORG »-4 


01231 








01580 


• INPUT CONTROL FOR SEGMENT 3. OUT IS DO A, LO 4 IS ERROR MfSSG, 










01590 


• 


RCON IS NORMAL RETURN. 










01600 


RPROG 


DC 1,7 


01231 




1 




01610 




P 

DSA OUT ,CVLOV 


01236 




5 


X 2 








01236 




-0814 










01241 




-0554 




01620 




DC 2,74 


01243 




2 




01630 




P4 

DSA START 


01248 




5 


X 1 








01248 




-0720 




01640 




DC 1,« 
• 


01249 




1 




01650 


• DDA 


FOR SEGMENT 3. 










01660 


C0NT3 


DSC 9,019612012 


01250 




9 








019612012 










01670 




DSA RC0N-2 


01263 




5 


X 1 








01263 




-1102 




01680 




DSC 1,« 


01264 




1 




01690 


• LOGICAL START OF LOADER. IF INPUT IS FROM CAROS, GET SEGMENT 2. 












LOADER TO CNTL1 , 1 TAB 


01266 


25 


00537 


00440 






TO ARM+1 » I TAB 


01278 


25 


00465 


00440 


01 




TR A, INIT 


01290 


31 


01073 


01309 


01 




B DIS+12 


01302 


49 


00946 


00000 


01 




DORG «-4 


01309 








01 


INIT 


DC 1,7 


01309 




1 





p 
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01 


DSA 


CNTLI ,CVLOV 




01314 




5 


X 2 










01314 




-1328 












01319 




-0554 




01 


DC 


2,74 




01321 




2 






P4 














01 


DSA 


TRANS 




01326 




5 


X 1 










01326 




-1342 




01 


DSC 


It' 




01327 




1 




01 


CNTLI DSC 


1»0 




01328 




1 




01 


0 

DSA 


SYSSCT 




01333 




5 


X 1 










01333 




J9663 




01 


DC 


e, iooooo 




01341 




8 






-0100000 












01 


TRANS TR 


C0MM,84 




01342 


31 


00440 


00084 


01700 


BD 


OUT ,IOME0 




01354 


43 


00816 


00428 


01710 


• IF INPUT 1 


FROM DISK, GET FIRST 


SECTOR AOOR. AND GO TO READ DISK. 










01720 


TF 


CNTL*5» MAPENT+5, , 


DISK INPUT 


01366 


26 


00925 


00407 


01725 


TD 


CNTL , MAPENT 




01378 


25 


00920 


00402 


01730 


B 


DISK 




01390 


49 


00864 


00000 


01740 


OORG 


•-3 




01396 








0IT50 


TCO 


TRV1 




02500 








01760 


OORG 


2500 




02500 








01770 


• WRITE SEGMENT 2 OF LOAOER ON 


DISK. 










01780 


TRV2 34 


0C0NT2,701 




02500 


34 


02584 


00701 


01790 


38 


0C0NT2,702 




02512 


36 


02584 


00702 


01800 


BNI 


RIGHT2,1900 




02524 


47 


02560 


01900 


01810 


H 






02536 


48 


00000 


00000 


01820 


B 


TRY2 




02548 


49 


02500 


00000 


01830 


RIGHT2 TRA 






02560 


36 


00000 


00500 










02572 


49 


00000 


00000 


01840 


DC0NT2 OSC 


9,119609003 




02 584 




9 






119609003 














DSA 


CAROlN-10 




02397 




5 


X 1 










02597 




-0502 




01860 


DORG 


302 




00502 










DC 


2,0 




00101 




2 




01870 


-0 
6 


LOAOER 




00104 


49 


01266 


00000 


01880 


DORG 


•-3 




00112 








01890 


• CARD INPUT PROGRAM. 












01900 


• GET INPUT 


DEVICE CODE FROM COMM. AREA. 










01910 


CAROIN TO 


READ* 10MED, , 


CARO OR TAPE INPUT 


00512 


25 


00796 


00426 


01920 


CF 


READ 




00124 


33 


00796 


00000 


01930 


• TRANSMIT CARD INPUT CONTROL* 


AND GO TO READ A CARD. 










01940 


CARO TR 


A »READ 




00536 


31 


0107) 


00796 


01950 


8 


01*41! 




00148 


49 


00946 


OOOOO 


01980 


OORG 


•-1 




00118 








01970 


• IP CARO INPUT t CHICK SEQUENCE 


• IP TAP!, BYPASS THIS. 










01980 


CEND CM 


READ, 1,10 




00116 


14 


00796 


000-5 
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01990 


BNE FIN 


00548 


47 


01092 


01200 


02000 


BNF FIN*79** CHICK CARD SEQUENCE NO. 


00900 


44 


01092 


00079 


02010 


am seq*i 


00992 


11 


00494 


-0001 


02020 


C 79« SCO 


00404 


24 


00079 


00454 


02010 


BE FIN 


00414 


44 


01092 


01200 


02040 


SM SEQ*1 


00628 


12 


00494 


-0001 


02090 


• IF CARD tS OUT Of SEQUENCE* WRITE LAST SEQ« NO* WHICH WAS CORRECT* 










02040 


• A HO ID 1. THEN HALT*. ANO READ ANOTHER CARD* 










02070 


HNtV SEO-4 


00440 


98 


00490 


00100 


02000 


TEN ST0P*9,71,10 


00492 


14 


01049 


0OOP1 


02090 


B ERR* 12 


00444 


49 


01042 


00000 


02100 


mm • 


00479 








02110 


GET OC 1*7 

P 


00479 




I 




02120 


OSA OUT *CVLOV 


00400 




5 


X 2 






00400 




-0414 








00449 




-0594 




02130 


OC 2*74 


00407 




2 




02140 


P4 

OSA DISK 


00692 




5 


X 1 






00692 




-0444 




02150 


DC 1*« 


00493 




1 




02160 


C0NT2 DC 1*0 


00494 




1 




02170 


DSA DISKAD 


00699 




5 


X 1 






00499 




J9600 




02180 


DSC 3*3 


00700 




3 






003 












DSA CARDIN-10 


00 707 




5 


X I 






00707 




-0502 




02200 


DSC It • 


00708 




1 




02210 


• ADDRESS TO BRANCH TO AFTER CARD OR TAPE REAO ERROR* 










02220 




00719 




5 


X 1 






00713 




-0946 




02230 


REl DC 5*0 


00718 




5 






-0000 










02240 


• FOR UNIT RECORO INPUT • HAS CHARACTER COUNT REACHED 75... 










02250 


START CM CHAR1»75 


00720 


1* 


00863 


-0075 


02260 


FORK BNE •♦32 


00732 


47 


00764 


01200 


02270 


• IF SO* REAO ANOTHER RECORD. 










02280 


TFM C,0 


00744 


16 


00439 


-0000 


02290 


8 CARD 


00796 


49 


00536 


00000 


02300 


OORG «-3 


00764 








02 310 


C CHAtU.C 


00764 


24 


00863 


00439 


02320 


TCO TRV2 


02500 








02330 


DORG 2500 


02300 








02340 


• WRITE SEGMENT 3 OF LOADER ON DISK. 










02350 


TRY3 3* DC0NT3.701 


02500 


34 


02584 


00701 
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02360 


38 DC0NT3,702 


02512 


38 


02584 


00702 


02370 


BNI RIGHT3 t 1900 


02524 


47 


02560 


01900 


02380 


H 


02536 


48 


00000 


00000 


02390 


B TRY3 


02548 


49 


02500 


00000 


02400 


RIGHT3 TRA 


02560 


36 


00000 


00500 






02572 


49 


00000 


00000 


02410 


0C0NT3 OSC 9*119612012 


02584 




9 






I 19612012 










02420 


DSA RC0N-2 


02597 




5 


X I 






02597 




-U02 




02*30 


OORG RCQN 


01104 








02440 


• SEGMENT 3 HANDLES ANALYZING ANO LOADING OF INPUT. 










02450 


TFM CNTL-2v3I S*12 


01104 


16 


00918 


-0946 


02460 


• INITIALIZE COUNTERS FOR NEW 75-CHARACTER GROUP. 










02470 


HERE AM C*75 


01116 


1 1 


00439 


-0075 


02480 


AM CHAR1*4 


01128 


11 


00663 


-0004 


02490 


TF LOC*CHARltll 


01 140 


26 


01283 


0086L 


02500 


AM CHARltl 


01152 


li 


00863 


-0001 


02510 


BEGIN BNR N0TRM*CHAR1 * It 


01164 


45 


01228 


0086L 


02520 


BNF NOFLAG »CHAR1*11* RECORD MARK INDICATOR 


01176 


44 


01206 


0086L 


02530 


• FLAGGED RECORD MARK - START NEW GROUP. 










02540 


TF CHAR I t C 


01188 


26 


00863 


00439 


02550 


B START 


01200 


49 


00720 


00000 


02560 


OORG •-3 


01208 








02570 


• UNFLAGGEO RECORD MARK - GET NEW 5-DIGIT AOOR. 










02580 


NOFLAG AM CHAR1 .5 


01208 


11 


00863 


-0003 


02590 


B MERE*24 


01220 


49 


01140 


00000 


02600 


DORG »-3 


01228 








02610 


• ZERO INDICATOR - READ IN SEGMENT 4. 










02620 


NOTRM BD N0ZER0»CHAR1 « 11 


01228 


43 


01272 


0086L 




SEEK TD C0NT1 .ARM* I 


01240 


25 


02230 


00465 




TR A* PROG 


01292 


31 


01073 


02244 


02640 


B DIS 


01244 


49 


00934 


00000 


02650 


OORG ®~3 


01272 








02660 


NOZERO TFM REL*LOC«* NON-ZERO INDICATOR 


01272 


16 


00718 


-1283 


02670 


BNF FLAG*CHAR1 e 1 1 


01294 


44 


01316 


0086L 


02680 


• FLAGGED DIGIT - DO NOT RELOCATE. 










02690 


TFM 2024* TWO 


01294 


16 


02024 


-I860 


02700 


B DO 


01908 


49 


01988 


00000 


02710 


DORG •-3 


01314 








02720 


• UNFLAGGEO DIGIT - ADD RELCON* 










02730 


FLAG A REL*RELCON 


01314 


21 


00716 


00449 


02 740 


• IF RELOCATABLE PROGRAM* ADO RELCON TO LOW ANO ENTRY ADDRESS* 










02790 


BNF •♦48»FIN 


01928 


44 


01374 


01092 


02740 


CF FIN 


61340 


33 


01092 


06000 


02770 


A LOW»RELCON 


01952 


21 


00444 


00449 


02780 


A MAPENT^ 19 t RELCON 


01344 


21 


00419 


00449 


02790 


TFM 2024*FI VE 


01376 


16 


02024 


-1484 


02800 


• GET LENGTH OF DATA* SAVE ADDR. OF FIRST POSITION OF DATA FIELD* 










02810 


DO TD TEMP*CHAR1* 11 


01948 


25 


01477 


0084L 


02820 


AM CHAR 1*2 


01400 


11 


00449 


-0002 


02830 


TF N,CHARl,il 


01412 


26 


02097 


0084L 


02840 


TF M*N 


01424 


26 


02047 


02057 


02890 


AM CHAR1»1 


01494 


11 


00449 


-0001 


02860 


TF TEMP2.CHAR1 


01444 


16 


02139 


00443 
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02 §70 


TF TEMPI ,6 El 


01460 


2* 


01799 


00716 


onto 


• BRANCH TO PROPER INDICATOR ROUTINE. 










02890 


•R 6 2008, ,4 


01472 


49 


02-09 


00000 


02900 


DORG »-3 


01490 








02910 


• THREE INOICATOR - SYMBOLIC ADDRESSES, FLAGGED AND RELOCATED SV SIT. 










02920 


THREE TFM SET-1,**21», THREE INDICATOR 


01400 


1* 


02079 


-1S01 


029)0 


• SET, 0,8 


01492 


49 


02080 


0-000 


02940 


DORG »-l 


01902 








02990 


AM CHAR1 ( 5 


01902 


11 


008*3 


-0005 


02940 


SM M,5,10 


01914 


12 


020*7 


©00-5 


02970 


6P THREE 


0191* 


4* 


014*0 


01100 


02980 


6 STORE 


0193B 


49 


01892 


00000 


02990 


DORG *-3 


0194* 








03000 


• FOUR INOICATOR - NUMERIC BLANKS. 










03010 


FOUR TO TEMPI .BLANK, 4, FOUR INOICATOR 


0194* 


29 


0178R 


02229 


03020 


AM TEMPI, 1 


0199B 


11 


01789 


-0001 


03030 


SM M,l,10 


01 970 


12 


020*7 


000-1 


03040 


BP FOUR 


01962 


4* 


01544 


01100 




A LOCf N 


01994 


21 


01283 


02057 




B START 


01606 


49 


00720 


00000 


03110 


OORG •-3 


01614 








03120 


• EXAMINE SECONO POSITION OF OP CODE. 










03130 


Q AM CHARl.l 


01614 


11 


00843 


-0001 


03140 


BNF DON T, CHAR 1, 11 


01626 


44 


01440 


0086L 


03150 


• FLAGGED - RELOCATE Q FIELD. 










03160 


TFM SET-l,»*21 


01638 


14 


02079 


-1659 


03170 


B SET, 600, 8 


01690 


49 


02080 


0-600 


03180 


OORG »-l 


016*0 








03190 


• MOVE TO NEXT INSTRUCTION. 










03200 


OONT AM CHAM ,11 


01660 


11 


00863 


-0011 


03210 


SM M,12,10 


01672 


12 


02067 


000 J 2 


03220 


• FLAGGEO FIVE AND UNFLAGGED ONE INDICATORS - INSTRUCTIONS. 










03230 


• ARE THERE LESS THAN 7 DIGITS LEFT... 










03240 


FIVE CM M,7,10, FIVE INOICATOR 


01684 


14 


02067 


000-7 


03250 


BL NO 


01696 


47 


01868 


01300 


03260 


•NO - ARE THERE LESS THAN 12. •• 










03270 


CM M,12,10 


01708 


14 


02067 


00OJ2 


03280 


BL LESS12 


01720 


47 


01834 


01300 


03290 


•NO - EXAMINE FIRST POSITION OF OP COOE. 










03300 


BNF IFe.CHARl.il 


01732 


44 


01766 


0086L 


03310 


• FLAGGED - RELOCATE P FIELD. 










03320 


TFM SET-l,»*2l 


01744 


16 


02079 


-1765 


03330 


B SET, 200,8 


01796 


49 


02080 


0-200 


03340 


DORG «-l 


01766 








03350 


• IF FIRST DIGIT OF OP CODE MAS B, DO NOT EXAMINE SECOND DIGIT. 










03360 


IF8 TO TEMP.CHARi.il 


01766 


25 


01477 


0086L 


03370 


CF TEMP 


01778 


33 


01477 


00000 


03380 


CM TEMP, 8, 10 


01790 


14 


01477 


©0©-8 


03390 


BNE Q 


01802 


47 


01614 


01200 


03400 


AM CHAR 1,1 


01814 


U 


00863 


-0001 


03410 


B OONT 


01826 




01660 


nnnnn 


03420 


OORG »~3 


01834 








03430 


• LESS THAN 12 DIGITS LEFT - EXAMINE FIRST POSITION OF OP CODE ONLY. 










03440 


LESS12 BNF N3cCHARl.ll 


01834 


44 


01868 


0086L 


03450 


• FLAGGED - RELOCATE P FIELD. 










03460 


TFM SIT-l,»*2l 


01B46 


16 


02079 


-1867 












1 1 it 
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03470 


8 SET, 200, 8 


01898 


49 


02080 


0-200 


03480 


OORG •-! 


01866 








03490 


• RESET CHARACTER COUNTER TO BEGINNING OF OATA FIELD. 










03500 


NO TF CHAR1.TEMP2 


01868 


26 


00863 


02139 


03510 


• TWO AND FLAGGED ONE INOICATOR - CONSTANTS. 










03520 


TWO A CHAR1 ,N» . TWO INOICATOR 


01BB0 


21 


00863 


02057 


03530 


•SAVE DIGIT AT END OF FIELD. 










03531 


STORE SM CHARl.l, 10 


01892 


12 


00863 


000-1 


03540 


TO SAVEl.CHAAWll, GENERAL STORING ROUTINE 


01904 


25 


00968 


0086L 


03550 


• SET A RECORD MARK THERE. 










03560 


A TEMPI, N 


01914 


21 


01789 


02057 


03561 


SM TEMPI, 1,10 


01926 


12 


01.789 


000-1 


03570 


TD CHARl,RM,6 


01940 


25 


0086L 


02262 


03578 


• TRANSMIT OATA TO LOAD AOORESS. 










03561 


TR REL,TEMP2,61l 


01952 


31 


007 10 


0213R 


03564 


• REPLACED SAVED DIGITS. 










03567 


TO TEMP1,SAVE1,6 


019*4 


23 


0176R 


00966 


03588 


AM TEMPI ,1,10 


0197* 


11 


01789 


000- 1 


03589 


AM CHARl.l, 10 


019BB 


11 


00963 


000-1 


03593 


• GO TO UPDATE LOCATION POINTER. 












PLACE B FOUR+48 ,XX 


02000 


49 


01394 


00000 




P2 OS 0 •• 


02011 




0 




03600 


OORG 2016 


02016 








03610 


B XX 


02018 


49 


00000 


00000 


03620 


OORG »-l 


0202B 








03630 


B TWO 


0202B 


49 


01880 


00000 


03640 


OORG 


0203B 








03650 


8 THREE 


0203B 


49 


01480 


00000 


03660 


OORG •-! 


02048 








03670 


NSTOR B FOUR 


02048 


49 


01546 


00000 


03680 


OORG »-l 


02058 








03690 


MSTOR B FIVE 


02098 


49 


01684 


00000 


03700 


OORG »-l 


020*9 








03710 


B SIX 


020*8 


49 


02208 


00000 


03720 


OORG »-4 


02079 








03730 


• ROUTINE TO SET FLAGS AND RELOCATE 5-01GIT AOORESSES. 










03740 


DC 5,0,, RELOCATING SUBROUTINE 


02079 




5 






-0000 










03750 


• COMPUTE BEGINNING AND END OF AOORESS. 










03760 


SET TF Pl,CHAAl 


020*0 


26 


02207 


00863 


03770 


A P1,SET-1,11 


02092 


21 


02207 


02OTR 


03780 


TF PI, PI 


02104 


26 


02011 


02207 


03790 


AM P2,4 


0211* 


11 


02011 


-0004 


03600 


SF SF PI, ,6 


02138 


32 


02tt3P 


00000 


03810 


BNF NF,P2,11 


02140 


44 


02172 


02014 


03820 


• IF INDIRECT, SUBTRACT RELCON. 










03830 


S P2, RELCON, 6 


02192 


22 


0201J 


00449 


03640 


B B8 


01164 


49 


02184 


00000 


03850 


OORG 


02172 








03860 


• lr NOT INDIRECT « ADD RELCOM. 










03670 


NF A P2,RELC0N,6 


02172 


21 


0201J 


00449 


03880 


BB AM SIT-l.i 


021B4 


11 


02079 


-0001 


03690 


B SIT-1,,6 


0219* 


49 


0207R 


00000 


03990 


• SIX INDICATOR - END OF OATA TO BE LOADED. 










04000 


• REAO IN SEGMENT 4. 










04010 
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369 
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00790 




TR 


1 


, ALPHRM-l 


,26 




02118 


31 


-OOOJ 


05141 


00800 




BNR 


• -24 


,0 






02550 


45 


02526 


00000 


00810 




TF 


STBL 


• •-18 






025*2 


26 


02177 


02544 


00820 




TF 


IN0DAM3 


• STBL 






02574 


26 


05164 


02177 


00830 




SM 


INDOA+13 


,999 


,9 




0258* 


12 


051*4 


00R99 


00840 




TFM 


IORT 


,•♦23 






02598 


16 


00565 


-2621 


00850 




B 


IOGT 


•INDATA 


,7, 


INITIALIZE SYMBOL TABLE 


02*10 


49 


00566 


-5141 


00860 




SM 


INDDA+10 


• 1 


,10 




02*22 


12 


05161 


000- 1 


00870 




C 


IND0AM3 


•NXLOC 






02634 


24 


05164 


02372 


00880 




BNL 


•-48 








02646 


46 


02598 


01300 


00890 




TOM 


BUFSCS*lOO.»-» 






02618 


15 


06218 


00000 


00900 


GRMK 


DGM 


• 








02669 




I 




00910 




TD 


BUFEQT4-800.GRMK 






02*70 


25 


07020 


02669 


00920 




TD 


BUF DIM* 100, GRMK 






02682 


25 


07122 


02669 


00930 




TF 


Till 


• STBL 






02*94 


2* 


02909 


02377 


00940 




TF 


FCTEND 


• STBL 






0270* 


26 


02118 


02177 


00910 




TFM 


IORT 


• •♦23 






02718 


14 


005*1 


-2741 


00960 




B 


IOGT 


•DIMDAT 


.7, 


GET FIRST 1 DIM ENTRIES 


02730 


49 


001** 


-1166 


00970 




TF 


DIMDDA*5 


,BUFDIM*45 


, , 


IN EQUIVALENCE TABLE DIM ENTRY 


02742 


26 


01179 


07067 


00980 




TO 


OIMODA 


•BUFOIM+40 




02754 


25 


01174 


07062 


00990 




TFM 


OIMDDA+8 


.008 






0276* 


16 


01182 


00-08 


01000 




TFM 


DIMO0AM3 


t,BUFEOT 






02778 


I* 


01187 


-6220 


01010 




TFM 


IORT 


.•♦23 






02790 


1* 


009*9 


-2811 


01020 




B 


IOGT 


•DIMDAT 


,7, 


GET 8 SECTORS OF EQUIV. TABLE 


02802 


49 


005*6 


-11*6 


01030 


N114 


AM 


• ♦18 


,16 


,10. 


LOAO SYM TABLE PROM EQUIV TABLE 


02814 


11 


02912 


0O0J6 


01040 




C 


BUFEQT-5 


•12NINE 


.2. 


IS ENTRY ALL NINES 


0282* 


24 


-6211 


014*7 


01010 




BE 


RDONE 




t . 


YES 


02818 


4* 


01214 


01200 


01060 




TF 


• ♦30 


!nU4*18 




NO 


02850 


2* 


02880 


02812 


01070 




AM 


• ♦18 


.04 


• 10 




028*2 


11 


02880 


000-4 


01080 




SM 


DUMMY 


.09 


• 10. 


DETERMINE SUBROUTINE ADDRESS 


02874 


12 


99999 


000-9 


01090 




MM 


•-6 


.05 


•610 




0288* 


11 


0288- 


000-1 


01100 




SF 


95 








02898 


12 


00091 


00000 


OHIO 


Till 


OS 


5 


• • 


• 


SYMBOL TABLE POINTER 


02909 




1 




01120 




AM 


99 


.ENTLN-5 






02910 


11 


00099 


-2241 


OHIO 




TP 


Till 


.99 


»*• 


STORE SUBR. AODRESS IN SYM TABLE 


02922 


24 


0290R 


00099 


01140 




SM 


tm 


• 1 


• 10 




0291* 


12 


02909 


000-1 


OHIO 




TP 


T112 


• Nmm 


* • 


ELIMINATE BLANKS FROM NAME 


029*4 


28 


01041 


02812 


01160 




SM 


T 1 12 


.12 


• 10 




02998 


12 


01041 


000J2 


01170 


LQ0P41 


AM 


T112 


,02 


• 10 




02970 


11 


01041 


000-2 


01180 




C 


T112 


.NU4MB 






02982 


24 


01041 


02812 


01190 




•H 


N1142 








0299* 


46 


01078 


ouoo 


01200 






Till 


• TU2 






0100* 


2* 


010*1 


01041 


01210 




faM 


Till 


,01 


.10 




01018 


12 


010*1 


000-1 


01220 




4F 


Till 


. 


•* 




01010 


12 


0106N 


00000 


01210 


T 1 12 


OS 


5 


• • 






010*1 




9 




01240 




CN 


nil 


.00 


,410 




010*2 


1* 


0104J 


000-0 


01210 




CP 


Till 


• 


•* 




0109* 


11 


0106N 


00000 


012*0 


Till 


OS 


5 


• • 






010*9 




9 




01270 




ONE 


L00P41 








010*4 


♦? 


029T0 


01200 


01200 NU42 


SM 


T112 


.02 


• 10 




01078 


12 


01041 


000-2 


01290 




TP 


Till 


• NU4+18 






01090 


24 


010*9 


02812 


01100 




SM 


Till 


• U 


• 10 




01102 


It 


010*9 


OOOJ I 


01140 




SP 


Till 


• 


•* 




Olll* 


12 


0104N 


40000 


01120 


T114 


OS 


1 








01129 




9 




OHIO 




TP 


TU4 


• T1U 






01124 


24 


oim 


010*1 


01140 




S 


TU4 


• T110J 






01118 


22 


01129 


010*1 
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PAGE 



4 



01)90 




AN 


T114 


tOl 


• 10 




0)190 


11 


03125 


000- 1 


01340 




A 


NXIOC 


• 7114 






091*2 


21 


02)72 


0)125 


01)70 




TF 


NXIOC 


• Till 


• All. 


STORE SU*R. NAME IN NANE TABLE 


09174 


2* 


02)7K 


0)04J 


01)10 




TF 


Till 


• NILOC 


•At 


STORE POINTER IN SVN. TABLE 


OS 10* 


2* 


0290R 


02972 


01)90 




SN 


Till 


• 09 


• 10 




0)198 


12 


02909 


000-5 


01400 




TF 


PCTEND 


• Till 






09210 


2* 


02)18 


02909 


01410 




AN 


T8CNT 


• 01 


#10 V 


UPDATE TABLE COUNT 


09222 


It 


02629 


000- 1 


01420 


8 DONE 


CN 


N114M8 


• IUM0U799 




09294 


1* 


028)2 


-7015 


014)0 




*L 


N114 








0)24* 


47 


02814 


01900 


01440 




SN 


FCTENO 


• 05 


• 10 




0)258 


12 


02)18 


000-5 


01450 




SN 


• ♦I* 


• 02 


• 10* 


INITIALIZE READ IN AREA 


09270 


12 


0)208 


000-2 


014*0 




TFN 


CM I END 


• 00 


• 110 




09202 


IA 


J 5099 


000-0 


01470 




CN 


•-* 


• CHI 






0929* 


14 


0920B 


J5199 


014*0 




6NL 


•-)* 








0990* 


4* 


0)270 


01)00 


01490 




TF 


CMIENO 


t ALPHRN 






09)18 


2* 


15499 


05142 


01500 




TO 


INPUTD 


• 42* 




DETERNINE INPUT DEVICE 


0)))0 


25 


05469 


00426 


01510 




CF 


INPUTD 








0))42 


3) 


05469 


00000 


01520 




CN 


INPUTD 


• 01 


f 10 




0))54 


14 


05469 


000-1 


015)0 




BE 


IPTV 








0))** 


44 


0)466 


01200 


01540 




CN 


INPUTD 


• 0) 


• 10 




03378 


14 


05469 


000-5 


01550 




BE 


IPPT 








0))90 


46 


0)434 


01200 


01560 




TON 


INDIV 


• 0 




CARO INPUT 


0)402 


15 


02424 


00000 


01570 




TFN 


N2UEV-1 


> 10 


* 10 




0)414 


16 


094 76 


OOOJO 


01580 




B 


N12 








0)42* 


49 


03490 


00000 


01590 




008G 


•-4 








0)4)) 








01600 


IPPT 


TON 


INOIV 


,3 


1 1 1 1 


PAPER TAPE INPUT 


0)4)4 


15 


02424 


OOOOL 


01610 




TFM 


N21KEY-1 


• 08 


1 10 




0)446 


16 


05476 


000-8 


01620 




B 


N12 








03458 


49 


0)450 


00000 


01630 




DORG 


•-4 








03468 








01640 


IPTV 


TDM 


INOIV 


a | 




TYPEWRITER INPUT 


0)466 


15 


02424 


00001 


01650 




TFN 


N21KEY-1 


• 06 


• io 




0)478 


14 


09476 


000-6 


01660 


N12 


TFM 


IORT 


• •♦2) 






03490 


16 


00565 


-)51) 


01670 




B 


IOGT 


•SCSDAT 


.7. 


GET SVSTEN COHMUNICATION SECTOR 


0)502 


49 


00566 


-5189 


01680 




TD 


C0NADD-4 


f iwr *W 




NOVE OBJECT TINE MACHINE SUE 


03514 


25 


02258 


06194 


01690 




TF 


CONST 


t CONAOD 






03526 


26 


02)82 


02262 


01700 




TR 


BUFSCS 


t INI T 


• • 


SET UP OIM IN SYS CONN SECTOR 


03538 


31 


06118 


05213 


01710 




TR 


00402 


• INI T-l 




SET UP DIN IN SYS CONM AREA 


03550 


31 


00402 


05212 


01720 




TF 


FLN6 


»BUPSCS^4A 




NOVE F 


03562 


26 


02250 


06164 


01730 




TF 


KING 


,BUFSCS^4I 


It t 


NOVE K 


03574 


26 


02252 


06166 


01740 


N21 


CN 


INPUTD 


• 01 


• 10 




03586 


14 


05469 


000-1 


01750 




BNE 


• ♦24 








03598 


47 


03622 


01200 


01760 




RCTY 










03610 


34 


00000 


00102 


01770 




TFN 


IORT 


.•♦2) 


• • 


READ AN INPUT RECORD 


03622 


16 


00565 


-3645 


01780 




B 


IOGT 


,N21KEV-7 


• 7. 


USING IORT. 


0)6)4 


49 


00566 


-5470 


01790 




CN 


INPUTD 


• 01 


• 10 




0)644 


14 


05469 


000- 1 


01800 




BNE 


• ♦24 








03658 


47 


03682 


01200 


01810 




BC4 


N2U24 


• 




ALLOWS GOOF SWITCH 


03670 


46 


03610 


00400 


01820 




CM 


CHI 


• 14 


!lo, 


IS THIS A CONTROL STATEMENT 


03662 


14 


15139 


000J4 


01830 




BNE 


CALLP1 


» 


•• 


NO, CALL IN PASS 1 


03694 


47 


03930 


01200 


01840 




CF 


CHIO 








03706 


33 


15142 


00000 


01850 




CF 


CHU5 








03718 


33 


15144 


00000 


01860 




CF 


CHI^7 








03730 


3) 


15146 


00000 


01870 




CF 


CHI ^9 






YES 


03742 


33 


15148 


00000 


01880 




C 


CHinO 


Ipstsn^b 


• • 


IS THIS A PSTSN STATEMENT 


03754 


24 


15149 


05245 


01890 




BE 


MASS 




» t 


YES 


03766 


46 


04142 


01200 


01900 




C 


CMI^IO 


',P0BJP>8 


• » 


NO, IS THIS A POBJP ST. 


03778 


24 


15149 


05255 



37] 
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01910 




BE 


WAOBJP 




t • 


YES 


03790 


46 


04290 


01200 


01920 




C 


CHIMO 


!lOISR+8 


• • 


NO. IS THIS A L 01 SK ST. 


03802 


24 


15149 


05265 


01930 




BE 


WADK 




t • 


YES 


03814 


44 


04482 


01200 


01940 




C 


CHIMO 


Ifandk^b 


t • 


NO, IS THIS A FANDK ST. 


03826 


24 


15149 


05275 


01950 




BE 


FKTEST 


• 


• • 


YES 


03838 


46 


04742 


01200 


01960 




RCTY 






• • 


NO, INVALID CTL. ST. 


03850 


34 


00000 


00102 


01970 




TF 


CHI02 


» ALPHRN 






03862 


26 


15171 


05142 


01980 




WATY 


CHI 








03874 


39 


15139 


00100 


01990 




RCTY 










03886 


34 


00000 


00102 


02000 




WATY 


ERMES1 


• 


• • 


ERROR, INVALID CONTROL STATEMENT 


03899 


39 


05277 


00100 


02010 




H 










03910 


48 


00000 


00000 


02020 




B 


N21 


• 


• t 


BR. TO READ NEXT STATEMENT 


03922 


49 


03586 


00000 


02030 




DORG 


•-4 






i 


03929 








02040 


CALLPl 


SF 


CHI ^3 






03930 


32 


15142 


00000 


02050 




SF 


CHU5 








03942 


32 


15144 


00000 


02060 




SF 


CHU7 








03954 


32 


15146 


00000 


02070 




SF 


CHI^9 








03966 


32 


15148 


00000 


02080 




BD 


• ♦48 


.INOIV 


• • 


CARD INPUT 


03978 


43 


04026 


02424 


02090 




TF 


CHIM60 


, ALPHRN 


• • 


YES. MOVE INPUT RECORD 


03990 


26 


15299 


05142 


02100 




TR 


CHI5-1 


,CHI-l 


• • 


TO CHI5 


04002 


31 


15838 


15138 


02110 




TFM 


CHIM60 


,00 


• 10, 


ERASE RECORD NARK 


04014 


16 


15299 


000-0 


02120 




TF 


FP2 


,FLNG 






04026 


26 


02298 


02250 


02130 




AM 


FP2 


,02 


.10, 


CALCULATE F PLUS TWO 


04038 


11 


02298 


000-2 


02140 




TF 


W 


,KLNG 






04050 


26 


02240 


02252 


02150 




C 


FP2 


• KLNG 






04062 


24 


02298 


02252 


02160 




BNM 


• ♦24 








04074 


47 


04098 


01100 


02170 




TF 


H 


»FP2 


• • 


CALCULATE W, WORD SIZE FOR DISK 10 


04084 


26 


02240 


02298 


02180 




TF 


WW 


»N 






04098 


26 


02296 


02240 


02190 




TFN 


IORT 


,•♦23 






04110 


16 


00565 


-4133 


02200 




8 


IOPT 


•SCSDAT 


.7. 


PUT SYSTEM CONNUNICATION SECTOR 


04122 


49 


00532 


-5189 


02210 




8 


PRSCAN 








04134 


49 


02454 


00000 


02220 




DORG 


•-4 








04141 








02230 


WASS 


TF 


CHU14 


•ALPHRN 






04142 


2* 


15153 


05142 


02240 




RCTY 










04154 


34 


00000 


00102 


02250 




WATY 


CHI 








041*4 


39 


15139 


00 1 00 


02260 




CN 


CHI+12 


• 72 


• 10* 


IS OEVICE COOE PAPER TAPE 


04178 


14 


19151 


000P2 


02270 




BE 


WASS2 


• 


• • 


YES 


04190 


44 


04270 


01200 


02260 




CN 


CHIM2 


.74 


.10, 


NO, IS OEVICE COOE CARDS 


04202 


14 


15151 


000P4 


02290 




BE 


WASS2 


• 


• • 


YES 


04214 


4* 


04270 


01200 


02300 




RCTY 




• 


• • 


ERROR, INVALID OUTPUT DEVICE COOE 


0422* 


34 


00000 


00102 


02)10 




WATY 


ERNES) 








04299 


39 


05)9) 


00100 


02320 




H 










04290 


49 


00000 


00000 


, 330 




B 


N21 


• 


• • 


BR. TO RE AO NEXT STATENSNT 


042*2 


49 


09996 


00000 


^340 




OORG 


•-4 








042*9 








U2350 


WASS2 


TD 


PUSTSN 


•CNim 






04270 


29 


02294 


19191 


02360 




B 


N21 








04292 


49 


0)966 


00000 


02370 




OORG 


•-4 








04209 








02380 


WAOBJP 


TDN 


JAY 


• l 


• • 


OUP ACTION REQUIRED 


04290 


15 


02967 


00001 


02390 




TF 


CHI ^14 


•ALPHRN 






04902 


2* 


1915) 


05142 


02400 




RCTY 










04914 


34 


00000 


00102 


02410 




WATY 


CHI 








0492* 


39 


15134 


00100 


02420 




CN 


cnm2 


• 72 


• 10* 


It DEVICE COOS PAPER TAPE 


04999 


14 


15151 


000P2 


02430 




BNE 


• ♦)2 


• 


M 


NO 


04990 


47 


04992 


01200 


02440 




TDN 


RUPSCS03 


• 1 


•11* 


VfS 


049*2 


19 


0*141 


OOOOJ 


02450 




B 


N21 








04974 


49 


0999* 


00000 


02460 




OORG 


•-4 








04991 
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PACE * 



02*70 

02400 

02400 

02900 

02910 

02920 

029)0 

02940 

02990 

02940 

02970 

02580 \ 

02340 

02400 

02410 

02420 

02430 

02440 

02490 

02440 

02470 

02480 

02440 

02700 

02710 

02T20 

02730 

02740 

02790 

02740 

02770 

02780 

02790 

02800 

02810 i 

02820 

02830 

02840 

02830 

02840 

02870 

02880 

02890 

02900 

02910 

02920 

02930 

02940 

02950 

02940 

02970 

02980 

02990 

03000 

03010 

03020 



CM 


CMIM2 


t74 


tlOt 


IS DEVICE COOE CAROS 




04)02 


14 


19191 


000P4 


•Nl 


• ♦12 






NO 




04)44 


47 


04424 


01200 


TOM 


•UfSCS*23 


!o 


ait 


YES 




04404 


19 


04141 


0000* 


8 


N21 










04411 


49 


0)914 


00000 


0086 


•-4 










04429 








TON 


BUFSCS*23 


tO 


til 






04424 


19 


04141 


0000* 


RCTY 








ERROR* INVALIO OUTPUT DEVICE 


CODE 


044)8 


34 


00000 


00102 


MATY 


ERNES) 










04490 


34 


09)9) 


00100 


M 












044*2 


49 


00000 


00000 


8 


N21 




# f 


BR. TO READ NEXT STATEMENT 




04474 


49 


0)994 


00000 


008 G 


•-4 










04481 








TOM 


8UF$CS*22 


,1 


tilt 


SET UP TO LOAD 08JECT PROG. 


ON OK. 


04482 


19 


04140 


OOOOJ 


TOM 


JAY 


,1 




OUR ACTION REQUIRED 




04494 


19 


02)47 


00001 


TF 


CHI02 


, ALPHRM 








04904 


24 


19171 


05142 


RCTV 












04918 


34 


00000 


00102 


MATY 


CHI 










049)0 


39 


19139 


00100 


CF 


CMI*13 










04542 


33 


19192 


00000 


CF 


CHI*15 










04994 


3) 


19194 


00000 


CF 


CHI*17 










04944 


33 


19194 


00000 


CF 


CMU19 










04978 


33 


19158 


00000 


CF 


CMI*2l 










04990 


)) 


15140 


00000 


TF 


BUF$CS*35 


,CHI*22 








04402 


24 


0419) 


19141 


SF 


CHI* 13 










04414 


32 


19192 


00000 


SF 


CH!*19 










04424 


32 


19154 


00000 


SF 


CMI*17 










04438 


32 


15154 


00000 


SF 


CHIM9 










04490 


32 


15158 


00000 


SF 


CHI ^21 










04442 


32 


15140 


00000 


TO 


BUFSCS*34 


,CHI*2* 








04474 


29 


04154 


15143 


TO 


BUFSCS*37 


»CHI*26 








04484 


29 


04199 


15145 


TO 


6UFSCS+38 


,CHI»28 








04498 


25 


04154 


15147 


TO 


BUFSCS*39 


t CHI*30 








04710 


25 


04157 


15169 


SF 


8UFSCS*36 










04722 


32 


06154 


00000 


B 


N21 










04734 


49 


0)584 


00000 


008 G 


•"4 










04741 








TF 


CHI*20 


t ALPHRM 








04742 


24 


15159 


05142 


RCTY 












04794 


34 


00000 


00102 


MATY 


CHI 










04744 


39 


15139 


00100 


TO 


F WORK- 1 


t CHI*ll 








04778 


25 


05232 


15150 


TO 


FMORK 


»CHI*13 








04790 


25 


05233 


15152 


CF 


F WORK 










04802 


33 


05233 


00000 


CM 


FMORK 


t77 


1 10t 


IS F NUMERIC 




04814 


I* 


05233 


000P7 


BNE 


N31 






NO* ERROR 




04824 


47 


05098 


01200 


TO 


FMORK- 1 


|cHI*l2 




YESt LOAO F 




0*838 


25 


052 32 


15151 


Sf 


FMORK- 1 










04850 


32 


05232 


00000 


TO 


FMORK 


,CHI*l* 








04842 


25 


05233 


15153 


CM 


FMORK 


»02 


1 10, 


F IN RANGE 




04874 


1* 


05233 


000-2 


BL 


N31 






NO, ERROR 




04884 


47 


05098 


01300 


CM 


FMORK 


t28 


1 10 






04898 


1* 


05233 


000K8 


BH 


N31 


• 


ff » 


NO, ERROR 




04910 


*4 


05098 


01100 


TF 


FLNG 


, FMORK 


1 1 


YES, MOVE F TO FORTRAN COM. 


AREA 


0*922 


26 


02250 


05233 


TO 


KMORK-l 


♦CHI*15 








0*93* 


25 


0523* 


1515* 


TO 


KMORK 


,CHI*17 








0*9*4 


25 


05235 


15156 


CF 


KMORK 










0*958 


13 


05235 


00000 


CM 


KMORK 


.77 


.10* 


IS K NUMERIC 




0*970 


I* 


05235 


000P7 


BNE 


N31 




f f 


NO, ERROR 




0*982 


*7 


05098 


01200 


TO 


KMORK-l 


.CHI*16 


f t 


YESt LOAO K 




0*99* 


25 


0523* 


15155 



373 



03030 




SF 


KMORK-l 












05004 


32 


0523* 


00000 


030*0 




TO 


KMORK 


,CHI*18 










05018 


25 


05235 


15157 


03050 




CM 


KMORK 


tO* 


1 10, 


K Ift 


1 RANGE 




05030 


14 


05235 


000-4 


03060 




BL 


N31 




1 1 


NO, 


ERROR 




050*2 


*7 


05098 


01300 


03070 




CM 


KMORK 


• 10 


tlO 








0505* 


I* 


05235 


OOOJO 


03080 




BH 


N31 


f 


t f 


NO* 


ERROR 




05066 


*4 


05098 


01100 


03090 




TF 


KLNG 


t KMORK 


1 1 


YES, 


MOVE K 


TO FORTRAN COM. AREA 


05078 


24 


02252 


05235 


03100 




8 


N21 


t 


t f 


BR. 


TO READ 


NEXT STATEMENT 


05090 


*9 


03586 


00000 


03110 




OORG 


•-* 












05097 








03120 


N31 


RCTY 




» 


II 


ERROR t F OR 


K OUTSIDE RANGE 


05098 


3* 


00000 


00102 


03130 




MATY 


ERMES2 












05110 


39 


05337 


00100 


031*0 




H 














05122 


*8 


00000 


00000 


03150 




B 


N21 




1 1 


BR. 


TO READ 


NEXT STATEMENT 


0513* 


*9 


03586 


00000 


03160 




OORG 


•-* 












051*1 








03170 


ALPHRM 


OC 
_ • 


2 


tO« 










051*2 




2 




03180 


INOATA 


DSC 


2 


,22 










051*3 




2 








22 






















03190 




OSA 


INOOA 












051*9 




5 


X 1 




















051*9 




-5151 




03200 




DC 
* 


1 


*• 










05150 




I 




03210 


INOOA 


OSC 


1 


tO 










05151 




I 




03220 




0 

DC 


5 


,17329 










05156 




5 








J 7329 




















03230 




DC 


3 


,010 










05159 




3 








-10 






















032*0 




OS 


5 












05144 




5 




03250 




OC 
* 


1 


t f 










05145 




I 




03260 


OIMOAT 


DSC 


2 


• 20 










0914* 




2 








20 






















03270 




OSA 


0 INOOA 












09172 




3 


X 1 




















09172 




-5174 




03280 




OC 


1 


t« 










0917) 




1 




03290 


0 INOOA 


OSC 
0 


1 


tO 










09174 




. 1 




03300 




DC 


5 


,0*800 










09179 




5 








-4800 




















03310 




OC 


3 


tOOl 










09182 




3 








-01 






















03320 




OSA 


6 UFO I M 












09187 




5 


X 1 




















09187 




-7022 




03330 




OC 
t 


1 


t ' 










09188 




1 




03340 


SCSOAT 


OSC 


2 


,20 










09189 




2 








20 






















03350 




OSA 


SCSODA 












09149 




5 


X 1 




















09199 




-9197 




01)** 




OC 


I 












0919* 




1 
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01370 


SCSDDA 


OSC 1 


.0 


05197 


1 




03300 




o 

OC 5 


•19443 


03202 


3 








J 944 3 










03390 




OC 3 


• 001 


09205 


3 








-01 










03400 




OS* BUFSCS 




09210 


5 


X 










09210 


-4118 




03410 




OC 1 
• 


» ' 


05211 


I 




03420 




OSC 1 


.1 


09212 


I 




0 3430 




1 

DC 5 


,00000 


09217 


5 








-0000 










03440 


1N1T 


OS 


• •-4 


09213 


0 




03490 




DC 3 


,999 


09220 


3 








R99 










03440 




DC 5 


,-99999 


09229 


5 








R999R 










03*70 




DC 6 


,00000* 


09231 


6 








-0000* 










0 3480 


F WORK 


DS 2 




05233 


2 




03490 


K WORK 


DS 2 




05235 


2 




03500 


PSTSN 


DAC 5, PSTSN 




03237 


5 


X 






PSTSN 










03510 


POBJP 


DAC 5, POBJP 




05247 


5 


X 






POBJP 










03520 


LOISK 


DAC 5,LDISK 




05257 


5 


X 






LOISK 










03530 


FANDK 


OAC 5 f FANDK 




05247 


5 


X 






FANOK 










03540 


ERNE S 1 


DAC 30ifcKKUK» 


INVALID CONTROL RECORD' 


05277 


30 


X 






ERROR t INVALID 


CONTROL RECORD* 










ERME S2 


DAT 71 ClinS 


r UR * UUI ) 1UE MNUC 


05337 


28 


x 






ERROR, F OR K 


OUTSIDE RANGE ■ 








03560 


ERHES3 


DAC 32, ERROR, 


INVALID OUTPUT UNIT CODE* 


03393 


32 


X 






tKRURf INVALlL 


UUTPUT UNI f CODE * 








03570 


12NINE 


DC 12 


,999999999999 


05447 


12 








R99999999999 










03580 


INPUTD 


DC 2 


,00 


05469 


2 




03590 




-0 

DSA CHI 




05474 


3 


X 










09474 


J5139 




0 3400 


N21K6Y 


DC 3 


,00» 


05477 


3 




03610 




-0' 

OORG 06118 




06118 






03620 


8UFSCS 


DSS 100 




04118 


100 




03630 




DS 2 




06219 


2 




036*0 


BUFEQT 


OSS 800 




06220 


800 




03650 




DS 2 




07021 


2 




03660 


BUFOIM 


OSS 100 




07022 


100 




03670 




DS 2 




0712) 


2 




03680 


DUMMY 


DS 


,99999 


99999 


0 




0 3690 




DORG 16000 




16000 







375 
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03700 


PHADDA 


DSC 
0 


ItO 






16000 




I 




03710 




DC 


5,17290 






16005 




9 








J7290 














03720 




DC 


3,050 






16008 




3 








-50 
















03730 




DC 


5,02218 






14013 




5 








-2218 














03750 




DC 


1 






14014 








03760 




DC 
i 


I 






14015 




1 




03770 




DC 


I 


« 1 




14014 




1 




03780 




OC 


1 






16017 




I 




03790 




DC 


I 


» * 




16018 




1 




03800 




DSC 


4 


,0000 




16019 




4 








0000 
















03810 


RECMKS 


OSC 
0 


1 


tO 




16023 




1 




03820 


LOPHA 


SF 


RECMKS-9 






16024 


32 


14014 


ooooo 


03830 




TFM 


• ♦18 


,BUF SCS+999 




14034 


14 


14054 


-7117 


03840 




TF 


DUMMY 


tRECMKS •• 


SET SYMBOL TABLE TO RECORD MARKS 


1604B 


24 


99999 


16023 


03850 




SM 


»-6 


tlO ,10 




14040 


12 


16054 


OOOJO 


03860 




CM 


•-18 


, BUFSCS- 1 




14072 


14 


16054 


-6117 


03870 




BNE 


•-36 






14084 


47 


16048 


01200 


03880 




K 


PHADDA, 701 




1*094 


34 


16000 


00701 


03890 




WN 


PHADDA ,702 




14100 


38 


14000 


00702 


03900 




TRA 








14120 


34 


00000 


00500 














14132 


44 


00000 


OOOOO 


03910 




TCO 


LOPHA 






14024 








03920 




OENO 








00000 
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PAGE 10 



12NINE 054*7 

ALP HUM 05142 

BUFOIM 07022 

6UFEQT 04220 

BUFSCS 06118 

CALLPl 05930 

CALLP2 02400 

CM I END 15999 

CONADD 02262 

OIMOAT 05166 

DINDDA 05174 

OISKSW 02383 

E86440 02430 

ERNES1 05277 

ERMES2 05337 

ERNES3 05393 

FCTENO 02318 

FKTEST 04742 

INOATA 05143 

INPUTO 05469 

tND OF ONE ASSEMBLY. 



INT0P1 02385 

LENGTH 02248 

L00P41 02970 

MONCAL 00796 

MULDEF 02364 

N21KEY 05477 

PMAOOA 16000 

PMBDAT 02476 

PMBDDA 02466 

PROGST 02257 

PRSCAN 02454 

PUSTSN 02294 

RECMKS 16023 

AFTBL 15035 

BLK8 02461 

CARD 15036 

CHI5 15839 

CHI 15139 

COMST 02362 

DUMMY 99999 



ENTLN 


02246 


ERRET 


00602 


FANDK 


05267 


FLMG 


02250 


FMON 


02324 


FP2 


02298 


FHORK 


05233 


GRMK 


02669 


INODA 


05151 


INDIV 


02424 


INIT 


05213 


I0CAL 


00716 


I0GT 


00566 


IOPT 


00532 


IORBC 


00520 


I0RT 


00565 


I OS* 


00554 


I PPT 


03434 


IPTV 


03466 


JAY 


02367 



KLNG 


02292 


KWORR 


05239 


LDISK 


09257 


LDPHA 


16024 


LSTAO 


02306 


NU42 


03078 


Nl 14 


02814 


Nil 


02502 


N12 


03490 


Nl 


02233 


N21 


03996 


N2 


02238 


N31 


03098 


NXLOC 


02372 


P2PTR 


02313 


POBJP 


05247 


PSTSN 


05237 


RDONE 


03234 


RECLG 


02243 


ST8L 


02377 



Till 


02909 


T112 


03041 


T113 


03065 


Til 4 


03125 


T8CNT 


02429 


TEND 


02303 


MAOK 


04462 


MASS2 


04270 


MASS 


04142 


M 


02240 


MM 


02296 


SAVSYM 


02243 


SCSOAT 


05169 


SCSODA 


05197 


SUBFCT 


02293 


USEOFS 


02263 


MAOBJP 


04290 
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1620 FORTRAN 1 1 -0 PHASE l-S 



FACE 1 



00010 


•••••• 


1620 FORTRAN 1 1 -0 PHASE 1-8 






00020 




OORG 


02218 




02218 




00030 




OC 


5 


i-lOO 


02222 


5 






-010- 










00040 




DC 


I 


• 2 


0222) 


1 


00050 




K 

DC 


2 


• 67 


02229 


2 






07 










00060 




OC 


6 


,987898 


02231 


6 






R87898 








00070 


Hi 


DC 


2 


,0 


02233 


2 


00080 


N2 


-0 
DC 


5 


,0 


02236 


5 






-0000 








00090 


M 


OC 


2 


,0 


02240 


2 


00100 


RECLG 


-0 
OC 


3 


• 000 


02243 


3 






-00 










00110 


SAVSYM 


OS 


12 


•RECLG 


02243 


12 


00120 


LENGTH 


DS 


5 




02248 


5 


00130 


FLNG 


OS 


2 




02250 


2 


00140 


KING 


DS 


2 




02252 


2 


00150 


PROGST 


DC 


5 


•00000 


02257 


5 






-0000 








00160 


COMAOO 


DS 


5 




02262 


5 


00170 


USEDFS 


DSC 


30 


• 0 


02263 


30 






000000000000000000000000000000 






00180 


SU8FCT 


OC 


1 


• 0 


02293 


1 



00190 PUSTSN OS I 

00200 WW DS 2 

00210 FP2 OS 2 

00220 TENO DS 5 

00230 LSTAO DS 5 

00240 P2PTR DS 5 

00250 FCTEND OS 5 

00260 DS 5 

00270 FMON TF »^42 . F HON- I , , 

00280 TFM IORT,»*23 

00290 B IOGT.,7 

00300 B , 

00310 DORG »-4 

00320 JAY DS I 

00330 NXLOC DS 5 

00340 ST8L DS 5 

00350 COMST DS 5 

00360 DISKSW DC 1,0 

00370 MULDEF DC 1,0 

00380 INTOPl DSC 1,0 
0 

00390 DC 5,00600 
-0600 

00400 DC 3,001 
-01 

379 



02294 1 

02296 2 

02296 2 

02303 5 

02308 5 

02313 5 

02318 5 

02323 5 



SETUP ROUTINE ENTRY 02324 26 02366 02323 

02336 16 00565 -2359 

02348 49 00566 -0000 

GO TO EXECUTE CALLED ROUTINE 02360 49 00000 00000 



02367 

02367 1 

02372 5 

02377 5 

02382 5 

02383 1 

02384 I 

02385 1 
02390 5 
02393 3 



00410 




DSA 


CARO 


02398 




5 


X I 










02 398 




J5036 




00420 




DC 


I, • 


02399 




1 




00430 


CALLP2 


TFM 


FM0N*35,BLK8 


02400 


16 


02359 


-2461 


00440 




BTM 


FM0N.CALLP2 


02412 


17 


02324 


-2400 


00450 


INDIV 


DS 


I 


02424 




I 




00460 




INDIV - 0 FOR CARDS* 1 FOR TYPEWRITER, 










00470 


• 




FLAGGED 3 FOR PAPER TAPE 










00480 


TBCNT 


DS 


5 


02429 




5 




00490 


ENTLOG 


DS 


,RECLG»5 


02248 




0 




00500 


AFTBL 


DS 


•15035 


15035 




0 




00510 


CHI 


DAS 


430,15139 


15139 




430 


X 2 


00520 


CHI5 


DS 


,CHI*700 


15839 




0 




00530 


CARD 


DS 


.CHI-103 


15036 




0 




00540 


I0CAL 


DS 


,716 


00716 




0 




00550 


IOGT 


DS 


• 566 


00566 




0 




00560 


IORBC 


DS 


.520 


00520 




0 




00570 


IOPT 


DS 


• 532 


00532 




0 




00580 


IOSK 


DS 


.554 


00554 




0 




00590 


ERRET 


DS 


• 602 


00602 




0 




00600 


IORT 


DS 


• 565 


00565 




0 




00610 


MONCAL 


DS 


• 796 


00796 




0 




00620 


E 86440 


TFM 


FMON+35 ,8LK7 


02430 


16 


02359 


-9840 


00630 




BTM 


FMON ,E86440 


02442 


17 


02324 


-2430 


00640 


BLK8 


DS 


,E 86440*31 


02461 




0 




00650 


PRSCAN 


BD 


•♦20, INDIV 


02454 


43 


02474 


02424 


00660 




B 


•♦56 


02466 


49 


02522 


00000 


00670 




DORG 


•-3 


02474 








00680 




BNF 


•♦48, INDIV 


02474 


44 


02522 


02424 


00690 




TFM 


BAM, 41, 10 


02484 


14 


02731 


OOOMl 


00700 




TFM 


BAO7.4l.10 


02498 


16 


02767 


000M1 


00710 




TFM 


URDATA+2,08,10 


02510 


16 


09869 


000-8 


00720 




TF 


SMTLU^ll.STBL 


02522 


26 


06951 


02377 


00730 




SM 


SMTLUM1,4,10 


02534 


12 


06951 


000-4 


00740 




S 


SMTLU*23,STBL 


02544 


22 


06963 


02377 


00750 




AM 


SMTLU+23,05,10 


02538 


tl 


06963 


000-5 


00760 




TF 


SMTLU05.ST8L 


02570 


26 


06975 


02377 


00770 




SM 


SMTLU+35,6,10 


02582 


12 


06975 


000-6 


00780 




S 


FX0RFL-5t*lNG 


02594 


22 


06400 


02252 


00790 




A 


PLUS^47.FLNG 


02606 


21 


06865 


02250 


00800 




BD 


8 A ^48, INDIV 


02618 


43 


02778 


02424 


>0810 




B 


•♦20 


02630 


49 


02650 


00000 


00820 




OORG 


•-3 


02638 








00830 


BEGIN 


BTM 


PUT, 132,8 


02636 


17 


09036 


0-1)2 


00840 


BEGINA 


TFM 


PARCNT.0,9 


02650 


14 


03348 


00-00 


00850 




80 


MOOAFT , SI NGST 


02662 


43 


09888 


10078 


00860 




TF 


SUR$W,2E*13»2 


02674 


24 


10092 


10077 


00870 




80 


BA, INDIV 


02666 


43 


027)0 


02424 


00880 




TOM 


CHI3*144 


02668 


13 


15983 


00000 


00890 




OC 


!•••• 


02706 




I 




00900 




TR 


CMl-l,CHI3-l 


02710 


31 


1)138 


158)6 


00910 




8 


REA0U24 


02722 


46 


02918 


00000 


00920 




DORG 


•-4 


02726 
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00910 


•A 


ACTV 






02710 


14 


00000 


00102 


00*40 


ESMO 


OS 


t»-3 




02714 




0 




00930 




oc 

« 


ltS»-4 




02717 




1 




009*0 




TEN 


10AT,"23 




02742 


14 


00565 


-2765 


00970 




B 


I0GT,UADATA-4,7, 


READ STATEMENTS FROM TYPEWRITER 


02714 


44 


00544 


-9843 


00910 




BC4 




ALLOWS GOOF SWITCH 


02744 


44 


02710 


00400 


00990 




BMC1 


• ♦14 




02770 


47 


02814 


00100 


01000 




ACTV 






02790 


34 


00000 


00102 


01010 


BLOC 


OS 


,•-5 




02794 




0 




01020 




MATY 


CHI 




02802 


39 


15119 


00100 


01010 




CM 


CHI, 43,10, 


TEST FOR COMMENT 


02814 


14 


15119 


000M3 


01040 




BNE 


LEADBL 




02824 


47 


03104 


01200 


01090 




CM 


CHI*2,0,10, 




02818 


14 


15141 


000-0 


01040 




BNE 


LEADBL 




02850 


47 


03104 


01200 


01070 




CM 


CMI*4,0,10. 




02842 


14 


15143 


000-0 


01080 




BE 


BEGINA 




02874 


44 


02630 


01200 


01090 




B 


LEADBL 




02884 


49 


03106 


00000 


01100 




DORG 


•-3 




02894 








OHIO 


AEAD1 


TEN 


I0RT,«*23 




02894 


16 


00565 


-2917 


01120 




B 


IQGT,C00ATA-4,7, 


READ FIRST CARD 


02904 


49 


00566 


-9871 


01160 




TFM 


• ♦15, CHI M44 




02918 


14 


02953 


J5283 


01170 




SM 


•♦21,2,10 




02910 


12 


02953 


000-2 


onto 




TE 


CKEND 




02942 


24 


03336 


00000 


01190 


CKAN 


BO 


•♦56, CKEND,. 


SCAN BACK TO PLACE RECORO MARK 


02954 


43 


03010 


03334 


01200 




BO 


•♦44.CKEND-1 




02944 


41 


03010 


03335 


01210 




cm 


CKAM-1,CHI 




02978 


14 


02953 


J5139 


0 1220 




BH 


CKRM-24, , , 


CHECK FOR BLANK CARD 


02990 


44 


02930 


01100 


012)0 




B 


READ1 , , , 




03002 


49 


02894 


00000 


01240 




DOAG 


•-3 




01010 








01250 




AM 


CKRH-l ,2 




03010 


11 


02953 


-0002 


01260 




TOM 


CKRM-l ,,6 




01022 


15 


0295L 


ooooo 


01270 




OC 


l.»,« 




03011 




1 




01280 




BNCl 


• ♦36 




03034 


47 


03070 


00100 


01290 




RCTY 






03044 


34 


00000 


00102 


01300 


ESNOPL 


DC 


4,0,^-5 




03052 




4 








-000 














01310 




DC 
• 


l.«»»-4 




01051 




1 




01320 




WATY 


CHI 




01058 


39 


15139 


00100 


01330 




CM 


CHI ,43, 10 




03070 


14 


15139 


000M3 


01340 




BE 


READ1 




03082 


46 


02894 


01200 


01345 




TOM 


CHI+9,0.ll 




03094 


15 


15148 


0000- 


01350 


LEADBL 


BD 


•♦32, CHI 




03104 


43 


03138 


15139 


01360 




TR 


CHI-ltCHItl 




03118 


31 


15138 


15140 


01370 




B 


•-24 




03110 


49 


03106 


OOOOO 


01380 




DORG 


• -3 




01118 








01390 




AM 


ESNOPL, I, 10 




01118 


11 


03052 


000-1 


01400 




CM 


CHI, 69, 10 




03150 


14 


15139 


00009 


01410 




BNH 


CSPVA-12,, , 


BRANCH IF NO STATEMENT NUMBER 


03142 


47 


03630 


01 100 


01420 




SF 


OUTSW 




03174 


32 


07020 


ooooo 


01430 


TRIND 


DS 


, • 




03185 




0 




01440 




BTM 


CSTN0,«^12,, 


OUTPUT STATEMENT NUMBER 


03186 


17 


05398 


-3198 


01450 




BTM 


PUT, 134, 8, COLON 


03198 


17 


09036 


0-134 


01460 




TF 


ESNO.SYM 




03210 


26 


02736 


10059 
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01470 




TFM 


ESN0PL,0,8 




03222 


14 


03052 


0-000 


01480 




TDM 


NOIND, 1,11 




03234 


15 


03243 


OOOOJ 


01490 


NOIND 


DS 


,•-2 




03243 




0 




01500 




AM 


SMADD,5,10 




03246 


11 


07194 


000-5 


01510 




BD 


STNER, SMADD, 11, 


TEST IF STATEMENT NO. WAS USED BEFORE 


03258 


43 


03418 


0719M 


01520 




TDM 


SMADD, 1,6, 


SET INDICATOR THAT STA.NO. APPEARED 


03270 


15 


0719M 


00001 


01530 


INSM 


DS 


,•-2 




03279 




0 




01540 




SM 


SMADD, 2, 10 




03282 


12 


07194 


000-2 


01550 




BD 


•♦20, SMADD, 11 




03294 


41 


03314 


0719M 


01560 




B 


• ♦44 




03304 


49 


03350 


OOOOO 


01570 




DORG 


•-3 




03314 








01580 




BTM 


PUT, 140, 8, DUMMY 


03314 


17 


09036 


0-140 


01590 




TOM 


SMADD, 0,6 




03324 


15 


0719M 


OOOOO 


01600 


CKEND 


OS 


. — 1 




03334 




0 




01610 




TDM 


DOTRAN, 1 




03338 


15 


10079 


00001 


01620 


PARCNT 


DC 

-00 


3,0,»-l 




03348 




3 




01630 




AM 


SMADD, 1,10 




03350 


11 


07194 


000- 1 


01640 




BD 


FORM, SMADD, 11 




03362 


43 


03518 


0719M 


01650 


LEAD2 


CM 


CHI, 0,10, 




03374 


14 


13139 


000-0 


01660 




BNE 


STNEROO 




03384 


47 


03438 


01200 


01670 




TR 


CHI-l.CHUl 




03398 


31 


13138 


13140 


01680 




B 


•-36 




03410 


49 


03374 


OOOOO 


01690 




OORG 


•-3 




03418 








01700 


STNER 


TFM 


SPGSMl,076,9 




03418 


14 


09325 


00-76 


01710 




B 


SPERRM2,,, 


STATEMENT NO. PREVIOUSLY USED 


03430 


49 


09242 


OOOOO 


01720 




DORG 


•-3 




03438 








0 1 730 




CM 


CHI, 44, 10 




03438 


14 


15139 


00OM6 


01740 




BNE 


CSPVA 




03450 


47 


03642 


01200 


01750 




BTM 


COLNAM.6,10 




03442 


17 


04454 


000-6 


01760 




C 


SYM.FMTCST 




03474 


24 


10059 


10009 


01770 




BV 


CSPVA 




03484 


44 


03442 


01400 


01780 




BE 


FORMAT 




03498 


44 


10392 


01200 


01790 




B 


CSPVA 




03510 


49 


03442 


OOOOO 


01800 




OORG 


•-1 




03118 








01810 


FORM 


CM 


CHI ,00, 10, 


SHIFT OFF BLANKS 


03518 


14 


15139 


000-0 


01820 




BNE 


• ♦12 




03530 


47 


03542 


01200 


01830 




TR 


CHI-l.CHUl 




03542 


31 


19138 


15140 


01840 




8 


•-14 




03554 


49 


01918 


OOOOO 


01850 




OORG 


•-1 




03542 








01860 




BTM 


COLNAM.4,10 




03542 


17 


04454 


000-4 


01870 




C 


SYM.FMTCST,, 


MUST BE FORM ANT STATEMENT 


03374 


24 


10059 


10009 


01880 




8V 


• ♦24 




03584 


44 


01410 


01400 


01890 




IE 


FORMAT 




03598 


44 


10392 


01200 


01900 




TFM 


SPGSMl.277,9 




03410 


14 


09129 


00K77 


01910 




8 


SPERRM2,,, 


ELSE ERROR 27 


03422 


49 


09242 


OOOOO 


01920 




OORG 


•-3 




03410 








01910 




TOM 


NOIND, 




01410 


15 


01241 


OOOOO 


01940 


CSPVA 


TFM 


•♦15, CHI, 




01442 


14 


01477 


J5119 


01950 




AM 


•♦23,2,10 




01454 


11 


01477 


000-2 


01940 






• ♦44 




01444 


49 


01710 


OOOOO 


01970 




TFM 


CSPVA OS, 37,410 




01478 


14 


0147P 


000L7 


01980 




TR 


CSPVA+35,AV0I0,6, 


AVOID • PLAG3»7»PLAG0»RECNAAK 


01490 


11 


0147P 


06018 


01990 




8 


OECOOE 




01702 


49 


01802 


OOOOO 


02000 




OORG 


•-3 




01710 








02010 




CM 


CSPVAOS, 0,410 




01710 


14 


0147P 


000-0 
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PRC! 5 



02020 




BNE 


CSPVA+12 


03722 


47 


03*54 


01200 


02030 




TF 


•♦54,CSPVA*35 


01714 


2* 


01798 


03*77 


02040 




TF 


•*47.**42 


03746 


2* 


01793 


01799 


02090 




AN 


•♦33,1,10 


01799 


tl 


03793 


000-1 


020*0 




SN 


•♦19,1,10 


01770 


11 


03788 


000- 1 


02070 




TR 


,,, ELIMINATE 91 ANAS 


01791 


31 


00000 


00000 


020R0 




8 


CSPVA^24 


01194 


49 


03*6* 


00000 


02090 




DORG 


•-3 


01902 








02100 


DECODE 


TF* 


•♦35,CHI-2 


01902 


14 


03837 


J3117 


02110 




AN 


•♦23,2,10 


01914 


U 


03837 


000-2 


02120 




BNR 


• ♦20 


01928 


43 


03846 


00000 


021)0 




8 


• ♦80 


01919 


49 


03918 


00000 


02140 




DORG 


•-3 


01948 








02190 




CM 


DECODERS, 40, 610 


0194* 


14 


0183F 


OOOMO 


02160 




BM 


DEC0DEM2 


01999 


4* 


03814 


01100 


02170 




CM 


DECODERS, 33, 610 


01970 


14 


0383F 


000 L 3 


02180 




BNE 


• ♦56 


01992 


47 


03938 


01200 


02190 




CN 


PAACNT,0,10 


01994 


14 


03348 


000-0 


02200 




BE 


DECODA 


0390* 


4* 


04026 


01200 


02210 




TFM 


PAACNT,0,9 


01919 


16 


03348 


00-00 


02220 




B 


NONARI 


03930 


44 


04138 


00000 


02230 




008 G 


•-3 


03939 








022*0 




CM 


DEC0DEO5,24,610 


03998 


14 


0383F 


000K4 


02230 




BNE 


• ♦32 


03950 


47 


03982 


01200 


02260 




AM 


PARCNT.1,10 


039*2 


11 


03348 


000-1 


02270 




B 


DECODE+12 


03974 


49 


03814 


00000 


02290 




DORG 


• -3 


03992 








02290 




CM 


DEC0DEO5, 4,610 


03992 


14 


0163P 


000-4 


02100 




BNE 


DEC0DEM2 


03994 


*7 


03814 


01200 


02310 




SM 


PARCNT,1,10 


0400* 


12 


03348 


000- 1 


02320 




B 


DECODED 


04019 


49 


03814 


00000 


02330 




DORG 


• -3 


0402* 








02340 


OECODA 


AM 


DEC0DEO5,2,10 


0402* 


11 


03837 


000-2 


02350 




BNR 


•♦20.DEC0DE+35.11 


04039 


49 


04058 


0383P 


02360 




B 


CKCTAR 


04090 


49 


04106 


00000 


02370 




DORG 


• -3 


040S9 








02380 




CM 


DEC0DE+35, 23,610 


040S9 


14 


0383P 


000K3 


02390 




BE 


DOO 


04070 


46 


10416 


01200 


02400 




CM 


DEC0DEO5, 24,610 


04082 


14 


038 3P 


000K4 


02*10 




BNE 


DECODA 


04094 


47 


04026 


01200 


02*20 


CKCTAR 


BD 


A SCAN, INDIV 


0410* 


43 


10440 


02424 


02430 




BTM 


CKCNTU.0,10 


04118 


17 


04836 


000-0 


02440 




B 


ASCAN 


04130 


49 


10440 


00000 


02450 




DORG 


•-3 


04138 








02460 


NONARI 


TFM 


L1*6,TBST 


04138 


16 


04228 


-4652 


02470 




CF 


CMI + I 


04190 


33 


15140 


00000 


02475 


TEMP 


DS 


5 ,• 


041*1 




5 




02*80 




CF 


CHI + 3 


04162 


33 


15142 


00000 


02485 


TENP5 


DS 


5 •• 


04173 




5 




02490 




C 


CHI+4,ENDCT^4 


04174 


24 


15143 


10019 


02500 




BE 


END 


0418* 


46 


09554 


01200 


02510 




BO 


•♦24.INDIV 


04198 


43 


04222 


02424 


02520 




BTM 


CKCNTU.0,10 


04210 


17 


04836 


000-0 


02530 


LI 


C 


TBST.CMU4 


04222 


24 


04652 


15143 


02540 




BE 


12 


04234 


46 


04294 


01200 


02550 




SM 


Lt**«lltlO 


0424* 


12 


04228 


000 J 1 



383 
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02560 




BNR Ll.LlH.il 




04258 


45 


04222 


0422Q 


02570 




TR CHI-ltCH|*5 




04270 


31 


13136 


15144 


02580 


ERROl 


BTM ERROR, 071, 9 




04282 


17 


09330 


00-71 


02590 


12 


CM L1*6,TBCM 




04294 


14 


04228 


-4498 


02600 




BNH »*72 




0430* 


47 


04378 


01100 


02610 




TOM STSN,0,, 


SET SINGLE STATENENT SWITCH OFF 


04319 


15 


05627 


00000 


02620 




BNF •♦48,TRIN0 




04330 


44 


04378 


03185 


02630 




TDM TR I ND, 0 




04342 


15 


03183 


00000 


02640 




BO •♦24,N0IN0 




04354 


43 


04378 


03243 


02650 




BTM ERROR2,572,9 


, NISSING STATENENT NUMBER AFTER TRANSFER 


04 3** 


17 


09486 


00N72 


02660 




SM LU6,6,10 




04379 


12 


04228 


000-6 


02670 




TR CHI-UCHI+9 




04340 


31 


19136 


15144 


02660 




SF L1»6,AFTBL*5 


.7 


04402 


32 


04228 


J5040 


02685 


STAFT 


OS 5 ,• 




04413 




3 




02690 




B Ll»6.t6 




04414 


49 


04220 


00000 


02700 




DORG »-4 




04421 








02710 




DC 1,» 




04421 




1 




02720 




DSA NONARA 




0442* 




5 


X I 










0442* 




J0224 




02730 




DC 6,466455,, 


FUNCTION 


04432 




6 








M66455 












02740 




DSA NONARA 




04437 




5 


X I 










04437 




J0224 




02750 




DC 6,626442,, 


SUBROUTINE 


04443 




6 








026442 












02760 




DSA NONARA 




04449 




5 


X 1 










04449 




J0224 




02770 




DC 6,444546,, 


DEFINE 


04454 




6 








M44546 












02780 




DSA NONARA 




04459 




5 


X 1 










04499 




J0224 




02790 




OC 6,455664,, 


EQUIVALENCE 


044*9 




6 








M55864 












02800 




DSA COMMON 




04470 




5 


X 1 










04470 




J0272 




02810 




DC 6,435654,, 


COMMON 


0447* 




6 








M 35654 












2820 




DSA DIN 




04491 




5 


X 1 










04481 




J0248 




02830 




DC 6,444954,, 


DIMENSION 


04497 




* 








N44954 












02840 




DSA RETURN 




04492 




3 


X 1 










04492 




J01*9 




02850 


T6CM 


OC 6,594563,, 


RETURN 


04499 




* 








N94563 












02860 




DSA NONARA 




04503 




9 


X 1 



04901 



J0224 



02870 
02100 

02890 
02900 

02910 
02920 

02930 
02940 

02950 
02960 

02970 
02980 

02990 
0 3000 

03010 
03020 

03030 
03040 

03050 
03060 

03070 
03080 



0C 6,62635 
026)56 

OSA MOM AM 
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,, STOP 



DC 6, 574166, , PAUSE 

N74144 

OSA OK 10 



DC 6,464955, 

M64955 

DSA DKIO 



OC 6,464563, 

M64563 

OSA OKIO 



FIND 



FETCH 



DC 6, 594543, , RECORD 

N94543 

DSA IOUT 



DC 6,414343,, ACCEPT 

M14343 

DSA IOUT 



DC 6,576455,, PUNCH 

N76455 

DSA IOUT 



DC 6,636857,, TYPE 

036857 

DSA IOUT 



OC 6,575949, 

N75949 

DSA IOUT 



DC 6, 59*541 ,, RE AO 

N94541 

DSA NONAR A 



DC 6,435655,, CONTINUE 

M35655 

DSA CALL 



DC 6,434153, 
M34153 



04509 
04914 



04914 
04920 



04525 
04931 



04936 
04942 



04947 



04547 
04553 



04558 
04564 



04569 
04575 



04580 
04586 



04591 
04597 



04602 
04608 



04613 
04619 



04624 
04630 



PAGE 

6 



J0224 
6 



J0488 

6 



J0488 
6 



5 X 



J0488 
6 



J0200 
6 



J0200 
6 



J0200 
6 



J0200 
6 



J0200 
6 



J0224 
6 



J0344 
6 



385 



03100 




DSA 


GOTO 


04635 




5 


X 1 










04635 




J0320 




03110 




DC 


6.475663,, GOTO 


04641 




6 








M75663 










03120 




DSA 


IF 


04646 




5 


X 1 










04646 




J0296 




03130 


T8ST 


DC 


6,494624, , IF I 


04652 




6 








M94624 










03140 




DS 


2 


04654 




2 




03150 


COLNAM 


TFM 


•♦42.SYM-26,, COLLECT NAMES TO DETERMINE TYPE OF STMNT 


04656 


16 


04698 


J0033 


03160 




TFM 


•♦35, CHI 


04668 


16 


04703 


J5139 


03170 




AM 


♦♦18,2,10 


04660 


11 


04698 


000-2 


03180 




TF 


,CHI,7 


04692 


26 


00000 


J5139 


03190 




AM 


•-1,2,10 


04704 


11 


04703 


000-2 


03200 




BNR 


•♦20, •-13,11 


04716 


45 


04736 


0470L 


03210 




8 


• ♦32 


04728 


49 


04760 


00000 


03220 




DORG 


• -3 


04736 








03230 




SM 


COLNAM- 1,1 ,10 


04736 


12 


04655 


000-1 


03240 




BNZ 


COLNAM+24 


04748 


47 


04680 


01200 


03250 




TFM 


•♦30,SYM-25 


04760 


16 


04790 


J0034 


03260 




AM 


•♦18,2,10 


04772 


11 


04790 


Q00-2 


03270 




CF 




04784 


33 


00000 


00000 


03275 


OUTSCE 


DS 


5 ,• 


04795 




5 




03280 




C 


•-6.C0LNAN+42 


04796 


24 


04790 


04699 


03290 




BNH 


•-36 


04808 


47 


04772 


01100 


0 3300 




TF 


SVM,C0LNAM*42,ll 


04820 


26 


10059 


04690 


03310 




88 




04832 


42 


00000 


00000 


03320 




OORG 


•-9 


04934 








03330 


• ••• 


CHECK FOR CONTINUATION CARDS •••• 










03340 




DS 


2 


04639 




2 




03350 


CKCNTU 


TFM 


I0RT,*+23 


04936 


14 


00565 


-4859 


03360 




B 


I0GT.C5DATA-4.7 


04948 


49 


00566 


-9879 


03370 




BD 


CKCNl. CHI5M0 


04960 


43 


04922 


15649 


03380 




TFM 


CCNO.0,10 


04872 


14 


05146 


000-0 


03390 




CM 


CMI5, 43,10 


04884 


14 


15839 


OO0M3 


03400 




BE 


• ♦24 


04896 


46 


04920 


01200 


03410 




TDM 


CHI5^9, 0,11 


04908 


15 


15946 


0000- 


0 3420 




BB 




04920 


42 


00000 


00000 


03430 




DORG 


•-10 


04921 








03440 


CKCNl 


CM 


CCNO.04,10, TEST FOR MORE THAN 4 CONTINUATION CAROS 


04922 


14 


09149 


000-4 


03490 




BNE 


• ♦69 


04994 


47 


09002 


01200 


03460 




CM 


CHIS,43,10 


0494* 


14 


19939 


O00M3 


03470 




BE 


• ♦44 


04999 


44 


09002 


01200 


03480 




TFM 


CCNO.0,10 


04970 


16 


09149 


000-0 


03490 




TFM 


SPGSMl.273,9 


04991 


I* 


09329 


00K73 


03900 




8 


SPERRM2 


04994 


49 


09242 


00000 


03910 




OORG 


•-3 


09001 








03920 




TFM 


•♦47, CHI §♦! 44 


09002 


t* 


09049 


J5983 


03930 




80 


CKCN2*68,FNSN 


09014 


49 


09119 


10062 


03940 




SM 


•♦23,2,10 


0901* 


12 


09049 


000-2 


03990 




TF 


CKENO 


09019 


24 


01314 


00000 


09960 


CKCN2 


90 


•♦96,CKEN0 


09090 


49 


09106 


03334 


03970 




80 


•♦44,CRIND«l ' 


090*1 


41 


09106 


03135 


03990 




CM 


CKCN2-1, CHI 3*12 


09074 


14 


09049 


J3851 
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PAGE 



* 



03990 




9N 


CKCM2-24 




09084 


44 


09026 


01100 


03400 




8 


CKCNTU 




09091 


44 


04834 


00000 


03*10 




DORG 


•-3 




09104 








03420 




AM 


CfttClO*! .2.10 




09104 


11 


09049 


000-2 


03430 




TOM 


CUP. Mi -I ..4 




09118 


19 


0504* 


00000 


03440 




DC 


1 • • t* 




091 at 








03490 




8NC 1 


• ♦36 




09130 


47 


09166 


00100 






RC7V 






09141 


34 


ooooo 


00102 


03470 


CCNO 


OC 


2t □ »•— * 




09149 




2 




03480 




-0 

MATY 


CHI9 




09194 


19 


19939 


00100 


n«tnn 






Cull 41 1 ft 




09144 


1% 


19839 


00OM3 






BE 


CKCNTU 




09179 


44 


04836 


01200 


n\y i n 






CCNO 1 1 f 10 




09190 


1 1 


05148 


000*1 






80 






09202 


4) 


05338 


10082 


03730 




TFM 


•4i< rut iaia 




09214 


14 


03249 


J5649 


0)740 




AM 


in 




09224 


U 


05249 


000-2 




r rN , 








09238 


45 


05282 


ooooo 


03760 




TFM 


f t0V4* 14. 17.41 O 




09290 


14 


0367P 


000L7 


03770 




TR 


t#rfl|Tj3^ fU 1 V| W 




09242 


31 


0367P 


06018 


03780 






CKCNTU 




09274 


49 


04836 


ooooo 






OORG 






09282 








03800 




CM 


r KTNt* 1 1 . 0.41 0 . 

twwHJ T ll|wfplW f 


CHECK FOR BLANKS A NO MOVE NON BLANK 


09282 


14 


0S24R 


000-0 








I<HHJ* lei tt 


TO IT AM A6BA 


09294 


44 


05226 


01200 






TF 


IJrTH" J — • (iRWlW* • I 


.411 


09304 


24 


0367P 


0524R 






AM 


CSPVAO5,2,10 




09318 


11 


03677 


000-2 


nxmt. n 




8 


CKCN3-12 




09330 


49 


05226 


ooooo 


03850 




OORG 


•-3 




09339 










CKCN4 


TF 


• ♦30.CSPVAO5 




09338 


24 


05368 


03677 


03870 




SM 


•♦18,1,10 




09390 


12 


05368 


000-1 






TR 


• CH15M1 




09342 


11 


00000 


15850 






AM 


CSPVA05, 132,9 




05374 


1 1 


03677 


00J32 


ft Oft 

~ 




B 


CKCNTU 




05384 


49 


04834 


ooooo 


03910 




THE FOLLOWING IS USEO TO COLLECT STATEMENT NUMBERS ••••• 










03920 


CSTNO 


TF 


CSORN- !,•-!,, 


SET UP RETURN AOBftESS 


05398 


24 


05689 


05397 


03930 




BO 


•♦32, CHI 




09410 


43 


05442 


15139 


ft^acft 




TR 


CHI-1.CHU1,, 


SHIFT OFF LEADING ZEROS 


05422 


31 


15138 


15140 






B 


•-24 




09434 


44 


05410 


OOOOO 


nVL n 




OORG 


•-3 




05442 








03970 




TFM 


SYM- 14,0000, 8 




09442 


14 


10045 


0-000 


03980 




TFM 


CSTN01*4,SVM-14 




05454 


16 


05508 


J 0045 


03990 




CM 


CHI, 69,10 








15139 




04000 




BNH 


CSTN0U104 




05478 


47 


05606 


01 100 


04010 




AM 


•♦18,1,10 












04020 


CSTN01 


TO 


,CHI 




05502 


25 


nftftnn 


15139 


04030 




TR 


CHI-1,CHI*1 




05514 






15140 


04040 




BNR 


•♦20,CHI«2 




05524 


45 


05546 


15141 


04050 




B 


• ♦32 




05538 


49 


05570 


ooooo 


04060 




OORG 


•-3 




05546 








04070 




CM 


CHI, 69, 10 




05546 


14 


15139 


00009 


04080 




BH 


CSTNOl-12 




05558 


46 


05490 


01100 


04090 




CM 


CSTN01+6,SYM-10 




05570 


14 


05508 


J0049 


04100 




BNH 


• ♦24 




05582 


47 


05606 


01100 


04110 




BTM 


ERR0R2, 976,9, 


STATEMENT NO GREATER THAN 4 DIGITS 


05594 


17 


09486 


00N76 


04120 




TF 


SYM,CSTN01^6,ll 




05606 


26 


10059 


05500 
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PAGE 



04130 




SF 


SVM-3 


04135 


RTSW 


OS 


1 ,»-4 


04136 


ERSM 


OS 


1 ,«-3 


04137 


STSN 


OC 


1 ,l,»-2 


04138 


STC 


J 

OC 


2 ,00, • 


04140 




-0 
BO 


CSTM0-l,DINSW,6, 


04150 




TDM 


FXORFL, 2 


04160 




TON 


VARSW.l,, 


04170 




TOM 


STNOSW.l 


04180 




B 


SMTLU 


04190 


CSORN 


BO 


•♦24.EQUSM 


04200 




TFM 


SCHI.CHI,, 


04210 




TDM 


FXORFL, Ot, 


04220 




CM 


SCHI, 3,610, 


04230 




BE 


NUMBER 


04240 




CM 


SCHI ,69,610, 


04250 




BH 


NUMBER 


04260 




CM 


SCHI, 48, 610, 


04270 




BNH 


CS 


04280 




CM 


SCHI, 55,610 


04290 




BH 


CS 


04300 




TDM 


FXORFL, 2, * 


04310 


CS 


TFM 


SMLNG,0,10, 


04320 




TFM 


SALT^6,SVM-12 


04330 




TFM 


SAim8,SVM-l3 


04340 




AM 


SAtT*6,2,l0 


043S0 




AM 


SALmB.2.10 


04360 


SALT 


TF 


, SCHI ,11, 


04370 




CF 




04380 


SUING 


OS 


t» 


04390 




AM 


SMLNG.2,10 


04400 




AM 


SCHI, 2, 10 


04410 




CM 


SCHI ,40,410 


04420 




BNH 


•♦54 


04430 




CM 


SMLNG, 12, 10 


04440 




BL 


SALT-24 


04450 




SF 


SYM- 11 


04460 


SCHl 


OS 


,• 


04470 




B 


SC2 


04460 




OORG 


•-3 


04490 




SF 


SYM-il 


04499 


AVOID 


OC 


2.37,«-3 






L7 




04496 




DC 
•»• 


2tS«-l 


04900 




TF 


SVM,SALT>4,11, 


04910 




TDM 


VARSWtO 


04S20 




80 


SMTLU, EOUSM, , 


04530 




SM 


SCHI,1,10, 


04940 




TR 


CHI- I, SCHI, 11, 


04990 




8 


SMTLU 


04940 




OORG 


•-3 


04970 




BTM 


ERROR, 78 i 9 


04990 


NUMBER 


TOM 


VARSM, 1, , 



EXIT IF IN OIMENSIQN STATEMENT 
EXIT TO LOOK UP STATEMENT NUMBER 



INITIALIZE IP NOT IN EQUIVALENCE 
INITIALIZE FIX OR FLOAT SWITCH 



TEST FOR FIX VAR 



SET FXORFL TO FIX VAR 
INITIALIZE SYMBOL LENGTH COUNT 



TEST TO SEE IP 
SYMBOL IS TO BE 
SHIFTEO OFF 



NAME GREATER THAN 4 CHARACTERS 

IE? VARIABLE SW. TO INDICATE LITERAL 



05618 


32 


10056 


OOOOO 


05625 




I 




05626 




1 




05627 




1 




05629 




2 




05630 


43 


0539P 


10084 


05642 


15 


06405 


00002 


05654 


15 


07567 


00001 


05664 


15 


10093 


00001 


05478 


49 


06940 


OOOOO 


05490 


43 


03714 


10088 


05702 


14 


06001 


J5139 


05714 


19 


06405 


OOOOO 


05724 


14 


0600J 


000-3 


05738 


44 


06102 


01200 


03750 


14 


0600J 


00009 


09742 


44 


06102 


01 100 


09774 


14 


0600J 


000M8 


09784 


47 


05934 


01100 


09798 


14 


0600J 


000N5 


09910 


44 


09934 


01100 


09922 


19 


06409 


00002 


09934 


14 


09417 


000-0 


09844 


16 


09900 


J0047 


09999 


14 


09912 


J0044 


09870 


It 


09900 


000-2 


05982 


11 


09912 


000-2 


09894 


24 


OOOOO 


04OOJ 


09904 


33 


OOOOO 


ooooo 


09917 




0 




09918 


11 


09417 


000*2 


09930 


11 


04001 


000-2 


09942 


14 


0400J 


OOOMO 


09994 


47 


04010 


01 100 


09944 


14 


09917 


000,12 


09979 


47 


09970 


01900 


09990 

04001 


32 


10049 

0 


QOOOO 


04002 


44 


04090 


OOOOO 


04010 








04010 


32 


10044 


ooooo 


04019 




2 




04020 




2 




04022 


24 


10099 


0340- 


04094 


IS 


07947 


00000 


04044 


43 


04940 


10099 


04099 


12 


04001 


000-1 


04070 


11 


19199 


0600J 


04002 


44 


04440 


OOOOO 


00090 
04090 


17 


09930 


00-74 


00102 


19 


07347 


00001 
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PACE U 



0*990 




TP 


SYM,ZERSYM*1 


0*11* 


2* 


10099 


0*9*0 


0**00 




TFM 


NUMBl+6,SYM-29 


0*12* 


I* 


0*2*0 


J0030 


0**10 




CM 


CHI, 70, 10* 


TEST FOR LEADING ZEROS 0*138 


1* 


19139 


OOOPO 


0**20 




BNE 


•♦32 


0*190 


*T 


0*182 


01200 


0**30 




TR 


CHI-l,CMI+l 


0*1*2 


31 


19130 


191*0 


0***0 




B 


•-36 


0*17* 


*9 


0*138 


00000 


0*650 




DORG 


• -3 


0*182 








0***0 


NUMB 


CM 


CHI,3# 10 


0*182 


1* 


19139 


000-3 


0*670 




BE 


FLNUMB 


0*19* 


** 


0**1* 


01200 


0*680 




CM 


CHI ,69, 10 


0*20* 


1* 


19139 


00009 


0*690 




BNH 


F X NUMB 


0*218 


*7 


0*310 


01100 


0*700 




CM 


NUMB1+6, SYM+l 


0*230 


I* 


0*260 


J00*0 


0*710 




BNL 


•♦2* 


0*2*2 


** 


0626* 


01300 


0*720 


NUMB1 


TO 


»CMI», 


COLLECT MANTISSA 0*29* 


23 


00000 


19139 


0*730 




TR 


CHI-l,CHI+l 


0*2** 


11 


19138 


151*0 


0*7*0 




AM 


NUMB 1+6* 1, 10 


0*278 


11 


062*0 


000-1 


0*750 


NUMB 5 


AM 


SYM-30 , 1 , 10 


0*290 


11 


10029 


000-1 


0*760 




g 


NUMB 


0*302 


*9 


0*182 


00000 


0*770 




OORG 


•-3 


0*310 








0*780 


FXNUMB 


TOM 


FXORFL ,2 , , 


SET FIX OR FLOAT SM TO FIX CONST 06310 


15 


0**05 


00002 


0*790 




SM 


SYM-30, 1,10 


06322 


12 


10029 


000-1 


0*800 




C 


KLNG, SYM-30,, 


TEST IF FIX NUMBER EXCEEDS K 0633* 


2* 


02252 


10029 


0*810 




BNL 


•♦2* 


0*3** 


*6 


06370 


01 300 


0*820 




BTM 


ERROR, 177,9, 


FIXED POINT NUM8ER GREATER THAN K 0*358 


17 


09330 


00J77 


0*830 




TF 


SYM-30 »TENZ 


06370 


26 


10029 


10071 


0*8*0 




TF 


SYM+ 1 , NUMB 1+6 ,11, 


RIGHT JUSTIFY VALUE 0*382 


2* 


10060 


0626- 


0*850 




SF 


SYM+ 1 , ,2 


06 39* 


32 


J0060 


00000 


0*860 


MODE 


DC 


2 f o,«-2 


06*03 




2 




0*8 70 


FXORFL 


-0 
DC 


2,0,* 


0**05 




2 




0*880 




-0 
B 


SMTLU 


06*0* 


*9 


069*0 


00000 


0*890 




DORG 


•-3 


06*1* 








0*900 


FLNUMB 


TFM 


VARBR+6, NUMB3 


06*1* 


1* 


0650* 


-6*62 


0*910 




CM 


SYM-30, 1,10 


06*2* 


1* 


10029 


000-1 


0*920 




BE 


•♦2* 


06*38 


** 


0***2 


01200 


0*930 




TFM 


VARBR+6,NUMB2+12 


0**50 


1* 


0650* 


-6570 


0*9*0 


NUMB3 


SM 


SYM-30, 1, 10 


06*62 


12 


10029 


000-1 


0*950 




TR 


CHl-l,CHI*l 


06*7* 


31 


15138 


151*0 


0*960 




CM 


CHI , 70, 10 


06*8* 


1* 


15139 


OOOPO 


0*970 


VARBR 


BE 




BRANCH BACK TO SHIFT OFF LEADING ZEROS 06*98 


*6 


00000 


01200 


0*980 




BNH 


CMPAR 


06510 


*7 


06590 


01100 


0*990 




TFM 


VARBR+6,NUMB2»12 


06522 


I* 


0650* 


-6570 


05000 




CM 


NUMB1+6, SYM+l 


0653* 


1* 


06260 


J0060 


05010 




BNL 


• ♦2* 


065*6 


** 


06570 


01300 


05020 


NUMB2 


TO 


NUMB1+6,CHI ,6, 


COLLECT NUMBER 06558 


25 


0*26- 


15139 


05010 




AM 


NUMB 1 + 6, 1,10 


06570 


1 1 


06260 


000- 1 


050*0 




B 


NUMB3+12 


06582 


*9 


06*7* 


00000 


05050 




DORG 


• -3 


0*590 








05060 


CMPAR 


CM 


CHI,*5*10* 


TEST FOR E TYPE 06590 


1* 


15139 


000M5 


05070 




BNE 


PLUS+12 


06602 


*7 


06830 


01200 


05080 




TFM 


PLUS+11,0,10 


0661* 


1* 


06829 


000-0 


05090 




TDM 


PLUS+1.1 


06626 


15 


06819 


00001 


05100 




CM 


CHI+2,20,10 


06*38 


1* 


151*1 


OOOKO 


05110 




8L 


• ♦36 


06650 


*7 


06686 


01300 


05120 




BNE 


• ♦36 


06662 


*7 


06698 


01200 
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05130 




TOM 


PLUSn,2 






0*67* 


15 


0*819 


00002 


051*0 




TR 


CHI-WCHI + l 






06686 


31 


15138 


151*0 


05150 




CM 


CHI+2,69,10 






06698 


1* 


151*1 


00009 


05160 




BH 


• + 2* 






06710 


*6 


0673* 


01100 


05170 


EXCESS 


BTM 


ERROR, 178,9, INVALID EXPONENT 






06722 


17 


09330 


00J78 


05180 




TO 


PLUS+11.CHI+2 






0673* 


25 


06829 


151*1 


05190 




TR 


CHI-1.CHI+3 






067*6 


31 


15138 


151*2 


05200 




CM 


CHI, 69, 10 






06758 


1* 


15139 


00009 


05210 




8NH 


PLUS 






06770 


*7 


06818 


01100 


05220 




S 


PLUS+10,PLUS+11 






06782 


22 


06828 


0*829 


05230 




TD 


PLUS+llfCHI 






0*79* 


25 


0*829 


15139 


052*0 




TR 


CHI-1,CHI+1 






06806 


31 


15138 


151*0 


05250 


PLUS 


AM 


SYM-30 ,,7 






0*818 


11 


10029 


-0000 


05260 




TF 


SYM, SYM-30 






06830 


26 


10059 


10029 


05270 




SF 


SYM-29 






068*2 


32 


10030 


00000 


05280 




TF 


SYM-2, SYM-30, 7 






0*85* 


26 


10057 


J0029 


05290 




BV 


EXCESS 






06866 


*6 


06722 


01*00 


05300 




BD 


SMTLU, SVM-29 






06878 


*3 


069*0 


10030 


05310 




TFM 


SYM, 99, 10 11 






06890 


16 


10059 


OOORR 


05320 




B 


SMTLU 






06902 


*9 


069*0 


00000 


05330 




DORG 


•-3 






06910 








053*0 


ZERSYM 


DC 


30,0 






06939 




30 








-00000000000000000000000000000 














05350 




DC 


3,010, ZERSVM-28 






06911 




3 




05360 


















05370 


• 




• 














05380 


SMTLU 


TFM 


MOOAO, STBL-* 






069*0 


16 


07871 


-2373 


05390 




TFM 


SMAOO 






0*952 


1* 


0719* 


-0000 


05*00 




TFM 


SMCNT, STBL-6 






0696* 


16 


072*7 


-2371 


05*10 




MOOAO IS USED TO TEST FOR FIX OR FLOAT 














05*20 




SMAOO WILL CONTAIN THE AOORESS OF THE 


SYMBOL ENTRY AT EXIT 










05*30 


• • 


SMCNT IS USED TO FIND VARIABLE OR LITERAL 












05**0 




TF 


LSTEN, TBCNT 






0697* 


26 


07011 


02*29 


05*50 




AM 


LSTEN, 1,10 






0*988 


11 


07011 


000-1 


05*60 




CF 


OMVAR 






07000 


33 


0807* 


00000 


05*70 


LSTEN 


DS 


,• 






070U 




0 




05*80 




B 


SMLOOP+36 






07012 


*9 


0705* 


00000 


05*90 




DORG 


•-3 






07020 








05500 


SMLOOP 


SM 


SMCNT, 10, 10 






07020 


12 


072*7 


OOOJO 


05510 


OUTSW 


OS 


•SMLOOP 






07020 




0 




05520 




SM 


MOOAO* 10, 10 






07032 


12 


07871 


OOOJO 


05530 




AN 


SMAOO, 10, 10 






070** 


11 


0719* 


OOOJO 


035*0 




SM 


LSTEN, 1,10 






0705* 


12 


07011 


000-1 


05550 




BH 


JOE 






070*8 


** 


0715* 


01100 


055*0 




TF 


•♦35, SMCNT 






070B0 


2* 


07115 


072*7 


05570 




SM 


•♦23,50,10 






07092 


12 


07115 


OOONO 


09580 




BNR 


TBLFUL 






0710* 


*9 


0713* 


00000 


05590 




AN 


TBCNT, 1,10 






0711* 


11 


02*29 


000*1 


09*00 




B 


A OVA A 






07126 


*9 


0807* 


00000 


09*10 




OORG 


•-3 






0713* 








09*20 


TBLFUL 


BTM 


ERROR2,7*,9, 






0713* 


17 


09*8* 


00-7* 


09**0 




B 


MONCAL . , , ABORT JOB CAN NOT 


GO I 


ON 


071*8 


*9 


0079* 


00000 


09*90 




DORG 


•-3 






0719* 








05**0 


JOE 


BD 


LITERL, VARSM* , BRANCH IF SYMBOL 


IS A 


CONSTANT 


0719* 


*3 


07*72 


079*7 


05*70 




BNF 


•♦20, SMCNT, 11, FLAG AT SMCNT IMPLIES 


CONSTANT 


071*8 


** 


07188 


072*P 
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09*10 

09690 
09700 
09710 
09720 
09710 
09740 
09790 
09760 
09770 
09780 
097*0 
09000 
09610 
09820 
09830 
09840 
09890 
09860 
09870 
09880 
09890 
09900 
09910 
09920 
09929 

09930 
09939 
09940 
09990 
05960 
09970 
05980 
05990 
06000 
06005 
06010 
06020 
06030 
06040 
06050 
06060 
06070 
06080 
06090 
06100 
06110 
06120 
06130 
06140 
06150 
06160 
06170 
06180 
06190 



8 SMLOOP 
OORG •-3 



SMADD 



SMCNT 



C 

OS 
BV 
BNE 
TO* 

CF 
OS 
C 

BH 



80 
80 

cm 

B 

OORG 
CM 
BNR 
B 

008 G 
BE 
BO 
B 

OORG »-4 
FNTSW2 DSC itO 
0 

BO 
BO 
BO 
BO 
BO 

DIMERR BTM 

BO 
BO 
B 



SVM 
i»-9 

s ml oop 

SMLOOP 
INSW,l,, 
SMAOO 
»• 

SMADD. FCTEND,, 
FCTEST,,, 
SMCNT, 3, 10 
CSOAN-l.DlMSM,*, 
•♦32.EQUSM 
CHI, 24, 10 
• ♦20 
•-3 

SCMI,24,610 
•♦20,SMCNT,11 
FCTST 
•-3 

OINERR+12 
•♦20,SMCNT,ll, 
LUXIT 



SET OIGIT IN 1NSM IF VARIABLE FOUNO 
TEST IE SYMBOL WAS LIBRARY FUNCT 
RETURN IE IN DIMENSION STATEMENT 



LUX I T, IOSWi f 
LUXIT, FNTSH2 
LUXIT ,CALLSM, » 
COME.CQHSM,, 
LUX I T- 12 • EQUS W 
ERROR, 73,9, 
C0MER2fC0MSH 
•♦20.SMCNT.il 
DIMERR 
OORG •-S 
SF OMVAR . . . 

EXIT FROM TABLE LOOK 
BNF CS0RN-l,0UTSM,6, 
OUTSN 

PUT, SMADD- I 
•♦44.DMVAR 
OMVAR 



CF 
BT 
BNF 
CF 
OS 
TF 
B 



OUTSCE.CSORN-l 
□UTSC 
OORG •-3 

BNF "32 .FNTSM,. 
BTM PUT, 0154, 8, 
B CSORN-1,,6 
OORG »-3 

BO •♦20,FNTSW, , 
B CSORN-1,,6 
OORG »-3 
BO AERR 1 , OHM, , 



TEST FOR OIM VARIABLE 



DIM VAR USEO N/0 OIM IN I/O STATEMENT 



DIM VAR USEO W/0 DIN IN CALL 
SAME FOR COMMON 



DIMENSIONED VAR USEO KITH OUT SUBSCRIPT 



SET DIMENSION VARIABLE SWITCH 
UP •••••• 

EXIT IF OUTSM NOT SET 



TEST IF SYMBOL MAS A FUNCTION NAME 
ARITH STATEMENT CALL 



DIGIT AND NO FLAG IMPLIES SUBPROGRAM 
STATEMENT FUNCTION PREV DEFINED 



23 \ f? 


49 


07020 


OAOAA 


07 168 








07188 


24 


AAAAA 


1 0099 


07196 








07200 


44 


07020 




07212 


47 


07020 


01200 


07226 


15 


03279 


00001 


07236 


33 


071 94 


OOOOO 


07247 




0 




07248 


24 


07194 


02318 


07240 


44 


08832 


01 100 


07272 


1 1 


07247 


000—3 


07284 


43 


0968R 




07296 


43 


07328 


10088 


07308 


14 


15139 


000K4 


07920 


49 


07340 


AAAAA 

OOOOO 


07328 








07328 


1 4 


0600J 


000K4 


07340 


49 


07360 


0724P 


07392 


49 


07932 


00000 


07360 








07360 


46 






07372 


43 


07392 


0724P 


07384 


49 


07908 


00000 


07391 








07391 




1 




07392 


43 


07508 


10091 


07404 


43 


07508 


07391 


07416 


43 






07426 


43 


11968 


10090 


07440 


43 


07496 


10088 


07492 


17 


093 30 


00—73 


07464 


43 


09542 


10090 


07476 


43 


07496 


°724P 


07488 


49 


07452 


ooooo 


07496 








07496 


32 


08076 


ooooo 


07508 


44 


0568R 


07020 


07520 


33 


07020 


OOOOO 


07932 


27 


09036 


07193 


07944 


44 


07588 


08076 


07996 


33 


08076 


OOOOO 


07967 




0 




07968 


26 


04795 


05689 


07580 


49 


10464 


OOOOO 


07588 










^ 


07620 


10080 


07600 


17 


09036 


0-154 


07612 


49 


0568R 


OOOOO 


07620 








07620 


43 


07640 


10080 


07632 


49 


0568R 


OOOOO 


07640 








07640 


43 


09530 


10087 



391 
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06200 




BTM 


PUT, 0153,8, 


FUNCTION OPERATOR CALL 


07652 


17 


09036 


0-153 


06210 




B 


CSORN-1,,6 




07664 


49 


0966R 


OOOOO 


06215 




OORG 


•-3 




07672 








06220 




SEARCH SYMBOL TABLE 












06230 


LITERL 


BNF 


SMLOOP, SMCNT, 11, 


CONSTS HAVE FLAG 


07672 


44 


07020 


0724P 


06240 




80 


LUSTNO,STNOSH,« 


BRANCH IF LOOKING-UP STATEMENT NUMBER 


07684 


43 


08696 


10083 


06250 




BD 


FXLIT, FXORFL, , 


BR IF SEARCHING FOR FIXEO CONST 


07696 


43 


08012 


06405 


06260 




BO 


SMLOOP, MOOAD, 11, 




07708 


43 


07020 


0787J 


06270 


L I TF 


C 


SMADD, SYM,6, 


COMPARE CHARACTERISTICS 


07720 


24 


0719M 


10059 


06280 




BNE 


SMLOOP 




07732 


47 


07020 


01200 


06290 




TF 


AOSAVE, SMAOO 




07744 


26 


08471 


07194 


06300 




CF 


AOSAVE 




07756 


33 


08471 


OOOOO 


06310 




CF 


SMCNT, ,6 




07768 


33 


0724P 


OOOOO 


06320 




SM 


ADSAVE,2,610 




07780 


12 


0847J 


000-2 


06330 




C 


SMAOO ,SYM-2,6, 


COMPARE MANTISSA 


07792 


24 


0719M 


10097 


06360 




BE 


• ♦44 




07804 


46 


07848 


01200 


06370 




AM 


AOSAVE ,2,610 




07816 


11 


0847J 


000-2 


06380 




SF 


SMCNT,, 6 




07828 


32 


0724P 


OOOOO 


06390 




B 


SMLOOP 




07840 


49 


07020 


OOOOO 


06400 




OORG 


•-3 




07848 








06410 




AM 


ADSAVE.2,610 




07846 


11 


0847J 


000-2 


06415 




SF 


SMCNT,, 6 




07860 


32 


0724P 


OOOOO 


06416 


MOOAD 


DS 


»• 




07871 




0 




06420 




TDM 


INSW,1 




07872 


13 


03279 


00001 


06430 


E37061 


CF 


SMADD 




07884 


33 


07194 


OOOOO 


06440 




CM 


CHI, 24, 10 




07896 


14 


19139 


000K4 


06450 




BNE 


LUXIT 




07908 


47 


07508 


01200 


06460 




BTM 


ERROR, 378,9 




07920 


17 


09330 


0OL78 


06470 


•••••• 


TEST FOR SINGLE STATEMENT FUNCTION OR FUNCTION SUBROUTINE 










06480 


FCTST 


BE 


• ♦36 




07932 


46 


07968 


01200 


06490 




BD 


•♦24, CALLS* 




07944 


43 


07968 


10089 


06500 


ERR09 


BTM 


ERROR, 079,9, 


INCORRECT USE OF SUBPROGRAM NAME 


07996 


17 


09330 


00-79 


06510 




TDM 


FNTSM, 1, , 


FUNCTION SUBROUTINE 


07968 


13 


10080 


00001 


06520 




BNF 


LUXIT, SMCNT, 11 




07960 


44 


07906 


0724P 


06530 




SF 


FNTSM,,, 




07992 


32 


10080 


OOOOO 


06540 




B 


LUXIT 




08006 


49 


07908 


OOOOO 


06550 




OORG 


•-3 




08012 






0787J 


06960 


FXLIT 


BD 


•♦20,M0DAD,11, 


OIGIT INDICATES FIX VAR 


08012 


43 


08032 


06570 




B 


SMLOOP 




06024 


49 


07020 


OOOOO 


06980 




DORG 


•-3 




08032 








06990 




BNF 


SMLOOP, MOD AD, 11, 


TEST FOR STATEMENT NO. 


08032 


44 


07020 


0787J 


06600 




C 


SMA0D,SYM,6 




06044 


24 


0719M 


10099 


06610 




BNE 


SMLOOP 




08056 


47 


07020 


01200 


06620 




B 


E37061 




08046 


49 


07664 


OOOOO 


06630 




OORG 


•-3 




08074 








06640 




ENTRY TO ADD A NEW 












06690 


AOVAR 


CF 


SMAOO 




06074 


33 


07194 


OOOOO 


06660 


OMVAR 


DS 


, AOVAR 




06074 




0 




06670 




TDM 


INSM,0 




08OB8 


13 


03279 


OOOOO 


06680 




AM 


SNCNT.3.10 




08100 


11 


07247 


000-3 


06690 




TO 


MOOAO, FXORFL, 6, 




06112 


25 


0767J 


06409 


06700 




SF 


M0DA0,,6 




06124 


32 


0787J 


OOOOO 


06710 




80 


ADLIT, VARSM, , 


•RANCH TO A 00 CONSTANT 


06134 


49 


06936 


07567 


06720 




A 


NXLOCSMLNG, , 


MOO SYMBOL ST0RA6E BY NUMBER OF CHAR 


0B14B 


21 


02372 


05917 


06730 




TF 


NXL0C,SVN,4, 


MOVE SYMBOL INT* SVM STORAGE 


08140 


26 


0237R 


10099 


06740 AOVLOP 


TF 


SNA0D,NXL0C»4t 


NOV! AM OP SVM INTO SYMBOL TABLE 


08172 


26 


0719M 


02372 
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FACE IS 



0*790 




80 


AOVARltOIMSW** 


TEST IF IN DIMENSION STATEMENT 


0818* 


43 


08204 


10084 


0*7*0 




8 


ADVAR2 




0819* 


49 


08252 


00000 


0*770 




OORG 


•-3 




0820* 








0*700 


ADVAAl 


SM 


SMAOO, 10t 10 




0820* 


12 


07194 


OOOJO 


0*790 




AM 


TBCNTt 1 t 10 


... 


0821* 


11 


02429 


000-1 


0*000 




TF 


SMAOO t NXLOC t * t 


PLACE DOUBLE ENTRY FOR DIMENSION VAR 


08228 


2* 


0719N 


02372 


06110 




AM 


SMAOD t 10 t 10 




082*0 


11 


07194 


OOOJO 


0*820 


ADVAR2 


80 


ADSUBP iSUBSN 9 t 


TEST IF IN SUBROUTINE STATEMENT 


08292 


43 


08448 


10092 


06830 




BO 


CS0RN-1,DIMSW,6, 


GOTO COLLECT DIMENSIONS IF IN DIN 


082** 


43 


09*88 


1008* 


0*8*0 


SET I MO 


BNF 


•♦24,C0MSW,, 


TEST IF IN COMMON 


0827* 


44 


08300 


10090 


06890 




SF 


SNCNT, ,6, 


SET FLAG ON INDICATOR IF COMMON VARIABLE 


08288 


32 


0724P 


00000 


068*0 


SUBTST 


BO 


•♦32 ,EQUSW,, 




08300 


43 


08332 


10088 


06870 




CM 


CHI, 24, 10 




08312 


14 


19139 


000K4 


06880 




6 


•♦20 




08324 


49 


08344 


00000 


06890 




DORG 


•-3 




08332 








06900 




CM 


SCHI,24,610 




08332 


14 


0600J 


000X4 


06910 




BNE 


LUXIT 




08344 


47 


07908 


01200 


06920 




BO 


SUBTR tEQUSMt t 




0839* 


43 


08436 


10088 


06930 




BO 


LUXIT, SUBSW, , 


00 NOT SET SWITCH IF IN DECLARATION STMT 


08368 


43 


07308 


10092 


06940 




BO 


C0MER2 tCOMSW 




08380 


43 


09542 


10090 


06950 




TOM 


FNTSM 1 1 , * 


SET SWITCH FOR FUNCTION NAME (A) 


08392 


15 


10080 


00001 


06960 




TOM 


SMCNT.,6 




08404 


15 


0724P 


00000 


06970 




OC 


It • »• 




08415 




1 




06980 




BO 


ASC21.0MM 




08416 


43 


13282 


10087 


06990 




B 


LUXIT, 




08428 


49 


07508 


00000 


07000 




OORG 


•-3 




08436 








07010 


SUBTR 


8TM 


ERROR, 170,9, 


OIM VAR IN EQUIV W/0 PREVIOUS OIMENStONS 


0843* 


17 


09330 


00 J 70 


07020 




ENTRY TO PLACE VARIABLE IN SUBROUTINE DEFINITION IN TABLE 










07030 




THESE VARIABLE ARE 


PLACED IN TWICE BECAUSE OF POSSIBLE 










07040 




DIMENSIONING LATER 












07050 


ADSUBP 


BNF 


•♦44, SUBSW 




08448 


44 


08492 


10092 


07060 




CF 


SUBSW 




08460 


33 


10092 


00000 


07070 


ADSAVE 


DS 


, • 




08471 




0 




07080 




AM 


SMADD, 10, 10 




08472 


11 


07194 


OOOJO 


07090 




B 


SETINO 




08484 


49 


08276 


00000 


07100 




DORG 


•-3 




08492 








07110 




SF 


SUBSW 




08492 


32 


10092 


00000 


07120 




SM 


SMADD, 10,10 




08504 


12 


07194 


OOOJO 


07130 




AM 


TBCNT,1,10 




0851* 


11 


02429 


000-1 


07140 




B 


AOVLOP,,, 


BRANCH TO PLACE SYMBOL IN SECONO TIME 


08528 


49 


08172 


00000 


07150 




DORG 


*-3 




08536 








07160 




ENTRY TO PLACE CONSTANTS IN TABLE ••••• 










07170 


AOL IT 


BD 


ADSTN.STNOSW,, 


BRANCH TO ADO STATEMENT NUMBER 


0853* 


43 


08760 


10083 


07180 




BO 


ADXL I T, FXORFL , , 


BRANCH TO ADO FIX CONST 


08548 


43 


08664 


06405 


07190 




A 


NXLOC , FLNG 




08560 


21 


02372 


02250 


07200 




TF 


NXLOC.SVM-2,6, 


MOVE IN FLOATING MANTISSA 


08572 


26 


0237K 


10057 


07210 




AM 


NXLOC, 2, 10 




08584 


11 


02372 


000-2 


07220 




TF 


SMADD, NXLOC, 6, 


SET SYM ADD INTO TABLE 


08596 


26 


0719M 


02372 


07230 


ADLIT1 


TF 


NXL0C,SYM,6, 


MOVE CHARACTERISTIC OR FIX CONST 


08608 


26 


0237K 


10059 


07240 




SM 


SMADD* 1, 10 




08620 


12 


07194 


000- 1 


07250 




SF 


SMAOD, ,6 




08632 


32 


0719M 


00000 


07260 




AM 


SMADD, 1,10 




08644 


11 


07194 


000-1 


07270 




B 


E37061*12 




08656 


49 


07896 


00000 


07280 




DORG 


•-3 




08664 








07290 


AOXLIT 


A 


NXLOC, RLNG 




08664 


21 


02372 


02252 
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PAGE 


07300 




TF 


SMADD, NXLOC, 6 




086 76 


26 


0719M 


02372 


07310 




B 


ADLIT1 




08688 


49 


08608 


00000 


07320 




DORG 


•-3 




08696 








07330 




ENTER WHEN LOOKING 












07340 


LUSTNO 


BNF 


•♦20,M0DA0,ll, 




08696 


44 


08716 


0787J 


07350 




P 


SMLOOP 




08706 


49 


07020 


00000 


07360 




DORG 


•-3 




08716 








07370 




C 


SMAOD, SYM, 6 




08716 


24 


0719M 


10059 


07380 




BNE 


SMLOOP 




08728 


47 


07020 


01200 


07390 




TDM 


STNQSW.O 




08740 


15 


10083 


00000 


07400 




B 


E37061-12,,, 


BRANCH TO SET INSW AND GO TO LUXIT 


08752 


49 


07872 


00000 


07410 




DORG 


• -3 




08760 








07420 




ENTER TO ADD STATEMENT NUMBER •••••• 










07430 


AOSTN 


AM 


NXLOC, 4, 10 




06760 


11 


02372 


000-4 


07440 




TF 


SMAOO, NXLOC, 6, 


MOVE STAMNT NO. AOORESS TO TABLE 


08772 


2* 


0719M 


02372 


07450 




CF 


MODAD, ,6, 


CLEAR FLAG FOR STATEMENT NUMBER 


08784 


33 


0787J 


00000 


07460 




TDM 


STNOSW.O 




08796 


15 


10083 


00000 


07470 




B 


A0LIT1 




08808 


49 


08608 


00000 


07480 




BTM 


ERROR, 374, 9, 


ILLEGAL USE OF FUNCTION NAME 


08820 


17 


09330 


00L74 


07490 


FCTEST 


BD 


•-12,C0MSW,, 


TEST FOR FUNCTION NAME IN COMMON 


08832 


43 


08820 


10090 


07500 




BD 


•-24.EQUSW,, 


FUNCT NAME IN EQUIV 


08844 


43 


08820 


10086 


07510 




BD 


•-36.DIMSW,, 


1 


08856 


43 


08820 


10084 


07520 




BD 


•-48,I0SW 




08868 


43 


08820 


10091 


07530 




BO 


FCTEST-12.0MM 




08880 


43 


08820 


10087 


07540 




CM 


CHI, 24,10 




08892 


14 


19139 


000X4 


07550 




BNE 


FCTEST-12 




06904 


47 


08820 


01200 


07560 




TF 


•♦35, SMADD 




08916 


2* 


08951 


07194 


07370 




AM 


•♦23,5,10 




08928 


11 


08951 


000-5 


07580 




TF 


TEMP,,. 




08940 


26 


04161 


00000 


07590 




SM 


TEMP.ENTLOG-5 




08952 


12 


04161 


-2243 


07600 




MM 


TEMP, 2, 10 




069*4 


13 


04161 


000-2 


07610 




SF 


97 




0897* 


32 


00097 


00000 


07620 


REF 


DS 


»• 




08967 




0 




07630 




TFM 


•♦30,U$EDFS-l 




08968 


16 


09018 


-2262 


07640 




A 


•♦18,98 




09000 


21 


09016 


00098 


07630 




TDM 


tl.lO, 


SET INDICATOR FOR FUNCTION USED 


09012 


15 


00000 


000- 1 


07660 




B 


LUXIT 




0902* 


49 


07508 


00000 


07670 


PUT 


BD 


EXIT.ERSW 




09034 


43 


09214 


05626 


07680 




TF 


PUTOUT,PUT-l 




09048 


26 


09372 


09035 


07690 




B 


E94270 




090*0 


49 


09060 


00000 


07700 




DORG 


•-3 




090*8 








07710 




TF 


PUTOUT.PUT-2 




090*8 


2* 


09372 


09034 


07720 


E94270 


TR 


CARO,PUT0UT-3,2 




09060 


31 


J 30 36 


09369 


07730 




AM 


•-*•*, 10 




09092 


11 


09066 


000-4 


07740 




CM 


•-18,CARD*100 




0910* 


1* 


09066 


J5136 


07750 




BE 


•♦14 




0911* 


4* 


09130 


01200 


077*0 




BB 






09128 


41 


00000 


00000 


07770 




OORG 


•-9 




09180 








07780 




TFM 


IORT.^23 




09190 


1* 


00969 


-9133 


07790 




B 


I0PT,INT0P,7 




091*2 


49 


00932 


-9221 


07800 




AM 


INT0PU9,1«10 




0919* 


11 


02990 


ooo-i 


07810 




B 


•♦3*, 00200* • 


C9T7 ST ON SM 2 


091** 


49 


09202 


00200 


07820 




RCTV 






09171 


I* 


00000 


00102 


07830 




WNTV 


CARD 




09190 


It 


19036 


00100 


07840 




TFM 


E94270*6,CAR0 




09202 


16 


0908* 


J903* 


07890 


EXI7 


88 


E 8*440 




09214 


42 


02430 


ooooo 
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0?t60 




OORG 


•-4 




09221 








07870 


INTOP 


OSC 


2,02 




09221 




2 




07110 




02 
DSA 


INTOPl 




09227 




5 


X 1 












09227 




-2365 




07490 




OC 
• 


It * 




09221 




I 




07900 


SPERR 


TEH 


SPGS+ll, 071,9 




09230 


1* 


09325 


00-71 


07910 




BO 


SPGS* INDIV 




09242 


43 


09314 


02424 


07920 




TFM 


I0RT,**23 




09254 


1* 


00565 


-9277 


07930 




6 


I0GT,C5DATA-4,7, 


CHECK FOR CONTINUATION CAROS 


0926* 


49 


00566 


-9679 


07940 




CM 


CHI5,43,10 




0927B 


14 


19839 


000M3 


07950 




BE 


• ♦24 




09290 


4* 


09314 


01200 


07960 




BD 


SPEA**24,CMI5+10 




09)02 


4) 


09234 


15649 


07970 


SPGS 


BTM 


ERROR, 071, 8 




09314 


17 


09330 


00-71 


07980 




OS 


4 




09329 




4 




07990 


ERROR 


TDM 


ERSW.l 




09330 


15 


05626 


00001 


08000 




TOM 


E 94620+ 1,9 




09342 


15 


09475 


00009 


08010 




TF 


ERMES»L4,ERR0A~1 




09354 


26 


09995 


09329 


08020 




RCTY 






09364 


34 


00000 


00102 


080)0 


PUTOUT 


OS 


.•-5 




09372 




0 




08040 




OC 


I, * ,»-4 




09373 




1 




08050 




BC1 


• ♦64 




09378 


46 


09462 


00100 


08060 




WNTY 


ESNO-3 




09390 


38 


02733 


00100 


08070 




SPTY 






09402 


34 


00000 


00101 


08060 




MATY 


PLUSS 




09414 


39 


10011 


00100 


08090 




SPTY 






09426 


34 


00000 


00101 


08100 




MNTY 


ESNOPL-3 




09438 


38 


03049 


00100 


081 10 




SPTY 






09450 


34 


00000 


00101 


08120 




MATY 


ERMES 




09462 


39 


09981 


00100 


08130 


E94620 


B 


BEGIN* 




09474 


49 


02650 


00000 


08140 


ERR0R2 


TOM 


E94620*l«2 




0948* 


15 


09475 


00002 


08150 




TOM 


JAY, 4 




09498 


15 


02367 


00004 


08160 




TF 


ERMES* 14, ERR0R2-1 




09510 


26 


09995 


09465 


08170 




0 


ERR0RO6 




09522 


49 


09366 


00000 


08180 




DORG 


•«3 




09530 








08190 


AERR 1 


BTM 


ERR0R,376,9 




09530 


17 


09330 


00L76 


08200 


COWER 


BTM 


ERROR, 372*9, 


INCORRECT COMMON STATEMENT 


09542 


17 


09330 


00L72 


08210 


C0MER2 


OS 


, COMER 




09542 




o 




08220 


END 


BO 


•♦20, SUBFCT 




09554 


43 


09574 


02293 


08230 




B 


• ♦32 




09566 


49 


09598 


00000 


08240 




OORG 


•-3 




09574 








08250 




BO 


•♦24.RTSW 




09574 


43 


09598 


05625 


08260 




BTM 


ERR0R2,578,9 




09586 


If 


09486 


0ON78 


08270 




BV 


• ♦12 




09598 


46 


09610 


01400 


08280 




BO 


MONCAL *ERSW.* 


SKIP STORAGE ALLOCATION IF PROG HAO ERR 


09610 


43 


00796 


05626 


08290 




BTM 


PUT, 141, 8, END 




09622 


17 


09036 


0-141 


08300 




BTM 


PUT, 140, 6, DUMMY 


09634 


17 


09036 


0-140 


08310 




BTM 


PUT, 132*8, SEM! 


COLON 


09646 


17 


09036 


0-132 


08320 




CM 


E94270+6.CARD 




09658 


14 


09086 


J5036 


08330 




BE 


E86440,,, EXIT TO 


STORAGE ALLOCATION 


09670 


46 


02430 


01200 


08340 




TOM 


EXIT+1,9 




09682 


15 


09215 


00009 


08350 




B 


£94270*50 




09694 


49 


09130 


00000 


08360 




DORG 


•-3 




09702 
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08370 BLK1 


DSC 


2,22 


09702 


2 






22 










0B380 


DSA 


BLK1A 


09708 


5 


X 








09708 


-9710 




08390 


DC 
• 


1 , * 


09709 


1 




08400 BLKU 


DSC 
0 


1,0 


09710 


1 




08410 


DC 


5,17600 


09713 


5 






J7600 








08420 


DC 


3 ,043 


09718 


3 






-43 










08430 


DSA 


I OUT 


09723 


5 


X 








09723 


J0200 




08440 


OC 
* 


1*» 


09724 


1 




08450 BLK2 


DSC 


2,22 


09725 


2 






22 










08460 


DSA 


BLK2A 


09731 


5 


X 








09731 


-9733 




08470 


OC 


l.« 


09732 


1 




08480 BLK2A 


DSC 


1,0 


09733 


1 




08490 


0 

OC 


5,17400 


09738 


5 






J7400 








08500 


DC 


3,046 


09741 


3 






-46 










08510 


OSA 


I OUT 


09746 


5 


X 








09746 


J0200 




08520 


DC 
« 


It* 


09747 


I 




08530 BLK3 


DSC 


2,22 


09748 


2 






22 










08540 


DSA 


BLK3A 


09754 


5 


X 








09754 


-975* 




08550 


DC 


l»« 


09731 


1 




08560 BLK3A 


OSC 


1,0 


09756 


1 




08570 


0 

OC 


5,17450 


09761 


5 






J7450 








08580 


OC 


3*046 


097*4 


3 




08590 


-46 
DSA 


I OUT 


097*9 


5 


X 








097*9 


J0200 




08600 


OC 


l.» 


09770 


1 




08610 BLK4 


OSC 


2.22 


09771 


2 






22 











396 
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00620 




OSA 


BLK6A 


09777 


9 X 


1 










Of 77? 


-9779 




08630 




OC 
• 


lt» 


09771 


1 




06660 


BLK6A 


OSC 
0 


1.0 


09779 






08650 




DC 


5,17500 


09706 


5 








J7500 








08660 




OC 


3,066 


09787 


3 








-66 










08670 




OSA 


I OUT 


09792 


5 X 












09792 


J 02 00 




08680 




DC 
t 


It' 


09793 


1 




08690 


BLK5 


DSC 


2,22 


09796 


2 








22 










08700 




DSA 


BLK5A 


09800 


9 X 


1 












-9802 




08710 




DC 


lt« 




1 




08720 


BLK5A 


DSC 


1,0 


09802 


1 




08730 




0 

DC 


5,17650 


09807 


5 








J7650 








08760 




DC 


3,046 


09810 


3 




08750 




-46 
DSA 


IOUT 


09815 


5 X 


I 










09815 


J0200 




08760 




DC 


lt« 


09816 


1 




08770 


BLK6 


DSC 


2,22 


09817 


2 








22 










08780 




DSA 


BLK6A 


09823 


5 X 


1 










09823 


-9825 




08790 




DC 


1,' 


09826 


I 




08800 


BL K6A 


DSC 
0 


1,0 


09625 


1 




08810 




DC 


5,17550 


09830 


5 








J 75-50 








08820 




DC 


3,046 


09833 


3 








-46 










08830 




DSA 


IOUT 


09838 


5 X 


1 










09838 


J0200 




08840 




DC 


1,« 


09839 


1 




08850 


BLK7 


DSC 


2,22 


09840 


2 








22 










08860 




DSA 


BLK7A 


09846 


5 X 


I 



3 9 7 
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09866 




-9848 




08870 




DC 
• 


l," 


09847 




1 




08880 


BLK7A 


DSC 


i»o 


09648 




1 




08890 




0 

DC 


5,17700 


09853 




5 








J7700 










08900 




DC 


3 ,100 


09856 




3 








JOO 












08910 




DSA 


E86440 


09861 




5 


X 1 










09861 




-2430 




08920 




DC 
• 


1,' 


09862 




I 




08930 


URDATA 


OSA 


CHI 


09867 




5 


X 1 










09867 




J5139 




08940 




DC 
-6' 


3,06* 


09870 




3 




08950 


CDOATA 


DSA 


CHI 


09875 




5 


X 1 










09675 




J5139 




08960 




DC 


3,10* 


09878 




3 








J0» 












08970 


C50ATA 


DSA 


CHI5 


09863 




5 


X 1 










098*3 




J5839 




08980 




DC 


3,10* 


09866 




3 








JO* 












08990 


MODAFT 


TFN 


•♦35,AFTBL*5 


09866 


16 


09923 


J5040 


09000 




S* 


•♦23,5,10 


09900 


12 


09923 


000-5 


09010 




TF 


•♦18,, 


09912 


26 


09930 


00000 


09020 




AM 


• 2,10 


09926 


11 


00000 


000-2 


09030 




C 


•-13.STAF7 


0993* 


24 


09923 


04413 


09040 




BM 


•-46 


0996* 


4* 


09900 


01100 


09050 




TFN 


STAFT, AFT*L*5 


099*0 


1* 


06413 


J 5040 


09060 




8 


BEGIN* 3* 


09971 


49 


02*74 


00000 


09070 




DORC 


• -4 


09979 








09080 


ERNES 


OAC 


9, ERROR 00* 


099*1 




9 


X 2 






ERROD 


1 00* 








09090 


FHTCST 


OC 


12,465659564163 


10009 




12 








M63659566163 








09100 


PLUSS 


DAC 


2,*» 


1001 1 




2 


X 2 


09U0 


ENOCr 


DAC 


3, END 


10019 




3 


X 2 






END 












09130 


srw 


DS 


40 


10099 




40 




09160 




OS 


2 


100*1 




2 




09150 




OC 


14,0 


10077 




1* 








-000000000000000 








09160 


2ER1 3 


OS 


,•-2 


10079 




0 




09170 


TEN! 


DS 


,•-6 


10071 




0 




09180 


SINOST 


OC 


1.0 


1007* 




1 




09190 


OOTRAN 


OSC 
0 


1*0 


10079 




1 
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0f200 


PNTSM 


osc 


uo 


10080 




1 




09210 


PNTSWl 


o 

osc 


1,0 


10001 




1 




09220 


MS* 


DSC 


1*0 


100§2 




1 




092)0 


STNOSM 


OSC 


1,0 


loots 




1 




092*0 


OIMSM 


0 

OSC 
0 


1.0 


10004 




I 




09290 


IFSM 


OSC 


1,0 


lOOif 




1 




09260 


CGTO 


0 

OSC 
0 


1,0 


1008* 




1 




09270 


OMM 


OSC 


1,0 


10087 




1 




09200 


EQUSW 


0 

OSC 


1,0 


10088 




I 




09290 


C ALL SM 


0 

osc 


1,0 


10089 




1 




09300 


COHSM 


0 

osc 


1.0 


10090 




I 




09310 


10SW 


0 

osc 


1,0 


10091 




1 




09320 


SUBSW 


0 

osc 


1.0 


10092 




I 




09410 




0 

DORG 


10200 


10200 








09420 


I OUT 


TFM 


FM0NO5.BLK4 


10200 


14 


02354 


-9771 


09430 




BTM 


F MOM, I OUT 


10212 


17 


02324 


J0200 


0*440 


NONARA 


TFM 


FM0N*3S,BLK2 


10224 


16 


02359 


-9725 


09490 




BTM 


FMONt NONARA 


1023* 


17 


02324 


J0224 


09460 


DIM 


TFM 


FM0N*35,BLKl 


10248 


14 


02359 


-9702 


09470 




BTM 


FMON.OIM 


10240 


17 


02324 


J0248 


09480 


CUMMON 


TFM 


FMON*35,BLKl 


10272 


14 


02399 


-9702 


09490 




BTM 


FMON, COMMON 


10284 


17 


02324 


J0272 


09900 


IF 


TFM 


FM0NO5,BLK6 


10294 


14 


02399 


-9817 


09510 




BTM 


FMON, IF 


10308 


17 


02324 


J0294 


09520 


GOTO 


TFM 


FN0N*3S,BLK6 


10)20 


14 


02359 


-9817 


09530 




BTM 


FMON. GOTO 


10332 


17 


02324 


J0320 


09540 


CALL 


TFM 


FNON*35,BLK6 


10344 


14 


02359 


-9817 


09550 




BTM 


FMON, CALL 


10394 


17 


02324 


J0344 


09560 


RETURN 


TFM 


FM0NO5.BLK6 


10348 


14 


02339 


-9817 


09570 




BTM 


FMON, RETURN 


10380 


17 


02324 


J0368 


09580 


FORMAT 


TFM 


FM0NO5.BLKI 


10392 


14 


02359 


-9702 


09590 




BTM 


FMON (FORMAT 


10404 


17 


02324 


J0392 


09600 


000 


TFM 


FM0N*3S.BLK4 


10414 


14 


02399 


-9771 


09610 




BTM 


FMON, 000 


10428 


17 


02324 


J0416 


09620 


ASCAN 


TFM 


FM0NO5.8LK3 


10440 


14 


02359 


-9748 


09630 




BTM 


FMON, ASCAN 


10492 


17 


02324 


J0440 


09640 


OUTSC 


TFM 


FM0NOS.BLK3 


10444 


16 


02359 


-9748 


09650 




BTM 


FMON, OUTSC 


10476 


17 


02324 


J0464 


09660 


OK 10 


TFM 


FM0NO5.BLK5 


10488 


14 


02359 


-9794 


09670 




BTM 


FMON.OKIO 


10500 


17 


02324 


J0488 


09680 




DORG 


16000 


14000 








09690 


PHBOAT 


osc 


2.22 


14000 




2 








22 
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09710 



DSA PHBODA 



DC 



PAGE 
5 X 1 



09720 PHBODA OSC 1.0 
0 

09730 DC 5,17200 

J7200 

09740 DC 3 ,082 

-82 

09750 DSA E86440 



DC l,« 



16006 
16007 

16008 

1401) 

16016 

16021 

16021 
16022 



J6008 
1 



I 
5 
3 

5 X 



-2430 
1 



09770 LOPHB 

09780 

09790 

09800 

09810 • 
09820 • 
09830 • 
09840 • 



TFM 

B 

TRA 



I0RT,»*23 
IOPT, PHBOAT, 7 



TCO LDPHB 

OUT OF CORE BLOCK 1 

DIMENSION 

COMMON 

FORMAT 



16024 14 00545 J6047 

140)4 49 00592 J6000 

14048 34 00000 00500 

14040 49 00000 00000 
14024 



CONTAINS THE FOLLOWING 



09850 


OORG 


I OUT 




10200 








09860 


TFM 


FM0N+35,BLK4 


,,IOUT 


10200 


16 


02399 


-9771 


09870 


BTM 


FMON, I OUT 




10212 


17 


02324 


J0200 


09880 


TFM 


FM0N+35.BLK2 




10224 


16 


02399 


-9725 


09890 


BTM 


FMON, NONARA 




102)4 


17 


02324 


J0224 


09900 


CF 


STSN 


...DIM 


10248 


33 


09427 


00000 


09910 


B 


OIMEN 




10240 


44 


10912 


00000 


09920 


CF 


STSN 


, , , COMMON 


10272 


33 


09627 


00000 


09930 


B 


COMMEN 




10284 


49 


11976 


00000 


09940 


TFM 


FM0M*35,BLK6 


,,IF 


10294 


14 


02399 


-9817 


09950 


BTM 


FMON, IF 




10)0t 


17 


02)24 


J0296 


09960 


TFM 


FM0N»S,BLK6 


tt GOTO 


10)20 


14 


02)99 


-9817 


09970 


BTM 


FMON, GO TO 




103)2 


17 


02)24 


J0320 


09980 


TFM 


FM0N*35,BLK6 


..CALL 


10)44 


14 


02)99 


-9817 


09990 


BTM 


FMON, CALL 




10)94 


17 


02)24 


J0344 


10000 


TFM 


FM0N+35.BLK6 


, (RETURN 


10)48 


14 


02399 


-4817 


10010 


BTM 


FMON, RE TURN 




10)80 


17 


02)24 


J0348 


10020 


CF 


FREQSH 


, FORMAT 


10)92 


33 


14170 


00000 


10030 


8 


FOMAT 




10404 


49 


12144 


00000 


10040 


TFM 


FM0N*35*BLK4 


t ,000 


10414 


14 


02)99 


-9771 


10050 


8TM 


FMON, 000 




10420 


17 


02)24 


J04I4 


10060 


TFM 


FNON*3S,BLK3,, 


ASCAN 


10440 


14 


02)99 


-9748 


10070 


BTM 


FMON, A SCAN 




104)2 


17 


02)24 


J0440 


10080 


TFM 


FM0N*99,BLK9. , 


OUTSC 


10444 


14 


02)99 


-4748 


10090 


BTM 


FMON, OUTSC 




10474 


17 


02)24 


J0444 


10100 


TFM 


FN0N*39,BLK9 


•tDftfO 


10488 


14 


02)99 


-4794 


10110 


BTM 


FMON, OKI 0 




10900 


17 


02)24 


J 0488 


10120 •••••• 


ENTRY TO DECOMPOSE 


DIMENSION STATEMENT ••••• 










10130 OIMEN 


BTM 


C0LNA«,4.10 




10912 


If 


04494 


000-4 


10140 


C 


SVM,ENS!ONHO 




10S24 


24 


10099 


11979 



4U0 
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10150 




BV 


ERR01 




105)6 


46 


04282 


01400 


10160 




BNE 


ERROl 




10568 


47 


04282 


01200 


101 70 




TR 


CHl-1 ,CHI*11 




10560 


31 


15136 


15150 


10180 




TOM 


OINSN, 1 




10572 


15 


10084 


00001 


10190 




BNR 


•♦36»CHI*2 




10586 


45 


10620 


15141 


10200 


DINl 


BTM 


ERROR, 072»9t 




10996 


|7 


09330 


00-72 


10210 




BTM 


ERROR , 270,9 




10608 


17 


09330 


00K70 


10220 




CM 


CHI ,40, 10 




10620 


14 


15139 


000M0 


10230 




BNH 


• -26 




10632 


47 


10608 


01100 


10260 




CM 


Chi 1 69 * io 




10666 


14 


15139 


00009 


10250 




BH 


DIMi+12 




10656 


4§ 


10608 


01100 


10270 




BTM 


CSORN, 12 




10668 


If 


05690 


J0660 


10280 


SE TDM 


BO 




BRANCH IF 5 /M MAS ALREADY IN TABLE 


10680 


43 


1 1464 


03279 


10290 




TDM 


SMCNT, 1 1 6t 




10692 


15 


0724P 


00001 


10300 




ye 


ad^a vp . sma on .11. 




10706 


26 


08471 


0719M 


10310 




SM 


SMADD»05» 10 




10716 


12 


07194 


000-3 


10320 




TFM 


cuinn .1.67 




10728 


16 


0719M 


-0001 


10 3 30 




CM 


CHI »24t 10 




10740 


14 


15139 


000K4 


10360 




BNE 


D I M 1 




10752 


47 


10596 


01200 


10350 




SF 


D I M I 




10766 


32 


10596 


00000 


1 0360 




SF 


SE TOM 




10776 


32 


10680 


00000 


10370 


SD 


TR 


r HI— 1 . CHI ♦ 1 . . 


SHIFT OFF LEFT PARN OR COMMA 


10768 


31 


15138 


15140 


1 nian 










10800 


1% 


15139 


00009 








iC 1 ▼ « ^ 




10812 


47 


10860 


01 100 


i nf nn 






r C Tun a A 1 9 




10826 


17 


05398 


J0836 


i nil a 




tm 


SYM, Of 10 




10836 


14 


10039 


000-0 


in2?n 










1 0848 


47 


10872 


01200 


i n2in 






conn* . i to a 




10860 


17 


09330 


0OJ79 






AM 
* 


int • we c in 




10872 


1 1 


08471 


000-5 












10886 


1) 


10055 


0000- 


i n22n 




re 


^ y JUJ"" ^ • o • 1 1 




10896 


33 


10056 


00000 


i n± ?n 




TC 






10908 


24 


0847J 


1 0059 












10920 


1 1 


02372 


000-5 


10490 




Jm 


1 C™P f STB 






24 


04161 


1 0059 


i «I?n 




CM 


rut ni i n 




10966 


14 


15139 


000—4 


f | 






MOVDI M 




10956 


44 


11116 


01200 


10520 




CM 


CHI 1 23 • 10 








151 39 




i ncln 






DIM1 




10980 


47 


10396 


01200 






owe 
BNF 


r r ul> T li At Ml 


itjl run XvUrtu uintNjiun 






1 1072 


10596 


1 *CA 




TDM 


SMCNT ? 2 1 6 




1 1 006 


I 5 


0724P 


00002 


i n«*n 
i 


St TDH3 




ruinn TCMB A 






23 


071 9M 


04161 






cc 






1 1028 


32 


00095 


00000 


i !s an 




TP 

Ic 


C M A A A OQ A. 








0719M 


00099 






CF 


DIM! 




1 1052 


33 


10596 


nnnnn 


1 0600 




B 


SD 






49 


10788 


AAAAA 

uuuuu 


l 




DORG 


•— 3 




1 1072 










GEND I N 






leal run ininu utncfiaivin 


1 1072 




1 0860 


10680 


10630 




TDM 


SMCNT t 3» 6 












10640 




CF 


SETDM 




11096 


33 


10680 


00000 


10650 




B 


SETDM3 




11108 


49 


11016 


00000 


10660 




DORG 


.-3 




11116 








10670 


MOVDIM 


M 


SMADD , TEMP 1 6 




11116 


23 


0719M 


04161 


10680 




SF 


95 




11128 


32 


00095 


00000 


10690 




TF 


SMADD t 99,6 




11140 


26 


0719M 


00099 


10700 




TR 


CHI-l,CHl*l 




11152 


31 


15138 


15140 


10710 




TO 


DIMTPt SMCNT, 1 1 




11166 


25 


11185 


0724P 



10720 




CM 


DIMTP, 0002,810 




11176 


14 


11185 


0-0-2 


10730 


DIMTP 


DS 


t»-2 




11185 




0 




10740 




BH 


SETDM4, , , 


3 DIMENSIONS 


11188 


46 


11276 


01100 


10750 




BE 


•♦32,,, 


2 DIMENSIONS 


11200 


46 


11232 


01200 


10760 




TFM 


ADSAVE,1,67, 


1 DIMENSION 


11212 


16 


0847J 


-0001 


10770 




B 


SE TDM5* 12 




11224 


49 


11396 


00000 


10780 




DORG 


•-4 




11231 








10790 




TF 


TEMP , ADSAVE 




11232 


26 


04161 


08471 


10800 




SM 


TEMP, 5, 10 




11244 


12 


04161 


000-5 


10810 




TF 


ADSAVE, TEMP, 611 




11256 


26 


0847J 


0416J 


10820 




B 


SETDM5 




11268 


49 


11384 


00000 


10830 




DORG 


•-4 




11275 








10840 


SET0M4 


TF 


TEMP, ADSAVE 




11276 


26 


04161 


08471 


10850 




SM 


ADSAVE ,5,10 




11268 


12 


08471 


000-5 


10860 




SM 


TEMP, 10,10 




11300 


12 


04161 


000J0 


10870 




M 


TEMP , AO SAVE ,61 1 




11312 


23 


0416J 


0847J 


10880 




SF 


95 




11326 


32 


00095 


00000 


10890 




TF 


NXLOC. 99,6 




11336 


26 


0237X 


00099 


10900 




TF 


ADSAVE , TEMP, 61 I 




11348 


26 


0B47J 


0416J 


10910 




TF 


TEMP, NXLOC, 611 




11360 


24 


0416J 


0237K 


10920 




A 


TEMP, AOSAVE, 611 




11372 


21 


0416J 


0847J 


10930 


SETDM5 


AM 


TEMP, 1,610 




11386 


11 


0416J 


000-1 


10940 




AM 


NXLOC, 05. 10 




11396 


11 


02372 


000-5 


10950 




TF 


NXLOC, SMADD, 611 




11408 


26 


0237K 


0719M 


10960 




BNR 


•♦20,CHI*2 




11420 


45 


11440 


15141 


10970 




B 


BEGINA 




114)2 


49 


02650 


00000 


10980 




DORG 


•-3 




11440 








10990 




CM 


CHI, 23, 10 




11440 


14 


15139 


000K3 


11000 




BNE 


DINl 




11652 


47 


10596 


01200 


11010 




TR 


CHI-1, CHI»1 




11666 


31 


15138 


15140 


11020 




B 


0IMU24 




11676 


49 


10620 


00000 


11030 




OORG 


•-3 




11666 








11040 


0IM2 


AM 


MODAD.2,10 




11466 


11 


07871 


000-2 


11050 




BNR 


DIM3,M0DAD,ll, 


TEST IF OIM VAR MAS PLACEO IN TABLE BY 


11696 


43 


11352 


0787J 


11060 




A 


NXLOC, SMLNG, , 


SUBROUTINE OR FUNCTION STATEMENT 


11506 


21 


02372 


05917 


11070 




TF 


NXLOCt SYM,6 




11520 


26 


0237K 


10059 


11080 




TF 


SMAOOt NXLOCt 6 




115)2 


26 


0719M 


02)72 


11090 




B 


SETDM* 12 




11566 


49 


10692 


00000 


11100 




OORG 


•-3 




11552 








11110 


0IM3 


BTM 


ERROR, 271, 9 




11552 


17 


09330 


00X71 


11120 


ENSION 


OAC 


6, ENSION 




11565 




6 


X 2 






ENSION 












11130 




DECODE COMMON STATEMENTS #••••• 










11140 


COMMfN 


BTM 


C0LNAM,3,10 




11576 


17 


04456 


000- ) 


11130 




C 


SYM, HON* 4 




11568 


24 


10059 


12165 


11160 




BV 


ERROl 




11600 


46 


06262 


01600 


11170 




BNE 


ERROl 




11612 


6? 


04262 


01200 


11160 




TR 


CMI-l,CHI*5 




11626 


31 


19138 


19144 


11190 




TOM 


COHSM.1,11 




1 1436 


15 


10090 


0000J 


11200 




CM 


CHI, 40, 10 




11668 


16 


191)9 


000M0 


11210 




BNH 


COMER 




11660 


47 


09542 


01100 


11220 




CM 


CHI, 69, 10 




11672 


16 


191)9 


00009 


11230 




6H 


COMER 




11666 


66 


09942 


01100 


11260 




BTM 


CSORN, **12 




11696 


1? 


09690 


J1706 


11250 




CM 


CHI, 24, 10 




11706 


16 


131)9 


000X4 


11260 




BE 


COMER 




11720 


66 


09542 


01200 



1*20 FORTRAN 1 1-0 PURSE 1-1 



PACE 29 



1 1270 




80 


COM! N« INSM, t 


■RANCH IP VARIABLE MAS FHIVIuUSlT USED 


11712 


43 


1187* 


03279 


1 1210 




If 


Ullf iil K Ult MAT 

- VARIABLE MAS NUT 


miimim tuiu it mi it t aa ttm at uunii ■ 
DErlRvD TMBNI IF RUSf MB SIMPLE VMIIILI 










1 1290 


COMA 


AM 


kiwi t\r ■ i a 
NXLOC « St 10 




11744 


1 1 


02372 


000~ 3 


1 1)00 




TF 


NXLOC .COMAOD.*. 


MOVE OBJ TIME COMMON A008ESS TO SVM AREA 


11738 


2* 


0237K 


022*2 


1 1 110 




80 


•♦32tPxORPL 




117*8 


43 


11800 


0*409 


1 1320 




S 


C0MADD.FP2. t 


ami i* AMHAy <Miac( c ■ nm vi nit uiiim i 
AOJ CO"»MON ADDRESS FOR FLOAT VARIABLE 


11780 


22 


022*2 


02298 


1 1 330 




8 


•♦20 




1 1782 


49 


11812 


00000 


1 1340 




0086 


•-3 




11800 








1 1330 




S 


COMADDf KLNGt i 


AOJ COMMON ADORE SS FOR FIX VARIABLE 


11800 


22 


022*2 


02292 


11360 


COMAS 


8N8 


•♦20,CMI*2 




11812 


43 


11832 


13141 


11)70 




8 


8EGINA 




1182* 


49 


02*50 


00000 


L1380 




008G 


•-3 




11812 








113*0 




CM 


CHI, 23, 10, 


TEST FOR MORE LIST ELEMENTS 


11812 


14 


13139 


000K1 


11400 




BNE 


COMER 




118** 


47 


09942 


01200 


1 1410 




TR 


CHI-l,CMI*l 




1183* 


31 


13138 


13140 


11420 




8 


COMMEN+72 




118*8 


49 


11*48 


00000 


11430 




DORG 


•-3 




1187* 








11440 




COME HERE IF SIMPLE 












11450 


C0M1N 


BNF 


•♦24, SMCNT, 11 




1187* 


44 


11900 


0724P 


1 1460 




BTM 


ERROR, 373,9, 


VARIABLE MAS PREVIOUSLY PLACED IN COMMON 


11888 


17 


09330 


00L73 


1 1470 




BNF 


•-12,M0DA0,11, 


MAS IT PREVIOUSLY EQUI VALENCEO 


11900 


44 


11888 


0787J 


1 1480 




SF 


SMCNT, ,6. 




11912 


32 


0724P 


00000 


1 1490 


COMINA 


A 


NXLDC , SMLNG 




1192* 


21 


02372 


03917 


1 1300 




TF 


SMADD,NXL0C,6, 


MOVE NEW SYMBOL ADDRESS INTO TABLE 


1193* 


2* 


0719M 


02372 


11510 




TF 


NXLOC , SYM,6 




11948 


2* 


0237R 


10039 


1 1520 




B 


COMA,,, 


BRANCH TO PLACE COMMON AOORfSS IN TABLE 


119*0 


49 


11744 


00000 


1 1530 




OORG 


• -3 




119*8 








L 1540 


•••••• 


RETURN FROM SVM TABLE LOOK UP WHEN V AMI ABLE MAS DIMENSIONED 










11550 


COME 


BNF 


•♦20, SMCNT, 11 




119*8 


44 


11988 


0724P 


1 1560 




B 


C0MIN*12, ,, 


VARIABLE PREVIOUSLY PLACED IN COMMON 


11980 


49 


11888 


00000 


1 1570 




DQRG 


•-3 




11988 








1 1580 




BNF 


COMIN>12,MODA0«ll 


, TEST IF VAR MAS PREVIOUSLY EQUIVALENCED 


11988 


44 


11888 


0787J 


L1590 




SF 


SMCNT,, 6, 




12000 


32 


0724P 


00000 


11600 




SM 


SMCNT, 07, 10 




12012 


12 


07247 


000-7 


11610 


COMC 


BO 


•♦32,FX0RFL 




12024 


43 


12036 


06405 


11620 




TF 


C0MM*U,FP2 ,, 


SET UP TO MULTIPLY NUMBER 


1203* 


2* 


12079 


02298 


1 1630 




B 


COMM 




12048 


49 


12068 


00000 


11640 




OORG 


•-3 




1203* 








1 1650 




TF 


•♦23, KING 




1205* 


26 


12079 


02252 


11660 


COMM 


MM 


SMCNT, ,6, 


GEN. NO. OP LOCATIONS FOR ARRAY 


120*8 


13 


0724P 


00000 


11670 




SF 


95 




12080 


32 


00095 


00000 


11680 




S 


C0MAD0,99, , 


UPOATA COMMOM ADDRESS 


12092 


22 


02262 


00099 


11690 




BN 


C0MER3 




1210* 


47 


12148 


01300 


11700 




TF 


SMCNT,C0MADD,6 




1211* 


2* 


0724P 


02262 


11710 




A 


SMCNT,C0MM*ll,6 




12128 


21 


0724P 


12079 


11720 




B 


COMAB, ,, 


THIS ADDRESS IS THE LOW ORDER DIGIT OF 


12140 


49 


11812 


00000 


11730 




OORG 


•-4,,, 


FIRST ELEMENT. 


12147 








1 1 740 


COMER 3 


BTM 


ERROR, 474,9, 


COMMON EXCEEOS CORE SUE 




17 


09330 


00M74 


11750 


MON 


DAC 
MON 


3, MON 




121*1 




3 


X 2 


11760 


• ••• 


UNIT RECORD FORMAT 


OUTPUT •••• 










11770 


FOMAT 


BO 


•♦32,INSW 




121** 


43 


12198 


03279 


11780 




TOM 


SMADD, 1,6 




12178 


13 


0719M 


00001 


11790 




B 


F0MAT1 




12190 


49 


12230 


00000 


11800 




DORG 


•-3 




12198 








11810 




BO 


F0MAT1, SMADD, 11 




12198 


43 


12230 


0719M 
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11820 




TFM 


SPGS*11,277,9 




12210 


14 


09325 


00K77 


11822 




B 


SPERRM2.,, 


ERROR 27 


12222 


49 


09242 


00000 


11824 




DORG 


•-3 




12230 








11830 


FOMAT I 


TFM 


CSPVA*35,CMI-2 




12230 


16 


03677 


J5137 


11840 




AM 


CSPVA+35,2,10 




12242 


U 


03677 


000-2 


11850 




BNR 


•-12,CSPVA*35,ll, 


SCAN AHEAD FOR RECORD MARK 


1225* 


45 


12242 


0367P 


11860 




BD 


F0RM99,INDIV 




122** 


43 


12370 


02424 


11870 




AM 


CKBM-l,CHI»146,7U 




12278 


11 


02953 


J528N 


11880 




AM 


CKRM-1,2,10 




12290 


11 


02953 


000-2 


11890 




BE 


• ♦44 




12302 


4* 


1234* 


01200 


11900 




TFM 


CSPVA05, 0,610 




12314 


16 


0367P 


000-0 


11910 




AM 


CSPVA+35,2,10 




12 326 


11 


03677 


000-2 


11920 




B 


•-4B 




12318 


49 


12290 


00000 


11930 




DORG 


•-3 




1234* 








11940 




TDM 


FMSWtl 




1234* 


15 


10082 


00001 


11950 




BTM 


CKCNTU.0,10 




12338 


17 


04836 


000-0 


11960 


F0RM99 


TFM 


CSPVA*35, 37,610 




12370 


I* 


0347P 


000L7 


11970 




TR 


CSPVA*35,AV0ID,6 




12382 


31 


03*7P 


0*018 


11980 




TR 


CHI-1.CHIMI 




12194 


31 


15138 


15150 


11990 




CM 


CHI, 0,10 




1240* 


14 


13139 


000-0 


12000 




BNE 


• ♦32 




1241* 


47 


12450 


01200 


12010 




TR 


CHI-ltCHlM 




12410 


31 


15138 


15140 


12020 




8 


•-36 




12442 


49 


12406 


00000 


12030 




OORG 


•-3 




12490 








12040 




CM 


CHI, 24, 10 




12490 


14 


15139 


0OOK4 


12050 




BE 


• ♦24 




124*2 


44 


1248* 


01200 


12060 




BTM 


ERROR, 375,9, 


LEFT PAREN DOES NOT FOLLOW FORMAT 


1247* 


17 


09110 


0OL75 


12070 




BTM 


PUT, 128, 8, FORMAT 


1248* 


17 


0901* 


0-128 


12080 




BTM 


PUT, 124, 8, LEFT 


PAREN 


12498 


17 


0901* 


0-124 


12090 




AM 


PARCNT,l.lO 




12510 


11 


03348 


000- 1 


12100 




TFM 


WIDTH. 87,8, 


INITIALIZE WIDTH CHECK 


12922 


I* 


14241 


0-087 


12110 


F0RM1 


TR 


CHI-1,CHIM 




12914 


11 


15138 


15140 


12120 




CM 


CHI ,0,10 




1294* 


14 


13139 


000-0 


12130 




BE 


•-24 




12998 


4* 


12934 


01200 


12140 




CM 


CHI, 41, 10, 




12970 


14 


19139 


000M1 


12150 




BH 


F0RM2 




12982 


4* 


12974 


01100 


121*0 




BL 


SLASH 




1299* 


47 


12*18 


01100 


12170 




BTM 


PUT, 144, 8, A TYPE 


12*0* 


17 


0903* 


0-144 


12180 




TDM 


IATVPE.l 




12*19 


19 


14177 


00001 


12190 




8 


F0RM3 




12*10 


49 


1104* 


00000 


12200 




DORG 


• -3 




12*18 








12210 


SLASH 


CM 


CHI, 21, 10, 


TEST FOR SLASH 


12*18 


14 


19119 


000K1 


12220 




BE 


F0RM7 




12*90 


4* 


11**2 


01200 


12230 




CM 


CHI, 24, 10 




12**2 


14 


19139 


000R4 


12240 




BE 


F0RM4 




12*7* 


4* 


11899 


01200 


12250 




CM 


CHI, 20, 10. 


TEST FOR SCALE FACTOR 


12*9* 


14 


19119 


OOORO 


122*0 




BE 


F0RMERH2 




12*99 


4* 


1274* 


01200 


12270 




CM 


CHI, 10, 10 




12710 


14 


19119 


OOOJO 


12280 




BE 


•♦24* tt 


INVALID FORMAT SPf CIPICATION 


12721 


4* 


1274* 


01200 


12290 


FORMER 


BTM 


ERROR, 375,9, 




1271* 


17 


09330 


00L75 


12300 




TR 


CHI-l.CHIM 




127** 


11 


19139 


13140 


12310 




CM 


CHI, 0.10 




12799 


14 


19119 


000-0 


12320 




BE 


•-24 




12770 


4* 


1274* 


01200 


123)0 




CM 


CHI, 69, 10, 


SHIFT OF SCALE FACTOR 


12792 


14 


19139 


00009 


12340 




BH 


•-48 




1279* 


** 


1274* 


01100 


12350 




CM 


CHI.S7.10t 


TEST FOR P 


1290* 


1* 


19119 


000N7 
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12 3*0 




BNE 


FORME* 




12*1* 


47 


12734 


01200 


12370 


PTVPE 


TR 


CHI-1.CHIM 




12130 


31 


1513* 


15140 


123*0 




CM 


CHI »0 V 10 




12*42 


14 


151 39 


000" 0 


123*0 




BNE 


PTYPE 




12*54 


47 


12934 


01200 


12400 




8 


•-3* 




12*** 


49 


12830 


00000 


12410 




008 G 


•-3 




12*74 








12420 


F0AM2 


CM 


CHI, 69, 10 




12*7* 


14 


15139 


00009 


12430 




BM 


F0RM8 




12*** 


4* 


13770 


01100 


12440 




CM 


CHI, 49, 10, 


TEST FOR I TYPE 


12*9* 


14 


13139 


000M9 


12450 




BNE 


• ♦44 




12910 


47 


12934 


01200 


124*0 




B7M 


PUT, 149,8.1 


TYPE 


12922 


17 


0903* 


0-149 


12470 




TOM 


IATVPE.l 




12934 


15 


14177 


00001 


124*0 




8 


F0RM3 




1294* 


49 


1 3046 


AAAAA 

oouoo 


12490 




DORG 


•-3 




12954 








12500 


FTVPE 


CM 


CHI, 46, 10, 


TEST FOR F TYPE 


129*4 


14 


13139 


OOON* 


12510 




BNE 


• ♦32 




129** 


47 


1299* 


01200 


12520 




BTM 


PUT, 146, 8, F 


TYPE 


12978 


17 


09036 


0-146 


12530 




B 


F0RM3-12 




12990 


49 


13034 


00000 


12540 




DORG 


•-3 




1299* 








12550 


ETYPE 


CM 


CHI,45,10, 


TEST FOR E TYPE 


12998 


14 


15139 


000M5 


12560 




BNE 


FORMER 




13010 


47 


12734 


01200 


12570 




BTM 


PUT, 145,8. E 


-TYPE 


13022 


17 


09036 


0-145 


12510 




TOM 


I ATVPE ,0 




13034 


15 


14177 


00000 


12590 


FORM 3 


TR 


CHI-l,CHIM 




13046 


31 


15138 


15140 


12600 




CM 


CHI, 0.10 




1305* 


14 


15139 


000-0 


12610 




BE 


• -24 




13070 


46 


13046 


01200 


12*20 




CM 


CHI, 69, 10 




130*2 


14 


13139 


00009 


12630 




BNM 


FORMER 




13094 


47 


12734 


01100 


12640 




TDM 


DIMSM.l,, 


SET SWITCH TO RETURN FROM LSTNO 


1310* 


15 


10084 


00001 


12650 




BTM 


CSTN0,»M2,, 


COLLECT NUMBER 


13118 


17 


05398 


J3130 


12660 




CM 


SYM,0,10 




13130 


14 


10059 


000-0 


12670 




BE 


FORMER 




13142 


46 


12734 


01200 


12680 




BT 


PUT,SVM,, 


OUTPUT M 


13154 


27 


09036 


10059 


12690 




BNE 


•♦60,FREQSM, , 


TEST IF SPEC MAS MULT SPECIFICATION 


1316* 


44 


13226 


14170 


12700 




CF 


FREOSM 




13178 


33 


14170 


00000 


12710 




M 


S YM, SE TFRQ*1 1 




13190 


23 


10059 


14181 


12720 




SF 


96 




13202 


32 


00096 


00000 


12730 




TF 


SYM,99 




13214 


26 


10059 


00099 


12740 




BTM 


WI0CK,0,10 




13226 


17 


14252 


000-0 


12750 




BO 


F0RM5, IATYPE, , 


TEST IF IN I OR A TYPE 


13238 


43 


13414 


14177 


12760 




CM 


CHI, 0,10 




13250 


14 


13139 


000-0 


12770 




BNE 


• ♦32 




13262 


47 


13294 


01200 


12780 




TR 


CHI-l,CHt*l 




13274 


31 


15138 


15140 


12790 




B 


•-36 




13286 


49 


13250 


00000 


12800 




DORG 


•-3 




13294 








12810 




CM 


CHI, 3, 10 




13294 


14 


15139 


000-3 


12820 




BNE 


FORMER 




13306 


47 


12734 


01200 


12830 




BTM 


PUT, 103,8, 




13318 


17 


09036 


0-103 


12840 




TR 


CHI-l.CHIM 




13330 


31 


15138 


15140 


12850 




CM 


CHI .0.10 




13342 


14 


15139 


000-0 


12860 




BE 


•-24 




13354 


46 


13330 


01200 


12870 




CM 


CHI, 69, 10 




13366 


14 


15139 


00009 


12880 




BNM 


FORMER 




13378 


47 


12734 


01100 


12890 




BTM 


CSTN0,»*12 




13390 


17 


05398 


J 3402 


12900 




BT 


PUT,SVM 




13402 


27 


09036 


10059 


12910 


FORMS 


CM 


CHI.O, 10 




13414 


14 


15139 


000-0 



12920 




BNE 


• ♦32 


13426 


47 


13458 


01200 


12930 




TR 


CHI-l.CHUl 


13438 


31 


15138 


15140 


12940 




B 


F0RM5 


13450 


49 


13414 


00000 


12950 




DORG 


•-3 


13458 








12960 


F0RM51 


CM 


CHI, 4, 10, 


13458 


14 


15139 


000-4 


12970 




BNE 


FCMA 


13470 


47 


13594 


01200 


12980 




BTM 


PUT, 104, 8, RIGHT PAREN 


13482 


17 


09036 


0-104 


12990 




TR 


CHI-1,CHI*1 


13494 


31 


15138 


15140 


13000 




SM 


PARCNT,1,10 


13S06 


12 


03348 


000-1 


13010 




BNZ 


FORMS 


13518 


47 


13414 


01200 


13020 




CM 


CHI, 0,10 


13530 


14 


15139 


000-0 


13030 




BE 


• ♦32 


13542 


46 


13574 


01200 


13040 




BNR 


FORMER, CHI+2 


13554 


45 


12734 


15141 


13050 




B 


BEGIN 


13566 


49 


02638 


00000 


13060 




DORG 


•-3 


13574 








13070 




TR 


CHI-l,CHI*l 


13574 


31 


15138 


15140 


13080 




B 


•-56 


13586 


*9 


13530 


00000 


13090 




DORG 


•-3 


13594 








13100 


FCMA 


CM 


CHI, 23,10 


13594 


14 


15139 


00OK3 


13110 




BNE 


• ♦32 


13606 


47 


13638 


01200 


13120 




BTM 


PUT, 123, 8, COMMA 


13618 


17 


09036 


0-123 


13130 




8 


F0RM1 


13630 


49 


12534 


00000 


13140 




DORG 


•-3 


13638 








13150 




CM 


CHI, 21, 10 


13638 


14 


15139 


000K1 


13160 




BNE 


F0RM1O6 


13650 


47 


12570 


01200 


13170 


F0RM7 


BTM 


PUT, 121, 8, DIVIDE 


13662 


17 


09036 


0-121 


13180 




TFM 


WIDTH, 87, 8, 


13674 


16 


14241 


0-087 


13190 




TR 


CHi-i.cnm 


136** 


31 


15138 


15140 


13200 




CM 


CHI, 0,10 


13698 


14 


15139 


000-0 


13210 




BE 


•-24 


13710 


46 


13686 


01200 


13220 




CM 


CHI, 24, 10 


13722 


14 


15139 


000K4 


13230 




BE 


F0RM4 


13734 


46 


13898 


01200 


13240 




CM 


CHI, 69, 10 


13746 


14 


15139 


00009 


13250 




BNH 


F0RMS1 


1375* 


47 


13458 


01100 


13260 


FORMS 


TDM 


OIMSMtl 


13770 


15 


10084 


00001 


13270 




BTM 


CSTN0,»M2 


137*2 


17 


05398 


J3794 


13280 




CM 


CHI, 0,10 


13794 


14 


15139 


000-0 


13290 




BNE 


• ♦32 


13806 


47 


13838 


01200 


13300 




TR 


CHI-ltCHl4l 


13*18 


31 


15138 


15140 


13310 




B 


•-36 


13*30 


49 


13794 


00000 


13320 




DORG 


•-3 


13838 








13330 




CM 


CHI ,57, 10, TEST FOR SCALE FACTOR 


13838 


14 


13139 


00ON7 


13340 




BE 


PTYPE 


13*50 


4* 


12*30 


01200 


13350 




CM 


CHI, 24, 10 


138*2 


14 


15139 


000K4 


133*0 




BNE 


FORMX 


13*7* 


47 


13930 


01200 


13370 




BT 


PUT.SVN 


13684 


27 


0903* 


10059 


133*0 


P0RN4 


AM 


PARC NT, 1,10 


13*9* 


11 


03348 


000-1 


13390 




BTM 


PUT, 124, 8, LEFT PARE N 


13910 


17 


0903* 


0-124 


13400 




8 


POAMl 


13922 


49 


12534 


00000 


13410 




OORG 


•-* 


13930 








13420 


PORMX 


CM 


CHU*7,10, TEST FOR X SPECIFICATION 


139*0 


14 


13139 


00007 


13430 




BNE 


HOLL 


139*2 


47 


1394* 


01200 


13440 




§?* 


SIBCStOrIC 


13994 


17 


14252 


000-0 


13490 




BT 


PUTfSYN 


139** 


27 


0903* 


10059 


134*0 




BTM 


PUT, 147,8.3 TYPE 


1397* 


17 


0903* 


0-147 


13470 




B 


P0RN1424 


13990 


44 


1343* 


00000 
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1 1480 




00R6 


•-1 


1 itftn 


i 


CM 








Vtm 


SETFRQ 


1 1910 








1 1520 




BT 


PUT, $VN 


1 1910 




BTM 


BUT HI 1 U tu|| 

PU1, 149»9»H IYPC 


1 1940 


holl i 


TR 


LHI-1 »CHI ♦! 


1 1990 




BUR 


•♦*0»tnl ♦! 


1 1960 




8 


FORME R 


1 1970 




DORG 


•— 1 


! 




J' 


•*SS»CHI 


1 3990 




CF 


• ♦22 


1 3600 




BTM 


BUT C AIITBliT 

PUT, fttOUI PUT 


1 3610 




SH 


SYM, 1 t 10 


1 1620 




BNZ 


HOLL I 


1 3610 




BNR 




1 3640 




B 


FORMER 


1 1690 




DORG 


•—1 


1 1660 


SE TFRQ 


SF 


FREQSM 


1 16 TO 


FREQSW 


OS 


* SETFRQ 


1 3680 


I ATYPE 


OS 


t # -4 


1 3690 




BT 


PUT, SYM 


1 3700 




TF 


5ETFRQt1 1 1 5YM 


13710 




CM 


CHI t 24, 10* 


1 3720 




BNE 


FORM !♦ 16 


1 3730 




CF 


FREQSM 


I 3740 


WIDTH 


OS 


* • 


I 3790 




B 


F0RM4 


1 3760 




OORG 


1 










13780 


M10CK 


S 


WIOTHt SYM 


13790 




BN 


FORMER 


13800 




BB 




13810 




OORG 


• -9 


13820 




DORG 


16000 


13830 




TFM 


I0RT,»t21 


13840 




B 


I0PT,BLKl t 7 


13890 




TR A 





TCD 16000 



11998 








lift! 


14 


19119 


000M1 


14010 


47 


14170 


01200 


14022 


17 


14292 


000*0 


14014 


27 


09016 


10099 


14044 


17 


09014 


0-141 


14010 


)l 


19111 


19140 


14070 


49 


14090 


19141 


14012 


44 


12714 


00000 


14090 








14040 


24 


14129 


19119 


14102 


11 


14124 


00000 


14114 


I? 


09014 


0-000 


14124 


12 


10099 


000-1 


14111 


47 


14098 


01200 


14110 


49 


11418 


19141 


14142 


49 


12714 


00000 


14170 








14170 


12 


14170 


00000 


14170 




0 




14177 




0 




14182 


27 


09016 


10099 


14194 


26 


14181 


10099 


14204 


14 


19119 


000K4 


14218 


47 


12970 


01200 


14210 


13 


14170 


00000 


14241 




0 




14242 


49 


11898 


00000 


14290 








14291 




2 




14292 


22 


14241 


10099 


14264 


47 


12714 


01100 


14276 


42 


00000 


00000 


14278 








16000 








16000 


16 


00969 


J 6021 


16012 


49 


00912 


-9702 


16024 


16 


00000 


00900 


16016 


49 


00000 


00000 


16000 









13870 


• 


OUT OF CORE BLOCK 2 


CONTAINS THE FOLLOWING 


13880 


• 


EQUIVALENCE 




13890 


• 


SUBROUTINE 




13900 


• 


FUNCTION 




13910 


• 


CONTINUE 




13920 


• 


PAUSE 




13930 


• 


STOP 




13940 


• 


OEFINE 




13990 




OORG I OUT 




13960 




TFM FN0N*35,BLK4» » 


I OUT 


13970 




BTM FMONt I OUT 




13980 




CM CHI. 57, 10. 


CHECK FOR P IN If OR 


13990 




B NNARAA 




14000 




TFM FM0N+35.6LK1,, 


OIM 


14010 




BTM FMON, DIN 





10200 








10200 


16 


02159 


-9771 


10212 


IT 


02124 


J0200 


10224 


14 


19139 


OOON7 


10216 


49 


10912 


00000 


10248 


16 


02399 


-9702 


10260 


17 


02324 


J0248 
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14020 




TFM 


FM0N+15.BLKI,, 


COMMON 


10272 


16 


02159 


-9702 


14030 




BTM 


FMON. COMMON 




10284 


17 


02124 


J0272 


14040 




TFM 


FM0N*15.BLK6f * 


IF 


10296 


16 


02359 


-9817 


14050 




BTM 


FMON* I F 




10108 


17 


02124 


J0296 


14060 




TFM 


FM0N+35.BLK6*. 


GOTO 


10120 


16 


02359 


-9817 


14070 




BTM 


FMON, GOTO 




10112 


17 


02324 


J0120 


14080 




TFM 


FM0N+35.BLK6,, 


CALL 


10144 


16 


02359 


-9817 


14090 




BTM 


FMON, CALL 




10156 


17 


02324 


J0144 


14100 




TFM 


FM0N+35,6LK6,, 


RETURN 


10168 


16 


02359 


-9617 


14110 




BTM 


FMQN.RETURN 




10180 


17 


02324 


J0168 


14120 




TFM 


FM0N*35,BLKl,, 


FORMAT 


10192 


16 


02359 


-9702 


14130 




BTM 


FMON, FORMAT 




10404 


17 


02324 


J0392 


14140 




TFM 


FM0NO5.6LK4,, 


000 


10416 


16 


02359 


-9771 


14150 




BTM 


FMON.DOO 




10428 


17 


02324 


J0416 


14160 




TFM 


FMON* 3 5 , BLK3 , * 


ASCAN 


10440 


16 


02359 


-9746 


14170 




BTM 


FMON, ASCAN 




10452 


17 


02324 


J0440 


14180 




TFM 


FM0N*35,8LK3,, 


OUTSC 


10464 


16 


02359 


-9748 


14190 




BTM 


FMON.OUTSC 




10476 


17 


02324 


J0464 


14200 




TFM 


FMON*35,BLK5,, 


OKIO 


10488 


16 


02359 


-9794 


14210 




BTM 


FMON.OKIO 




10900 


17 


02124 


J 0488 


14220 


NNARAA 


BE 


STOPEN 




10912 


46 


11956 


01200 


14230 




BTM 


COLNAM.2,10 




10924 


17 


04654 


000-2 


14240 




CM 


SYM, 6245, 8 




10916 


14 


10059 


00249 


14250 




BV 


ERROl 




10948 


44 


04282 


01400 


14260 




BE 


PAUSEN 




10960 


44 


11790 


01200 


14270 




BTM 


C0LNAM*5,10 




10972 


17 


04656 


000-5 


14280 




C 


SYM, TINUEtB 




10984 


24 


10059 


11789 


14290 




BV 


ERROl 




10996 


46 


04262 


01400 


14300 




BE 


CONTEN 




10608 


46 


11724 


01200 


14310 




C 


SYM,CTI0N*8 




10620 


24 


10059 


11721 


14120 




BE 


FUNCTA 




10412 


46 


11656 


01200 


14310 




BTM 


C0LNAM,7,10 




10644 


17 


04656 


000-7 


14340 




C 


SVM,R0UTN*12 




10696 


24 


10059 


11657 


14190 




BV 


ERROl 




10641 


46 


04282 


01400 


14160 




BE 


SUBPA 




10410 


44 


11124 


01200 


14370 




C 


SYM,DEFCT*12 




10492 


24 


10059 


14419 


14380 




BE 


OEFINE 




10704 


44 


11990 


01200 


14390 


•••••• 


ENTER TO DECOMPOSE 












14400 


EQUIVN 


BTM 


COLNAM.8,10 




10714 


17 


04696 


000-8 


14410 




C 


SYM,IVALEN*14 




10721 


24 


10099 


11121 


14420 




BV 


ERROl 




10740 


44 


04282 


01400 


14410 




BNE 


ERROl 




10792 


47 


04282 


01200 


14440 




TR 


CHI-1,CHIt15 




40764 


11 


19116 


15154 


14450 




CF 


STSN 




10776 


11 


09427 


00000 


14460 


EQR 


TDM 


EQUSM,1,U, 


SIT SNITCH 1 NO I CAT IMG EOUIV STATEMENT 


10711 


19 


10086 


OOOOJ 


14470 




TOM 


PR... 


INITIALIZE PR 


10800 


19 


12981 


00000 


14480 




OC 


l»»t« 




101 a 




1 




14490 




• 

CM 


CHI, 24, 10 




10112 


14 


19119 


0OOK4 


14500 




BE 


• ♦24, 




10124 


44 


10846 


01200 


14510 




BTM 


ERROR, 72,9, 




10814 


17 


09110 


00-72 


14920 




TFM 


SCHI,CHI 




10141 


14 


04001 


J9119 


14910 


EQ1 


AM 


SCHI,2,10 




10140 


11 


04001 


000-2 


14940 


CM 


SCHI ,40,610 




10172 


14 


0600J 


OOOMO 
01100 


14990 




BH 


• ♦24 




10114 


44 


10908 


14960 




BTM 


ERROR, 170,9, 


INVALID VAR 


10194 


17 


04110 


00J70 
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14370 




CM 


SCHI ,49,410 




10 tot 


14 


0600J 


00009 


14990 




BM 


•-24 




10920 


44 


10894 


01 100 


14990 




BTM 


CS0RNt**l2». 


60 TO COLLECT NAMC 


10932 


17 


09490 


J0944 


14400 




80 


•♦32.INSM., 


TIST IP SVM PREVIOUSLY Of FINED 


10949 


43 


10974 


03279 


14410 


€832 30 


AM 


NXLOC, 9,10, 


IF SVM NOT PRBV DEFINED, SAVE ROOM FOR 


10994 


11 


02372 


000-3 


14420 




8 


EQ21 f tt 


OFFSET VALUE 


10949 


49 


11074 


00000 


144)0 




DOUG 


•-3 




10974 








14440 




80 


E02l» SMCNTt lit 


TEST FOR DIM VAR 


10914 


43 


11079 


0724P 


14490 




BNF 


EQ21 tMOOAOtUt 


TEST IF SVM MAS PREVIOUSLY EOUIV 


10988 


44 


1 1074 


0787J 


14440 




BNF 


•♦20 » SMCNTt lit 


TEST IP VAR MAS IN COMMON 


11000 


44 


11020 


0724P 


14470 




8 


EQ21 




11012 


49 


11074 


00000 


144S0 




DORG 


•-3 




11020 








14490 




A 


NXLOC t SMLNG 




11020 


21 


02372 


09917 


14700 




TF 


NXLOC, SVM, 6, 


MOVE SVM NAME INTO TABLE 


11032 


24 


0237K 


10099 


14710 




TF 


SMAODt NXLOC t6t 


MOVE NEW SVM AOO INTO TABLE 


11044 


24 


0719M 


02972 


14720 




8 


E83230 




11094 


49 


10996 


00000 


14730 




DORG 


•-3 




11044 








14740 




BTM 


ERROR. 171.9. 


INVALID NAME USEO IN FUNCTION 


11044 


17 


09330 


00J71 


14750 


EQ21 


BO 


•- 12.FNTSW. . 


TEST FOR FUNCTION NAME IN EQUIVALENCE 


11074 


43 


11064 


10080 


14760 




AN 


SMCNT.1,10 




11088 


11 


07247 


000- 1 


14770 




BNR 


•♦20,SMCNT,11, 


TEST FOR DUMMY PARAMETERS OF SUBPROGRAM 


11 100 


45 


11120 


0724P 


14780 




B 


EQ21-12 




11112 


49 


11064 


00000 


14790 




DORG 


•-3 




11120 








14792 




.AM 


SMCNT.0l.10 




11120 


1 1 


07247 


000-1 


14794 




BNR 


• ♦20,SMCNT,U, 


TEST FOR SUBPROGRAM NAME IN SUBPROGRAM 


11132 


45 


11152 


0724P 


14796 




B 


EQ21-12 




11144 


49 


11064 


00000 


14798 




DORG 


•-3 




11152 








14800 




SM 


SMCNT.02.10 




11152 


12 


07247 


000-2 


14810 




BNR 


•♦20, PA.. 


TEST FOR FIRST NAME ON LIST 


11164 


43 


11184 


12981 


14820 




B 


EOT 




11176 


49 


11756 


00000 


14830 




DORG 


•-3 




11184 








14840 




C 


MODE .FXORFL. . 


TEST FOR MIXED EQUIV 


11184 


24 


06403 


06405 


14850 




BE 


• ♦48 




11196 


44 


11244 


01200 


14860 




C 


FP2.KLNG,. 


TEST FOR K EQUAL TO f*2 IN MIXEO EQUIV 


11208 


24 


02298 


02252 


14870 




BE 


• ♦24 




11220 


46 


11244 


01200 


14880 




BTM 


ERROR, 172, 9, 




11232 


17 


09330 


00J72 


14890 




BNF 


EQ22.M0DA0,11. 


TEST IF SVM HAO BEEN PREVIOUSLY EQUIV 


11244 


44 


12204 


0787J 


14900 




BNF 


•♦56,SMCNT,ll, 


BRANCH IF SYM IS NOT IN COMMON 


11254 


44 


11312 


0724P 


14910 




BNF 


•♦24, PR., 


TEST IF PREVIOUS SYM MAS IN COMMON 


11248 


44 


11292 


12581 


14920 




BTM 


ERROR, 173.9, 


ILLEGAL EQUIVALENCE 


11280 


17 


09330 


00J73 


14930 




BNF 


•-12.PR-1,, 


TEST IF PREV SVM HAS EQUIV 


11292 


44 


11280 


12580 


14940 




B 


EQ7 




11304 


49 


11756 


00000 


14950 




DORG 


— 3 




11312 








14960 


EQ24 


BNF 


EQ4.DMVAR,, 


TEST FOR DIM VAR. BRANCH IF NOT 


11312 


44 


11700 


08076 


14970 




CM 


SCHI ,24,610 




11324 


14 


0600J 


000K4 


14980 




BNE 


EQBR*8 




11334 


47 


11596 


01200 


14990 




AM 


SCHI ,2,10 




11348 


11 


06001 


000-2 


15000 




TFM 


EQBR+6 ,EQBR*20 




11340 


16 


11594 


J1608 


15010 




CM 


SCHI, 69, 610 




11372 


14 


0600J 


00009 


15020 




BH 


• ♦24 




11384 


46 


11408 


ouoo 


15030 




BTM 


ERROR, 75,9, 


INCORRECT SUBSCRIPTING 


11394 


17 


09330 


00-75 


15040 




TFM 


SYN-3,0,7 




11408 


16 


10056 


—0000 


15050 




TFM 


•♦30.SVM-4 




11420 


16 


11450 


J0055 


15060 




AM 


•♦18,1,10 




11432 


11 


11450 


000- 1 


15070 


EQ23 


TO 


» SCHI ,11, 


COLLECT INOEX 


11444 


25 


00000 


0600J 


15080 




AM 


SCHI ,2,10 




11454 


It 


06001 


000-2 
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15090 




CM 


SCHI .69,610 








11468 


14 


0600J 


00009 


15100 




BNH 


• ♦48 








11480 


47 


11528 


01100 


15110 




CM 


EQ23^6,SYM 








11492 


14 


11450 


J0099 


15120 




BNE 


E023-12 








11904 


47 


11432 


01200 


15130 




BTM 


ERROR, 75,9 








11516 


17 


09330 


00-75 


15140 




TF 


SVM,EQ23^6,ll, 








11528 


26 


10059 


1145- 


15150 




SF 


SYM-4 








11540 


32 


10055 


00000 


15160 


SAVEl 


DS 


, • 








11551 




0 




15170 




CM 


SCHI ,4,610, 


TEST FOR RIGHT PAREN 






11552 


14 


0600J 


000-4 


15180 




BNE 


•-48 








11564 


*7 


11516 


01200 


15190 




AM 


SCHI ,2,10 








11576 


11 


06001 


000-2 


15200 


EQBR 


B 


•♦20 








11588 


49 


11608 


00000 


15210 




DORG 


•-3 








11596 








15220 




TFM 


SVM,1, 








11596 


16 


10059 


-0001 


15230 




BD 


EQ4.FR,, 


TEST IF PREVIOUS SVM HAS 


OIM 


VAR 


11608 


43 


11700 


12581 


15240 




BNF 


•♦20, PR 








11620 


44 


11640 


12581 


15250 




B 


EQ4 








11632 


49 


11700 


00000 


15260 




DORG 


•-3 








11640 








15270 




BNF 


EQ4.PR-1,, 


TEST IF PREVIOUS SVM HAS 


EQUIV 


11640 


44 


11700 


12580 


15280 




TF 


REF.SMAOD. 








11652 


26 


06987 


07194 


15290 




TD 


PR.SMCNT,11, 








11664 


25 


12561 


0724P 


15300 




TO 


PR-l,MODAO.ll, 


SAVE INDICATORS 






11676 


25 


12580 


0787J 


15310 




TF 


TEMP, SVM,, 


SAVE OFFSET 






11688 


26 


04161 


10059 


15320 


EQ4 


CM 


SCHI, 4, 610, 








11700 


14 


0600J 


000-4 


15330 




BE 


EQLOOP,,, 


END OF LIST 






11712 


46 


12236 


01200 


15340 




CM 


SCHI ,23,610 








11724 


14 


0600J 


000K3 


15350 




BE 


EQl 








11736 


44 


10860 


01200 


15360 




B 


EQl-24 








11748 


49 


10836 


00000 


15370 




DORG 


•-3 








11754 








15380 


E07 


TO 


MODE, MOOAD, 11, 


SET FIX OR FLOAT 






11794 


25 


06403 


07B7J 


15390 




CF 


MODE 








11768 


33 


06403 


00000 


15400 


SAVE 3 


DS 


• • 








11779 




0 




15410 




TF 


REF.SMAOD. 








11790 


26 


08987 


07194 


15420 




TD 


PR-l.MOOAO.ll 








11792 


29 


12380 


07B7J 


15430 




TO 


PR.SMCNT.ll 


TEST FOR DIM VAR 






11804 


25 


12981 


0724P 


15440 




BO 


•♦32 .PR,, 






11816 


4) 


11848 


12581 


15450 




TFM 


TEMP.l 








11828 


14 


04161 


-0001 


15460 




B 


E 841 30 








11840 


49 


11940 


00000 


15470 




DORG 


•-3 








11648 








15480 




CM 


SCHI, 24, 610 








11848 


14 


0600J 


000K4 


15490 




BNE 


•-32 








11840 


47 


11828 


01200 


15500 




AM 


SCHI, 2,10 








11872 


11 


06001 


000-2 


15510 




CM 


SCHI, 69,610 








11984 


14 


0600J 


00009 


15520 




BNH 


EQ23-48 








11894 


47 


11396 


01100 


15530 




TFM 


EQBR^4,^20 








11908 


14 


11994 


J 1928 


15540 




B 


EQ23-34.,, 


GO TO COLLECT SUBSCRIPTING 




11920 


49 


11408 


ooooo 


15530 




DORG 


•-3 








11928 








19560 




TF 


TEMP, SVM 








11929 


24 


04161 


10059 


15570 


E84130 


BNF 


•♦20.M00A0.il, 


TEST IF VAR PREVIOUSLY EQUIVALENCED 


11940 


44 


11940 


0787J 


15990 




B 


EQ4 








11992 


49 


11700 


OOOOO 


19990 




DORG 


•-3 








11940 








19400 




TP 


•♦30.SMCNT 








11940 


24 


11990 


07247 


19410 




AM 


•♦ia 5 * 5 ie 








11972 


11 


11990 


000-3 


19420 


E84180 


CM 


#0,9, 


TEST IF PREVIOUSLY EQUIV 


SVN 


MAS A BASE 


11994 


14 


00000 


00-00 


15430 




BE 


EQ4 








11994 


44 


11700 


01200 


15440 




BO 


F 84 330, SMC NT, 11, 


TEST FOB DIM VAR 






1 2009 


49 


12140 


0724P 
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19690 




TP 


•♦13t SHADD. 11 




13*40 




AM 


•♦23,9, 10 




19470 




A 


TEMFt » • 


1 14 tO 


194240 


TF 


AOSAVf , ST9L 


* i nat* iMiitt M lit! 


19490 




S 


AKf AUC t f lAltAii 

ADSAVE-l t!94190**i 


13700 




AN 


ADSAVE-l * 1, 10 




15710 




TF 


REP * ADSAVE 




15720 




SM 


AOSAVf #04# 10 




15730 




TO 


PR-1 » AOSAVf » lit 


( Aya SIM fli fli AA* 

I A VI F|l OR FLOAT 


15740 




AM 


AOSAVf, 1, 10 




15750 




TO 


FR (AOSAVf tilt 


SAVf 01 N INDICATOR 


15740 




9 


E04 




15770 




009 G 






15790 


E44330 


SM 


SMAOOt 03, 10 




15790 




TF 


•♦23, SMADD 




15900 




A 


TEMFi 1 1 


6IN NEW OFFSET 


15910 




9 


E 94240 




15420 




D09G 


•-3 




15930 


EQ22 


BNF 


EQ24-32.PR-1* » 


m ^± m m m m m m *k m m 0k mm v r% 1*1111 tc ■** u 

ENTER FROM E919O0, 9R TO 9RROR IF "REV 


15940 




BNF 


EQ7,PR, , 


*yM u»« m Al If If 11 (U#ln M t ft* i* ft MM AM 

iYM HA» f tjUI VALENvIB UH In buMHUtT 


13950 




B 


EQ24-32 




15940 




OORG 


•-3 




15970 


EQtOOP 


TFM 


SCHI tCHI v * 


ENTER MIRI AFTER EOUIV STATEMENT HAS 


15990 




TF 


E6ASE t STBL 




15990 




S 


EBASEtREF 




15900 




AM 


EBASE-l.1.10 




15910 




SF 


E8ASE-3 




15920 


EBASE 


OS 


»• 




15930 




AM 


SCHI»2tl0t 


9EEN SCANNED ONCE TO OETERMINE BASE 


15940 




BTM 


CS0AN.»M2. 




15950 




BNF 


E94804tM0DA0tllt 


IF SYM WAS F9SV EOUIV IT MUST 9E THE 


15940 




C 


SMADOtREF » t 


BASE OF THE PRESENT EOUIV 


15970 




BE 


E 84495 




15990 




BO 


E84560tSMCNTtllt 


TEST FOR 01 M VAR 


15990 




TF 


AOSAVE t SMAOOt lit 




16000 




AM 


ADSAVE»5, 10t 




14010 




TFM 


AOSAVE t 1*671 It 




16020 




A 


AOSAVE t TEMP 1 4 t 


PLACE OFF SET INTO TABLE 


16030 




AM 


SMAOO.5,10 




16040 




TF 


SMAOOtEBASE-1 t6 




16050 




BNF 


E847l0tPR 




16060 




SF 


SMCNTt t6 




16070 




B 


E 84710 




16090 




DOUG 


•-3 




16090 


E84560 


CM 


SCHIt24«610 




16100 




BE 


• ♦32 




16110 




TFM 


SYM, I, 711 




16120 




B 


• ♦52 




161 30 




OORG 


• -3 




16140 




AM 


SCHI, 2*10 




16150 




TFM 


EQBFU6 V *^20 




16160 




B 


EQ23-36 




16170 




OORG 


• -3 




16180 




SF 


SYM 




16190 




A 


SYM, TEMP* * 


GEN OFFSET 


16200 




SM 


SMA00»05*10 





12020 


24 


12055 


0719M 


120)2 


1 1 


12099 


000*9 


12044 


21 


04141 


00000 


12094 


24 


00471 


02377 


12040 


22 


04470 


1199- 


12000 


II 


04470 


000*1 


12092 


24 


04997 


09471 


12104 


12 


09471 


000-4 


121 14 


2§ 


12990 


0947J 


12120 


1 1 


09471 


000-1 


12140 


2§ 


12941 


0447J 


12 192' 


44 


1 1700 


00000 


12140 










1 2 


07194 


000-5 


12172 


24 


12199 


07194 


12144 


2 1 




uuww 


12 194 




12054 




12204 








12204 


44 


1 1290 


12590 


12214 




1 1756 


12591 


12224 


49 


1 1280 


00000 


12234 








12234 


1 4 


04001 


J5139 


12244 


26 


12295 


02377 


12260 


22 


12295 


09997 


12272 


1 1 


12294 


000-1 


12294 


32 


12292 


00000 


12299 








12294 


1 1 


06001 


000-2 


}???!! 


1 7 




J2320 




44 


1 3029 


0797J 


12332 






09997 


12344 


44 


12614 


01200 


12354 


43 


12472 


0724P 


12344 


24 


09471 


0719M 


12990 


1 1 


09471 


000-5 


12392 




0947J 


— OOOJ 


1 2404 


2 1 


0847 J 


04161 


12414 


1 1 


07194 


000—5 


12429 






12294 


12440 


44 


12856 


12541 


1 


32 


0724P 






49 


12856 


nnnnn 


, f Tif 












0600J 








1 nni« 


ni >nn 


12494 


16 


1 it!! 


-OOOJ 


12909 


49 




uuuuu 


12914 








12516 


11 


06001 


000-2 


12529 


16 


11594 


J2548 


12540 


49 


11408 


00000 


12549 








12944 


32 


10059 


00000 


12540 


21 


10059 


04161 


12572 


12 


07194 


000-5 



41 1 
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16210 


PR 


OS 


♦ •-2 


16220 




TF 


SMADD* SYM»6» 


16230 




AM 


SMA00,10,10 


16240 




B 


E84560-44 


16250 




OORG 


• -3 


16260 


E84695 


BNF 


•♦20, SMCNT, 11 


16270 




B 


HERE 


16280 




OORG 


•-3 


16290 




BO 


HERE * SMCNT * 1 1 


16300 




TF 


AOSAVE, SMAOD.il 


16310 




AM 


AOSAVE, 5, 10 


16320 




TF 


ADSAVE » TEMP, 6 


16330 




B 


E84710-36 


16340 




DOR G 


•-3 


16350 


MERE 


CM 


SCHI, 24,610 


16360 




BNE 


• ♦60 


16370 




AM 


SCHI, 2, 10 


16380 




CM 


SCHI, 4, 610 


16390 




BNE 


•-24 


16400 




AM 


SCHI, 2, 10 


16410 




BNF 


•♦20, SMCNT, 11 


16420 




B 


E84710-34 


16430 




OORG 


•-3 


14440 




SM 


SMAOD.5,10 


14450 




TF 


SMAOOt TEMP, 6 


16460 




AM 


SMADOtS.lO 


16470 




AM 


SMAOD.5,10 


16480 




TFM 


SMADD, 0,69 


16490 




SM 


SMAOOt St 10 


14500 


EB4710 


CF 


MOO AO,, 6, 


14510 


SAVE2 


DS 




16520 




CM 


SCHI, 4, 410 


16530 




BNE 


E0LOOP^60 


16540 




AM 


SCHI ,2,10 


16550 




CM 


SCHI ,23,610 


16560 




BNE 


• ♦56 


16570 




TF 


•♦33, SCHI 


16580 




AM 


•♦23.1,10 


16590 




TR 


CHt-l 


16600 




B 


EOR 


16610 




OORG 


•-3 


16620 




TF 


•♦33, SCHI 


16630 




AM 


•♦23.2tl0 


14640 




BNR 


• ♦20 


16650 




9 


8E6INA 


14660 




OORG 


•-3 


16470 




9TM 


ERROR. 72,9, 


14440 


E64804 


CM 


SCHI ,24,410 


14690 




9NE 


E44710 


16700 




AM 


SCHI, 2, 10 


16710 




CM 


SCHI .4,410 


16720 




BNE 


•-24 


14730 




AN 


SCHI .2. 10 


14740 




B 


E44710 


14730 




OORG 


•-3 


14740 


I VALEN 


OAC 


9. I VALENCE 






I VALENCE 



MOVE OFFSET INTO TABLE 



CLEAR FLAG INDICATING EOUIV VAR I AOL E 



12591 




0 




12594 


24 


0719M 


10059 


12594 


11 


07194 


OOOJO 


12609 


49 


12428 


00000 


12616 








12616 


44 


12636 


0724P 


12629 


49 


12692 


00000 


12636 








12636 


43 


12692 


0724P 


12644 


26 


08471 


0719M 


12460 


11 


09471 


000-5 


12472 


26 


0947J 


04161 


12494 


49 


12820 


00000 


12692 








12692 


14 


0600J 


000K4 


12704 


47 


12764 


01200 


12714 


11 


06001 


000-2 


12729 


14 


0600J 


000-4 


12740 


47 


12716 


01200 


12792 


11 


06001 


000-2 


12764 


44 


12784 


0724P 


12774 


44 


12820 


00000 


12794 








12794 


12 


07194 


000-5 


12796 


24 


0719M 


04161 


12909 


11 


07194 


000-5 


12920 


11 


07194 


000-5 


12932 


16 


0719M 


00-00 


12444 


12 


07194 


000-5 


12494 


33 


0787J 


00000 


12947 




0 




12449 


14 


0600J 


000-4 


12990 


47 


12296 


01200 


12992 


11 


06001 


000-2 


12904 


14 


0600J 


000K3 


12914 


47 


12972 


01200 


12929 


24 


12963 


04001 


12940 


11 


12963 


000-1 


12992 


31 


19139 


00000 


12944 


49 


10799 


00000 


12972 








12972 


24 


11007 


04001 


12994 


11 


11007 


000-2 


12994 


49 


11016 


00000 


11009 


49 


02650 


00000 


11014 








11014 


IT 


09130 


00-72 


11029 


14 


0600 J 


000R4 


11040 


47 


12994 


01200 


11092 


11 


04001 


000-2 


11044 


14 


0400J 


000-4 


11074 


47 


11092 


01200 


11000 


11 


04001 


000-2 


11100 


49 


12454 


00000 


11100 








11109 




9 


X 2 



412 
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1*770 OUTPUT SU6A0UT|*f DECLARATION STATEMENT ••••• 



14710 


SUBPA 


TFN 


SU860T* 11*01 If .6 


18126 


14 


11291 


0-1)5 


U7t0 




TR 


CHI-WCMI419 


13134 


21 


IfUO 


19192 


14100 




BO 


• ♦34.SU6FCT 


11146 


41 


11104 


02299 


uaio 




70* 


SU6PCT,l 


11140 


If 


02202 


00001 


16120 




80 


•♦24,ST$N 


1)172 


41 


12106 


09427 


14130 




BTM 


ERROR, 370.4 


13166 


I? 


00210 


00L70 


16140 




BNF 


•-12.STSN 


11196 


44 


11164 


09427 


14650 


SUBPF 


TOM 


SU0SM.1 


11200 


If 


10002 


ooooi 


14460 




CM 


CHl,40,10 


11220 


14 


IfUO 


OOOMO 


16870 




BM 


• ♦24 


11222 


44 


11206 


01100 


16680 


SUBPi 


BTM 


ERROR, 270, 9, SUB DECLARATION ERROR 


12266 


4? 


00210 


Q0K70 


168*0 




CM 


CHI, 69, 10 


1128* 


14 


10119 


00009 


16900 




BM 


•-24 


11260 


44 


11264 


01100 


16610 


SUBPUT 


BTM 


PUT, 0133. 8t OUTPUT SUBROUTINE SVHOOL 


12200 


17 


09034 


0-1)9 


16920 




SF 


OUTSM 


11292 


12 


07020 


00000 


16930 




BTM 


CS0RN,»*12 


12106 


17 


00690 


J3314 


16940 




AM 


SMA00,04,10 


11116 


11 


07194 


000-4 


16950 




TOM 


SMA00,,6 


11128 


15 


0719M 


00000 


16940 




DC 
• 


!,••• 


13239 




1 




14970 




TF 


SAVSYM.SYM 


13340 


26 


02243 


10059 


16980 




8MB 


•♦36, CH}** 


13352 


45 


13)68 


15141 


16990 




BNF 


BEGIN, SUBFCT 


13344 


44 


02638 


02293 


17000 




BTM 


ERROR, 371 ,9 


13374 


17 


09330 


00L71 


17010 




CM 


CHI, 24, 10 


13366 


14 


15139 


000K4 


17020 




BE 


• ♦24 


13400 


46 


13424 


01200 


17030 




BTM 


ERROR ,371,9 


13412 


17 


09330 


00L71 


17040 




BTM 


PUT, 124»6.LEFT PAREN 


11424 


17 


09034 


0-124 


17050 




TR 


CHI-1,CH|*1 


13434 


31 


15138 


15140 


17040 


SUBP2 


CM 


CHI, 40, 10 


13448 


14 


15139 


OOOMO 


17070 




BNM 


SUBP2-36 


13460 


47 


13412 


01100 


17080 




CM 


CHI ,69,10 


13472 


14 


15139 


00009 








iUBrf- Jo» i t Tell run XTNBUt.IL MRuU^neNT, 










17100 




SF 


OUTSH, 


13496 


32 


07020 


00000 


17110 




BTM 


CS0RN,»M2,. OUTPUT ARGUEMENT 


13506 


17 


09690 


J3520 


17120 




BD 


SUBP2-36,INS*<,, ERROR IF ARGUEMENT MAS IN 


13520 


43 


13412 


03279 


17130 




AM 


SMAOO,3,10 


13332 


11 


07194 


000-3 


17140 




TDM 


SMAOO.,6 


13544 


If 


0719M 


00000 


17150 




DC 
• 


I , ' , • 


13555 




1 




17160 




CM 


CHI, 23, 10 


13556 


14 


15139 


000K3 


17170 




RNF. 


• ♦32 


13546 


AT 


13600 


01200 


17180 




BTM 


PUT, 12 3,8, COMMA 


13560 


17 


09036 


0-123 


17190 




B 


SUBP2-12 


13592 


49 


13436 


ooooo 


17200 




DORG 


• -3 


13600 








17210 




CM 


CHI, 4, 10 


13600 


14 


15139 


000-4 


17220 




BNF. 


SUBP2-34 


13612 


47 


13412 


01200 


17230 




BTM 


PUT, 104, 6, RIGHT PAREN 


13624 


17 


09034 


0-104 


17240 




B 


BEGIN 


13436 


49 


02638 


OOOOO 


17250 




DORG 


•-3 


13644 








17260 


ROUTN 


DAC 


7, ROUTINE 


13645 




7 


X 2 






ROUTINE 










17270 




OUTPUT FUNCTION DECLARATION STATEMENTS •••••• 










17280 


FUNCTA 


TR 


CHI-1,CHI*9 


13656 


31 


151 38 


15148 


17290 




TFM 


SUBPUTM1, 136,8 


13670 


14 


13291 


0-136 
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17300 




BD 


SUBPF-24,5MBFCT 
SUBFCT, 1,1 1 


13662 


A3 


13184 


02293 


17310 




TDM 


13694 


15 


02293 


OOOOJ 


17320 




B 


SUBPF-36 


13706 


49 


13172 


OOOOO 


17330 




DORG 


• -3 


13714 






17340 


CTION 


DAC 


5.CTI0N 


13715 




5 


X 2 






CTION 










17350 




OUTPUT CONTINUE STATEMENT 










17360 


CONTEN 


BO 


•♦24,N0IND 


13724 


43 


13748 


03243 


173 70 




BTM 


ERR0R2,574,9, UNNUMBERED CONTINUE STATEMENT 


13734 


17 


09486 


00N74 


17380 




BTM 


PUT, 127, 6, CONTINUE 


13746 


17 


09036 


0-127 


17390 




BTM 


PUT, 140, 8, DUMMY 


13760 


17 


09036 


0-140 


17400 




B 


BEGIN 


13772 


49 


02638 


. OOOOO 


17410 




DORG 


•-3 


13780 








17420 


TINUE 


DAC 


5, TINUE 


13781 




5 


X 2 






TINUE 










17430 


• ••• 


OUTPUT PAUSE STATEMENT •••• 










17440 


PAUSEN 


TR 


CHI- 1, CHI +3 


13790 


31 


15138 


15142 


17450 




BTM 


PUT, 126, 8. PAUSE 


13802 


17 


09036 


0-126 


17460 




BTM 


PUT, 140, 8, DUMMY 


13814 


17 


09036 


0-140 


17470 




BNR 


• ♦20.CMU2 


13826 


45 


13844 


15141 


17480 




B 


BEGIN 


13838 


49 


02638 


OOOOO 


17490 




DORG 


•-3 


13646 








17500 


PAUS 


CM 


CHI , 69, 10 


13844 


14 


13139 


00009 


17510 




BH 


• ♦32 


13856 


44 


13890 


ouoo 


17520 




BTM 


ERR0R2.573.9, CHARACTER AFTER PAUSE NOT NUMERIC 


13870 


17 


09486 


00N73 


17530 




B 


BEGIN 


15662 


49 


02638 


OOOOO 


17540 




DORG 


•-) 


13690 








17550 




BTM 


PUT, 140, 8, DUMMY 


13690 


17 


09036 


0-140 


17560 




TO 


•♦23, CHI 


13002 


25 


13625 


15139 


17570 




BTM 


PUT, 0,8 


13914 


17 


09036 


0-000 


17580 




TR 


CH!-l,CMin 


11924 


31 


15138 


15140 


17590 




BNR 


•-36,CHI^2 


13936 


45 


13902 


15141 


17600 




8 


BEGIN 


13950 


44 


02638 


ooooo 


17610 




DORG 


•-3 


13956 








17620 


• ••• 


OUTPUT STOP STATE MINT •••• 










17630 


STOPEN 


TR 


CHI-l,CMl*t 


13950 


31 


15138 


15140 


17640 




BTM 


PUT, l25t6>STQP 


13970 


17 


09036 


0-125 


17450 




R 


PAUSEN»24 


13962 


49 


13814 


ooooo 


17460 




DORG 


•-4 


13969 








17470 


DEFINE 


TR 


CHI-1,CHU13 M SMIPT OFF INEOISK 


13990 


31 


15136 


15152 


17460 




CF 


STSN 


14002 


33 


05627 


ooooo 


17690 




BO 


ERR40M2.SU8FCT 


14014 


43 


144)2 


02243 


17700 




80 


E«660*l2.PHIt0ff 


14026 


43 


14432 


02264 


17710 




TOM 


MULDEF, 1 


14038 


19 


02204 


00001 


17720 




CM 


CHI, 24, 10, CHECK POP LEFT PAREN 


14090 


14 


15199 


000R4 


17730 




BNE 


ERR44 


16042 


47 


14420 


01200 


17740 




TR 


CHI-l.CHUU, OHIPT OFF LIFT PAREN 


14074 


11 


19190 


19140 


17790 




CM 


CHI, 69,10 


14004 


14 


19190 


OOOOO 


17740 




BNM 


E 01144 


14000 


47 


14420 


01100 


17770 




BTM 


CLDCT.03,10, COLLECT Ml 


14110 


17 


14470 


000-9 


17760 




SF 


SYM-1 


14122 


12 


10098 


OOOOO 
OOOOO 


17790 




CM 


SYJ9,90,10 


14124 


14 


10099 


17600 




6H 


ERR44, ,, Ml GRf ATI ft THAU 90 


1414* 


44 


14420 


ouoo 


17610 




TF 


Nl.SVM 


14106 


24 


02299 


10090 


17020 




CM 


CHI, 23,10 


16170 


14 


19190 


00061 


17020 




BNE 


ERR44 


16102 


47 


14420 


01200 



414 
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PAGE 



17140 




7R 


CHf-ltCH!4| 


14114 


11 


19111 


15140 


17110 




M 


WtNl 


1420* 


21 


02240 


02211 


17140 




C» 


94,0100,8 


142 It 


14 


00099 


0-|00 


17170 




TDM 


RECLG.2 


14210 


11 


02241 


00002 


17110 




1H 


• ♦24 


14249 


44 


14244 


01100 


171*0 




TOM 


RECLC.l 


14214 


IS 


02241 


00001 


17100 




CM 


11,0200,1 


1424* 


14 


00011 


0-200 


17110 




BH 


ERR44, , , llCIIOt 7 NO SECTORS 


14271 


44 


14420 


01100 


17120 




CM 


CHI, 41,10 


14210 


14 


15199 


00009 


17110 




1NM 


ERR44 


14102 


47 


14420 


01100 


17140 




BTM 


CLOGT.04.10. COLltCT N2 


14114 


17 


14471 


000-4 


17110 




SF 


SVN-4 


1412* 


12 


10019 


00000 


17140 




TP 


N2.SVM 


14111 


24 


02211 


10091 


17170 




CM 


SVM, 20000 


14110 


14 


10019 


KOOOO 


17110 




8M 


ERR44 


141*2 


44 


14420 


01100 


17110 




CM 


CHl,04 r 10 


14174 


14 


111!! 


000-4 


11000 




1NE 


ERR44 


14114 


47 


14420 


01200 


11010 




8 


BEGINA 


14111 


44 


02490 


00000 


11020 




OORG 


• -J 


1440* 








11030 


OEFCT 


OAC 


7.INEDISK 


14407 




7 


X 2 






INfOlSK 










18040 


EAR40 


TFM 


RECLG, 000,1 


14420 


14 


02243 


00-00 


18090 




TO 


•♦39,JAV 


14412 


25 


144*7 


02147 


18040 




BTM 


ERR0R2, 670,1 


14444 


17 


09414 


00070 


18070 




TDM 


JAY,»-« 


14494 


15 


02167 


00000 


18080 




B 


BEGINA 


14441 


44 


02490 


00000 


18090 




DORG 


• -4 


14475 








18100 


ERR44 


OS 


•ERR60 


14420 




0 




18110 


• •• 


COLLECT DIGITS SUBROUTINE • •• 










18120 


• 




• 










181)0 


• 


BTM CLDGT.XX.IO, II • NO. OP OIGITS TO COLLECT ♦ 1 










18140 


• 




• 










18150 




OS 


2 


14474 




2 




18140 


CLDGT 


BD 


•♦32, CHI 


14471 


43 


14910 


19139 


18170 




TR 


CHI-UCHI + l 


14490 


31 


19111 


15140 


18180 




8 


• -24 


14902 


49 


14478 


00000 


18190 




OORG 


• -3 


14510 








18200 




TFM 


SYM-12,0 


14510 


14 


10047 


-0000 


18210 




TFM 


CLDGT2*6,SVN-12 


14522 


16 


14600 


J0047 


18220 


CL0CT1 


SM 


CLDGT- 1,1, 10 


14514 


12 


14477 


000- 1 


18230 




BZ 


XCLOGT 


14544 


46 


14638 


01200 


182*0 




CM 


CHI, 69, 10 


14551 


14 


19139 


00009 


18250 




BNH 


XCLOGT 


14570 


47 


14438 


01100 


18260 




AM 


•♦18,1,10 


14512 


11 


14600 


000-1 


18270 


CL0GT2 


TD 


,CHI 


14594 


25 


00000 


15139 


18280 




TR 


CHI-l.CHIM 


14404 


31 


19131 


15140 


18290 




BNR 


CLDGT1.CHU2 


14411 


45 


14934 


15141 


18300 




B 


ERR44 


14430 


49 


14420 


00000 


18310 




OORG 


• -3 


14438 








18320 


XCLOGT 


TF 


SYM,CLDGT2*6,ll 


14411 


24 


10099 


1440- 


18330 




BB 




14450 


42 


00000 


00000 


18340 




DORG 


•-9 


14452 








18350 


• 


DEND 










18360 




DORG 


16000 


14000 








18370 




TFM 


I0RT,»*23 


14000 


16 


00545 


J6023 


18380 




B 


I0PT,BLK2,7 


14012 


49 


00532 


-9725 



1620 FORTRAN II-O PHASE 1-1 PAGE 



18390 




TRA 






16024 


34 


00000 


00500 












16036 


49 


00000 


00000 


18*00 




TCD 


16000 




16000 








18410 


• 


OUT OF CORE BLOCK 3 CONTAINS THE FOLLOWING 










18420 


• 


OUTSC 














18430 


• 


ASCAN 














18440 




DORG 


I OUT 




10200 








18450 




TFM 


FM0NO5.BLK4,, 


I OUT 


10200 


14 


02359 


-9771 


18460 




BTM 


FMON.IOUT 




10212 


17 


02324 


J0200 


18470 




TFM 


FM0NO5,BLK2 




10224 


14 


02359 


-9725 


18480 




BTM 


FMON.NONARA 




10214 


17 


02324 


J0224 


18490 




TFM 


FM0N*35,BLK1,, 


DIM 


10241 


1* 


02359 


-9702 


18500 




BTM 


FMON, DIM 




10260 


17 


02324 


J0241 


18510 




TFM 


FNON*35,BLKl,t 


COMMON 


10272 


14 


02339 


-4702 


18520 




BTM 


F MOM .COMMON 




10214 


17 


02324 


J 02 72 


18530 




TFM 


FM0N*35,BLK4,, 


IP 


10294 


16 


02359 


-9117 


18540 




BTM 


FMON, IF 




10301 


17 


02124 


J0294 


18550 




TFM 


FH0NO5.BLK6,, 


GOTO 


10320 


16 


02159 


-9117 


18560 




BTM 


FMON, GOTO 




10332 


17 


02324 


J0320 


18570 




TFM 


FM0N*35,BLK6,, 


CALL 


10344 


16 


02349 


-9817 


18580 




BTM 


FMON, CALL 




10394 


17 


02324 


J0144 


18590 




TFM 


FH0N*35.BLK6,. 


RETURN 


10341 


16 


02359 


-9817 


18600 




BTM 


FMON, RETURN 




10110 


17 


02124 


J0341 


18610 




TFM 


FM0N+35,1LK1,, 


FORMAT 


10112 


16 


02159 


-9702 


18620 




BTM 


FMON, FORM AT 




10404 


17 


02124 


J0392 


18630 




TFM 


FM0NO5.1LX4,, 


00 STMNT 


10416 


16 


02159 


-9771 


18640 




BTM 


FMON ,000 




10421 


17 


02124 


J0414 


18650 




BNF 


ASC1A , TRINDr t 


ASCAN 


10440 


44 


12094 


03115 


18660 




B 


ASCAN1 




10412 


49 


12051 


00000 


18670 




BO 


SCI .SINGST,, 


OUTSC 


104*4 


41 


10114 


1007! 


18680 




B 


0UTSC1 




1047* 


49 


10512 


00000 


18690 




TFM 


FM0N*3S.BLKS,, 


OK 10 


10411 


14 


0211! 


-4794 


18700 




BTM 


FMON, OHIO 




10100 


17 


02124 


J0411 


18710 


• ••• 


OUTPUT SUBSCRIPTING 


cooe 










18720 


0UTSC1 


TF 


TEMP ,SMA00 


• u 


10112 


24 


04141 


071 !M 


18730 




TO 


QIMMO* SMCNT, 1 1 




10124 


29 


10477 


0724P 


18740 




CF 


OIMNO 




1011* 


11 


10477 


00000 


18750 


OINNOT 


OS 


2, #-2 




10141 




2 




18760 




TF 


OINNOT, DtNNO 




10141 


24 


1014! 


10477 


18770 




CF 


SC22 




101*0 


13 


10420 


00000 


18710 




TR 


A1-1,NASK,, 


SIT UP MONK AM* 


10172 


11 


11120 


1111! 


18710 




TFM 


PAl.Al-4 




10114 


14 


10114 


Jill! 


18800 




TFM 


PA2.A2-4 




lost* 


1* 


10712 


Jllll 


11110 




TFM 


PItl-12 




10*01 


1* 


11011 


J1941 


11120 


SC22 


AM 


PAI,4,10 




10*20 


11 


10114 


000-4 


11110 




AN 


PA2»4,10 




10*12 


It 


107*2 


000-4 


11140 




AM 


PI, 12, 10 




10*44 


II 


11011 


0OOJ2 


11150 




TR 


CHI-1,CHI»1 




10*9* 


11 


Hill 


19140 


11160 




SM 


DIMNO,0001,110 




10641 


12 


10*77 


0-0-1 


11170 


OIMNO 


OS 


2,«-2 




10*77 




2 




11110 




CM 


CHI, 44, 10 




10*00 


14 


19111 


00009 


11110 




BNH 


ALPAT 




10**2 


47 


1017* 


01100 


11100 




TOM 


oinsm, i 




1070* 


19 


10014 


00001 


11110 




1TM 


CSTN0.»*12 




1071* 


17 


01111 


J0721 


11120 




TOM 


DIMSN.O 




10721 


19 


10014 


00000 
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H950 




CN 


CHltlAtlO 




10740 


IA 


19199 


000 J A 


I ••AO 




6E 


SCI 




10792 


AA 


10920 


01200 


18990 


SC4 


TOM 


01 NSW, 0 




107A4 


19 


10094 


00000 


If 9A0 




TP 


PA2»$YN 




10770 


2A 


10702 


10059 


18970 


PA2 


OS 


,•-9 




10702 




0 




18980 




8NP 


• ♦3A» SC22 




10701 


AA 


1002 A 


10A20 


18990 




CF 


SC22 




10800 


19 


10A20 


00000 


19000 




SF 


PA2,»A 




10812 


12 


1078K 


00000 


19010 


SC5 


CM 


CHI, 23, 10 




1082A 


16 


19119 


000K3 


19020 




BE 


SC22 




108M 


AA 


10A20 


01200 


19010 




CM 


CHI ,4, 10 




108A8 


IA 


19119 


000- A 


19040 




BE 


•♦3A 




108A0 


AA 


10894 


01200 


19090 




BTM 


ERROR, 75,9 




10872 


17 


09130 


00-75 


190A0 


SCI 


BTM 


ERROR, 272, 9 




1088A 


17 


09110 


00K72 


19070 




TR 


CHI-l,CHl*l 




1089A 


11 


19118 


19140 


19080 




80 


SCl-12»DIMN0 




10908 
10920 


Al 


10972 


10A77 


19090 




B 


SC9 




49 


111*4 


00000 


19100 




DQRG 


•-3 




10928 








19110 


SC3 


TF 


PAlrSYM 




10928 


2A 


10934 


10059 


19120 


PAl 


OS 


,•-5 




109 14 




0 




19130 




TR 


CMI-i,CHl*l 




10940 


11 


15138 


15140 


19140 




CM 


CHI ,69, 10 




10952 


14 


15139 


00009 


19150 




BH 


SCl-12 




10964 


46 


10872 


01100 


19160 


AlFAT 


CM 


CHI ,40, 10 




10976 


I* 


15139 


OOOMO 


19170 




BNH 


SCl-12 




10988 


47 


10872 


01100 


19180 




BTM 


CS0RN»»*12 




11 000 


17 


05690 


J1012 


19190 




BO 


•♦20.FX0RFL 




11012 


43 


11012 


06405 


19200 




B 


SCl-12,, 


, FLOATING VARIABLE USED IN SUBSCRIP 


11024 


49 


10872 


00000 


19210 




DORG 


•-4 




11031 








19220 




TF 


PI.SMAOD-l 




11032 


26 


11038 


07193 


19230 


PI 


DS 


,•-5 




11038 




0 




19240 




CM 


CHI , 10,10 




11044 


14 


15139 


OOOJO 


19250 




BE 


• ♦48 




11056 


46 


11104 


01200 


19260 




CM 


CHI, 20, 10 




11068 


14 


15139 


OOOKO 


19270 




RNE 


SC5 




11060 


47 


10824 


01200 


19280 




SF 


SC22 




11092 


32 


10620 


00000 


19290 




TR 


CHI-l.CHUl 




11 104 


31 


15138 


15140 


19300 




CM 


CHI, 69, 10 




11116 


14 


15139 


00009 


19310 




BNH 


SCl-12 




11126 


47 


10872 


01100 


19320 




TDM 


DIMSW.l 




11140 


15 


10084 


00001 


19330 




BTM 


CSTN0,SC4 




11152 


17 


05398 


J0764 


19340 


SC9 


TFM 


M0VEIT*6, 01-12 




11164 


16 


11230 


J1939 


19350 


CAlC 


MM 


OIMNOT, 05,10 




11176 


13 


10545 


000-5 


19360 




A 


TEMP, 99 




11188 


21 


04161 


00099 


19370 




MM 


DIMMOT, 12,10 




11200 


13 


10545 


000J2 


19380 




A 


M0VEIT*6,99 




11212 


21 


11230 


00099 


19390 


HOVE IT 


A 


, TEMP, I 1 




11224 


21 


00000 


0416J 


19400 




SM 


OIMNOT, 1,10 




11236 


12 


10545 


000- 1 


19410 




BZ 


• ♦44 




11248 


46 


11292 


01200 


19420 




SM 


TEMP, 05, 10 




11240 


12 


04161 


000-5 


19430 




SM 


M0VEIT^6, 12,10 




11272 


12 


11230 


000J2 


19440 




B 


MOVE IT 




11284 


49 


11224 


00000 


19450 




OORG 


•-4 




11291 








19460 




S 


04,01 




11292 


22 


11987 


11951 


19470 




M 


03, C2 




11304 


23 


11975 


11943 


19480 




SF 


92 




11316 


32 


00092 


00000 



417 
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19490 




A 


04,99 


11328 


21 


11987 


00099 


19500 




M 


02,82 


11340 


23 


11963 


11939 


19510 




SF 


92 


11352 


12 


00092 


00000 


19520 




A 


04,99 


11364 


21 


11987 


00099 


19530 




A 


04, A2 


11376 


21 


11987 


11935 


19540 




M 


03, CI 


11388 


21 


11975 


11931 


19550 




SF 


92 


11400 


32 


00092 


00000 


19560 




TF 


03,99 


11412 


26 


11975 


00099 


19570 




M 


02, Bl 


11424 


21 


11963 


11927 


19580 




SF 


92 


11436 


12 


00092 


00000 


19590 




TF 


02,99 


11446 


26 


11963 


00099 


19600 




MM 


Al, 00001,8 


11460 


13 


11923 


0-001 


19610 




TF 


01,99 


11472 


26 


11951 


00099 


19620 




TFM 


IN01,04 


11484 


16 


11519 


J 1987 


19630 




TFM 


IND2.D4-7 


11496 


16 


11518 


J 1980 


19640 


TONV 


BNF 


•♦16.IND1 


11506 


44 


11544 


11519 


19650 


IN01 


DS 




11519 




0 




19660 




CF 


IND1,,6 


11520 


33 


U51R 


00000 


19670 




TOM 


IND2,9,U 


11512 


15 


11538 


OOOOR 


19680 


IND2 


DS 


• •-5 


11518 




0 




19690 




SM 


IN01,12,10 


1 1 544 


12 


11519 


000J2 


19700 




SM 


IND2.12.10 


US5A 


12 


11538 


000J2 


19710 




CM 


INOl.01,67 


11546 


14 


U51R 


J1951 


19720 




BNL 


TONY 


11560 


46 


11508 


01100 


19730 




TFM 


PI, 1-12 


11592 


16 


11038 


J 1943 


19740 


MV1 


AM 


PI, 9, 10 


11606 


11 


11018 


000-9 


19750 




BNR 


•♦20, PI, 11 


11616 


45 


11616 


11030 


19760 




B 


CONT,,, GQ TO OUTPUT STRING 


11628 


49 


11772 


00000 


19770 




DORG 


•-3 


1*636 








19780 




AM 


PI, 1,10 


1 1A1A 


11 


11016 


000-1 


19790 




CM 


PI, 0,66 


11 AAA 


l* 


I101Q 


0-000 


19800 




BE 


MV2 


UAAO 


46 


11692 


01200 


19810 




AM 


DIMNOT.Ol.lO 


11*72 


11 


10645 


000- 1 


19820 




B 


MV1 


11 ABA 


49 


11604 


00000 


19830 




OORG 


•-1 


UA92 








19840 


MV2 


TF 


MV1>6*PI,, SHIFT OFF SUBSC NOT NEEOEO 


11A92 


26 


11746 


11016 


19850 




TF 


HV1*U,PI 


11704 


26 


11751 


11018 


19860 




AM 


MV3*U,1,10 


11714 


11 


11751 


000-1 


19870 




SM 


HV3*A, 11,10 


11728 


12 


11746 


OOOJl 


19880 


NV3 


TR 


0,0 


11740 


31 


00000 


00000 


19690 




SM 


PI, 01, 10 


11752 


12 


11016 


000-3 


19900 




B 


NV1412 


117AA 


49 


11616 


00000 


19910 




OORG 


•-1 


11772 








19920 


• • 


SO - 1A9 LITERAL SUBSCRIPT, SI ■ 1A9 ONE SUBSCRIPT 










19910 




S2 • 190 TWO SUBSCRIPTS, 19 • 191 THREE SUBSCRIPTS 










19940 


CONT 


TPN 


L4* 11,0146,8, BASE FOR SUBSCRIPT OPERATORS 


11772 


16 


11607 


0-148 


19950 




A 


L 4^11, OIMNOT 


1178A 


21 


11807 


10549 


11960 


L4 


BTN 


PUTtO 


11794 


17 


09096 


-0000 


19970 




BTN 


PUT, 124,8 


11800 


17 


09096 


0-124 


k§980 




BTN 


PUT, 140,8 


11820 


17 


09096 


0-140 


? 9190 


L5 


BNR 


LA.01-7 


11092 


69 


11976 


11944 


20000 




BTN 


PUT, 104,8 


11044 


17 


09096 


0-104 


20009 




TPN 


SNCMT.2219 


11696 


16 


07247 


-2219 


20010 




8 


OUTSCE,,A 


11 BAB 


A9 


0479* 


00000 


20020 




0086 


•-9 


11070 








20010 


L6 


SP 


01-7 


1IB7A 


92 


11944 


00000 



418 
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20040 


BT 


PUT.01-4 


11 BOB 


27 




20050 


TR 


Dl-7,01-3 


1 1900 


31 


1 1*44 


200*0 


B 


IS 


1 1911 


49 


1 1832 


200T0 


OORG 


•-3 


11920 






200*0 Al 


OS 


4 


11921 




* 


20090 Bl 


OS 


4 


1 1927 






20100 CI 


OS 


4 


11831 




4 


20110 A2 


OS 


4 


11919 




4 


20120 B2 


OS 


4 


11919 




4 


20130 C2 


OS 


4 


119*1 




4 


20140 01 


OS 


B 


11911 




8 


20190 I 


OS 


4 


11991 




* 


201*0 02 


OS 


B 


119*1 




0 


20170 J 


OS 


4 


119*7 




4 


20180 03 


OS 


8 


11971 




B 


20190 K 


OS 


4 


11979 




4 


20200 04 


OS 


8 


11907 




8 


20210 


OS 


1 


11988 




1 


20220 


DC 


4,0001 


11992 




4 




-001 










20230 MASK 


OS 


• •-3 


1 1989 




0 


20240 


DC 


4,1 


1 199* 




4 




-001 










20250 


DC 


4, I 


12000 




4 




-001 










202*0 


DC 


4,0 


1200* 




4 




-000 










20270 


DC 


4,0 


12008 




4 




-000 










20280 


DC 


4,0 


12012 




4 




-000 










20290 


DC 


8,0 


12020 




8 




-0000000 








20300 


DC 


4,0 


12024 




4 




-000 










20310 


oc 


8,0 


12032 




8 




-0000000 








20320 


DC 


4,0 


1203* 




4 




-000 










20330 


DC 


8,0 


12044 




8 




-0000000 








20340 


DC 


4,0 


12048 




4 




-000 










20350 


DC 


8,0 


1209* 




8 




-0000000 








20360 


DC 


!»• 


12057 




1 


20370 • ••• 


A SCAN CODE 








20380 ASCAN1 


CF 


TRIND 


12058 


33 


031 85 


20390 


BD 


•♦24,N01ND 


12070 


43 


12094 


20400 


BTM 


ERR0R2, 572,9, 


12002 


17 


0948* 


20410 ASC1A 


TDM 


OMM »1 


12094 


15 


10087 


20420 


CM 


CHI, 40, 10 


1210* 


14 


15139 


20430 


BNH 


AERR 


1211* 


47 


12214 


20434 


CM 


CHI, 70,10 


12110 


14 


15139 


20436 


BNL 


AERR 


12142 


46 


12214 



41 9 
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20440 




SF 


OUTSW 




12154 


32 


07020 


00000 


20450 




BTM 


CS0RN,»*12 




121** 


17 


05690 


J217B 


20460 




TDM 


STSN 




12178 


15 


05627 


00000 


20470 




CM 


CHI, 33,10 




12190 


14 


15139 


000L3 


20480 




BE 


• ♦24 




12202 


46 


12226 


01200 


20490 


AERR 


BTM 


ERROR, 376,9 




12214 


17 


09330 


00L76 


20500 




TDM 


DMM , 0 




1222* 


15 


10087 


00000 


20510 


ASC22 


BTM 


PUT, 133,8, 


EQUAL 


12218 


17 


0903* 


0-133 


20513 




TFM 


NOPARM.00,10 




12250 


16 


14700 


000-0 


20515 




TFM 


ASC14+18.FLIST- 


9 


122*2 


I* 


14*44 


J4*97 


20520 


IFSCAN 


TR 


CHl-l,CHI*l 




12274 


31 


15138 


15140 


20530 




BNR 


•♦24,CHI*2 




1228* 


45 


12310 


15141 


20540 




BTM 


ERROR, 378,9, 


MISSING OPERANO 


12298 


17 


09330 


0OL78 


20550 




CM 


CHI, 40, 10 




12310 


14 


15139 


OOOMO 


20560 




BH 


ASC3 




12322 


4* 


12550 


01100 


20570 




CM 


CHI, 20,10 




12334 


14 


15139 


OOOKO 


20580 




BNE 


• ♦44 




1234* 


47 


12390 


01200 


20590 




BTM 


PUT, 129,8, 


UNARY MINUS 


1235B 


17 


09036 


0-129 


20600 




TR 


CHI-ltCHIH 




12370 


31 


15138 


15140 


20610 




B 


IFSCANM2 




12382 


49 


12286 


00000 


20620 




OORG 


•-3 




12390 








20630 




CM 


CHI, 10,10 




12390 


14 


13139 


OOOJO 


20640 




BE 


IFSCAN 




12402 


4* 


12274 


01200 


20650 


ASC4 


CM 


CHI, 24,10 




12414 


14 


15139 


000K4 


20660 




BNE 


ASC6-24 




1242* 


47 


12502 


01200 


20670 


ASC23 


BO 


•♦44,FNTSW1 




12438 


43 


12482 


10081 


20680 




AM 


PARCNT, 1,10 




12450 


11 


03348 


000- 1 


20690 




BTM 


PUT, 124,8, 


LEFT PAREN 


124*2 


17 


09036 


0-124 


20700 




B 


IFSCAN 




1247* 


49 


12274 


00000 


20710 




OORG 


•-3 




12482 








20720 




AM 


TPARCT,1,10 




12482 


11 


14698 


000-1 


20730 




B 


ASC23+24 




12494 


49 


12462 


00000 


20740 




OORG 


•-3 




12502 








20750 




CM 


CHI, 3, 10 




12502 


14 


15139 


000-3 


20760 




BNE 


IFSCAN^24 




1211* 


47 


12298 


01200 


20770 


ASC6 


CM 


CHU2,69,10 




1252* 


14 


19141 


00009 


20780 




BNH 


IFSCAN*24 




12538 


47 


12299 


01100 


20790 


ASC3 


SF 


OUTSW 




12550 


12 


07020 


00000 


20800 




BTM 


CS0RN,**12 




125*2 


17 


09*90 


J2574 


20810 




BO 


ASC9»FNTSWl* » 


BRANCH IF COLLECTING FUNCTION PARAMETERS 


1217* 


43 


1458* 


10081 


20820 




BO 


ASC8,FNTSN,, 


BRANCH IF SYMBOL MAS FUNCTION NAME 


1258* 


43 


13754 


10080 


20830 


ASC7 


BO 


RTCALL tCALLSM, * 


RETURN TO CALL ROUTINE 


12598 


41 


11242 


10089 


20840 




BNR 


ASCI , CHI ^2, 




12*10 


49 


12*58 


15141 


20850 




CM 


PARCNT, 0,10 




12*22 


14 


0114* 


000-0 


20860 




BE 


BEGIN 




12*1* 


4* 


02*18 


01200 


20870 




BTM 


ERROR* 379,9, 


UNBALtNCfO PARENTHESIS 


12*** 


17 


09190 


00L79 


20880 


ASCI 


CM 


CHI. 30. 10 




12*10 


14 


11119 


OOOLO 


20890 




BL 


•♦24 




12*70 


47 


12*94 


01100 


20900 




BTM 


ERROR* 378*9, 


INVALID OPERATOR 


12*02 


17 


09110 


00L78 


20910 




CM 


CHI, 24, 10 


12*9* 


14 


15119 


0OOR4 


20920 




BE 


ASC23 




12700 


4* 


12418 


01200 


20930 




CM 


CHI, 10, 10 




12710 


1* 


15119 


OOOJO 


20940 




BNE 


•♦12 




12710 


47 


127*2 


01200 


20950 




BTM 


PUT, 110,8* 


AOO 


127*2 


17 


0901* 


0-110 


209*0 




B 


ASC24 




1271* 


49 


12942 


00000 


20970 




OORG 


•-3 




127*2 









1420 FORTRAN It-0 PHASE 1-i 



PACE 43 



20490 




CM 


CHI, 20,10 


127*2 


14 


19139 


OOOKO 


20990 




BNE 


• ♦32 


12774 


47 


12804 


01200 


21000 




ATM 


PUT, I 20 ,8, SUBTRACT 


1278* 


17 


0903* 


0-120 


21010 




8 


ASC24 


12 79* 


49 


12942 


00000 


21020 




OORG 


•-3 


12B0* 








210)0 




CM 


CHI, 21, 10 


1280* 


14 


19139 


000K1 


21040 




BNE 


• ♦32 


12818 


47 


12890 


01200 


21090 




BTM 


PUT, 121, 8, DIVIDE 


12830 


17 


0909* 


0-121 


21040 




8 


ASC24 


12842 


49 


12942 


ooooo 


21070 




DORG 


• -3 


12890 








21010 




CM 


CHI, 14, 10 


12890 


14 


19139 


00OJ4 


21090 




BNE 


ASC25 


128*2 


47 


12984 


01200 


21100 




CM 


CMI*2,14,10 


12874 


14 


19141 


000J4 


21110 




BMC 


ASC24-12 


1288* 


47 


12990 


01200 


21120 




8TM 


PUT, 1 15, 8, EXPONENTIAL 


12898 


17 


09034 


0-115 


21130 




TR 


CHI-I.CHIM 


12910 


31 


19138 


15140 


21140 




8 


• ♦20 


12922 


49 


12942 


OOOOO 


21190 




OORG 


• -3 


12930 








21140 




BTM 


PUT, 114, 8, MULTIPLY 


12930 


17 


09036 


0-114 


21170 


ASC24 


TR 


CHI-l.CHIM 


12942 


31 


19138 


15140 


2US0 




CM 


CHI, 40,10 


12994 


14 


15139 


OOOMO 


21190 




BH 


ASC3 


1294* 


44 


12550 


01100 


21200 




B 


ASC4 


12978 


49 


12414 


OOOOO 


21210 




OORG 


• -3 


1298* 








21220 


ASC25 


CM 


CHI, 4, 10 


12984 


14 


15139 


000-4 


21230 




BE 


• ♦34 


12998 


44 


13034 


01200 


21240 




BO 


ASC281.FNTSN1 


13010 


43 


14422 


10081 


21290 




BTM 


ERROR, 378,9, INVALID OPERATOR 


13022 


17 


09330 


0OL78 


21240 




BTM 


PUT, 104, 8, RIGHT PAREN 


13034 


17 


09034 


0-104 


21270 




BO 


•♦32, FNTSW1 


13044 


43 


13078 


10081 


21280 




SM 


PARCNT , 1,10 


13058 


12 


03348 


000-1 


21290 




B 


• ♦20 


13070 


49 


13090 


OOOOO 


21300 




OORG 


• -3 


13078 








21310 




SM 


TPARCT , 1,10 


13078 


12 


14698 


000-1 


21320 




TR 


CHI-l.CHIM 


13090 


31 


15138 


15140 


21330 




BN 


ASC1-12 


13102 


47 


12646 


01300 


21340 




BNH 


• ♦48 


13114 


47 


13162 


01100 


21350 




CM 


CHI, 24,10 


13124 


14 


15139 


000K4 


21340 




BNE 


ASC7-24 


13138 


47 


12574 


01200 


21370 




BTM 


ERROR, 378,9 


13190 


17 


09330 


00L78 


21380 




CM 


PARCNT, 0,10 


13142 


14 


03348 


000-0 


21390 




BNE 


• ♦24 


13174 


47 


13198 


01200 


21400 




BO 


0UTS12,IFSM 


1318* 


43 


13262 


10085 


21410 




CM 


CHI, 24, 10 


13198 


14 


15139 


000K4 


21420 




BE 


•-40 


13210 


46 


13150 


01200 


21430 




BO 


ASC31- 12,FNTSW1 


13222 


43 


14466 


10081 


21440 




B 


ASC7 


13234 


49 


12598 


OOOOO 


21450 




OORG 


• -3 


13242 








21440 


RTCALL 


TFM 


CALL*23,CALL2 


13242 


16 


10367 


J2486 


21470 




B 


CALL 


13254 


49 


10344 


OOOOO 


21480 




OORG 


•-3 


13242 








21490 


OUTS 12 


TFM 


IF*23,0UTSNM2 


13262 


14 


10319 


J3672 


21500 




B 


IF 


13274 


49 


10296 


OOOOO 


21510 




OORG 


•-4 


13281 









21520 ENTER HERE TO OUTPUT SINGLE STATEMENT FUNCTIONS 

21530 •••••• 



421 



1620 FORTRAN II-O PHASE 1-B PAGE 44 



21540 


ASC21 


BO 


•♦24, STSN 


13282 


43 


13304 


05627 


21550 




BTM 


ERROR ,377,9, SINGLE STATEMENT PRECEEDED BY OTHER STMT 


13294 


17 


09330 


O0L77 


21560 




CF 


STSN 


13304 


33 


05627 


OOOOO 


21570 




SF 


SMCNT, ,6 


13318 


32 


0724P 


OOOOO 


21580 




TDM 


OMM.O 


13390 


IS 


10087 


OOOOO 


21590 




TF 


TEMP5, SMADD, , SAVE SYMBOL ADDRESS TO MOVE IN NO. OF PAR 


13342 


26 


04173 


07194 


21600 




BTM 


PUT, 137,8,ARITH STATEMENT FUNCTION 


13354 


17 


09034 


0-137 


21610 




BT 


PUT, TEMP5-1 , , OUTPUT STMNT NAME 


13366 


27 


09036 


04172 


21620 




TFM 


PCNT,0,10, INITIAL PARAMETER COUNT 


13378 


16 


14093 


000-0 


21630 




BTM 


PUT, 124,8, LEFT PAREN 


13390 


17 


09034 


0-124 


21640 




TR 


CHI-l.CHUl 


13402 


31 


15138 


15140 


21650 




BNR 


•♦24,CHI+2 


13414 


45 


13438 


15141 


21660 


ASC26 


BTM 


ERROR, 376,9, INCOMPLETE STATEMENT FUNCTION 


13424 


17 


09330 


00L74 


21670 




CM 


CHI, 40, 10 


13438 


14 


15139 


OOOMO 


21680 




BNH 


•-24 


13490 


47 


13426 


01100 


21690 




TDM 


FNTSW,0 


13442 


15 


10080 


OOOOO 


21700 




CM 


CHI ,69,10 


13474 


14 


15139 


00009 


21710 




BH 


ASC26 


1348* 


44 


13424 


01100 


21720 




SF 


OUTSM 


13498 


32 


07020 


OOOOO 


21730 




BTM 


CS0RN,»*12 


13510 


17 


05490 


J3522 


21740 




BD 


ASC26.FNTSM 


13522 


43 


13424 


10080 


21750 




AM 


PCNT,1,10 


13534 


11 


14093 


000-1 


21760 




TFM 


SYM*2,14,10 


13544 


16 


10061 


000J4 


21770 




CF 


SYM^l 


13558 


33 


10060 


OOOOO 


21780 




AM 


NXL0C.2.10 


13570 


11 


02372 


000-2 


21790 




TF 


NXL0C,SVM*2,6 


13582 


26 


0237R 


10041 


21800 




SM 


STAFT,5,10 


13994 


12 


04413 


000-5 


21810 




TF 


ST AFT , SMADD, 6 


13404 


26 


044 1L 


07144 


21820 




CM 


CHI, 04, 10 


13418 


14 


15139 


000-4 


21830 




BE 


• ♦56 


13430 


46 


13484 


01200 


21840 




CM 


CHI, 23,10 


13442 


14 


19199 


000K3 


21850 




BNE 


ASC26 


13494 


47 


13424 


01200 


21860 




BTM 


PUT, 123, 8, COMMA 


13*** 


17 


09034 


0-123 


21870 




B 


ASC26-24 


13*79 


49 


13402 


OOOOO 


21880 




OORG 


•-3 


13*8* 








21890 




BTM 


PUT, 104, 8, RIGHT PAREN 


13*8* 


17 


09034 


0-104 


21900 




TR 


CHI-l.CHIM 


13*98 


31 


19138 


15140 


21910 




AM 


TEMPS, 4, 10 


13710 


U 


04173 


000-4 


21920 




TF 


TEMP5,PCNT,6 


13722 


26 


0417L 


14093 


21930 




TDM 


SINGST,1,U, SET SINGLE START SWITCH, SWITCH TESTED 


19794 


13 


10078 


OOOOJ 


21940 




B 


AERR-24, , , IN PUTTING OUT SUBSCRIPTING 


1974* 


49 


12190 


OOQOO 


21990 




OORG 


•-3 


19794 








21940 




ENTER TO OUTPUT SINGLE STATEMENT FUNCTION CALL AND •••••• 










21970 


•••••• 


FUNCTION SUBPROGRAM CALL •••••• 










21980 


ASC8 


BNF 


ASCII. FNTSM., NO FLAG INDICATE FUNCTION SUBPROGRAM 


13794 


44 


14406 


10080 


21990 




AM 


SMCNT, 2, 10 


197** 


11 


07247 


000-2 


22000 




TF 


NOPARN.SMCNT.il, MOVE NO. OF PARAMETERS TO COUNTER 


13778 


2* 


14700 


0724P 


22010 


ASC19 


CM 


CHI, 24, 10 


19790 


14 


13199 


000R4 


22020 




BE 


• ♦24 


19802 


46 


1982* 


01200 


22030 




BTM 


ERROR, 079,9, PUNCT NAME NOT FOLLOWED BY LPAREN 


1381* 


17 


09990 


00-74 


22040 




BTM 


PUT, 124,0, LEFT PAREN 


1982* 


17 


0909* 


0-124 


22090 




TFN 


TPARCT, 1, 18), SET UP Tfl NPOA A A VP AREN COUNT 


1999B 


1* 


14*99 


000-1 


220*0 




TR 


CHI-l.CHIM 


19990 


91 


19138 


19140 


22070 




TON 


PNTSM.O 


199*2 


19 


10080 


OOOOO 


22080 


ASC12 


CM 


CHI, 20, 10 


13*74 




19199 


OOOKO 


22090 




BNE 


• ♦92 


19BB* 


t? 


19918 


01200 



1420 PORT* AN 1 1-0 PMASI 1-t 



PAGE 45 



22100 




BTM 


PUTt LZ9»Bf HURRY NIHU» 


13899 


If 


09016 


0-129 


221 10 




8 


• ♦12 


11910 


49 


11942 


00000 


22120 




0086 


•-1 


11919 








22110 




CM 


CH1»10,10 


11919 


14 


15119 


00040 


22140 




ONE 


•♦24 


11910 


47 


1 1954 


01200 


22150 




TR 


CHl-ltCMIM 


1 1942 


)| 


15119 


15140 


22140 




CM 


CH|»40,10 


11994 


14 


15119 


OOOMO 


22170 




BM 


ASC27 


11944 


44 


14092 


01 100 


22100 




CM 


CHltlt 10* 


11979 


14 


15119 


000"! 


22190 




BE 


ASC27 


11990 


44 


14092 


01200 


22200 




CM 


CHI t24 ( 10 


14002 


1 4 


15119 


000K4 


22210 




BE 




14014 


44 


14019 


01200 


22220 


ASCER 


BTM 


EftftOft, 470,9, INVALID FUNCTION PARAMETER LIST 


14024 


17 


09110 


OOM70 


22230 




BTM 


RUT, 124, 8, LEFT RABIN 


14019 


17 


09014 


0-124 


22240 




T8 


CMI-l ,CH!*1 


14050 




151 18 


1 5140 


22250 




AM 


TRARCT,ltlO 








000** 1 


22240 




B 


ASC12 


14074 




11874 


00000 


22270 




OORG 


•-3 


14082 








22200 


ASC27 


SF 


OUTSM 


14082 




07020 


AAAAO 
www 


22290 


PCNT 


DC 


2,0, • 


14091 




2 




22300 




-0 
BNF 


ASC27A ,NOPARM 


14094 


44 


14150 


14700 


22310 




TOM 


FNTSH2il 


14104 


1 5 


07391 


00001 


22320 




BTM 


CSORN, 12 


141 18 


17 


05490 


J41 30 


22330 




TDM 


FNTSW2, 0 






07391 


AAAAA 

UUU W 


22340 




B 


ASC29- 12 


14 142 


49 


141 86 


00000 


22350 




OOftG 


•-3 










22360 


ASC27A 


BTM 


CS0ftN#»*12 


14150 


1 7 






22380 




SM 


NORARM, 1 , 10 


14 142 


12 




AAA 1 


22390 




BN 


ASCER 


14 174 


*7 




01300 


22400 




80 


ASC14,FNTSM, , TEST FOR NESTED FUWCiION* 


14184 






10080 


22410 


ASC29 


BNft 


•♦20,CHI*2 


14 198 


** 


142 LB 


15141 


22420 




B 


ASCER 


14210 




14026 


AAAAA 


22430 




OOftG 


•-3 


14218 








22440 




CM 


CHI ,21, 10 


14218 


14 


15139 




22450 




BNE 


ASC28 


14230 




14318 


a t inn 

J? , ?? 


22460 


ASC30 


BTM 


RUT, 123, 8, COMMA 


14242 


17 


09036 


0—123 


22470 




TR 


CHI-l,CMI*l 


14254 


3 1 


15138 


15140 


22480 




BNF 


•♦20, NOP ARM 


14244 


44 


14286 


14700 


22490 




B 


ASC12 


14278 




13874 


00000 


22500 




OORG 


•-3 


14284 








22510 




CM 


NOPARM, 0, 10 


14284 








22520 




BE 


ASCER 


14298 




14026 


01200 


22530 




B 


ASC12 


14310 


49 


13874 


nnnnn 

ooooo 


22540 




DORG 


•-3 


14318 








22550 


ASC28 


CM 


CHI, 4, 10 


14318 


14 


15139 


000-4 


22560 




BE 


• ♦32 


14330 


46 


14362 


01200 


22570 




TDM 


FNTSW1 , 1 


14342 


15 


10081 


00001 










14354 


49 


12658 


00000 


22590 




OORG 


•-3 


14342 








22600 




BTM 


PUT, 104, 8, RIGHT PAftEN 


14342 


17 


09036 


0-104 


22610 




SM 


TPARCT,l,10 


14374 


12 


14698 


000-1 


22620 




TR 


CHI-1,CHI*1 


14384 


31 


15138 


15140 


22630 




BN 


ASCER 


14398 


47 


14026 


01300 


22640 




BE 


• ♦56 


14410 


46 


14466 


01200 


22650 


ASC281 


CM 


CHI, 23, 10 


14422 


14 


15139 


O0OR3 









1620 FORTRAN II-O 


PHASE 1-8 






PAGE 


22660 




BE 


ASC30 


14434 


46 


14242 


01200 


22670 




BNR 


ASC28+24.CHI+2 


14444 


45 


14342 


15141 


22680 




B 


ASCER 


14458 


49 


14026 


OOOOO 


22690 




DORG 


•-3 


14444 








22700 




BNF 


ASC 9- 32, NOPARM 


14444 


44 


14554 


14700 


22710 


ASC31 


CM 


ASC14^l8,FLIST-9,, TEST IF 


NEST LIST IS EMPTY 14478 


14 


14644 


J4697 


22720 




BNE 


•♦32 


14490 


47 


14522 


01200 


22730 




TDM 


FNTSM1 


14502 


15 


10081 


OOOOO 


22740 




B 


ASC7 


14514 


49 


12598 


OOOOO 


22750 




DORG 


•-3 


14522 








22760 




TR 


TPARCT-1,ASC14M8,U 


14522 


31 


14697 


1464M 


22770 




SM 


ASC14M8,5,10 


14534 


12 


14644 


000-5 


22780 




B 


ASC29 


14544 


49 


14198 


OOOOO 


22790 




OORG 


•-3 


14554 








22800 




CM 


NOPARMtO, 10 


14554 


14 


14700 


000-0 


22810 




BZ 


ASCII 


14544 


44 


14478 


01200 


22820 




B 


ASCER 


14578 


49 


14026 


OOOOO 


22830 




OORG 


•-3 


14584 








22840 


A5C9 


TDM 


FNTSW1,0,, 


14584 


15 


10081 


OOOOO 


22850 




B 


ASC29-12 


14598 


49 


14186 


OOOOO 


22860 




DORG 


•-3 


14404 








22870 


ASCII 


TFM 


NOPARM, 0,1011 


14606 


16 


14700 


000— 


22880 




B 


ASC15 


14618 


49 


13790 


OOOOO 


22890 




DORG 


•-3 


14424 








22900 




ENTER HERE TO SHIFT PARAMETER 


LIST DOWN FOR NESTED CALLS ••• 








22910 


ASC14 


AM 


•♦18,5,10 


14626 


11 


14644 


000-5 


22920 




TR 


FLIST-9,TPARCT-i,2 


14638 


31 


J4697 


14697 


22930 




B 


ASC8 


14450 


49 


13754 


OOOOO 


22940 




OORG 


•-4 


14457 








22945 


IFASEN 


TFM 


ASC14M8,FLIST-9 


14458 


16 


14644 


J4697 


22946 




8 


IFSCANM2 


14470 


49 


12286 


OOOOO 


22947 




OORG 


•-4 


14477 








22948 


CLASEN 


TFM 


NOPARM, 00,1011 


14478 


16 


14700 


000 — 


22949 




8 


IFSCAN-12 


14490 


49 


12242 


OOOOO 


22950 




DORG 


•-4 


14447 








22955 


TPARCT 


OS 


2 


14498 




2 




22960 


NOPARM 


OS 


2 


14700 




2 




22970 




DC 


lt» 


14701 




1 




22980 


FL 1ST 


DSB 


5,20 


14704 




5 


X 20 


22990 




DORG 


16000 


14000 








23000 




TFM 


I0RT,»^23 


14000 


14 


00545 


J6023 


23010 




8 


I0PT,9LK3,7 


14012 


49 


00532 


-9748 


23020 




TRA 




14024 


34 


OOOOO 


00500 










14094 


44 


OOOOO 


OOOOO 


23030 




TCD 


14000 


14000 








23040 


• 


OUT OF CORE BLOCK 4 CONTAINS THE 


FOLLOW I NO 








23050 


• 


OUTSC 












23060 


• 


00 












23070 


• 


10 OTHER THAN DISK 










23080 




OORG 


I OUT 


10200 








23090 




CN 


CHl,44,lOt I OUT , NONOISK I/O 10200 


14 


15139 


000M4 


23100 




8 


IOUTEN 


10212 


44 


13148 


OOOOO 


21110 




TFM 


FH0NOS.SIX2 


10224 


14 


02359 


-9725 


23120 




BTM 


PMON.NONARA 


10214 


17 


02124 


J0224 



1*20 FORTRAN II-D PHASE 



PAGE 47 



231 10 




TFM 


FM0N+S5.BLK1 t • 


DIM 


10248 


16 


02399 


-9702 


23140 




BTM 


FNON.DIM 




102*0 


17 


02324 


J0248 


23150 




TFM 


FM0N+35.BLK1 , , 


COMMON 


10272 


16 


02359 


-9702 


2 3160 




BTM 


F MOM • C OMMOM 




10284 


17 


02324 


J0272 


23170 




TFM 


FNON+35, 6LK6, , 


IF STMNT 


1029* 


16 


02359 


-9817 


23100 




BTM 


FNQN, I F 




10308 


17 


02324 


J 02 96 


2 3190 




TFM 




GOTO 


10320 


16 


02359 


-9817 


23200 




BTM 


F MOM t GOTO 




10332 


17 


02324 


J0320 


2 3210' 




TFM 






10344 


16 


02359 


-9817 


23220 




BTM 


r nun tt»ii 




10358 


1 7 


02324 


J0344 


2 3230 




TFM 


F MONTIS. HI KA.. 


RETURN 


10368 


16 


02359 


-9817 


23240 




BTM 


F MflM . B F T 1 IB M 




10380 


17 


02324 


J0368 


23250 




TFM 


FMON*35»6LKl , * 


FORMAT 


10392 


16 


02359 


-9702 


23260 




B TM 


F MOM. FOB MAT 
r nun f r urra I 




10404 


1 7 


02324 


J0392 


23270 




BNF 


nm nn** . tb i kin . . 

UUtUUrT JO f Inl WJ § , 


nn tTATFMFMT 


10416 


44 


12094 


03185 


2 3280 






nni nno 




10428 


49 


12058 


00000 


23290 




TFM 


FM0N+35»BLK3 » t 


ASCAN 


10440 


16 


02359 


-9748 


2 3300 




BTM 


FMON , A SCAN 




10452 


17 


02324 


J0440 






BO 


SCl.SINGST,. 




10464 


43 


10884 


10078 






A 


0UTSC1 






49 


10512 


nnnon 






TFM 


FM0N+35.BLK5, , 


ni CM 1 klDI IT IfU IT Ol IT 


1 H4AB 

f ' 


1 6 


02359 


-9794 


23340 




BTM 


FMONf OKIO 






17 


02324 


J0488 


23350 




OUTSC CODE IS HERE 












23360 




OORG 


ASCAN1 




12058 








7^nn 




OUTPUT 00 STATEMENTS 














nni nno 


TDM 


TRINDtO 




i jnw 


_ 


ft _. _ 


nnnnn 
uuuuu 






BD 


•+24,N0IN0 








i »no4 








BTM 


ERR0R2,572,9 




l fnof 




no&nfc 


OON72 






CM 


CHI, 44,10 




if in*. 


* 


1*1 IlO 


n?>nn 






BNE 


SPERR 








, 3f ?, 








CM 


CHI+2,56, 10 




i5ii a 


*^ 




000N6 


23440 




BNE 


SPERR 




12130 


^7 


09230 


0 1 200 


23450 




BD 


•♦24, INOI V 




12 142 


43 


12166 


02424 


2 3460 




BTM 


CKCNTU.0,10 




12 1 54 


1 7 


04836 


000-0 






TDM 


STSN 








05627 


nnnnn 






TR 


CHI-l.CHI+3 




1 9 1 Til 


* * 










CM 


CHI, 69, 10 




l ■> i on 






00009 


If - , J! 




BH 


• ♦24 




i jjnj 




1 


nni 7* 






BTM 


ERROR, 275, 9, 


IMuOKRtLT DU 5TAT6McNl 


z. , , 7 
12214 


IT 
J* 










BTM 


PUT, 108,8,00 










0-108 






SF 


OUTSW 








nTn»n 








BTM 


CSTN0,»+12 




1 ijen 


J , 










AM 


SMADD, 5,10 




1 jjo 

J „«f 


1 I 




000-5 






B 


DOCK 






49 




nnnnn 






DORG 


•-3 




1 JJP9 








,f eoft 




TDM 


SMADD, 1,6, 


cct bv nn it unT cct nn dic m tin c 
ofc I BY Out lr NUT acl UU Kcr IN lABlt 


J ???? 


J' 


, . J Vz 








CM 


CHI, 40, 10 






14 


151 39 


OOOMO 






BNH 


D0CK-12 






* J 






23610 




CM 


CHI, 69,10 




12 318 


1 4 


15139 


00009 


23620 




BH 


DOCK-12 




12330 


46 


12378 


01 100 


23630 




SF 


OUTSW 




12342 


32 


07020 


00000 


23640 




BTM 


CS0RN,»+12,, 


COLLECT DO INOEX SYMBOL 


12354 


17 


05690 


J2366 


23650 




BD 


D0C1,FX0RFL 




12366 


43 


12446 


06405 


23660 




BTM 


ERROR, 275, 9, 


FLOATING POINT VARIABLE FOR INDEX 


12378 


17 


09330 


00K75 


23670 


DOCK 


BD 


DQCl-12, SMADD, 11 




12390 


43 


12434 


0719M 


23680 




SM 


SMADD, 2,10 




12402 


12 


07194 


000-2 



425 

■■■■■■■■■■■■ 
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23690 




BD 


DOC, SMADD 




12414 


43 


12294 


0719M 


23700 




B 


DOC- 12 




12426 


*9 


12282 


00000 


23710 




DORG 


• -3 




12434 








23720 




BTM 


ERROR, 274,9, 


DO REFERENCING ILLEGAL STAMNT NO 


12434 


17 


09330 


00K74 


23730 


DOC I 


CM 


CHI, 33,10, 


TEST FOR EQUAL SIGN NEXT 


12446 


14 


15139 


000L3 


23740 




BNE 


00+24 




12458 


A7 


12214 


01200 


23750 




BTM 


PUT, 133,8 


,E0UAL 


12470 


17 


09036 


0-133 


23760 




TR 


CHI-l,CHI+l 




12482 


31 


15138 


15140 


23770 




CF 


DOA, , , 


INITIALIZE SWITCHES 


12494 


33 


12518 


00000 


23780 




CF 


DOB 




12506 


33 


12670 


00000 


23790 


DOA 


CM 


CHI, 40, 10 




12518 


14 


15139 


OOOMO 


23800 




BNH 


DOCK- 1 2,,, 


TEST FOR UNSIGNED VALUES 


12530 


47 


12378 


01100 


23810 




CM 


CHI, 69, 10 




12542 


14 


15139 


00009 


23820 




BNH 


•♦24,,, 




12554 


47 


12578 


01100 


23830 




SF 


00A 




12566 


32 


12518 


00000 


23840 




SF 


OUTSW 




12578 


32 


07020 


00000 


23850 




BTM 


CS0RN,»+12,, 


COLLECT A NO OUTPUT FIRST INOEX 


12590 


17 


05690 


J2602 


23860 




BO 


•♦20,FX0RFL 




12602 


43 


12622 


06405 


23870 




B 


DOCK- 12 




12614 


49 


12378 


00000 


23880 




DORG 


•-3 




12622 








23890 




BNF 


DOB, DOA 




12622 


44 


12670 


12518 


2 3900 




TF 


OOTEST.SYM 




12634 


26 


13147 


10059 


23910 




CM 


SYM.0,10, 


TEST IF FIRST INDEX WAS ZERO 


12646 


14 


10059 


000-0 


23920 




BE 


DOCK-12 




12658 


46 


12378 


01200 


23930 


DOB 


CM 


CHI, 23,10 




12670 


I* 


15139 


000K3 


23940 




BNE 


00+24 




12682 


47 


12214 


01200 


23950 




BTM 


PUT, 123,8 


.COMMA 


12694 


17 


09036 


0-123 


23960 




TR 


CHI-i,CHl+l 




12706 


31 


15138 


15140 


23970 




CM 


CHI, 40, 10 




12716 


14 


15139 


OOOMO 


23980 




BNH 


DOCK- I 2 




12730 


47 


12378 


01100 


23990 




CM 


CHI, 69, 10 




12742 


14 


15139 


00009 


24000 




BNH 


•♦24 




12754 


47 


12778 


01100 


24010 




SF 


00B 




12766 


32 


12670 


00000 


24020 




SF 


OUTSW 




12778 


32 


07020 


00000 


24030 




BTM 


CS0RN,»+12 




12790 


17 


05690 


J2802 


24040 




80 


•♦20,FX0RFL 




12802 


43 


12822 


06405 


24050 




8 


DOCK-12 




12814 


49 


12378 


00000 


24060 




OORG 


•-3 




12822 








24070 




BNF 


•♦72, DOB 




12822 


44 


12894 


12670 


24080 




BNF 


•♦36, DOA 




12834 


44 


12870 


12516 


24090 




C 


SYM.DOTEST,, 


TEST IF SECONO INOEX IS GREATER OR 


12846 


24 


10059 


13147 


24100 




BL 


DOCK-12,,, 


EQUAL TO THE FIRST IF BOTH ARE CONSTS 


12858 


47 


12378 


01300 


24U0 




CM 


SYM.0,10 




12870 


14 


10059 


000-0 


24120 




BE 


DOCK-12 




12882 


46 


12378 


01200 


24130 




BNR 


DOE, CHI +2 




12894 


45 


12926 


15141 


24140 




80 


00+24, I0SW,, 


I/O CANNOT ENO HERE 


12906 


43 


12214 


10091 


24150 




8 


BEGIN 




12918 


49 


02*38 


00000 


24160 




DORG 


•-3 




12926 








24170 


DOE 


CM 


CHI, 23, 10 




1292* 


1* 


15139 


000K3 


24180 




BE 


• ♦32 




12938 


46 


12970 


01200 


24190 




BO 


I0P.I0SW,, 


RETURN TO I/O SCAN 


12950 


43 


1423* 


10091 


24200 




8 


00+24 




129*2 


49 


12214 


00000 


24210 




OORG 


•-3 




12970 








24220 




BTM 


PUT, 123,8 


t COMMA 


12970 


17 


0903* 


0-123 


24230 




TR 


CHI-l.CMI+l 




12982 


31 


18138 


13140 


24240 




CM 


CHI, 40, 10 




1299* 


1* 


13139 


OOOMO 
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24290 




• NH 


DOCK" 12 




1)004 


4f 


12)78 


01100 


242*0 




$P 


OUTSH 




1)018 


1| 


07020 


00000 


24270 




OTN 






1)0)0 


17 


09*90 


J 3042 


24260 




§0 


•♦20»PX0RPL 




1)042 


43 


1)0*2 


0*409 


24290 




• 


DOCK- 1 2 




1)094 


44 


12)78 


00000 


24100 




OORG 


•— ) 




1)0*2 






000-0 


24)10 




CM 


SYR, 0, 10 




1)0*2 


14 


10059 


24320 




■f 


DOCK- 1 2 




1)07* 


44 


12)78 


01200 


24)30 




60 


IOF.IOSM,, 




DOB* 


43 


142)6 


10091 


24)40 




SNA 


•♦20 .CHI*2 




1)098 


49 


1)118 


15141 


243)0 




8 


BEGIN 




1)1 10 


44 


02438 


00000 


24)40 




DOR 6 


•-1 




I ) I IB 






00N7) 


24370 




BTM 


ERR0R2,57),9 




1)118 


17 


09*8* 


24)10 




8 


BEGIN 




1)1 30 


44 


02*38 


00000 


24)90 




OORC 


•-) 




1)1)8 




10 




24400 


DOTEST 


OS 


10 




1)147 






24410 


• ••• 


ENTER HERE TO DECOMPOSE I/O STATEMENTS OTHER THAN DISK •••• 










24420 


IOUTEN 


BNE 


• ♦44 




1)148 


47 


1)192 


0 1200 


244)0 




TFM 


I0UTU11, 112.6, 


OUTRUT READ SYMBOL 


1)1*0 


|4 


1)54) 


0-H2 


24440 




TR 


CHI-l.CHIM 






j 1 


15 1 38 


15140 


24450 




8 


IOUTl 




13184 


49 


13532 


00000 


24460 




OORG 


•-) 




1 3 192 








24470 




CM 


CHI, 55, 10 




13 192 


|4 


151 39 


000N5 


24480 




BNE 


I0UT2 




1 320* 


47 


1 3284 


01200 


24490 




CM 


CHI*2,63,10 






14 




0000) 


24500 




6E 


• ♦24 




1)228 




1 3252 


0 1200 


24510 


IOUTER 


BTM 


ERROR, 71,9 




1 3240 


1 7 


093)0 


00—71 


24520 




TFM 


IOUTl* 11, 111,8, 


OUTFUT RRINT SYMBOL 


1 3252 


14 


1 3543 


0— 111 


24530 




TR 


CHI-1,CMI*3 




1 32*4 








24540 




B 


IOUTl 




1)27* 


44 


13532 


00000 


24550 




DOUG 


•-3 












24560 


I0UT2 


CM 


CHI, 45,10 




1 3284 




_ _ 
1513™ 


nnnn_ 


24570 




BNE 


I0UT3 






*T 


• • ?to 


n i inn 


24510 




TR 


CHl-l,CHlU,, 


SHIFT OFF E 


1 3308 


3 1 


151 38 


15140 


24590 




CM 


CHI, 69, 10 








\w ?? 


00009 


24600 




BNH 


I0UT3 




1 3 332 




13364 




24610 




TFM 


I0UT1M1, 0113,8, 


OUTPUT TYPE SYMBOL 


13)44 


16 


1 3543 


0— 113 


24620 




B 


IOUTl 




1 3354 


49 


1 3532 


AAAAA 

uouou 


24630 




DORG 


• -3 




• * 








24640 


I0UT3 


BTM 


C0LNAM,2,10 




1 3364 


17 


04656 


000-2 


24650 




CM 


SYM, 4348,8 




1337* 


14 


10059 


0M348 


24660 




BV 


IOUTER 




13388 


4* 


13240 


01400 


24670 




BNE 


I0UT4 




1 3400 


47 


1 3552 


0 1200 


24680 




TFM 


IOUTUll, 118,8, 


OUTPUT PUNCH SYMBOL 


134 12 


16 


1)543 


0-118 


24690 


I0UT5 


TR 


CHI-1.CHIO 




1)424 


31 


15138 


1 5 142 


24700 




CM 


CHI, 63, 10 




1)4)6 


14 


15139 


00003 


24710 




BNE 


IOUTl 




13448 


47 


13532 


01200 


2*720 




BTM 


C0LNAM,4,10 




13460 


17 


04656 


000-4 


24730 




C 


SVM.TPCST 




13472 


24 


10059 


13615 


24740 




BV 


IOUTER 




13484 


44 


13240 


01400 


24750 




BNE 


IOUTER 




13496 


47 


13240 


01200 


24760 




TR 


CHl-l,CHl+7 




13508 


31 


15138 


15146 


24770 




AM 


IOUTl+11,1,10 




13520 


11 


1)543 


000- 1 


24780 


IOUTl 


BTM 


PUT,,, 


OUTPUT I/O SYMBOL 


135)2 


17 


09036 


-0000 


24790 




B 


INOUT 




13544 


49 


13616 


00000 


24800 




DORG 


• -3 




13552 
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24810 


I0UT4 


CM 


SYM, 5763,8 


13552 


14 


10059 


0N763 


24820 




BV 


I OUTER 


13564 


44 


13240 


01400 


24830 




BNE 


IOUTER 


13576 


47 


13240 


01200 


24840 




TFM 


I0UT1M1,0116,8, OUTPUT ACCEPT SYMBOL 


13588 


14 


1)543 


0-1.16 


24850 




B 


I0UT5 


13600 


44 


13424 


00000 


24860 




DORG 


•-3 


13608 








24870 


TPCST 


DC 


8,63415745,, TAPE 


13615 




8 








03415745 










24880 




OUTPUT INPUT-OUTPUT LISTS •••••• 










24890 


INOUT 


CM 


CHI, 69, 10 


1361* 


14 


15139 


00009 


24900 




BH 


• ♦24 


13428 


44 


13652 


01100 


24910 




BTM 


ERROR, 276,9, STATEMENT NUMBER MISSING 


13640 


17 


09330 


00K76 


24920 




SF 


OUTSM 


13652 


32 


07020 


00000 


24930 




TDM 


IOSM.l 


136*4 


15 


10091 


00001 


24940 




BTM 


CSTN0,»*12 


13676 


17 


05398 


J3686 


24950 




AM 


SMA0D,4,10 


13668 


U 


07194 


000-4 


24960 




BD 


•♦32, INSM 


13700 


43 


13732 


03279 


24970 




TDM 


SMA0D,l,6, SET DIGIT FOR FORMAT STAMNT NUMBER 


13712 


15 


0719M 


00001 


24980 




B 


• ♦32 


1)724 


49 


13756 


00000 


24990 




OORG 


•-3 


1)7)2 








25000 




BO 


•♦24,SMA00,ll, TEST IF STAMNT NUMBER CORRESPONDS TO FMT 


13732 


43 


13756 


0719M 


25010 




BTM 


ERROR, 277, 9, I/O STATEMENT NO. NOT A FORMAT NUMBER 


1374* 


17 


093)0 


0OR77 


25020 


I0A 


BNR 


• ♦20.CHU2 


13754 


45 


1)776 


15141 


25030 




B 


BEGIN 


1)7*6 


49 


02636 


00000 


25040 




OORG 


•-3 


1)77* 








25080 




CM 


CHI, 23, 10 


1)77* 


14 


15139 


000K3 


25090 




BE 


• ♦24 


1)766 


46 


13612 


01200 


25100 


IOLER 


BTM 


ERROR, 278,9, MISSING COMMA OR INVALID LIST ELEMENT 


1)600 


17 


09330 


00*78 


25110 




BTM 


PUT, 12), 8, COMMA 


1)612 


17 


09036 


0-12) 


25120 




TR 


CHI-WCHIM 


1)82* 


31 


19138 


15140 


25130 




CM 


CHI, 40, 10 


1)8)* 


14 


15139 


OOOMO 


25140 




BNH 


IOB 


1)646 


47 


1)908 


01100 


25150 




CM 


CHI, 69, 10 


1)6*0 


14 


191)9 


00009 


25160 




BH 


IOLER 


1)672 


44 


1)900 


01100 


25170 




SF 


OUTSN 


1)664 


32 


07020 


00000 


25180 




BTM 


CSORN,IOA 


1)60* 


17 


09*90 


J)754 


25190 


I OB 


TFM 


I0L00P,0,10 


1)906 


14 


14079 


000-0 


25200 




CM 


CHI, 24, 10 


1)920 


14 


151)9 


0O0K4 


25210 




BNE 


IOLER 


1)9)2 


47 


1)800 


01200 


25220 




AM 


PARCNT.1,10 


1)944 


U 


0)346 


000-1 


25230 




BTM 


PUT, 124,8, LEFT RAREN 


1)91* 


17 


090)* 


0-124 


25240 




TR 


CHI-I.CMU1 


1)9*6 


)1 


191)6 


19140 


25250 




AM 


IOL OOP, 1,10 


1)9*0 


11 


14079 


0*0-1 


25260 




CM 


CHI, 24, 10 


1)992 


14 


191)9 


0OOR4 


25270 




BE 


1 06 


1400* 


4* 


14420 


01200 


25280 


100 


CM 


CHI, 40,10 


1401* 


1* 


191)9 


OOOMO 


25290 




BNH 


I 00*12 


14026 


4T 


1)920 


01100 


25)00 




CM 


CHI, 69,10 


140*0 


14 


191)9 


00009 


25)10 




BH 


IOLER 


140ft 


4* 


1)600 


01100 


25)20 




SF 


OUTSM 


140** 


)2 


07020 


00000 


25))0 


10LOOP 


DC 


2,0,« 


1*079 




2 




25340 




-0 
BTM 


CS0RN,«H2t, COLLECT LIST ELEMENT 


1407* 


17 


09*90 


J4066 


25)90 




CM 


CHI, 2), 10 


14066 


t* 


19129 


OOOK) 


25)60 




BNE 


IOE 


14100 


47 


1419* 


01200 


29)70 




BTM 


PUT, 12), 8, COMMA 


14112 


17 


0909* 


0-12) 



428 
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25380 




SF 


IOSM 


1*12* 


32 


10091 


00000 


25350 




TR 


CHl-ltCHIM 


1*11* 


31 


15138 


15140 


25400 




8 


100 


1*1** 


*9 


1401* 


00000 


25*10 




DORG 


•-3 


1*15* 








25*20 


I0£ 


8NF 


IOLER, I0SW 


1*15* 


** 


13800 


10091 


25430 




CF 


I0SW 


1*1*8 


33 


10091 


00000 


25**0 




CM 


CHI, 33, 10 


1*180 


14 


15139 


000L3 


25*50 




BNE 


108*12 


1*192 


4T 


13920 


01200 


25*60 




BTM 


PUT, 133, 8, EQUAL 


1420* 


17 


09036 


0-133 


25*70 




BD 


D0A-36.FX0RFL,, BRANCH TO COLLECT INOICB OF ARRAY LOOP 


1421* 


43 


12482 


06405 


25*80 




8 


IOLER 


14228 


49 


13800 


00000 


25*90 




DORG 


•-3 


1423* 








25500 


•••••• 


RETURN MERE FROM DO CODE ING 










25510 


IOF 


CM 


CHI ,*, 10 


1423* 


14 


15139 


000-4 


25520 




BNE 


IOLER 


14248 


47 


13800 


01200 


25530 




8TM 


PUT, lU*,B,KIbnl rARtN 


142*0 


17 


09036 


0-104 


255*0 




TR 


/-ill l r u r a 1 


14272 


31 


15138 


15140 


25550 




SM 


PAKCNT , 1 , 10 


14284 


12 


03348 


ooo-i 


25560 




BN 


1 01 ER 


1429* 


47 


13800 


01300 


25570 




SM 


IOLOOP , 1,10 


14308 


12 


14075 


000-1 


25580 




BN7. 


• ♦32 


14320 


*7 


14352 


01200 


25590 




BNR 


I0LER-2*f CHI*2 


14332 


*5 


13776 


15141 


25600 




B 


BEGIN 


14 344 


*9 


02638 


00000 


25610 




DORG 


• -3 


14352 








25620 




CM 


CHI r 23 , 10 


1*352 


1* 


15139 


000K3 


25630 




BNE 


IOLER 


1*364 


*7 


13800 


01200 


256*0 




B TM 


PUT, 123, 8, COMMA 


1437* 


17 


09036 


0-123 


25650 




TR 


CHl-l»CHI*l 


14388 


31 


15138 


15140 


25660 




SF 


IOSW 


14400 


32 


10091 


00000 


25670 




B 


I 00 


1**12 


*9 


14016 


00000 


25680 








1**20 








25690 


10G 


B TM 


PUT, 12*, 8, LEFT PAREN 


1**20 


17 


09036 


0-124 


25700 




AM 


PARCNT,1,10 


1**32 


11 


033*8 


000-1 


25710 




TR 


CHI-1,CHI*1 


1**** 


31 


15138 


151*0 


25720 




AM 


IOLOOP, 1,10 


1**5* 


11 


1*075 


000-1 


25730 




CM 


CHI, 2*, 10 


1**68 


I* 


15139 


OOOK* 


257*0 




BE 


•♦20 


1**80 


*6 


1*500 


01200 


25750 




B 


I0D 


1**92 


*9 


1*016 


00000 


25760 




DORG 


• -3 


1*500 








25770 




B TM 


PUT, 12*. 8, LEFT PAREN 


1*500 


17 


09036 


0-12* 


25780 




AM 


PARCNT.l.lO 


1*512 


11 


033*8 


000-1 


25790 




TR 


CHI-l.CHI+l 


1*52* 


31 


15138 


151*0 


25800 




AM 


IOLOOP ,1,10 


1*536 


11 


1*075 


000-1 


25810 




B 


IOD 


1*5*8 


*9 


1*016 


00000 


25820 




DORG 


• -3 


1*556 








25830 




DORG 


16000 


16000 








258*0 




TFM 


I0RT,»^23 


16000 


16 


00565 


J6023 


25850 




B 


I0PT,BLK*,7 


16012 


*9 


00532 


-9771 


25860 




TRA 




1602* 


36 


00000 


00500 










1603* 


*9 


00000 


00000 


25870 




TCD 


16000 


16000 









25880 • OUT OF CORE BLOCK 5 CONTAINS THE FOLLOWING 

25890 • OUTSC 

25900 • DO 

25910 • DKIO 



42<7 



25920 




DORG 


IOUT 






10200 








25930 




TFM 


FM0N^35,BLK4, , 


IOUT 




10200 


16 


02359 


-9771 


2 59*0 




B TM 


FMON.IOUT 






10212 


17 


0232* 


J0200 


25950 




TFM 


FM0N*35,BLK2 






10224 


16 


02359 


-9725 


25960 




B TM 


FMON, NONARA 






10236 


17 


0232* 


J022* 


25970 




TFM 


FM0NO5,BLKl,, 


OIM 




10248 


16 


02359 


-9702 


25980 




BTM 


FMON, DIM 






10260 


17 


0232* 


J02*8 


25990 




TFM 


FM0N+35,BLKl,, 


COMMON 




10272 


16 


02359 


-9702 


26000 




BTM 


FMON, COMMON 






10284 


17 


0232* 


J0272 


26010 




TFM 


FM0NO5.BLK6,, 


IF STMNT 




10296 


16 


02359 


-9817 


26020 




BTM 


FMON, IF 






10308 


17 


0232* 


J0296 


26030 




TFM 


FM0NO5,BLK6, , 


GOTO 




10320 


16 


02359 


-9817 


260*0 




BTM 


FMON, GOTO 






10332 


17 


0232* 


J0320 


26050 




TFM 


FM0N+35,BLK6, , 


CALL 




10344 


16 


02359 


-9817 


26060 




BTM 


FMON, CALL 






10356 


17 


0232* 


J03** 


26070 




TFM 


FM0N+35,BLK6, , 


RETURN 




10368 


16 


02359 


-9817 


26080 




BTM 


FMON, RETURN 






10380 


17 


0232* 


J0368 


26090 




TFM 


FM0NO5,BLKl, , 


FORMAT 




10392 


16 


02359 


-9702 


26100 




BTM 


FMON, FORMAT 






10404 


17 


0232* 


J0392 


26110 




BNF 


D0L00PO6,TRIND, , 


DO STATEMENT 




10416 


4* 


1209* 


03185 


26120 




B 


OOLOOP 






10428 


49 


12058 


00000 


26130 




TFM 


FM0N+35,BLK3, , 


ASCAN 




10440 


16 


02359 


-97*8 


261*0 




BTM 


FMON, A SCAN 






10452 


17 


0232* 


J0**0 


26150 




BD 


SCl.SINGST, , 


OUTSC 




10464 


*3 


1088* 


10078 


26160 




B 


OUTSC 1 






10476 


*9 


10512 


00000 


26170 




TDM 


USEDFS+5,1,, 


OISK I/O 




10488 


15 


02268 


00001 


26180 




B 


OKIOEN 






10500 


*9 


131*8 


00000 


26190 


• • 


OUTSC CODE IS HERE 














26200 




DORG 


ASCAN1 






12058 








26210 


• • 


OUTPUT DO STATEMENT 


CODE IS HERE 












26220 




DORG 


DOE+2* 






12950 








26230 


• • 


THE FOLLOWING INSTRUCTION IS A CHANGE TO 


00 STATEMENT CODE 










262*0 




80 


DKF.IOSW,, 


RETURN TO I/O SCAN 




12950 


43 


14352 


10091 


26250 




DORG 


IOUTEN 






13148 








26260 


• ••• 


ENTER HERE TO DECODE 


OISK I/O STATEMENTS 


• •• 










26270 


OKIOEN 


SF 


DKIO,,, 


FLAG FOR FETCH AND 


RECORD 


131*8 


32 


104B8 


00000 


26280 




CM 


CHI,*3,10 






131*0 


14 


15139 


000M3 


26290 




BNE 


0KI01 






13172 


47 


13240 


01200 


26300 




TFM 


DKPUT*U,01*2.8, 


FETCH SYMBOL 




13184 


t* 


13311 


0-1*2 


26310 




CM 


CHI*2,48,10, 


CHECK FOR M 




1319* 


14 


15141 


000M8 


26320 




BNE 


ERR01 






13208 


47 


04282 


01200 


26330 




TR 


CM!-1,CHI*3, , 


SHIFT OFF TWO CHARACTERS 


13220 


31 


15138 


151*2 


263*0 




8 


DKLIST 






13232 


49 


13380 


00000 


26350 




OORG 


•-3 






132*0 








2*3*0 


OK 101 


CM 


CHI, 44,10 






13240 


14 


19139 


OOOM* 


26370 




BNE 


DK 102 






13251 


4? 


13308 


01200 


2*380 




CF 


DKIO,,, 


MO FLAG FOR PINO 




132*4 


33 


10488 


00000 


2*390 




TFM 


DOUmi, 0144,8, 


PI MO SYMBOL 




1)27* 


I* 


11511 


0-144 


2*400 




TR 


CHl-liCMl*l»t 


smi ft opp omi character 


13288 


11 


19118 


19140 


26410 




B 


DKLIST 






13)00 


49 


11180 


ooooo 


2*420 




DORG 


•-3 






13)0* 








2*430 


DKI02 


BTM 


C0LNAM,03,10 






18)08 


17 


0**9* 


000-3 


2*440 




C 


SYN.ORDCT** 






11)20 


24 


10099 


1**41 


2*450 




BY 


ERR01 






1)3)2 


4* 


0*282 


01400 


2*4*0 




BNE 


ERR01 






1))** 


47 


04282 


01200 


2*470 




TR 


CH!-l,CHt*S,» 


SHIFT OFF THRU CHARACTERS 


1)19* 


11 


19118 


15144 
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PA6E 91 



24490 




TFN 


0KPUT*ll.0146,6, 


2*440 


OKI 1ST 


TOM 


0ISft|M,l,llt 


1*100 




CM 


CM! ,24,10, 


2*110 




ONE 


OKEft 


2*920 




TOU 


I0SM.1 


2*910 




TA 


CM!-l,CMl*l,, 


26940 




CM 


CMI,6»,10 


26990 




61 


• ♦24 


269*0 




AM 


DKPUTM1, 1,10 


26970 




CM 


CHI, 40,10 


26910 




61 


OKEft 


26990 


OH PUT 


• TM 


PUT,,. 


26600 




• TM 


PUT, 0124, 8, 


26610 




SF 


OUTSW 


26620 




• TM 


CS0«M,«4t2 


266S0 




BO 


•♦20,FX0ftFL 


26640 




B 


OKEft 


26690 




DOUG 


•-4 


26660 




CM 


CHI, 04, 10, 


26670 




BNE 


OKEft 


26690 




BTM 


PUT, 0104, •, 


26640 




BNP 


BEGIN, OHIO,, 


26700 




BTM 


PUT, 0123, 8, 


26710 




Tft 


CMI-1,CMI*1,, 


26720 


OKI 


BNft 


•♦24,CHI*2 


26730 




BTM 


ERftOft,472,4, 


26740 




Tft 


OKSWl-l.SWSET-4, 


26790 




B 


OKB 


?6760 




DOUG 


•-3 


26770 


DKA 


BNft 


•♦20,CHI*2 


26760 




B 


BEGIN 


26790 




OOftG 


•-3 


26830 




CM 


CHI, 23,10 


26840 




BE 


• ♦24 


26890 


DKER 


BTM 


ERR0ft,471,9 


26860 




BTM 


PUT, 0123, 8, 


26870 




TA 


CHI-ltCHl*l, , 


26880 


OKB 


CM 


CHI, 40, 10 


26640 




BNH 


OKC 


26900 




CM 


CHI, 69, 10 


26910 




BH 


OKEft, , , 


26920 




SF 


OUTSW 


26930 




BTM 


CS0RN,«*12 


26940 




BNft 


•♦20,SMCNT,ll 


26950 




B 


OKER , , , 


26960 




OOftG 


•-3 


26970 




80 


• ♦32,SMCNT,U, 


26980 




TOM 


OKSH2,2 


26990 




B 


• ♦20 


27000 




OOftG 


•-3 


27010 




TDM 


0KSH2,1 


27020 




BO 


•♦20,0KSM1 


27030 




B 


0KBU12 


27040 




OOftG 


•-4 


27090 




C 


0KSWl,0KSH2 


27060 




BE 


OKA 



ftECOftO STNOOL 

SIT SM TO I MOI CAT! DIM I/O 
CNICI POO LiPT PAftEN 



SNIP? OFF HPT PAftiM 
AOO ONE POO LITEftAL 



OUTPUT 01 IH I/O SYMBOL 
OUTPUT LfPf PAftlft 



CHICK FOft ftT PAftEN 

OUTPUT ftT PAftiM 

BRANCH TO BEGIN IF FINO STMNT 

OUTPUT COMMA 

SMIPT OPP ftT PAftEN 

DISK I/O STMNT S MUST HAVE LISTS 
INIT SWITCHES 



OUTPUT COMMA 

SHIFT OFF ONE CHAAACTEA 



LITEftAL ITEM ON LIST 



FUNCTION NAME 

01 61 T IMPLIES AN AftftAY NAME 



13368 


1* 


11911 


0-14* 


19100 


19 


02101 


00004 


ISStt 


14 


19119 


000ft* 


1140* 


4T 


11720 


01200 


11410 


19 


10041 


00001 


11421 


11 


19110 


19140 


11440 


14 


19114 


00009 


11492 


47 


11474 


01100 


11*** 


II 


11911 


000-1 


114T* 


14 


19119 


OOOMO 


11*00 


47 


11720 


01100 


11900 


17 


0901* 


-0000 


11912 


17 


0901* 


0-124 


not* 


12 


07020 


00000 


1191* 


17 


09*90 


J 9949 


119*0 


41 


119*9 


0*409 


119*0 


49 


11729 


00000 


119*7 








119*0 


14 


19114 


000-4 


11900 


47 


11726 


01200 


11992 


17 


0901* 


0-104 


13*04 


44 


02*38 


10486 


13*1* 


17 


09036 


0-123 


13*28 


31 


19138 


15140 


13640 


49 


13*64 


15141 


11*92 


17 


09310 


00M72 


11*** 


31 


14244 


14442 


11*7* 


49 


137*4 


00000 


13*84 








11*04 


49 


11704 


19141 


11*** 


44 


02*39 


ooooo 


11704 








11704 


14 


19134 


0OOK3 


13716 


46 


13740 


01200 


13728 


17 


09330 


00M71 


13740 


17 


09036 


0-123 


13792 


31 


15136 


15140 


13764 


14 


19139 


OOONO 


13776 


47 


13976 


01100 


13766 


14 


19139 


00004 


11900 


44 


13728 


01100 


'11812 


32 


07020 


OOOOO 


13824 


17 


05690 


J3836 


11914 


49 


13656 


0724P 


13648 


49 


13728 


OOOOO 


13896 








11996 


43 


13888 


0724P 


136*9 


19 


14262 


00002 


13880 


49 


13900 


OOOOO 


13698 








13888 


15 


14262 


00001 


13900 


43 


13920 


14260 


13912 


49 


13956 


OOOOO 


13919 








13920 


24 


14260 


14262 


13932 


46 


13684 


01200 



43! 
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27070 


0KB1 


BTM 


ERROR, 473, 9, 


AftftftjrS ANO SIMPLE VARIABLES ON SANE I/O 


13944 


17 


09930 


OOM73 


27080 




TO 


0KSW1,0KSW2 


13954 


25 


14260 


14262 


27090 




B 


OKA 




13968 


49 


13684 


OOOOO 


27100 




OORG 


•-3 




13976 








27110 


• 


THE FOLLOWING HANOLES 


IMPLIED DO LOOPS IN LISTS 










27120 


OKC 


TFM 


DKL00P,0,10 




13976 


16 


14143 


000-0 


27130 




CM 


CHI, 24,10 




13999 


14 


15139 


000K4 


27140 




BNE 


OKER 




14000 


47 


13726 


01200 


27150 




AM 


PARCNT,l,10 




14012 


11 


03348 


000-1 


27160 




BTM 


PUT, 0124, 9, 


OUTPUT LEFT PAREN 


14024 


17 


09034 


0-124 


27170 




TR 


CHI-l.CH!*!,. 


SHIFT OFF ONE CHARACTER 


14096 


31 


15138 


15140 


27180 




AM 


DKL00P,1,10 




14046 


11 


14143 


000- 1 


27190 




CM 


CHI, 24, 10 




14040 


14 


19139 


000K4 


27200 




BE 


OKG 




14072 


44 


14500 


01200 


27210 


OKO 


CM 


CHI, 40, 10 




14084 


14 


15134 


OOOMO 


27220 




BNH 


DKCM2 




1409* 


47 


13488 


01100 


27230 




CM 


CHI, 69, 10 




14108 


14 


15134 


00009 


27240 




BH 


OKER 




14120 


46 


13728 


01100 


27250 




SF 


OUTSW 




14112 


32 


07020 


ooooo 


27260 


OKLOOP 


DC 


2,0, • 




14141 




2 




27270 




-0 
BTM 


CS0AN,»*12 




14144 


17 


05440 


J4156 


27280 




BD 


•♦36.DKSN1 




1419* 


43 


14192 


14260 


27290 




C 


OKSWl ,DKSW2 




141*8 


24 


14240 


14262 


27300 




BNE 


0KB1 




14180 


47 


19444 


01200 


27310 




TO 


DKSW1,0KSW2 




14142 


25 


14240 


14242 


27320 


OK 01 


CM 


CHI, 23, 10 




14204 


14 


19139 


000K3 


27330 




BNE 


OKE 




1421* 


47 


14272 


01200 


27340 




BTM 


PUT, 0123, 8, 


OUTPUT COMMA 


14220 


17 


09034 


0-123 


27350 




TR 


CHI-l,CHm 




14240 


31 


19138 


15140 


27360 




SF 


DKE 




14292 


32 


14272 


OOOOO 


27370 


0KSN1 


OS 


2,»-3 




142*0 




2 




27390 


0KSN2 


OS 


2, — i 




14242 




2 




27390 




B 


OKO 




142*4 


44 


14094 


OOOOO 


27400 




OOftG 


•-3 




14272 








27410 


OKE 


BNF 


OKER, OKE 




14272 


44 


11720 


14272 


27420 




CF 


OKE 




14204 


11 


14272 


OOOOO 


27430 




CM 


CHI, 11, 10 




1429* 


14 


19119 


000L3 


27440 




BNE 


DKCM2 




14200 


47 


11900 


01200 


27490 




BTM 


PUT, 0111,6, 


OUTPUT BOUAL SYMBOL 


14120 


17 


0403* 


0-111 


27440 




BO 


00A-3*,FX0RFL,, 


60 TO 00 C 001 NO POM IMPLIED 00 LOOP 


14212 


41 


12402 


0*405 


27470 




9 


OKER 




14144 


49 


11729 


OOOOO 


27440 




OOftG 


•-1 




14142 








27440 


• 


ftETUftN HERE FROM DO COO I NO 










27900 


OKF 


CM 


CHI, 04, 10 




14192 


14 


19119 


000-4 


27510 




ONE 


OKEft 




142ft* 


47 


11729 


01200 


27920 




BTM 


PUT, 0104*9, 


OUTPUT ftT PAftEN 


1497* 


17 


0902* 


0-104 


27530 




Tft 


CM!-l,CM!*l 




14100 


11 


19119 


19140 


27940 




SM 


PAACNT,l,iO 




14400 


12 


01148 


000-1 


27990 




9N 


OKEft 




14412 


47 


11729 


01200 


27940 




SM 


OKLOOP, 1*10 




14424 


12 


14141 


000-1 


27970 




ONI 


•♦12 




1442* 


47 


144*0 


01200 


27990 




BNft 


0KER-24,CNI42 




14*40 


49 


11704 


19141 


27990 




9 


BEGIN 




1**00 


49 


02*10 


ooooo 


27600 




OOftG 


•-3 




1***0 








27610 




CM 


CM!,21,10 




1*4*0 


14 


19119 


000ft 3 
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27620 




ONE 


DKER 




1466)0 


47 


11726 


01200 


27616 




e 


DK01 




14442 


46 


14264 


06000 


27660 




0066 


•-3 




14500 








27656 


OK 6 


• 76 


PUT ,01 24, 6, 


00724* LIFT P66JN 


1496)0 


17 


06066 


0-124 


27666 




AM 


6A6CN7.1. 14 




14912 


11 


01146 


060-1 


27670 




76 


CMS-ltCHl*| 




14924 


31 


19116 


15140 


27660 




AM 


OK I GOP, 1,14) 




14914 


11 


14141 


000-1 


27690 




CM 


CHI*24,10 




14946 


14 


Wilt 


00064 


27700 




BE 


• ♦26 




14966 


44 


14994 


01200 


27710 




6 


060 




14972 


46 


14694 


00000 


27720 




0066 


•-3 




14966 








27710 




BTM 


PUT .0124*6, 


0LTT6T yEM PAAf N 


16960 


17 


06014 


0-124 


27740 




AM 


PARCNT,lr40 




14962 


11 


01146 


060-1 


27750 




7R 


CMI-ltCHI*l 




14464 


31 


19119 


1 5140 


27760 




AM 


OKLOOP.t.W 




14616 


11 


14141 


060-1 


27770 




8 


DKD 




14621 


46 


14064 


06000 


27760 




006 C 


•-3 




14616 








27760 


66 OCT 


DAC 


3,060 




146J7 




3 


X 2 






ORB 














27600 




DC 


2,06 




14641 




2 




27810 


SWSET 


-0 
DC 


3,00* 




14646 




3 




27820 




-0* 
OORG 


16000 




16000 








27§30 




TFM 


I0RT,«+23 




16000 


14 


00965 


J6023 


27140 




B 


I0PT.BLK5W 




16012 


49 


00532 


-9794 


27150 




TRA 






16024 


36 


00000 


00500 












16036 


49 


00006 


00000 


27860 




TCD 


16000 




16000 








27170 


• 


OUT OF CORE 660CK 6 


CONTAINS THE FOLLOWING 










27880 


• 


OUTSC 














27890 


• 


CALL 














27900 


» 


RETURN 












27910 


• 


IF 














27920 


• 


IFSENSESWIKH 












27936 


• 


GOTO 














27940 




D06G 


I OUT 




IO200 








27950 




TFM 


FM0NOS,BLK4, r 


I OUT 


10260 


16 


02349 


-9771 


27960 




BTM 


FMON, I OUT 




10212 


17 


02324 


J0200 


27970 




TFM 


FMOM*35.BLK2 




16224 


14 


02319 


-9725 


27960 




BTM 


FNON.NONARA 




10236 


17 


02324 


J0224 


27990 




TFM 


FM0NO5,64.Kl,, 


OIM 


10248 


16 


02359 


-9702 


28000 




BTM 


FM0N,OIM 




10260 


17 


02324 


J0246 


28010 




TFM 


FM0NO5.BLK1,, 


COMMON 


10272 


16 


02359 


-9702 


28020 




BTM 


FMON, COMMON 




10264 


17 


02324 


J0272 


28030 




AM 


PARCNT, 01,10, 


IF 


10296 


11 


03348 


000-1 


28040 




B 


IFl 




10306 


49 


13284 


00000 


28050 




CM 


CHI, 54,10, 


GOTO 


16320 


14 


15139 


000N6 


28060 




8 


GGTOEN 




10312 


46 


14120 


00000 


28070 




CM 


CHI, 53,10, 


CALL 


10344 


14 


15139 


000N3 


28080 




8 


CALLEN 




10356 


49 


12051 


00000 


28090 




BTM 


COLMAM, 03,16, 


RE TORN 


10366 


17 


04656 


000-3 


28100 




B 


RETRN 




10396 


49 


13146 


00000 


28110 




TFM 


FM0N*35,BLKl, t 


FORMAT 


10362 


14 


02356 


-9702 


28120 




BTM 


FMON, FORMAT 




10404 


17 


02324 


J0392 



433 
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28130 




TFM 


FM0N+35,BLK4,, 


000 


10416 


16 


02359 


-9771 


28140 




BTM 


FMON, 000 




10426 


17 


02324 


J0416 


28150 




TFM 


FMON*35,BLK3,, 


ASCAN 


10440 


16 


02359 


-9748 


28160 




BTM 


FMON, ASCAN 




10452 


17 


02324 


J0440 


28170 




BO 


SCl.SINGST,, 


0U7SC 


10464 


43 


10884 


10078 


28180 




B 


OUTSC 1 




10476 


49 


10512 


00000 


28190 




TFM 


FMQN*35*BLKS, , 


01 S* INPUT/OUTPUT 


10488 


14 


02359 


-9794 


28200 




BTM 


FMON.OKIO 




10500 


17 


02324 


J0488 


28210 




OUTSC COOE IS HERE 












28220 




OORG 


ASCAN1 




12058 








28230 


• •• 


ENTER HERE TO OECONPOSE CALL STATEMENT ••• 










28240 


CALLEN 


BNE 


ERROl 




12058 


47 


04282 


01200 


28250 




TR 


CHI-UCHIM 




12070 


31 


15136 


15140 


28260 




BTM 


C0LN6M,04, 10 




12062 


17 


04654 


000-4 


28270 




C 


SYN,EKITCT*6 




12094 


24 


10059 


13129 


28280 




BV 


CALLER-48 




12106 


46 


12154 


01400 


28290 




BE 


EXITCD 




12116 


46 


12642 


01200 


28300 




C 


SVN,L!N*CT*6 




12130 


24 


10659 


13137 


28310 




BE 


LINKCO 




12142 


46 


12718 


01200 


28320 




TOM 


CALLSW,1 




12194 


15 


10089 


00001 


28330 




BTM 


PUT, 138, 8, CALL 




12146 


17 


09036 


0-138 


28340 




CM 


CHI, 40, 10 




12176 


14 


15116 


OOONO 


28350 




BH 


• ♦24 




12190 


46 


12214 


01100 


28360 


CALLER 


BTM 


ERROR, 279,9, 


INCORRECT CAM. NAME 06 LIST 


12202 


17 


09330 


00*79 


28370 




CM 


CHI, 69, 10 




12214 


14 


19139 


00009 


28380 




BH 


CALLER 




12226 


46 


12292 


01100 


28390 




SF 


QUTSM 




12216 


32 


076JO 


00000 


28400 




BTM 


CS0AN,»M2 




12250 


17 


09690 


J2262 


28410 




BNR 


CALL0,CHI*2 




12262 


49 


12316 


15141 


28420 




BO 


CALLA, I NSW 




12274 


41 


12219 


03279 


28430 




BTM 


PUT, 0151, 8, 


FUNCTION ONER ART OR CALL 


12266 


17 


09Q26 


0-153 


28440 




TOM 


SMCNT,,6 




12296 


15 


072 4P 


00000 


66450 




DC 


!,»,• 




12109 




I 




26460 




6 


6EGIN 




12110 


49 


02619 


00000 


28470 




OORG 


•-1 




12118 








28472 


CALLA 


BNR 


ERR09,S6CMT,11 




12119 


49 


07696 


07246 


26474 




B 


BEGIN 




12210 


49 


02618 


00006 


28476 




OORG 


•-1 




12126 








28480 


CALLS 


BO 


•♦24,PNTSM 




12118 


41 


12162 


10060 


26490 




BTM 


ERROR, 279, 9. 


$76 PREVIOUSLY USEO NOT AS CALL NAME 


12196 


17 


09120 


06676 


28900 




BNF 


•♦20.PN7SM 




12162 


44 


12162 


10060 


28510 




8 


•-24,,, 


7R7IN6 70 CALL SINGLE STATHNT PUNC7 


12174 


49 


12190 


00000 


28520 




D06C 


•-1 




12262 








28530 




TOM 


FNTSW.O 




12262 


19 


10060 


00600 


28540 




CM 


CHI, 24,10 




12164 


14 


19119 


060R4 


26990 




BNE 


CALLER 




12466 


67 


11201 
06616 


61200 


26960 




BTM 






12419 


17 


0-124 


28970 




AN 


PARCN7,1,10 




12620 


11 


06966 


000- 1 


28960 




CM 


CHI*2,4,10. 


TEST FOR NO FUNCTION A66UEMEN7S 


12442 


14 


19441 


060-4 


29600 




BE 


CALLER 




12494 


44 


10262 
16462 


61266 


28610 


CALL 1 


7FN 


ASCAN+21.CLASEN 




12466 


14 


J 44 76 


26620 




6 


ASCAN, ,« 


60 70 A*!7MNfU£ SCAN 


12472 


44 


10666 


00660 


29690 




006G 


•-1 




12466 








29760 CALL2 


CM 


CHI, 21, 10, 


mr P6J6 N66J MHfWTS 


12466 


16 


19129 


66662 


29790 




9NE 


•♦22 




12466 


47 


12690 


61260 
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28600 




BTM 


RUT, 123, 8, COMMA 


12510 


17 


09036 


0-123 


28620 




a 


CALL1 


12522 


49 


12466 


ooooo 


28830 




OORG 


•-3 


12530 








21140 




cm 


CM!, 4, 10 


12530 


14 


13139 


000-4 


28830 




BE 


• ♦32 


12542 


46 


12574 


01200 


28860 




TFM 


ASCAN*2S,ASC1 


12554 


16 


10463 


J2658 


28670 




8 


ASCAN, , , GO TO SCAN ARITH EXPRESSION OPERATOR 


12544 


49 


10440 


OOOOO 


28810 




DOUG 


•-3 


12574 








28890 




BTM 


PUT, 104, 8, RIGHT PAREN 


12574 


17 


09036 


0-104 


28900 




SM 


PARCNT,1,10 


12584 


12 


03348 


000-1 


28910 




TR 


CMI-1,CHI*1 


12598 


31 


15138 


15140 


28920 




62 


• ♦32 


12410 


46 


12642 


01200 


28930 




BNR 


CALL2.CHI+2 


12422 


45 


12486 


15141 


28940 




8 


CALLER 


12634 


49 


12202 


OOOOO 


28950 




OORG 


•-3 


12642 








28960 




BNR 


CALLER, CHI+2 


12642 


45 


12202 


15141 


28970 




B 


8EG1N 


12654 


49 


02638 


OOOOO 


28980 




OORG 


•-3 


12662 








28990 


EXITCD 


BNR 


CALLER-48.CHIM0 


12662 


45 


12154 


15149 


29000 




TON 


TRIND,l,ll 


12674 


15 


03185 


OOOOJ 


29010 




BTM 


PUT, 0131, 8, CALL EXIT SYMBOL 


12686 


17 


09036 


0-131 


29020 




BTM 


PUT, 0140,8, DUMMY 


12698 


17 


09036 


0-140 


29030 




B 


BEGIN 


12710 


49 


02638 


OOOOO 


29040 




OORG 


• -3 


12718 








29050 


I INKCD 


CM 


CHI*8,24,10 


12718 


14 


15147 


000K4 


29060 




BE 


• ♦32 


12730 


46 


12762 


01200 


29070 




BNR 


CALLER-48,CHI*8 


12742 


45 


12154 


15147 


29080 




B 


ERROl 


12754 


49 


04282 


OOOOO 


29090 




OORG 


• -3 


12762 








29100 




TON 


TRIND.1,11 


12762 


15 


03185 


OOOOJ 


29110 




BTM 


PUT, 0152, 8, CALL LINK SYMBOL 


12774 


17 


09036 


0-152 


29120 




BTM 


PUT, 0140, 8 


12786 


17 


09036 


0-140 


29130 




BTM 


PUT, 0140, 8 


12798 


17 


09036 


0-140 


29140 




TR 


CHI-l.CHI+9 


12810 


31 


15138 


15148 


29150 




CM 


CHI, 40, 10 


12822 


14 


15139 


OOOMO 


29160 




3NH 


CALLER 


12834 


47 


12202 


01100 


29170 




CM 


CHI, 69,10 


12844 


14 


15139 


00009 


29180 




BH 


CALLER 


12858 


46 


12202 


01100 


29190 




TR 


□UTAR , MASKLK 


12870 


31 


13138 


13152 


29200 




TF 


OUTAR+I.CHI 


12882 


26 


13139 


15139 


29210 




TR 


CH!-l,CH!+l 


12894 


31 


15138 


15140 


29220 




TFM 


LKCD3+6,0UTAR*3 


12904 


16 


12968 


J3141 


29230 


LKCD1 


CM 


CHI, 40,10 


12918 


14 


15139 


OOOMO 


29240 




BNH 


LKC04 


12930 


47 


13006 


01100 


29250 




BNR 


LKCD3,LKCD3*6,li 


12942 


45 


12962 


1296Q 


29260 




B 


ERROl 


12954 


49 


04282 


OOOOO 


29270 




OORG 


— 3 


12962 








29280 


LKCD3 


TF 


.CHI, 


12962 


26 


00000 


15139 


29290 




TR 


CHI-ltCHI+1 


12974 


31 


15138 


15140 


29300 




AM 


LKCD3+6.02.10 


12986 


11 


12968 


000-2 


29310 




B 


LKCDl 


12998 


49 


12918 


OOOOO 


29320 




OORG 


• -3 


13006 








29330 


LKC04 


CM 


CHI, 04, 10 


13006 


14 


15139 


000-4 


29340 




BNE 


ERROl 


13018 


47 


04282 


01200 


29380 




BNR 


ERROl, CHI *4 


13030 


45 


04282 


15143 


29390 




CF 


□UTAR^2 


13042 


33 


13140 


OOOOO 



435 
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29400 




CF 


0UTAR*6 








13054 


33 


13144 


OOOOO 


29410 




CF 


OUTARMO 








13066 


33 


13148 


OOOOO 


29420 




BT 


PUT.OUTAR+3 








13078 


27 


09036 


13141 


29430 




BT 


PUT,0UTAR*7 








13090 


27 


09036 


13145 


29440 




BT 


PUT,0UTAR*11 








13102 


27 


09036 


13149 


29450 




B 


BEGIN 








13114 


49 


02638 


OOOOO 


29460 




OORG 


•-3 








13122 








29470 


EXITCT 


DAC 


4, EXIT 








13123 




4 


X 2 






EXIT 


















29480 


LINKCT 


DAC 


4, LINK 








13131 




4 


X 2 






LINK 


















29490 


OUTAR 


OSS 


14 








13138 




14 




29500 




DC 


4,0 








13153 




4 








-000 


















29510 


MASKLK 


OS 


.•-3 








13152 




0 




29520 




oc 


4,0 








13159 




4 








-000 


















29530 




DC 


4,0 








13163 




4 








-000 


















29540 




DC 


2,0* 








13165 




2 




29550 




ENTER HERE TO OUTPUT RETURN 


STATEMENT •♦• 










29560 


RETRN 


C 


SYM,URNCT^4 








13166 


24 


10059 


13263 


29570 




BNE 


ERROl 








13178 


47 


04282 


01200 


29580 




BD 


•♦44, SUBFCT 








13190 


43 


13234 


02293 


29590 




BTM 


ERR0R2,577,9 








13202 


17 


09466 


OON77 


29600 




BD 


BEGIN, NOINO 








13214 


43 


02638 


03243 


29610 




B 


BEGINA 








13226 


49 


02650 


OOOOO 


29620 




OORG 


•-3 








13234 








296 30 




BTM 


PUT , 139,8, 


RETURN 






13234 


17 


09036 


0-139 


29640 




BTM 


PUT, 140,8, 


DUMMY 






13244 


17 


09036 


0-140 


29650 




TDM 


RTSW,l 








13258 


15 


05625 


00001 


29660 




B 


BEGIN 








13270 


49 


02638 


OOOOO 


29670 




OORG 


•-3 








13278 








29680 


URNCT 


DAC 


3, URN 








I327t 




3 


X 2 






URN 


















29690 




OUTPUT IF COOING 
















29700 




















OOOOJ 


29710 


IF1 


TDM 


TRIND, 1,11, 


SET TRANSFER INOICATOR ON 


13284 


15 


03185 


29720 




BTM 


PUT, 107,8, 


IF SYMBOL 






13294 


1? 


09036 


0-107 


29730 




BTM 


PUT, 124,8, 


LEFT PAREN 


SYMBOL 


13308 


17 


09036 


0-124 


29740 




BD 


•♦20,00TRAN,, 


TEST 


IF 00 


LOOP ENDING WITH TRANSFER 


13320 


43 


13340 


10079 


29750 




B 


•♦20 








13332 


49 


13352 


OOOOO 


29760 




OORG 


• -3 








13340 






00N71 


29770 




BTM 


ERR0R2,571,9 








13340 


17 


09486 


29780 




TDM 


IPSWtl,, 


SET SWITCH 


TO INOICAT IF STATEMENT 


13352 


13 


10085 


00001 


29790 




TFM 


STC.3,10 








13144 


14 


05629 


000-3 


29600 




CM 


CHI, 04, 10, 


TEST 1 


*m VACEOUS PARENS 


13374 


14 


15139 


000-4 


29810 




BE 


ERR02 








13388 


44 


13468 


01200 


29820 


• 


IFSS COOE 














000J1 


29830 




BTM 


COLNAM, 11,10 








13400 


17 


04656 


29840 




C 


SYN,SENSW>20 








11412 


24 


10059 


14321 


29850 




BV 


•♦24 








11424 


44 


13446 


01400 


29§I»S 




IE 


ERR02M2 








13414 


44 


11480 


01200 


29870 




TFM 


ASCAN*23, IFASEN 






13449 


14 


10463 


J4636 


29860 




B 


ASCAN,, , 


GO TO 


SCAN 


EXPRESSION 


11440 


49 


10440 


OOOOO 



/ 

436 
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29190 




DORG 


•«] 




13448 








29900 


€8802 


BTM 


ERR0R?72t9 




13448 


17 


09330 


00-72 


29910 




TR 


CMI-l »£NI#tl 




13410 


31 


13138 


15160 


29920 




BTM 


PUT, IMti«SfNSI 


SWITCH SYMBOL 


13492 


17 


09034 


0-130 


29990 




CM 


CMI • 70* 10 




13504 


14 


19139 


OG0PO 


29940 




SM 


• ♦24 




13914 


46 


13540 


01 100 


79990 




BTM 




f MI TCM NUMBER IN ERROR 


1352S 


17 


09330 


00J74 


29940 




TOM 


OIMSMfl 




13540 


|9 


10084 


00001 






BTM 






13552 


17 


05398 


J3564 






TOM 


OlMSMtO 




13564 


15 


10064 


00000 


?ooon 






$YN— 3 




1 3974 


12 


10056 


00000 


tnnAO 




BT 




PUT OUT SMI TCM NI2MBER 


1 3586 


27 


09036 


10059 


*nn in 
* 






rui A 1 A 
fcnl f '•f IVl 


1 OOH FOR RIGHT r >66fM 
luw run muni BUfH 


13600 


1 4 


15139 


000-4 


30020 




KMC 






1 36 12 


47 


10332 


01200 






CM 


•AICMT .1 .1ft 




1 3624 


12 


03348 


000- 1 








• I1T lft4.A.AIfiHf 




1 3634 


17 


09036 


0-104 


? 




TCM 


tff . *. 1 ft. 
iiwtct tut 


tc y Tn OUTPUT TWO tTATPMPNT NUMBERS 


I 3648 


16 


05629 


000-2 




OUTSN 


TR 






1 3660 


31 


151 38 


15140 






SF 


OUTS W 




1 3672 


32 


07020 


00000 


innan 




CM 


r HI .AO. 1 ft 




1 3664 


14 


15139 


00009 


innon 






• ♦24 




13696 


46 


13720 


01 100 


*ni no 




BTM 


ERROR • 175,9, 


INCORRECT STATEMENT NUMBER 


13 708 


17 


09330 


OOJ75 


ift t i n 

_ 




BTM 


f % TWO. .»«•!? . . 


COLLECT AND OUTPUT STATEMENT NUMBER 


13720 


i7 


05398 


J3732 






BO 


• ♦20, I NSW 




13732 


43 


13752 


03279 












13744 


49 


13776 


00000 


\n \ f n 




DO b 


• -3^ 




1 3792 












* 






1 3752 


|| 


07194 


000-4 


%n\ In 

\f\t Tft 






m it cwf — i (Minn. 1 t 
uu i awe » « t >"auu f ii 




13764 


43 


13832 


071 9M 






an 


UUIiNfiLuIUii 


AAAMfH IF IM C DMPIlTFn Gfl TO. 


13 776 


43 


1 3908 


10086 


\n\ An 




*ll 


STC f 1 1 10 




I 3788 


12 


05629 


000- 1 


ini on 




am 






1 3800 


46 


13864 


01 100 






AMR 






13812 


45 


1 3844 


15141 


in> i ft 




A 


BEG I N 




1 3824 


49 


02638 


00000 


*n5?n 










13832 








in*»n 




BTM 


cDonR - 77. O 




1 3B32 


17 


09330 


00-77 


in?f n 


_ 


BTM 


CBano). 171.0. 


INCORRECT NUMBER 0E STATEMENT NUMBERS 


1 3844 


[ 7 


09486 


OON73 








BEGIN 




1 3856 


49 


02638 


00000 


30240 




DORG 


*~ ^ 












30270 




CM 


CHI « 23 »10 




13864 


^ 4 


151 39 


000K3 


30280 






nilTCkliAi 




1 3 876 


4 7 


1 3708 


01200 


^niftft 




AMD 


niiTtu rulti 




1 3888 


45 


13660 


15143 


30300 




a 


UUI jnt'^B 




1 3900 


49 


13708 




30310 




DORG 














30 320 


0UTSN2 


CM 


CMI 4 10 




I 3908 


^ 4 


151 39 


000-4 


30330 






ni iTt ue a ?ft 




1 3920 


47 


1 3864 


0 1 200 












1 3932 


12 


03348 


000- 1 


30350 




TB 


rut.i rui a 1 




1 3944 


3 1 


151 38 


1 5 140 


30360 




B « M 


PUT » 1U*» 8 






1 7 






30370 




BMR 


•+24»CHI +2 




1 3968 


45 


13992 


15141 


30380 


0UTSN3 


BTM 


ERROR, 176,9, 


INDEX OF C0MP. GO TO MISSING OR INVALO 


13980 


17 


09330 


00J76 


30390 




CM 


CHI, 23, 10 




13992 


14 


15139 


000K3 


30400 




BNE 


•-24 




14004 


47 


13980 


01200 


30410 




TR 


CHI-l.CHIM 




14016 


31 


15138 


15140 


30420 




CM 


CHI, 49, 10, 


TEST FOR FIXED POINT VAR 


14028 


14 


15139 


000M9 


30430 




BL 


0UTSN3 




14040 


47 


13980 


01300 


30440 




CM 


CHI. 55, 10 




14052 


14 


15139 


000N5 



437 



30450 




BH 


0UTSN3 




14064 


46 


13980 


01100 


30460 




BTM 


CS0RN,*+12 




14076 


17 


05690 


J4088 


30470 




B0 


0UTSN3,SMCNT,ll 




14086 


43 


13980 


0724P 


30480 




BT 


PUT,SMADO-l 




14100 


27 


090 36 


07193 


30490 




B 


□UTSNE-32 




14112 


49 


13812 


00000 


30500 




DORG 


•-3 




14120 








30510 




ENTER HERE TO OUTPUT GO TO STATEMENT ••• 












30520 


G0T0EN 


BNE 


SPERR 




14120 


47 


09230 


01200 


30530 




TDM 


TRIN0,l,ll, SET TRANS INOICATOR 




14132 


15 


03185 


0000J 


30540 




BD 


•♦20.00TRAN 




14144 


43 


14164 


10079 


30550 




B 


• ♦20 




14156 


49 


14176 


00000 


30560 




00RG 


•-3 




14164 








30570 




BTM 


ERR0R2,57l,9 




14164 


17 


09486 


00N71 


30580 




TR 


CHl-l,CHI*i 




14176 


31 


15138 


15140 


30590 




CM 


CHI, 24, 10, TEST FOR COMPUTEO GO TO 




14186 


14 


15139 


000K4 


30600 




BE 


COMPUT 




14200 


46 


14244 


01200 


30610 




TFM 


STC, 1,10 




14212 


16 


05629 


000-1 


30620 




BTM 


PUT, 105, 8, GO TO SYMBOL 




14224 


17 


09036 


0-105 


30630 




B 


0UTSN*12, 9 , BRANCH TO OUTPUT STATEMENT 


NUMBER 


14236 


49 


13672 


00000 


30640 




DORG 


•-3 




14244 








30650 


C0MPUT 


BTM 


PUT, 106, 6, COMPUTED GO TO SYMBOL 




14244 


17 


09036 


0-106 


30660 




BTM 


PUT, 124, 8, LEFT PAREN SYMBOL 




14256 


17 


09036 


0-124 


30670 




AM 


PARCNT.1,10 




14268 


It 


03348 


000-1 


30680 




TOM 


CGT0,i 




14280 


15 


10086 


00001 


30690 




B 


OUTSN,,. BRANCH TO OUTPUT STATEMENT 


NUMBERS 


14292 


49 


13660 


00000 


30692 




DORG 


#-3 




14300 








30700 


SENSWC 


DAC 


lUSENSESWITCH 




14301 




11 


X 2 






SENSES* 4 ! TCH 












30710 




DORG 


16000 




16000 








30720 




TEN 


I0iT,**23 




16000 


16 


00565 


J6023 


30730 




8 


!0PT,BLK6,7 




16012 


44 


00532 


-9817 


30740 




TRA 






16024 
16036 


34 
49 


00000 
00000 


00500 
00000 


30750 




TCO 


16000 




16000 









30760 DEMO 00000 
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1420 FORTRAN 11-0 



PHASE 



PAGE *1 



AOLITl 


00*08 


694*20 


09474 


0UTSM3 


13900 


BLK1 


097*0 


DIMNO 


10*77 


ADSAVE 


01471 


ENS I ON 


119*1 


OUTSNf 


190** 


BLK4A 


09779 


DIM 


102*0 


ADSUOP 


08441 


ENTLOC 


022*1 


PARCNT 


011*0 


BLR* 


09771 


OIMSM 


10004 


ADVAR1 


00204 


I0LO0P 


122S* 


PAUSEN 


11790 


ILR9A 


09002 


DINTP 


11109 


ADVAR2 


00292 


IOUIVN 


1071* 


PH80AT 


1*000 


BLR9 


0979* 


ORA 


13*0* 


AOVLOP 


00172 


ERR0R2 


09*1* 


PHBDOA 


1*008 


BLX*A 


09029 


DRB1 


13944 


ADXLIT 


00**4 


ESNOPL 


0S092 


PRO* ST 


02257 


BLR* 


09017 


ORB 


137*4 


ASC27A 


14150 


EXCESS 


0*722 


PRSCAN 


02454 


BLR7A 


090*0 


DXC 


1397* 


ASC281 


14422 


EIITCD 


12**2 


PUSTSN 


02294 


BLR 7 


098*0 


OKOl 


14204 


ASCANl 


12090 


EI1TCT 


11123 


PUTOOT 


09172 


BLR8 


02** 1 


DRD 


14084 


BEG1NA 


02*90 


FC7SND 


02318 


RETURN 


109*8 


BLOC 


0279* 


ORER 


19728 


C30ATA 


09883 


PC7ES*. 


08112 


RTCALL 


11242 


CI 


11911 


ORE 


14272 


CALLEN 


12090 


PL NUMB 


0*414 


Al 


11921 


C2 


119*1 


DRF 


14392 


CALLER 


12202 


FNTCST 


10009 


A2 


11919 


CALC 


1117* 


ORG 


14900 


CALLP2 


02400 


PNTSM1 


lOOtl 


AOL IT 


0891* 


CALL 1 


124** 


0RI01 


13240 


CALL SM 


10089 


FNTSM2 


07191 


AOSTN 


087*0 


CALL2 


12*0* 


OR 1 02 


13308 


CDOATA 


09875 


F0MAT1 


12230 


ADVAR 


0007* 


CALLA 


12110 


DRIO 


10400 


CKCNTU 


0483* 


F0RM51 


11*98 


AERR1 


09910 


CALLB 


12110 


DRL 


13*40 


CKCTAR 


0410* 


F0RM99 


12170 


AERR 


12214 


CALL 


10344 


DRPUT 


13900 


CLASEN 


14*78 


FORMAT 


10192 


AFT8L 


15035 


CARD 


1903* 


DRSM1 


142*0 


CLOGTl 


14534 


FORMER 


12734 


ALFAT 


10976 


CCNO 


09148 


DKSW2 


142*2 


CLDGT2 


14594 


FREQSH 


14170 


ASCII 


14*0* 


CGTO 


1008* 


DMVAR 


08076 


COLNAM 


04*5* 


FUNCTA 


13*98 


ASC12 


13874 


CHI5 


19819 


DOA 


12518 


COMAOO 


022*2 


FXNUMB 


0*310 


ASC14 


14*2* 


CHI 


19139 


DOB 


12*70 


C0NER2 


09542 


FXORFL 


0*405 


ASC15 


13790 


CRCN1 


04922 


DOC I 


1244* 


C0MER3 


12148 


6EN0IM 


11072 


ASC1A 


12094 


CKCN2 


09090 


DOCK 


12390 


COMINA 


11924 


GO TOE N 


14120 


ASCI 


12*58 


CKCN3 


05218 


DOC 


12294 


CONNEN 


1157* 


IATYPE 


14177 


ASC21 


13282 


CRCN4 


05118 


DOE 


12926 


COMMON 


10272 


IFASEN 


14*98 


ASC22 


12238 


CKEND 


0133* 


DOO 


10416 


COMPUT 


14244 


IFSCAN 


12274 


ASC23 


12438 


CRRN 


02954 


DO 


12190 


CONTEN 


13724 


INT0P1 


0238S 


ASC24 


12942 


CLDGT 


I447S 


EBASE 


12295 


CSTNOl 


05502 


IOLOOP 


14075 


ASC25 


1298* 


CMPAR 


0*590 


ENOCT 


10015 


DECODA 


04026 


IOUTEN 


13148 


ASC26 


1342* 


COMAB 


11812 


END 


09554 


DECODE 


03802 


IOUTER 


13240 


ASC27 


14082 


COMA 


11744 


E01 


10860 


DEFINE 


13990 


1VALEN 


13109 


ASC28 


14310 


COMC 


12024 


EQ21 


11076 


DIMERR 


07452 


LEAORL 


0310* 


ASC29 


14198 


COMER 


09942 


EQ22 


12204 


DIMNOT 


10545 


LENGTH 


02248 


ASC30 


14242 


COME 


119*8 


EQ23 


11444 


DISKS* 


02383 


LINKCD 


12718 


ASC31 


14478 


COMIN 


1187* 


EQ24 


11312 


DKIOEN 


13148 


L INKCT 


13131 


ASC3 


12550 


COMM 


120*8 


E04 


11700 


DKLIST 


13380 


LITERL 


07672 


ASC4 


12414 


CONST 


02382 


E07 


11756 


DKLOOP 


14143 


LUSTNO 


08696 


ASC6 


1252* 


COMSM 


10090 


EQBR 


11588 


DOLOOP 


12058 


MASKLK 


13152 


ASC7 


12598 


CONT 


11772 


EQR 


10788 


DOTEST 


13147 


MOOAFT 


09888 


ASC8 


13754 


CSORN 


05*90 


EQUSW 


10088 


DOTRAN 


10079 


MONCAL 


00796 


ASC9 


14986 


CSPVA 


03*42 


ERNES 


09981 


E37061 


07884 


MOVDIM 


11116 


ASCAN 


10440 


CS 


05834 


ERR01 


04282 


E83230 


10956 


MOVE IT 


11224 


ASCER 


1402* 


CSTNO 


05398 


ERR02 


13468 


E84130 


11940 


MULDEF 


02384 


AVOIO 


06018 


CTION 


13713 


ERR09 


07936 


E84180 


11984 


NNARAA 


10512 


81 


11927 


01 


11951 


ERR44 


14420 


E84240 


12056 


NONARA 


10224 


82 


11939 


02 


119*3 


ERR60 


14420 


E84330 


12160 


NONARI 


04138 


BA 


02730 


03 


11973 


ERRET 


00602 


E84560 


12472 


NOPARM 


14700 


BEGIN 


02638 


D4 


11987 


ERROR 


09330 


E 84695 


12616 


NUMBER 


06102 


BLK1A 


09710 


OEFCT 


14407 


ERSW 


05626 


E84710 


12856 


0UTS12 


13262 


BLK1 


09702 


DIM1 


1059* 


ESNO 


02736 


E84804 


13028 


OUTSCl 


10512 


BLK2A 


09733 


0IM2 


11484 


ETVPE 


12998 


F86440 


02430 


OUTSCE 


04795 


BLK2 


09725 


DIM3 


11552 


•EXIT 


09214 


E94270 


09080 


0UTSN2 


13908 


BLK3A 


09756 


DINEN 


10512 


FCMA 


13594 



439 
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FCTST 


07932 


I OF 


14236 


MODE 


06403 


SALT 


05894 


TEMP5 


04173 


FLIST 


14706 


IOG 


14420 


MON 


121*1 


SAVE1 


11551 


TEMP 


041*1 


FLNG 


02250 


IOGT 


00566 


MV1 


11*04 


SAVE2 


128*7 


TEND 


02303 


FHON 


02324 


IOLER 


13800 


MV2 


11692 


SAVE3 


11779 


TENZ 


10071 


FMSW 


10082 


IOPT 


00532 


MV3 


11740 


SCI 


10884 


TINUE 


13781 


FNTSW 


10080 


IORBC 


00520 


Nl 


02233 


SC22 


10*20 


TONY 


11508 


FOMAT 


12166 


IORT 


00565 


N2 


02238 


SC2 


0*090 


TPCST 


13615 


FORMl 


12534 


IOSK 


00554 


NO I NO 


03243 


SC3 


10928 


TRINO 


03185 


F0RM2 


12874 


IOSW 


10091 


NUMB1 


06254 


SC4 


10744 


URNCT 


13279 


F0RM3 


13046 


I0UT1 


13532 


NUMB2 


06358 


SC5 


1082* 


VARBR 


0*498 


F0RN4 


13898 


I0UT2 


13284 


NUMB 3 


06462 


SC9 


111** 


VARSM 


073*7 


FORMS 


13414 


I0UT3 


133*4 


NUMBS 


06290 


SCHI 


0*001 


NIOCK 


14252 


F0RM7 


13662 


I0UT4 


13552 


NUMB 


06182 


SO 


10788 


WIDTH 


14241 


FORMS 


13770 


I OUTS 


13424 


NXLOC 


02372 


SETDM 


10*80 


N 


02240 


FORM 


03518 


I OUT 


10200 


OMM 


10087 


SLASH 


12*38 


MM 


0229* 


FORM* 


13930 


I 


11955 


OR OCT 


14637 


SMADO 


07194 


2ER13 


10075 


FP2 


02298 


JAV 


02367 


OUTAR 


13138 


SMCNT 


07247 


SAVSYM 


02243 


FTVPE 


12954 


JOE 


0715* 


OUTSC 


10464 


SMLNG 


03917 


SEN SMC 


14301 


FXL1T 


08012 


J 


119*7 


OUTSN 


13**0 


SMTLU 


06940 


SETDM2 


1083* 


GOTO 


10320 


KLNG 


02252 


OUTSM 


07020 


SPERR 


09230 


SETDM3 


1101* 


HERE 


12692 


R 


11979 


P2PTR 


02313 


SPGS 


09314 


SETDM4 


1127* 


HOLLI 


14058 


LI 


04222 


PA1 


10934 


STAFT 


04413 


SETDM5 


11384 


HOLL 


13998 


L2 


04294 


PA2 


10782 


ST9L 


02377 


SETFRQ 


14170 


IF1 


13284 


L4 


1179* 


PAUS 


1384* 


STC 


05*29 


SETIND 


0827* 


IF 


10296 


L5 


11832 


PCNT 


14093 


STNER 


03418 


SINGST 


10078 


IFSW 


10085 


L* 


1187* 


PI 


11038 


STSN 


03*27 


SMLOOP 


07020 


IN01 


11519 


LOPHB 


1*024 


PLUS 


06818 


SUBPl 


1324* 


STNOSW 


10083 


IN02 


11538 


LEAOZ 


03374 


PLUSS 


10011 


SUBP2 


11448 


STOPEN 


13958 


INDIV 


02424 


LI TF 


07720 


PR 


12581 


SUBPA 


1112* 


SUBFCT 


02293 


INOUT 


13616 


LKCOl 


12918 


PTVPE 


12830 


SUBPF 


13208 


SUBPUT 


11280 


INSH 


03279 


LKCD3 


129*2 


PUT 


0903* 


SUBSH 


10092 


SUBTST 


08300 


INTOP 


09221 


LRC04 


1300* 


REA01 


02894 


SUBTR 


0843* 


TBLFUL 


0713* 


IOA 


13756 


LSTAO 


02308 


RECLG 


02243 


SWSET 


14*4* 


TPARCT 


14*99 


108 


13908 


LSTEN 


07011 


REP 


09987 


SVM 


10099 


UROATA 


098*7 


I0CAL 


0071* 


LUXIT 


07509 


RETRN 


131** 


TBCM 


0**99 


USEDFS 


022*3 


100 


14016 


MASK 


11999 


ROUTN 


13*45 


TBCNT 


02*29 


XCLDGT 


14*39 


IOE 


1413* 


MOOAO 


07971 


RTSW 


09*25 


TBST 


0**92 


ZERSVH 


0*919 



END OF ONE ASSEMBLY. 
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00010 




1620 FORTRAN II-D PHASE l-C 


STORAGE ALLOCATION 








00020 




DORG 


02218 




02218 






00030 




DC 


5 ,-100 




02222 




5 






-010- 










00040 




DC 


1 .2 




02223 




I 


00050 




K 

DC 


2 ,67 




02225 




2 






07 












00060 




DC 


6 ,987898 




02231 




6 






R87898 










00070 


Hi 


DC 


2 ,0 




02233 




2 


00080 


N2 


-0 
DC 


5 ,0 




02238 




5 






-0000 










00090 


W 


DC 
-0 


2 ,0 




02240 




2 


00100 


RECLG 


DC 


3 ,000 




02243 




3 






-00 












oouo 


SAVSVM 


DS 


12 .RECLG 




02243 




12 


00120 


LENGTH 


DS 


5 




02248 




5 


00130 


FLNG 


DS 


2 




02250 




2 


00140 


KLNG 


DS 


2 i>- 




02252 




2 


00150 


PROGST 


DC 


5 ,00000 




02257 




5 






-0000 










00160 


COMADD 


OS 


5 




02262 




5 


00170 


USEOFS 


DSC 


30 ,0 




02263 




30 






000000000000000000000000000000 










00180 


SU6FCT 


OC 


1 ,0 




02293 




1 


00190 


PUSTSN 


OS 


I 




02294 




1 


00200 


••• PUSTSN • 2 FOR PAPER TAPE 










00210 


••• PUSTSN - 4 FOR CAROS 










00220 


MM 


DS 


2 




02296 




2 


002)0 


FP2 


OS 


2 




02296 




2 


00240 


TEND 


DS 


5 




0230) 




5 


00250 


LSTAD 


DS 


5 




02306 




5 


00260 


P2PTR 


DS 


5 




02313 




5 


00270 


PCTENO 


OS 


5 




02318 




5 


00210 




DS 


5 




02323 




5 


00290 


FMON 


TF 


•♦42,FN0N-l, f SETUP ROUTINE 


ENTRY 


02324 


26 


02366 


00300 




TFN 


IORT,**23 




02336 


16 


00565 


00310 




8 


I0GT..7 




02348 


49 


00566 


00320 




8 


t.f 60 TO EXECUTE 


CALLED ROUTINE 


02360 


49 


00000 


00330 




DORG 


•-4 




0236T 






00340 


JAV 


OS 


1 




02367 




I 


00350 


NX IOC 


DS 


5 




02372 




5 


00360 


ST8L 


DS 


5 




02377 




5 


00370 


CONST 


DS 


5 




02382 




5 


00380 


OISKSW 


OC 


ltO 




02363 




1 


00390 


MULOEF 


OC 


1,0 




02384 




1 


00400 


INT0P1 


DSC 
0 


ltO 




02369 




1 


00410 




OC 


9.00600 




02390 




5 






-0600 











02323 
-2359 
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FACE 


00*20 




oc 


3,001 


02193 




3 








-01 












00*10 




OSA 


CARD 


0219B 






X 1 










02198 




-127* 




00*40 




OC 
* 


It 1 


02199 




1 




00*90 


CALLP2 


TFM 


FMON*35. BLKB 


02*00 


16 


02159 


— 2*61 


00*60 




BTM 


FN0N.CALLP2 


02*12 


17 


0212* 


—2*00 


00*70 


INOIV 


OS 


1 


02*2* 




1 




00*80 


• 


INOIV • 0 FOB CARDS* 1 £0R TYPEWRITER, 










00*90 


• 




FLAGGED J FOR PAPER TAFE 










00500 


TBCNT 


DS 


5 


02*29 




5 




00510 


ENTLOG 


OS 


t USEDFS+* 


02267 




0 




00520 


AFT6L 


DS 


* 15035 


15015 




0 




005)0 


CHI 


DAS 


430,15139 


15119 




*10 


X 2 


005*0 


CMI5 


DS 


, CM I* 700 


15819 




0 




00550 


I0CAL 


OS 


,716 


00716 




0 




00560 


IOGT 


DS 


• 566 


00566 




0 




00570 


IORBC 


DS 


,520 


00520 




0 




005S0 


IOPT 


DS 


,5 32 


00512 




0 




00590 


10SK 


OS 


,55* 


0055* 




0 




00600 


CRUET 


OS 


,602 


00602 




0 




00610 


IORT 


DS 


,565 


0056S 




0 




00620 


MONCAL 


DS 


,796 


00796 




0 




00630 


E 86**0 


SF 


Kl + * 


02*30 


32 


10875 


00000 


006*0 




BT 


OUTADDf PROGST, , INIT OUTPUT ROUTINE 


02**2 


27 


10270 


02257 


00650 




B 


AROUND 


02*5* 


*9 


02*8* 


00000 


00660 




DORG 


•-* 


02*61 








00670 


BLK8 


DSC 


2,22 


02*61 




2 




00680 




22 
OSA 


BLK8A 


02*67 




5 


X I 










02*67 




-2*69 




00690 




DC 


1,« 


02*68 




1 




00700 


BLK8A 


DSC 


1,0 


02*69 




1 




00710 




0 

OC 


5,17800 


02*7* 




5 








J7800 










00720 




DC 


3,136 


02*77 




3 








J36 












00730 




DSA 


CALLP2 


02*82 




5 


X 1 










02*82 




-2*00 




007*0 




DC 
• 


L, f 


02^83 




1 




00750 


AROUND 


TDM 


SYM*l,»-» 


02*8* 


15 


03400 


00000 


00760 




DC 


I » • »• 


02495 




1 




00770 




SF 


SYM* 1 , , , FLAGGED TERMINAL RM TO INDICATE CARD END 


02*96 


32 


03400 


uuuuu 


00780 




SM 


PROGST, 01, 10 


02508 


12 


02257 


000-1 


00790 




TF 


LOC. PROGST 


02520 


26 


03406 


02257 


00800 




TO 


PTRA+2 ,PUSTSN 


02532 


25 


11506 


0229* 


00810 




AM 


PTRA+2,06,10 


025** 


11 


11506 


000-6 


00820 




TFM 


SMADO, 0, 


02556 


16 


03359 


-0000 



443 
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00830 




S 


SMADD, STBL 




02568 


22 


03359 


02377 


00840 




AM 


SMA0D,5,10 




02580 


11 


03359 


000-5 


00850 




TF 


SMCNT, STBL 




02592 


26 


0336* 


02377 


00860 




SM 


SMCNT,6,10 




0260* 


12 


03364 


000-6 


00870 




TF 


MODAD, STBL 




02616 


26 


03369 


02377 


00880 




SM 


M0DAD,*,10 




02628 


12 


03369 


000-* 


00890 


E86601 


SM 


SMCNT, 10,10 




026*0 


12 


03364 


OOOJO 


00900 




SM 


MODAD, 10, 10 




02652 


12 


03369 


OOOJO 


00910 




AM 


SMADO, 10,10 




0266* 


11 


03359 


OOOJO 


00920 




BNR 


•♦20, SMCNT, 11, 


TEST FOR END OF TABLE 


02676 


*5 


02696 


0336M 


00930 




B 


E87210 




02688 


*9 


03608 


ooooo 


00940 




DORG 


•-3 




02696 








00950 




BNF 


E86601, SMCNT, 11, 


TEST FOR LITERAL 


02696 


** 


026*0 


0336M 


00960 




BNF 


STMTNO, MODAD, 11, 


TEST FOR STMNT NO 


02708 


44 


03*56 


0336R 


00970 




CF 


SMCNT, ,6 




02720 


13 


0336M 


OOOOO 


00980 




CF 


MO0AO,,6 




02712 


33 


0336R 


OOOOO 


00990 




TF 


SYM, SMADD, 11 




027** 


26 


03399 


0335R 


01000 




CF 


SMADD 




02754 


33 


03359 


OOOOO 


01010 




BD 


E 8660 1-48, MOD AD, 11 , 


BRANCH IF FIXED 


02768 


43 


02860 


0336R 


01020 




SM 


SMADD, 2, 610 




02780 


12 


0315R 


000-2 


01030 




TF 


•♦23, SMADD, 11 




02792 


26 


02815 


0335R 


01040 




TF 


SYM- 2 




0280* 


26 


03397 


OOOOO 


01050 




A 


L0C.FP2 




02816 


21 


03*06 


02298 


01060 




TF 


SMADD, LOC , 6 




02828 


26 


0315R 


03*06 


01070 




TF 


E86801+11,FP2 




028*0 


26 


02919 


02298 


01080 




B 


E 86801-12 




02852 


49 


02896 


OOOOO 


01090 




DORG 


•-3 




02860 








01100 




A 


LOC.KLNG 




02860 


21 


01*06 


02252 


OHIO 




TF 


SMADD, LOC, 6 




02872 


24 


0135R 


03*06 


01120 




TF 


E8680Ull,KLNG 




0288* 


26 


02919 


02252 


01130 




TFM 


E86820+6, SYM+1 




02896 


14 


0297* 


-3*00 


01140 


EB6801 


SM 


£86820*6,,, 


FF2 OR KLNG 


02908 


12 


0297* 


-0000 


01150 




BNC1 


• ♦60 




02920 


47 


02980 


00100 


01160 




RCTY 






02912 


3* 


00000 


00102 


01170 


ABASE 


DS 


.•-5 




02918 




0 




01180 




WNTV 


L0C-4 




0294* 


38 


01*02 


00100 


01190 




SPTY 






02986 


1* 


00000 


00101 


01200 


MOLN 


DS 


,•-5 




02942 




0 




01210 


E86820 


WNTY 






02948 


18 


00000 


00100 


01220 




AM 


SMADD, 5, 10 




02980 


11 


01159 


000-5 


01230 




TDM 


SMADD , ,6 




02992 


15 


0135R 


OOOOO 


01240 




OC 
< 


ltS» 




01001 




1 




01250 




SM 


SMADD, 5, 10 




0100* 


12 


01159 


000-5 


01260 




SF 


SMADO 




01014 


12 


01159 


OOOOO 


01270 




TF 


OUTL I T*21»f S*B20*6 




01028 


24 


01073 


0297* 


012B0 




BO 


LLl.PUSTSN 




01040 


41 


01082 


0229* 


01290 


OUTLIT 


BTM 


0UTX,«*14 




01092 


17 


09692 


-1068 


01300 




OSA 


E8480l*U,E84820*4 




01048 




9 


X 2 












01048 




-2919 














01071 




-297* 




01310 




B 


E 86601 




01074 


49 


02640 


OOOOO 


01320 




OORG 


•-3 




01082 








01310 


LL1 


TR 


CARD.CARD-81,, 


INIT FOR PUNCHING CAROS/PAPERTAPE 


01082 


11 


01274 


01191 


011*0 




TF 


CARD^*,LOC 




01094 


24 


01278 


01404 



1*20 foam* i i-o phase i-c 
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01)49 




CP 


SVNM 






0110* 


33 


01400 


00000 


onto 




TR 


CAA0»4, 184620*6, 


11 




03111 


3 1 


0)280 




01119 




$r 


SYM* I 






031)0 


32 


0)400 


00000 


011*0 




TO 


PTCD*2,PUSTSN 






03142 


29 


0)191 


02294 


01170 




TPN 


I OR?, "23 






03114 


16 


00969 


- 3 1 77 


onto 




• 


IOPT,PTCD-4,7 






03144 


49 


009)2 


-3189 


onto 




0 


OUTLIT 






031TB 


49 


0)092 


00000 


01400 




DORG 


• -4 






031B1 








01410 


PTCD 


OSA 


CARD 






03189 




1 


X 1 














03189 




-1274 




01*20 




OC 


3*00* 






01192 




3 




0 1430 




_Q • 

DNO 


10 






01242 




10 




0 1440 




DN6 


30 






03272 




30 




0 1 410 




DC 


1 » ' 






03273 




1 




01460 


CARD 


DSS 


• I 






03274 




81 




01470 


SMAOD 


OS 


5 






03319 




5 




01410 


SMCNT 


OS 


5 






03364 




1 




01490 


MQDAD 


OS 


5 






03369 




5 




01 900 


SYM 


OS 


30 






03399 




30 




onto 




OS 


2 






03401 




2 




0 1 520 


L OC 


OS 


5 






03406 




5 




0 1 1 10 




DC 


It* 






03407 




I 




0 1 140 


TEMP 


OS 


5 






03412 




5 




OHIO 


TENP2 


OS 


1 






03417 




5 




01160 


TEMP 3 


OS 


5 






03422 




5 




0 1 1 TO 


TEMPI 


DS 


5 






03427 




5 








OS 


5 






03432 




5 




0 1190 


SAVE 2 


DS 


1 






03437 




5 




0 i 600 


SAVE 3 


DS 








03442 




5 








DS 


5 






03447 




5 






EBASE^ 










03412 




5 






MQOE 


DC 


2 , 0 






03414 




2 




0 1 640 


S TMTNO 


-0 
TF 


tuu {y inn it 






03416 


26 


03399 


0335R 


0 1610 




CF 








03468 


33 


03359 


00000 








SMADO* *6 






03480 


16 


0335R 


00000 


0 1670 




nr* 


J t UUUU f 






03491 




1 








-000 
















0 1680 






m. a. it c Minn 






03492 


26 


03127 


03359 






* 








03104 


1 1 


03127 


000-5 


n i Snn 






c r mm r ? « n . 






03116 


♦ 3 


03164 


00000 


01710 


ACTY 








03128 


14 


00000 


00102 


01720 




WNTY 


SYM-3 






0 3140 


38 


03396 


00100 


01730 




BTM 


ERA0R2, 579,9 






03152 


17 


10882 


00N79 


01740 


STMNT2 


TP 


STMNU»U,SYM*l , 


.6. 


TABLE STMNT MO. AND REC MARK 


03164 


26 


0352P 


03400 


01750 




SF 


STMNT1M1, ,6, 




SET FLAG OVER R/M FOR PASS 2 


03576 


32 


0352P 


00000 


01 760 




SF 


SMADO 






03188 


32 


03319 


00000 


01770 




B 


E866QI 






03600 


49 


02640 


00000 


01710 




DO AG 








03608 








01790 


£87210 


TFM 


SVM*2..lO e 






03608 


16 


03401 


000-0 


01800 




DC 








03619 




I 





445 
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01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02110 
02140 
02170 
02180 
02190 
02200 
02210 
02220 
02210 
92240 
02210 
021*0 
02270 
02280 
02290 
02)00 
02)10 
02)20 
02)10 

02)40 
02)90 



TF 


TEMO, MOOAO 




03620 


26 


02303 


03369 


80 


E92210.SUBFCT, , 


TEST IF IN SUBPROGRAM COMPILATION 


03632 


43 


07736 


02293 


TF 


TBASE » FC TEND 




03644 


26 


07111 


02318 


B 


BUFDUM, , # 


GO TO OUTPUT BUFFER 


03616 


49 


09492 


00000 


DORG 


• -4 




03663 








TF 


SMAOD, TBASE 




03664 


26 


03319 


07155 


AM 


SMADO. It 10 




03676 


11 


03319 


000-1 


TF 


SMCNT, TBASE 




03688 


26 


03364 


07111 


AM 


SMCNT,!, 10 




03700 


11 


03364 


000-1 


TF 


MOOAD, TBASE 




03712 


26 


03369 


07115 


AM 


M0DA0,2,10 




03724 


11 


03369 


000-2 


B 


E87310O6 




03736 


49 


03780 


00000 


DORG 


• -3 




03744 








SM 


SMAOD, 10* 10 




03744 


12 


03319 


OOOJO 


SM 


MOOAO, 10,10 




03716 


12 


01369 


OOOJO 


SM 


SMCNT, 10, 10 




03768 


12 


03364 


OOOJO 


TF 


SVM,2ER13-1 




03780 


26 


03399 


11489 


C 


SMADO, TE NO, , 


TEST ?0A END OF TABLE 


03792 


24 


03319 


0230) 


BE 


E93010 




03804 


44 


08118 


01200 


6NR 


E87420, SMCNT, 11 , 


TEST FOR CONST OR VARIABLE ASSIGNED 


03816 


49 


03948 


0336M 


SM 


SMADD.01,10 




03828 


12 


0)3)9 


000-1 


BNR 


•♦32, SMAOD, 11 




03840 


41 


03872 


0331R 


AM 


SMAOD, 1,10 




03812 


11 


03339 


000-1 


B 


E87310 




0)864 


49 


03744 


00000 


DORG 


• -3 




03672 








AM 


SMAOD, 1,10 




0)872 


11 


03319 


000-1 


90 


•♦20. MOOAD, 11, 




03884 


43 


03904 


0336R 


B 


E87310 




0)896 


49 


03744 


00000 


0Q8G 


•-1 




0)904 








SM 


SMADD.10,10 




0)904 


12 


01)19 


OOOJO 


SM 


SMCNT. 10, 10 




03916 


12 


0)9*4 


OOOJO 


SM 


MOOAO. 10,10 




0)928 


12 


01)*9 


OOOJO 


8 


E87310 




0)940 


49 


0)744 


00000 


OORG 


•-1 




03948 








OMR 


•♦20. MOOAO. 11. 


TEST OP PUNCT OA SUB CALL NAME 


0)448 


49 


039*6 


0336R 


8 


E87110. 




039*0 


49 


0)744 


00000 


OORG 


•-) 




0)9*8 








BMP 


E 89820 . MOOAO, I 1 . 


BRANCH IP NOT IN COMMON 


0)9*8 


44 


09*44 


0316R 


80 


E 67*70 « MOOAO. 11. 


BRANCH IP COMMON VAR IS ARRAY 


03980 


4) 


041 BO 


0S36R 


BMP 


f 69660, SMAOD, U. 


BRANCH IP COMMON VAA MAS EOUIV 


03992 


44 


09740 


0)33R 


CP 


SMAOD* .6, 




04004 


1) 


09)98 


00000 


TP 


MOtN.RLMG 




0401* 


2* 


029*2 


02212 


•0 


•♦24.SMA00.il 




04028 


4) 


04092 


0))9R 


TP 


MDLN.PP2 




04040 


2* 


029*2 


02298 


SM 


MOOAO. 2, 10 




04092 


12 


0)3*4 


000-2 


TP 


•♦2), MOOAD, U 




040*4 


2* 


04087 


0336R 


TP 


SYM 




0407* 


2* 


09)99 


00000 


AM 
TP 


•-1.1.10 




0408B 


11 


0*0*7 


000-9 


MOOAO, •-19,61 I 




04100 


2* 


0))*A 


0400P 


TP 


Tf MP. •-29,11 




04112 


2* 


09612 


040BP 


AN 
TOM 


MOOAO, 2, 10 




04124 


11 


091*9 


000-2 


SMCNT.,* 




0413* 


19 


0))*M 


00000 


OC 

• 






04147 




S 




• TM 


PGPAT,**12,. 


TYPE AND OA PUNCH 


04 14* 


17 


10944 


•4160 


OC 


1.0 




041*0 




1 





44« 
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02360 




OSA 


TEHP-4 




02370 




DSA 


SYM-1 1 




02380 




8 


E 89740 




02390 




OORG 


•-3 




02400 


E87670 


BNF 


E88420.SMADD. 


11, 


02410 




CF 


SMADD, 1 6 




02420 




TD 


MODE, MOD AD, 11 


, 


02430 




CF 


MOOE 




02440 




SM 


MODAD, 2, 10 




02450 




TF 


AOSAVE .MODAD. 


11. 


02460 




TF 


SYM, ADSAVE, 11 


t 


02470 




SM 


SMCNT, 10,10 




02480 




TF 


TEMP, SMCNT til 


f 


02490 




TF 


MODAD, SMCNT, 611, 


02500 




AM 


MOOE, 1,10, 




02510 




MM 


MODE, 5, 10 




02520 




A 






02530 




TF 


SMCNT, ADSAVE , 


611, 


02540 




80 


• * t yinn .11 

•▼at, jn»uui ii 




02550 




TF 






02560 




B 


• ♦20 




02570 




DORG 


• -3 




02580 






WDLN, KING 




02590 




M 


SMCNT, WDLN,6 




02600 




SF 


95 




02610 




S 


99.WDLN,, 




02620 






TEMP2.99 




02630 




A 


TEMP2, TEMP, , 




02640 




SM 


MODAD, 8,10 




02650 




AM 


SMADD.4,10 




02660 




TOM 


SMADO, ,6 




02670 




OC 






02680 




SM 


SMADD, 14,10 




02690 




BTM 


PGPRT,«*12 




02700 




OC 


1,1 




02710 




J 

OSA 


TEMP-4 




02720 




OSA 


SYM- U 




02730 




OSA 


TEMP2-4 




02740 




8 


E89740 




02750 




OORG 


♦-3 




02760 




ENTER FOR COMMON Al 


02770 


E88420 


CM 


SMCNT, 0,69 




02780 




8NE 


E90620,,, 




02790 




SF 


E89660*l 





BRANCH IF COMMON ARRAY WAS EOUIV 
SAVE NUMBER OF DIM INOICIES 



MOVE VAR NAME TO SYM 

SAVE COMMON AOORESS 
SET ENTRY TO COMMON 
SAVE DIMENSION INDICES 



PICK UP NO OF ELEMENTS 



CALC TOTAL ARRAY VOLUME 

TEMP2 CONTAINS LAST ELEMENT OF ARRAY 



BRANCH IF NOT BASE 



04165 




5 


X 1 


04 165 




— 3408 




04170 




5 


X 1 


04170 




-3388 




04172 


49 


05784 


A A AAA 
00000 


04 ISO 








04180 


44 


04536 


0335R 


04192 


33 


0335R 


00000 


04204 


25 


03454 


0336R 


04216 


33 


03454 


00000 


04228 


12 


03369 


000-2 


04240 


26 


03447 


0336R 


04252 


26 


03399 


0344P 


04264 


12 


03364 


000 JO 


04276 


26 


03412 


0336M 


04288 


26 


0336R 


0336M 


04300 


1 1 


03454 


000-1 


04312 


13 


03454 


000-5 


04324 


21 


03447 


00099 


04336 


26 


0336M 


0344P 


04348 


43 


04380 


0335R 


04360 


26 


02962 


02298 


04372 


49 


04392 


00000 


04380 








04380 


26 


02962 


02252 


04392 


23 


0336M 


02962 


04404 


32 


00095 


00000 


04416 


22 


00099 


02962 


04428 


26 


03417 


00099 


04440 


21 


03417 


03412 


04452 


12 


03369 


000-8 


04464 


11 


03359 


000-4 


04476 


15 


0335R 


00000 


04487 




I 




04488 


12 


03359 


000J4 


04500 


17 


10944 


-4512 


04512 




1 




04517 




5 


X 1 


0*517 




-3408 




04522 




5 


X 1 


04522 




-3388 




04527 




5 


X 1 


04527 




-3413 




04528 


49 


05784 


00000 


04536 








04536 


14 


0336M 


00-00 


04548 


47 


06280 


01200 


04560 


32 


05741 


00000 



447 
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02800 




B 


£87670*24 




02810 




OORG 


•-3 




02820 


E88470 


TF 


EBASE , SMADO, , 




02830 




CF 


E87670 




02840 




BNF 


•♦44.E89660 




02850 




CF 


E 89660 




02860 




SM 


EBASE, 10,10 




02870 




B 


• ♦20 




02880 




OORG 


•-3 




02890 




SM 


EBASE, 1,10 




02900 




SF 


EBASE 




02910 




A 


EBASE, STBL 




02920 




SF 


EBASE-3, , , 




02930 




TF 


SAVE 1 , SMADD 




02940 




TF 


SAVE2, SMCNT 




02950 




TF 


SAVE 3, MODAD 




02960 




BNF 


•♦60,E89660*1 




02970 




CF 


E89660+1 




02980 




SM 


SAVEl, 10,10 




02990 




SM 


SAVE 2 , 10,10 




03000 




SM 


SAVE3,10,10 




03010 


E88540 


SM 


SMCNT, 10, 10 




03020 




SM 


SMADD, 10, 10 




03030 




SM 


MODAD, 10, 10 




03040 




C 


SMADD, TEND 




03050 




BE 


E89610 




03060 




BNR 


•♦20, MODAD, 11 


> 


03070 




B 


E88540 




03080 




OORG 


•-3 




03090 




BNR 


688660, SMCNT, 


U, 


03100 




BNF 


E88600, SMCNT, 




03110 




B 


E88540 




03120 




DORG 


•-4 




03130 


E 8 8600 


80 


•♦20, MODAD, 11 




03140 




8 


E88540 




03150 




DORG 


• -3 




03160 




SM 


SMAOO, 10,10 




03170 




SM 


SMCNT, 10,10 




03180 




SM 


MODAD, 10, 10 




03190 




8 


E88540 




03200 




OORG 


•-3 




03210 


E88660 


BNF 


•♦20, SMADD, 11 




03220 




6 


E 86600 




03230 




OORG 


•-3 




03240 




C 


EBASE- 1 , SMCNT 


,11. 


03250 




BNE 


E 88600 




03260 


E88710 


SM 


SMADO, 1, 10 




03270 




TF 


AOSAVE, SMADO, 


lit 


03280 




TF 


SYN«2ER13-l 




03290 




TF 


SYM, ADSAVE, 11 


* 


03300 




BO 


E 88900, MODAD, 


11, 


03310 




AM 


ADSAVE.5,10, 




03320 




CM 


AOSAVE, 0,67, 




03330 




BNE 


•♦32 




03340 




TF 


TEMPS, TEMP 




03390 




B 


•♦56, 





ENTER HERE AFTER ASSIGNING BASE VARIABLE 



GEN TABLE NUMBER 



BRANCH IF NOT SU8R OR FUNCT NAME 



BRANCH IF NO STORAGE ALLOCATION DONE 
BRANCH IF NOT STATEMENT NUMBER 



SEARCH FOR EQUIV. VARIABLE 

IS EQUIV VAR EQUIV TO PRESENT BASE 

SAVE SYMBOL ADDRESS 

MOVE SYM NAME TO SYM 

TEST IP VAR WAS DIMENSIONED 

TEST FOR ZERO OPP SET 



04572 


49 


04204 


00000 


045B0 








04580 


26 


03452 


03359 


04592 


33 


04180 


00000 


04604 


44 


04648 


05740 


04616 


33 


05740 


00000 


04628 


12 


03452 


OOOJO 


04640 


♦ 9 


04660 


00000 


04648 








04648 


12 


03452 


000- 1 


04660 


32 


03452 


00000 


04672 


21 


03452 


02377 


04684 


32 


03449 


00000 


04696 


26 


03432 


03359 


04708 


26 


03437 


03364 


04720 


26 


03442 


03369 


04732 


44 


04792 


05741 


04744 


33 


05741 


00000 


04756 


12 


03432 


OOOJO 


04768 


12 


03437 


OOOJO 


04780 


12 


03442 


OOOJO 


04792 


12 


03364 


OOOJO 


04804 


12 


03359 


OOOJO 


04816 


12 


03369 


OOOJO 


04828 


24 


03359 


02303 


04840 


46 


05672 


01200 


04852 


45 


04872 


0336R 


04864 


49 


04792 


00000 


04B72 








04872 


45 


04968 


0336M 


04884 


44 


04904 


0336M 


04896 


49 


04792 


00000 


04903 








04904 


43 


04924 


0336R 


049 16 


49 


04792 


00000 


04924 








04924 


12 


03359 


OOOJO 


0493* 


12 


03364 


OOOJO 


04948 


12 


03369 


OOOJO 


04960 


49 


04792 


00000 


04968 








0496B 


44 


04988 


0335R 


04980 


49 


04904 


00000 


049B* 








049BB 


24 


03451 


0336M 


03000 


47 


04904 


01200 


05012 


12 


03359 


000- 1 


05024 


2* 


03447 


0333R 


0503* 


2* 


03399 


11489 


0504B 


26 


03399 


0344P 


030*0 


43 


03244 


0336R 


03072 


11 


03447 


000-5 


03084 


14 


0344P 


-0000 


0309* 


4? 


05128 


01200 


0310* 


2* 


03422 


03412 


03120 


49 


03176 


00000 
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1*20 FORTRAN II -0 PHASE l-C 



PAGE 



033*0 




DO*G 


• -) 




05121 








0)170 




M 


AOSAVE ,M0LNt*» 




05121 


2) 


0)44P 


02962 


outo 




SF 


95 




05140 


12 


00095 


00000 


0)390 




A 


99, Tf MP 




05152 


21 


00099 


0)412 


0)^00 




TF 


rent )t 99 




05184 


*A 


0)422 


00099 


0)410 




TF 


SMAOD.TEHP),*, 


NOVf 01 J TINC AOOtESS TO TA1LE 


05178 


26 


0))5R 


05422 


0)420 




AN 


SMADO.lt 10 




05111 


11 


033)4 


000-1 


0)4)0 




TO** 


SMCNT,*6, 




05200 


15 


0336M 


00000 


0)440 




DC 
• 


!.».• 




05211 




1 




03450 




BTM 


PGPRT,»M2 




05212 


17 


10944 


-5224 


03440 




OC 


ltO 




05224 




1 




03470 




- 

OSA 


TENP)-4,SVH-H 




05229 




5 


X 2 












05229 




-)418 














052)4 




-3318 




03480 




8 


E89600 




052)6 


49 


05652 


00000 


03490 




oorg 


• -3 




05244 








03500 


E 88900 


sm 


SMCNT,10.10. 


ENTER FRON E8873Q 


05244 


12 


03364 


OOOJO 


03)10 




c* 


SMCNT.0.67, 


TEST FOR ZERO OFF SET 


0525* 


14 


0336M 


-0000 


03)20 




BNE 


• ♦)2 




052*8 


47 


05300 


01200 


03530 




TF 


99, TEMP 




05280 


2* 


00099 


0)412 


03540 




B 


• ♦44 




05292 


49 


05336 


00000 


03550 




OORG 


• -3 




05)00 








03*40 




M 


SMCMT, W0tN,6 




05)00 


2) 


0336M 


02962 


03570 




SF 


95 




05112 


12 


00095 


00000 


03580 


TEMP4 


OS 


»• 




0532) 




0 




03590 




A 


99, TEMP,, 


GEN ADO OF FIRST ELEMENT OF ARRAY 


05)24 


21 


00099 


0)412 


0 3600 




TF 


TEMP3.99,, 


AND NOVE TO TEN*) 


05))* 


2* 


03422 


00099 


03410 




TO 


MOOE.MOOAO.il. 




05)41 


25 


03454 


0336R 


03420 




CF 


MODE 




05)*0 


1) 


03454 


ooooo 


03610 


E89010 


TF 


TFMP5.TEMP3,, 


TEMP5 CONTAINS BASE ADDRESS 


05372 


2* 


03427 


03422 


03640 




AM 


MOOE.l.lO 




05384 


11 


03454 


000-1 


03650 




KM 


MODE .5,10 




05)9* 


U 


0)454 


000-5 


03660 




A 


AOSAVE ,99 




05601 


21 


0)467 


00099 


03670 




TF 


SMC NT, AO SAVE. 611 




05420 


26 


0336M 


0344P 


03680 




M 


SMCNT, W0LN.6 




054)2 


2) 


0336M 


02962 


03690 




SF 


95 




05444 


32 


00093 


OOOOO 


03700 




S 


99.W0LN 




05456 


22 


00099 


02962 


03710 




A 


TEMP5.99,, 


TEMPS CONTAINS ADDRESS OF LAST ELEMENT 


054*1 


21 


03427 


00099 








a *■ L.K TCI CU . . 


MB INCH IP IM fflMMftM 


05480 


44 


05528 


07 104 


03730 




C 


L0C.TEMP5 




05492 


24 


0)406 


03427 


037*0 




8H 


• ♦24 




05504 


46 


05528 


01100 


03750 




TF 


LOC , TENP3 




0551* 


26 


0)406 


03427 


03760 




C 


TEMP5, CONST 




05526 


24 


03427 


02382 


03770 




BNH 


• ♦24 




05540 


47 


05566 


01100 


03780 




BTM 


ERR0R2,575,9, 


COMMON VAR. OVERLAPS MEMORY 


05552 


17 


10882 


00N75 


03790 




TF 


SMADO, TEMPI, 6 




055*4 


26 


0333R 


03422 


03800 




AM 


SMADD, 5, 10 




0557* 


11 


0)359 


000-5 


03810 




TOM 


SMADD, ,6 




05588 


15 


0335R 


OOOOO 


03820 




OC 


l.'.» 




05599 








03830 




SM 


SMAOO, 14,10 




05600 


12 


03359 


000J4 


03840 




SM 


MOOAO, 10,10 




05612 


12 


03369 


OOOJO 


03850 




BTM 


PGPRT,»^12 




05624 


17 


10944 


-5636 
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03860 




DC 


1. 1 




05636 




1 




03870 




J 

DSA 


TEMP3-4 




Q5641 




5 


X 1 












05641 




-3418 




03880 




OSA 


SYM-U 




05646 




5 


X I 












05646 




-3388 




03890 




DSA 


TEMP 5-4 




05651 




5 


X 1 












05651 




-3423 




0 3900 


E 89600 


BNF 


E88540,EQRET 




05652 


44 


04792 


07276 


03910 




B 


E92010 




05664 


44 


07656 


OOOOO 


03920 




OORG 


•-3 




05*12 








03930 


E89610 


TF 


SMADD* SAVE 1 , , 


RESTORE ADDRESS AND CONTINUE SCAN TO 


05672 


26 


03359 


0)4)2 


03940 




TF 


SMCNT.SAVE2., 


OUTPi P! VAR STORAGE 


05*84 


26 


03364 


0)4)7 


03950 




TF 


N0DA0.SAVE3.. 




05*96 


26 


03)69 


0)442 


03960 




BNF 


£87310O6,TELSW,, 




05708 


66 


01780 


07104 


03970 




CF 


TELSM 




05720 


3) 


07104 


OOOOO 


03980 




B 


£87)1006 




05732 


69 


0)780 


OOOOO 


03990 




OORG 


•-3 




05760 








04000 


E 89660 


CM 


SMCNT,0,69, 


ENTER FROM E17470 WHEN SIMPLE VAR HAS 


05740 


16 


0))*M 


00-00 


04010 




BNE 


£90620., . 


IN COMMON ANO EQUI VALENCED 


05752 


41 


0*280 


01200 


04020 




SF 


E896&0 




05764 


32 


05740 


ooooo 


04030 




1 


187490-36 




0577* 


49 


04016 


00000 


04040 




OORG 


J 




05714 








04050 


E 89740 


INF 


•♦20.0UTCE.. 


FLAG SET AT 91210 WHEN EOUIV VAR WAS 


05714 


44 


09104 


0*9*0 


04060 




B 


E91250,,, 


POUND BEFORE COMMON IN TA1LE 


0579* 


49 


01992 


ooooo 


04070 




DORG 


•-3 




05104 








04010 




•MP 


• *20,E996*0n 




05104 


44 


09124 


09741 


04090 




• 


E11470 




0511* 


49 


04910 


OOOOO 


04100 




OORG 


•-) 




09124 








04110 




INF 


E87310.E19660 




05124 


46 


0)744 


05740 


04120 




1 


E11470 




0519* 


49 


04910 


ooooo 


041)0 




OORG 






05144 








04140 


•••••• 


ENTER FROM 17490 TO 


OUTPUT VARIABLES NOT IN COMMON 










04190 


119110 


1NP 


f 90*20 .SNAOD. 11, 


•RANCH IP VARIABLE WAS EQUIVALENCED 


09044 


44 


01210 


0))9R 


041*0 




CF 


SMAOO* ,6, 




0909* 


)) 


0S)9R 


ooooo 


04170 




TF 


WDLN.KLNG 




091*1 


28 


02912 


02292 


04180 




10 


•♦24, SNAOD. 11 




09110 


4) 


09904 


0))5R 


04190 




TP 


W0LN*PP2 




09192 


21 


02912 


02291 


04200 




A 


LOC.WOLN 




09904 


21 


0)401 


02912 


04210 




TP 


TEMP. LOC 




0991* 


21 


09412 


0)401 


04220 




SM 


SMAOO. 1.10 




09921 


12 


0)199 


000-1 


042)0 




TF 


•♦2). SMAOO. 11. 




09940 


21 


09919 


0119R 


04240 


•199)0 


TP 


SVN.,, 


MOW! SVM NAME 


09992 


21 


01199 


OOOOO 


04250 




TF 


SMAOO. LOC .1. 


NOV! 01 J TIME ADDRESS TO TAKE 


09984 


21 


0199R 


01401 


04260 




•0 


E90010.MOOAO.11. 


•RANCH IP VARIABLE IS AN ARRAY 


0997* 


4) 


01044 


0))*R 


04270 




AM 


SMAOO. 1*10 




09911 


11 


0)199 


000-1 


04210 




TON 


SMCNT* ,* 




OOOOO 


19 


0111M 


ooooo 


04290 




OC 


l.*.» 




08011 




1 




04)00 




1TM 


*6PftT.«*12 




00012 


I? 


10944 


-1024 


04)10 




DC 


1.0 




01024 




1 




04)20 




OSA 


TENP-4 




0*029 




9 


X 1 



1*20 FORTRAN 1 1-0 PHASE 1-C 



PACE 10 



043)0 


OSA 


SVM- 1 1 






E90580 


04350 


DO AG 


•— 3 


04360 E90010 


SM 


SMADD,5,10. 


04370 


TO 


MODE.MOOAO.il. 


043S0 


AM 


unnc ai t A 
HUDc iUIi 10 


04390 


MM 


unnr f\ K i f\ 

MUDfc t 0)| 10 


04400 




CftaOlAil 1 AO 


04410 


*p 


lN*L)U| fc09^5U* 1 1 ,01 1 


04420 


M 


SMADD,W0LN,6 


04430 


SF 


95 


04440 


S 


99.WDLN 


04450 




LOC • 99t » 


04460 


TOM 


SMCNT, ,6 


04470 


DC 


l.«.» 


04480 


SM 


SMADD, 4, 10 


04490 


SM 


MODAD, 10 t 10 


04500 


SM 


SMCNT, 10,10 


04310 


BTM 


PGPRT,»+12 


04320 


DC 


1*1 


04530 


J 

DSA 


TEMP-4 


04540 


DSA 


SYM-ll 


04550 


DSA 


LOC-4 



POINT TO NO OF ELEMENTS 
SAVE DIMENSION INOICES 



LOC UPOATEO TO END OF ARRAY 



04560 E9058O 
04570 
04580 
04590 
04600 
04610 
04620 • 



BNF •♦20t TELSW 
B E91730 
DORG «-3 

BNF E87310.EQRET 
B E91810 
DORG »-3 

ENTER FROM E89820 



04630 


E9062O 


TF 


SAVE 1 1 SMADDt t 


04640 




TF 


SAVE 2 , SMCNT , , 


04650 




TF 


SAVE3* MODAO, , 


04660 




TF 


ADSAVE t SMADDt • 


04670 




CM 


SMCNT, 0,69, 


04680 




BNE 


E9U20,,, 


04690 




TF 


SAVE4, SMADD 


04 700 




TF 


EBASE , SMADDt • 


04710 




SM 


EBASE-l,ltlO 


04720 




SF 


EBASE 


04730 




A 


EBASE, STBL 


04740 




SF 


EBASE- 3 


04750 


SAVE4 


DS 




04760 




TFM 


TEMP.O, 


04770 




BD 


E90850,M0DADtll 



TO ASSIGN EQUIV VARIABLES NOT IN COMMON 
SAVE ADDRESSES THEN SCAN TABLE TO 
FIND ALL VARIABLES EOUIVALENCED TO THIS 
BASE, THE VARIABLE WITH THE LARGEST 
NEGATIVE OFF-SET, IF ANY, WILL THEN BE 
ASS1GNE0 STORAGE FIRST ELSE BASE VAR 
WILL BE ASSIGNED FIRST 

SAVE REF NUMBER 



TEST FOR DIM 



06029 




-3408 




06034 




5 


X 1 


06034 




-3388 




06036 


49 


06240 


00000 


06044 








06044 


12 


03359 


000-5 


06096 


25 


03454 


0336R 


0606B 


11 


03454 


000-1 


060 BO 


13 


03454 


000-5 


06092 


21 


05963 


00099 


06104 


26 


0335R 


0596L 


06116 


23 


0335R 


02962 


06128 


32 


00095 


00000 


06140 


22 


00099 


02962 


06152 


21 


03406 


00099 


06164 


15 


0336M 


00000 


06179 




1 




06176 


12 


03359 


000-4 


06 IBB 


12 


03369 


OOOJO 


06200 


12 


03364 


OOOJO 


06212 


17 


10944 


-6224 


06224 




1 




06229 




5 


X 1 


06229 




-3408 




06234 




5 


X 1 


06234 




-3388 




06239 




5 


X 1 


06239 




-3402 




06240 


44 


06260 


07104 


06252 


49 


07380 


00000 


06260 








06260 


44 


03744 


07276 


06272 


49 


07424 


00000 


062B0 








06280 


26 


03432 


03359 


06292 


26 


03437 


03364 


06 304 


26 


03442 


03369 


06316 


26 


03447 


03359 


06328 


14 


0336M 


00-00 


06340 


47 


06852 


01200 


06352 


26 


06423 


03359 


06364 


26 


03452 


03359 


06376 


12 


03451 


000-1 


06388 


32 


03452 


00000 


06400 


21 


03452 


02377 


06412 


32 


03449 


00000 


06423 




0 




06424 


16 


03412 


-0000 


06436 


43 


06580 


0336R 
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04780 


E90750 


SM 


SMADD, 10, 10 






0644B 


12 


03359 


OOOJO 


04790 




SM 


SMCNT ,10,10 






06460 


12 


03364 


OOOJO 


04800 




SM 


MODAD, 10, 10 






06472 


12 


03369 


OOOJO 


04810 




C 


SMADD t TEND 






06484 


24 


03359 


02303 


04820 




BE 


E91410 






06496 


46 


07104 


01200 


04830 




BNR 


•♦20, MODAO, 11, 


SUBR 


OR FUNCTION NAME 


06508 


45 


06528 


0336R 


04840 




B 


E90750 






06520 


49 


06448 


00000 


04850 




DORG 


•-3 






06528 








04860 




BNR 


E90900, SMCNT, 11 , 


HAS STORAGE BEEN ALLOCATED 


06528 


45 


06624 


0336M 


04870 




BNF 


•♦20, SMCNT, 11, 


BRANCH IF NOT STATEMENT NUMBER 


06540 


44 


06560 


0336M 


04880 




B 


E90750 






06552 


49 


06448 


00000 


04890 




DORG 


• -4 






06559 








04900 




BD 


•♦20, MODAD, 11 






06560 


43 


06580 


0336R 


04910 




B 


E90750 






06572 


49 


06448 


00000 


04920 




DORG 


• -3 






06580 








04930 


E90850 


SM 


SMCNT, 10, 10 






065B0 


12 


03364 


OOOJO 


04940 




SM 


SMADD, 10, 10 






06592 


12 


03359 


OOOJO 


04950 




SM 


MODAD, 10,10 






06604 


12 


03369 


OOOJO 


04960 




B 


E90750 






06616 


49 


06448 


00000 


04970 




DORG 


•-3 






06624 








04980 


E90900 


BNF 


•♦20 v SMA00,ll, 


LOOK 


FOR EQUIV VARIABLE 


06624 


44 


06644 


0335R 


04990 




B 


E90850-20 






06636 


49 


06560 


00000 


05000 




DORG 


• -3 






06644 








05010 




C 


SMCNT, EBASE- I ,6, 


TEST 


FOR EQUIVALENCE TO BASE VARIABLE 


06644 


24 


0336M 


03451 


05020 




BNE 


E90850-20 






06656 


47 


06560 


01200 


05030 




BO 


£91050, MOOAOtllt 


TEST 


FOR DIMENSION 


0666B 


43 


06784 


0336R 


05040 




SM 


SMADD, I. 10 






06680 


12 


03359 


000- 1 


05050 




TF 


ABASE, SMADD, 11, 






06692 


26 


02938 


0335R 


05060 




AM 


ABASE, 5. 10 






06704 


11 


02938 


000-5 


05070 




AM 


SMADDt 1, 10 






06716 


11 


03359 


000-1 


05080 




c 


ABASE, TEMP, 6, 


FIND 


NEG OFF-SET 


06728 


24 


0293Q 


03412 


05090 




BNL 


E90750 






06740 


46 


06448 


01300 


05100 




TF 


TEMP, ABASE. lit 


SAVE 


NEW OFF-SET 


06752 


26 


03412 


0293Q 


05110 




TF 


SAVE4, SMADD,, 


SAVE 


TABLE AOORESS OF NEW VARIABLE 


06764 


26 


06423 


03359 


05120 




B 


E90750 






06776 


49 


06448 


00000 


05130 




OORG 


•-3 






06784 








05140 


E91050 


SM 


SMCNT, 10, 10 






06784 


12 


03364 


OOOJO 


05150 




C 


SMCNT, TEMP. 6. 


TEST 


OFF-SET 


06796 


24 


0336M 


03412 


05160 




BNL 


E90850*12 






06BOB 


46 


06592 


01300 


05170 




TF 


TEMP.SMCNT.il, 


MOVE 


IN NEW OFF SET 


06820 


26 


03412 


0336M 


05180 




TF 


SAVE4, SMADD 






06832 


26 


06423 


03359 


05190 




B 


E 90850* I 2 






06644 


49 


06592 


00000 


05200 




DORG 


•-3 






06852 








05210 


E9U20 


TF 


ADSAVE* STBL 






06B92 


26 


03447 


02377 


05220 




S 


AOSAVE-l.SMCNT.il, 


GEN 


AOORESS OF BASE 


06864 


22 


03446 


0336M 


05230 




AM 


ADSAVE ,07, 10 






06B76 


11 


03447 


000-7 


05240 




BNF 


E91320tA0SAVE.ll, 


TEST 


IF BASE IS IN COMMON, BRANCH NO, 


06B8B 


44 


07060 


0344P 


05250 




TF 


MODAD t ADSAVE 






06900 


26 


03369 


03447 


05260 




TF 


SMADDt AOSAVE 






06912 


26 


03359 


03447 


05270 




SM 


SMAOO.lt 10 






06924 


12 


03399 


•00-1 


05280 




TF 


SMCNT, AOSAVE 






06936 


26 


03364 


03447 


05290 




AM 


SMCNT, 3, 10 






06948 


11 


03364 


000-3 


05300 


OUTCE 


OS 


• •♦1 






06960 




0 




05310 




SF 


OUTCE 






06960 


32 


06960 


00000 


05320 




BD 


E87670H2.MODAD.il. 


RETURN TO OUTPUT COMMON ARRAY 


06972 


43 


04192 


0336R 


05330 




B 


E87490-48... 


RETURN TO OUTPUT SIMPLE COMMON VARIABLE 


06984 


49 


04004 


00000 
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03360 




00R6 


•— 3 












0)390 


E91290 


CF 


OUTCE 1 1 • 


ENTER rHUM KlTrSO 


06993 


31 


04960 


uuuou 


09360 




TF 


SMAODt SAVE1 




0T006 


24 


03399 


03632 


09370 




TF 


ryruf tin** 

SMCNT. SAVE2 




07014 


26 


03366 


03637 


093R0 




TF 


MOOADt SAVE 3 




07026 


24 


03349 


03662 


09390 




TF 


C m A\ * ft* 1 C M#* kj T It 

CO A 56- 1 1 5NCNT » lit 


SET UP BASE NUMBER IU 5EAKUH run 


07060 


24 


01431 




09600 




B 


cBB540^36«.» 


fuf IIHIIUIUi! mill u Ulfllll cc 

THE If HA I Ml NO EQUIV VARIABLES 


070ft 


49 


06626 


00(100 


09610 




OORG 


•-3 




07060 








09620 


E91320 


SM 


ADSAVE rltlOt 


ENTER FROM E91150 


07060 


12 


0166 7 


000-1 


09630 




TFM 


TENP.O 




07072 


16 


01612 


-0000 


09660 




TF 


ERASE" 1 1 SMCNT tilt 


SET UP BASE NUMBER 


070B6 


24 


01691 


0336M 


09690 




B 


£90900*66 




07096 


49 


06466 


00000 


09660 




OORG 


•-3 




07106 








09670 


E91610 


CM 


TENP.O. t 


ENTER FROM C9O790 AFTER SEARCHING TABLE 


07106 


16 


03612 


-0000 


096R0 




BL 


E91610... 


FOR ALL EQUIV VARlABLESt IF TEMP IS LESS 


071 16 


67 


07276 


01300 


09690 




SF 


TELSW, . f 


IF NOT NEGATIVE 


07121 


32 


07106 


00000 


09900 




C 


ADSAVE t SAVE 1 1 * 


THAN ZERO, THEN THE BASE ELEMENT IS 


07160 


26 


03667 


03632 


09910 




BNE 


•♦96ti i 


NOT ASSIGNEO FIRST 


07192 


67 


07206 


01200 


09920 




TF 


SMADOt SAVE1 




07 166 


26 


03339 


03632 


09930 




TF 


SMCNT, SAVE2 




071 76 


26 


03366 


03637 


05960 




TF 


MOOADt SAVE 3 




07 1 SB 


26 


03369 


03662 


09990 




6 


E89820+12 




07200 


69 


09896 


00000 


09960 




OORG 


•-3 




0720B 








09970 




TF 


SMADO» ADSAVE 




07208 


26 


03359 


0 3667 


055§0 




TF 


SMCNTt AOSAVE 




07220 


26 


03366 


03667 


05590 




AM 


SMCNTt 6 




07232 


1 1 


03366 


-0004 


05600 




TF 


MOOAOf AOSAVE 




07266 


26 


03369 


03467 


05610 




AM 


MOOAOtlt 10 




07296 


1 1 


03369 


000-1 


05620 




B 


689820*12 * 




07266 


♦ 9 


09896 


00000 


05630 




OORG 


•-3 




07276 








05660 


TELSW 


OS 


,691410 




07106 




0 




05650 


691610 


TF 


SAVOFStTEMPf t 


ENTER FROM E91620 tSAVE OFF-SET VALUE 


07276 


26 


07727 


03412 


05660 




TF 


SMADOt SAVE4, t 




07288 


26 


03359 


06423 


05670 




TF 


SMCNTt SAVE6 




07300 


26 


03366 


06423 


05680 




AM 


SMCNTf 6t 10 




07312 


1 1 


03366 


000-4 


05690 




TF 


MOOADt SAVE6 




07326 


26 


03369 


06423 


05700 




AM 


MOOAOf It 10 




07336 


1 1 


03369 


000-1 


05710 




SF 


EQRET 




07368 


32 


07276 


00000 


05720 


SAVAO 


OS 


, • 




07339 




0 




05730 




TF 


SAVADt ADSAVE t t 


SAVE AODRESS OF BASE ELEMENT 


07360 


26 


07359 


03447 


05760 


EQRET 


OS 


,£91610 




07276 




0 




05750 




B 


689820*12, , , 


BRANCH TO OUTPUT SVM WITH NEG OFF-SET 


07372 


69 


05856 


00000 


05760 




DORG 


•-3 




07380 








05770 


E91730 


TF 


SMADOt SAVEltt 


ENTER FROM E90600 


07360 


26 


03359 


03432 


05780 




TF 


SMCNT, SAVE2t , 


RESTORE TABLE ADORESSES AND BRANCH TO 


07392 


26 


03366 


03437 


05790 




TF 


MODAD, SAVE3, » 


ASSIGN EQUIVALENT AOORESSES 


07606 


26 


03369 


03442 


05800 




B 


688540O6 




07616 


69 


06828 


00000 


05810 




OORG 


•-3 




07626 








05820 


E91810 


TF 


SMADOt SAVADt t 


ENTER FROM E90603 


07626 


26 


03359 


07359 


058 30 






I f b A VAU 












058*0 




AM 


SMCNT, 6t 10 




07668 


11 


03366 


000-4 


05850 




TF 


MOOADt SAVAD 




07660 


26 


03369 


07359 


05860 




AM 


MODAD, 1,10 




07672 


11 


03369 


000-1 


05870 




TF 


EBASE, SAVAD 




07686 


26 


03652 


07359 


05880 




SM 


EBASE-ltl»10 




07696 


12 


03651 


000-1 


05890 




SF 


EBASE 




07908 


32 


03652 


00000 
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05900 




A 


EBASEtSTBL 




05910 




SF 


EBASE-3 




05920 




CF 


SAVOFS 




05930 


T8ASE 


DS 


t m 




05940 




BD 


•♦68 f MOOADt 


11, 


05950 




SM 


SAVAO. 1.10 




05960 




TF 


•♦30, SAVAD. 11 




05970 




AM 


•♦18.9,10 




05980 




TF 


tSAVOFSt • 




05990 




B 


E88710,,, 




06000 




DORG 


•-3 




06010 




AM 


SAVAO, 16.10 




06020 




TF 


SAVAD. SAVOFS. 


6* 


06030 




B 


E88710,.. 




06040 




DORG 


•-3 




06050 


E92010 


TF 


TEMPt TEMP3t » 




06060 




CF 


EQRET 




06070 




TF 


SMAOD.SAVEl 




06080 




TF 


SMCNT, SAVE2 




06090 




TF 


MODAO, SAVES 




06100 




SF 


TELSW 




06110 


SAVOFS 


DS 


• • 




06120 




B 


E88540O6 




06130 




OORG 


•-3 




06140 


E92210 


TF 


SUBAOO. FCTENO 


t . 


06190 




BNR 


•♦26,FCTEN0,il, 


06160 




SM 


SUBAOO .10, 10 




06170 




TFM 


£92440-23.41, 


10 


06160 




TF 


SMADD, SUBAOO 




06190 




AM 


SUBAOO .3. 10 




06200 




TF 


MOOAO. SUBAOO 




06210 




SM 


MOOAD.2.10 




06220 


E92290 


BO 


•♦32 .MOOAO. 


11. 


06230 




A 


L0C.FP2 




06260 




B 


• ♦20 




06290 




OORG 


•-3 




06260 




A 


LOCKING 




06270 




CF 


MOOAO. .6, 




06280 


SUBAOO 


OS 


t« 




06290 




TF 


SVM.2ER13-1 




06300 




TF 


•♦23.SMAOO.ll 




06310 




TF 


SVM... 




06320 




TF 


SMA0D.L0C.6, 




06330 


E92390 


BTM 


PCPRT.*M2 




06360 




oc 


1.0 




06390 




OSA 


10C-6 




06360 




OSA 


SYM-U 




06370 




SF 


SMADD. .4 




06160 




TFM 


•-11.32.10 




04390 


E 92640 


SM 


SUBAOO .20. 10 




04600 




SM 


SMADD, 20, 10 





TEST IF DIM VAR 

PLACE OFFSET INTO SYM AREA 

PLACE OFFSET INTO TABLE 
ENTER FROM E89601 



ENTER FROM E87260 TO OUTPUT SUBPROGRAM 
BRANCH IF NOT STATEMENT NUMBER 



TEST FOR FIX OR FLOAT 



MOVE NAME TO SYM 

MOVE OBJ TIME AOORESS TO TABLE 



07520 


21 


03452 


02377 


07532 


32 


03449 


00000 


07544 


33 


07727 


00000 


07555 




0 




07556 


43 


07624 


0336R 


07568 


12 


07359 


000- 1 


07580 


26 


07610 


0735R 


07592 


11 


07610 


000-5 


07606 


26 


00000 


07727 


07616 


69 


05012 


00000 


07626 








07626 


11 


07359 


000J4 


07636 


26 


0735R 


07727 


07668 


49 


05012 


00000 


07656 








07696 


26 


03412 


03422 


07666 


33 


072 76 


00000 


07680 


26 


03359 


03432 


07692 


26 


03364 


03437 


07706 


26 


03369 


03442 


07716 


32 


07104 


00000 


07727 




0 




07728 


49 


04828 


00000 


07736 








07736 


26 


07887 


02318 


07768 


49 


07772 


0231Q 


07760 


12 


07887 


OOOJO 


07772 


16 


07961 


000M1 


07766 


24 


03359 


07867 


07796 


tl 


07887 


000-3 


07806 


26 


03369 


07887 


07820 


12 


03369 


000-2 


07632 


63 


07866 


0336R 


07866 


21 


03606 


02298 


07696 


69 


07876 


00000 


07666 








07666 


21 


03606 


02252 


07676 


33 


0336R 


00000 


07887 




0 




07888 


26 


03399 


11689 


07900 


26 


07923 


0333R 


07912 


26 


03399 


00000 


07926 


26 


0139R 


03606 


07936 


17 


10966 


-7968 


07966 




1 




07993 




9 


X 1 


07993 




-3602 




07996 




9 


X 1 


07996 




-3388 




07940 


12 


0339R 


00000 


07472 


14 


07961 


000 L 2 


07964 


U 


07667 


OOOKO 


07996 


12 


01119 


OOOKO 



45 4 
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0*4 tO 




SM 


MOO AO, 20. 10 




OBOOI 


12 


03369 


OOOKO 


04420 




6NR 


E92660.SU0ADD,ll, 


TCST FOR INO Of PARAMETERS 


00020 


43 


08312 


07BBP 


04430 




SM 


SUOADDf ltlO 




06032 


12 


07887 


000- 1 


04440 




CF 


SUB ADD,, 6 




0B044 


33 


0788P 


00000 


04410 




TF 


•♦30, SUB ADO 




08056 


24 


06086 


07887 


04440 




SM 


•♦18,1,10 




0B06B 


12 


08066 


000- 1 


04470 




CF 






OBOBO 


33 


00000 


00000 


04440 




BO 


E92570,SUBA00,11, 


TEST FOR DIM VAR 


08092 


43 


08136 


07B8P 


04490 




AM 


SUBA00,1,10, 


FLAG INOICATES FUNCTION SUBPROGRAM IN 


08104 


11 


07BB7 


000*1 


06500 




AM 


IOC. 5, 10 




08114 


U 


03404 


000-3 


04510 




B 


E92390-60 




0812B 


49 


07876 


00000 


04520 




DORG 


•-3 




OB 1 36 








04530 


E92570 


AM 


LOC.S, 10 




OB 136 


11 


03404 


000-5 


06540 




CF 


MODAO, ,6 




0814B 


33 


0336R 


00000 


06550 




TF 


SYM,ZER13-1 




06160 


24 


03399 


11489 


06560 




TF 


AOSAVE»SMADD,U, 




OB 172 


26 


03447 


0335R 


06570 




TF 


SYM.ADSAVE.U, 




0B1B4 


26 


03399 


0344P 


06580 




TF 


SMA00,L0C»6, 




OB 146 


26 


0335R 


03406 


06540 




SF 


SMAD0,,6 




08208 


32 


0335R 


00000 


06600 




TO 


MODE, SUB ADD, 11, 


SAVE NUMBER OF DIMENSIONS 


08220 


23 


03454 


0788P 


06610 




SM 


SUBAD0,7,10 




08232 


12 


07887 


000-7 


06620 




MM 


MODE ,5, 10 




08244 


13 


03434 


000-5 


06630 




AM 


99,5,10 




08296 


U 


00099 


000-5 


066*0 




A 


ADSAVE t 99 




08268 


21 


03447 


00099 


06650 




TF 


SUBA0D,ADSAVE,6U 




0B2B0 


26 


0788P 


0344P 


06660 




AM 


SUBADD,8,10 




08292 


11 


07687 


000-8 


066 70 




8 


E92390 




08304 


49 


07936 


00000 


06680 




DORG 


• -3 




08312 








06690 


E 92860 


TF 


TBASE, SMADO, , 


ENTER FROM E92470 


08312 


26 


07555 


03359 


06700 




AM 


L0C,01,10, 


FOR RECORD MARK 


08324 


11 


03406 


000- 1 


06710 




AM 


CADD, 11,10 




08336 


11 


10855 


000J1 


06720 




C 


CENO,CADD 




08348 


24 


10860 


10855 


06730 




BNH 


EMP 




08360 


47 


08474 


01 100 


06740 




SM 


CADD, 11, 10 




08372 


12 


10855 


000 J 1 


06750 




CF 


CADD, ,6 




08384 


33 


1085N 


00000 


06760 




AM 


CADD, 01, 10 




08396 


U 


10855 


000-1 


06770 


GLP 


BT 


OUT ADD, IOC 




08408 


27 


10270 


03406 


06780 




BTM 


0UTK,»+16 




08420 


17 


09692 


-8436 


06740 




DSA 


CST1,L0C+1 




08436 




5 


X 2 












08436 




-9366 














08441 




-3407 




06800 




SF 


LOCM 




08442 


32 


03407 


00000 


06810 




TO 


CADD.L0CM.6 




08454 


25 


1085N 


03407 


06820 




B 


MSP 




08466 


49 


08494 


00000 


06830 




DORG 


•-« 




08473 








06840 


EMP 


SM 


CADD, 09, 10 




08474 


12 


10855 


000-9 


06850 




B 


GLP 




08486 


49 


08406 


ooooo 


06860 




DORG 


•-4 




08493 








06870 


MSP 


MM 


LOC.05,10 




08494 


13 


03406 


000-5 


06880 




BD 


BUFDUM,99 




08506 


43 


09492 


00099 


06840 




AM 


LOC.01,10 




08518 


11 


03406 


000-1 


06900 




B 


BUFOUM,,, 


GO TO OUTPUT BUFFER 


08530 


49 


09492 


OOOOO 


06910 




DORG 


•-3 




08538 








06920 




ENTER HERE FROM E87530 AFTER AIL STORAGE ALLOCATION IS 










06930 




COMPLETE 
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06940 


E93010 


TF 


DKADD,INT0Pl+5 




08538 


26 


10532 


02390 


06950 




AM 


TEND, 9, 10, 


ESPECIALLY FOR JAY 


08550 


U 


02303 


000-9 


06960 




TF 


SMADD, TBASE 




08562 


26 


03359 


07555 


06970 




TF 


SMCNT, TBASE 




08574 


26 


03364 


07555 


06980 




AM 


SMADO, 2 




08586 


11 


03359 


-0002 


06990 




AM 


SMCNT, 5 




08598 


11 


03364 


-0005 


07000 




B 


•♦32 




08610 


49 


08642 


OOOOO 


07010 




DORG 


•-3 




08618 








07020 


E93060 


SM 


SMADO, 10,10 




06618 


12 


03359 


OOOJO 


07030 




SM 


SMCNT, 10, 10 




08630 


12 


03364 


OOOJO 


07040 




C 


SMCNT, TEND, 




08642 


24 


03364 


02303 


07050 




BL 


E 936 10 




08654 


47 


09024 


01300 


07060 




BNR 


E93200, SMCNT, 11, 




08666 


45 


08686 


0336M 


07070 




8 


693060 




08678 


49 


08618 


OOOOO 


07080 




DORG 


•-3 




08686 








07090 


E93200 


BNR 


E 93060, SMADD, It, 




08686 


45 


08618 


0335R 


07100 




BNF 


•♦32, SMADD, 11 




08698 


44 


08730 


0335R 


07110 




TDM 


SMADD ,0,6 




08710 


15 


0335R 


OOOOO 


07120 




8 


E 93060 




08722 


49 


08618 


OOOOO 


07130 




DORG 


•-3 




08730 








07140 




TOM 


SMADO, 0,6, 


CLEAR RECORD MARK 


08730 


IS 


0335R 


OOOOO 


07150 




SM 


SMADO, 2, 10 




08742 


12 


03359 


000-2 


07160 


£93330 


AM 


LOC.5,10 




06754 


11 


03406 


000-5 


07170 




TF 


SSYMWK, 2ER13-1 




08766 


26 


09238 


11489 


07180 




TF 


•♦23, SMADD, 11 




08778 


26 


08801 


0335R 


07190 




TF 


SSYMWK, ,, 


MOVE FUNCTION NAME 


08790 


26 


09238 


OOOOO 


07200 


BMP 


SF 


SSYMWK-ll 




08802 


32 


09227 


OOOOO 


07210 




CM 


SSYNWK-10,00,10 




08814 


14 


09228 


000-0 


07220 




BNE 


WGP 




08826 


47 


0BBB2 


01200 


07230 




TR 


SSYMMK-U, SSVMWK-9 




08838 


31 


09227 


09229 


07240 




TFM 


SSYMWK, 00, 10 




0BB50 


1* 


09238 


000-0 


07250 




CF 


SSYMWK- 1 




08862 


33 


09237 


OOOOO 


07260 




8 


BWP 




0BB74 


49 


09802 


OOOOO 


07270 




DORG 


•-4 




0BB81 








07280 


MGP 


TF 


CARD* 11, SSYMWK 




06862 


26 


03285 


09238 


07290 




TF 


CARD*16,L0C 




0BB94 


26 


03290 


03406 


07300 




TF 


CARDH8.ALPHRM 




0690* 


2* 


03292 


09022 


07310 




TF 


SMAD0,L0C,6, 


MOVE OBJ TI ME AOORESS TO TABLE 


0B91B 


2* 


0335R 


03406 


07320 




BTM 


0UTK,»*16 




08930 


I? 


09692 


-8946 


07330 




DSA 


C ST 17, CARD 




08944 




5 


X 2 












08946 




-9020 














08951 




-3274 




07340 




AM 


SMADD, 2 ,10, 




0B992 


11 


03399 


000-2 


07350 




TF 


SVM.2ER13-1 




089*4 


2* 


03999 


11469 


07340 




TF 


SYM,E93330^47,U, 


MOVE SVM NAME 


0197* 


2* 


09999 


OBBOJ 


07370 




BTM 


PGPRT,»^12 




08968 


17 


10944 


-9000 


07380 




DC 


1,0 




09000 




1 




07390 




DSA 


LOC-4 




09003 




5 


X 1 












09005 




-3402 




07400 




DSA 


SVN-ll 




09010 




3 


X 1 



07410 



09010 

B E93060 09012 49 



•3388 

OB* IB OOOOO 



456 
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07420 


DONG 


••4 


09019 








0T4S0 CST17 


OC 


It It 


09010 




2 




07660 ALPHAN 


J6 

OG 
~ ' 


2,0* 


09022 




2 




07490 E93410 


00 


• 

• ♦20, SUtFCT 


09024 


63 






074*0 


• 


ERNEST 


09090 


69 


09240 


AAAAA 


07670 


DO AC 


•-3 


09066 








07660 


TFM 


IQAT,#*23 


09066 


16 


_ 

00565 




074*0 


B 


10GT,CQMSEC»7 


09094 


69 


00566 


—9367 


07900 


TF 


SSYMWK, IE A 13*1 


09068 


26 


09298 


1 1669 


07910 


TF 


SSYMWK, SAVSVM 


09090 


26 


09238 


02263 


07910 LTJUSF 


$F 


SSVMWK-U 


09092 


32 


09227 


AAAAn 


07930 


CM 


SSYMWK-10,00 t 10 


09 106 


14 


09226 


n?9nn 


07940 


ONE 


MVNAME 


09 116 








07990 


TA 


SSVMWK-U 1 SSVMWK-9 


09128 


3 1 


AO? 97 


no99o 


07960 


TF* 


SSYMWK, OOt 10 


09160 


16 


09238 


000*0 


07970 


CF 


SSVNWK-1 


09152 


33 


09237 


AA AAA 


07900 


0 


LTJUST 


09166 


44 


09092 




07990 


OOAG 


•-6 


09 1 71 








07600 NVNANt 


TF 


COMNAM, SSYMWK 


09172 


26 


09629 


09238 


07610 


TF 


SAVSVM, SSYMWK 


09186 


26 


02243 


09238 


07620 


TFM 


I OUT, •♦23 


09196 


16 




— 92 1 9 


07630 


8 


I0PT, COMSEC, 7 


09208 


49 


00532 


-9367 


07640 


8 


MU 


09220 


49 


09276 


00000 


07690 


OOAG 


•-4 


09227 








07660 SSVMMK 


OC 


12,0 


09239 




12 






-00000000000 










07670 


OC 
1 


lr« 


09239 




I 




07680 ERNEST 


BNF 


HUtOISKSM 


09260 


44 


09276 


02383 


07690 


80 


HUfMULDEF 


09252 


43 


09276 


02384 


07700 


BTM 


£AAOA2t670t9 


09264 


17 


10882 


00070 


07710 HU 


8TM 


0UTK,«>16 


09276 


1 7 


09692 


-9292 


07720 


DSA 


CSTlt ALFHAM 


09292 




5 


X 2 








09292 




-9366 










09297 




-9022 




07730 


TDM 


CADD.6,6, ENO OF PROGRAM INDICATOR 


09298 


15 


1085N 


00006 


07740 


TFM 


10RT,«*23 


09310 


16 


00565 


-9333 


07750 


B 


lOFTtOKOATAt 7 


09322 


49 


00532 


J 0542 


07760 


TF 


PROGST ,L0C 


09334 


26 


02257 


03406 


07770 


BV 


• ♦12 


09346 


46 


09358 


01400 


07780 


B 


CALLF2 


09358 


49 


02400 


00000 


07790 


DOAG 


•-4 


09365 








07800 CST1 


DC 


2,01 


09366 




2 




07810 COMSEC 


-1 

DSC 


2*20 


09367 




2 




07820 


20 
DSA 


COMSC 


09373 




5 


X I 








09373 




-9375 




07830 


DC 


It* 


09376 




1 




07840 COMSC 


DSC 
0 


1,0 


09375 




1 
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07850 




DC 


5 ,19669 


09380 




5 








J 966 3 










07860 




DC 


3,001 


09383 




3 








-01 












07870 




DSA 


COMAR 


09388 




5 


X 1 










09368 




-9390 




07880 




DC 
« 


lt« 


09389 




I 




07890 


COMAR 


OSS 


50 


09390 




50 




07900 




OSS 


50 


09440 




50 




07910 




OGM 




09490 




1 




07920 


COMNAM 


OS 


, COMAR* 35 


09429 




0 




07930 


• OUTPUT BUFFER-SET UP POINTER AND LAST DISK 










07940 


• 




AODRESS FOR PASS? 










07950 


BUFDUM 


TF 


LSTAO,DKADD 


09492 


26 


02308 


10932 


07960 




CM 


CADD,DISK*8 


09904 


14 


10855 


J0996 


07970 




BNE 


BFDUM1 


09916 


47 


09548 


01200 


07980 




TFM 


P2PTA,0 


09528 


16 


02313 


-0000 


07990 




B 


BF0UM2 


09540 


49 


09644 


00000 


08000 




OOAG 


•-3 


09548 








08010 


BFDUM1 


TF 


P2PTA,CEN0 


09546 


26 


02313 


10860 


08020 




SM 


P2PTA.0t$K 


09560 


12 


02313 


J0550 


08030 




CM 


P2PTR.300 


09572 


14 


02313 


-0300 


08040 




BNE 


•♦36 


09586 


47 


09620 


01200 


08050 




TFM 


P2PTA.0 


09596 


16 


02313 


-0000 


08060 




AM 


tSTAOt 03,10 


09606 


11 


02308 


000-3 


08070 




TFM 


10RT***23 


09620 


16 


00565 


-9643 


06000 




B 


I0PT.DK0ATA.7 


09692 


49 


00932 


J0542 


06090 


BF0UM2 


TFM 


C A DO. DISK 


09664 


16 


10899 


J0550 


08100 




TFM 


CEN0.0ISK4 7S 


09656 


16 


10660 


J0625 


08110 




8TM 


OUTADO.OOOOl 


09666 


17 


10270 


-0001 


06120 




• 


667270-24 


09660 


49 


03666 


00000 


06130 




OOAG 


•-4 


09687 








06160 


• 


OUTPUT CONSTANT ROUTINE 










06150 


• 














06160 


• 




6TN OUTK, •♦ 16 










06170 


• 




OSA LENGTH, HIGH-ORDER 










06160 


• 














06190 




OS 


9 


09691 




9 




06200 


OUTK 


C 


LAOOt CAOO 


09692 


24 


10669 


10955 


06210 




•E 


OUTK 2 


09706 


46 


10160 


01200 


06220 




C 


C END, CAOO 


09716 


24 


10660 


10855 


06290 




If 


ITNC 


09728 


46 


10000 


01200 


06240 


• 


TEST FOR SPACE FOR ENTIAE CONSTANT 










08290 




TF 


NX I, CAOO 


09760 


26 


10660 


10699 


08260 




TF 


WK2. OUTA-l.U, LENGTH 


09752 


26 


09629 


0969J 


06270 




TF 


MK2,WK2,ll, MOVE IN LENGTH 


09766 


2* 


09623 


0962L 


06280 




AH 


OUTK-l, 5*10 


09776 


11 


09691 


000-5 


06290 




TF 


M«9, 0UTA-l,U, CONSTANT AOOAESS 


09766 


26 


09699 


0969J 


06900 




AN 


ouTK-i, 1.10 


09600 


11 


09691 


000-1 


08310 




AN 


MK1, •-• 


09612 


11 


10660 


-0000 


06320 


MA 2 


OS 


• • 


09623 




0 




06990 




c 


WKl, CENO 


09026 


24 


10660 


10660 


06940 




•NL 


TO 


09636 


66 


00692 


01300 


06390 


OUTRI 


TA 


CAOO, •-•,6 


09666 


91 


1089N 


00000 



45a 
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01360 


MR J 


OS 


#• 




091)9 




o 




08)70 




A 


CLGTH, 


WK2,6, INCREMENT LENGTH 


09 880 


|| 


1097- 


09923 


08)80 




A 


CAD0.WK2 


09872 


|| 


10999 


0992) 


08)80 




8 


OUTK-1 


it*t 


09984 


%f 


0969J 


00000 


08400 




0080 


•-) 




09992 








08410 


* 


TRANSMIT 


DIGIT SV DIGIT 










08420 


TO 


TO 


CAOOt 


WK3,6ll, 


0989« 


29 


I089N 


0965R 


084)0 




AM 


CLGTH, 


1,610, 


09904 




1097* 


000** 1 


08440 




AM 


CAOOt 


ItlOt 


09916 


11 


10999 


000-1 


08480 




AM 


WK)» 


1,10, 




1 1 


09999 


000—1 


08480 




SM 


MK2.lt 


10 


09940 


12 


0992) 


000—1 


08470 


* 


TEST F0» 


LAST CARD 










08480 




C 


CADO* 


LADD 


09992 




10999 


1086) 


08490 




BE 


0UTK2 




09964 




101 40 


01200 


08)00 




C 


CAOOt 


CEND 


09976 


24 


1099) 


10860 


08)10 




6NE 


TO 




09989 


4T 


09992 


01200 


08)20 


• 


INCREMENT TO NEXT CARD 










08530 


I TNC 


TF 


CAOOt 


CENO 


10000 


26 


1089) 


10860 


08)40 




AM 


CAOOt 


4,10 


1 AAI 9 


1 1 


108)9 


000—4 


085)0 




TR 


CADO, 


Kl,* 


10024 


3 1 


1095N 


10871 


08)60 




TF 


• ♦35. 


CLGTH 


100)4 


26 


10071 


10670 


08)70 




SM 


• ♦23, 


3,10 


10048 


|2 


10071 


000-3 


08)80 




TF 


CADO. 


• -•,6 


10060 


26 


1085N 


00000 


08)90 




A 


CADD. 


CLGTH, 411, 


10072 


2 1 


1085N 


1087— 


08600 




TF 


CLGTH, 


CADD 


10086 


26 






08610 




AM 


CLGTH. 


3,10 


» S?!! 


1 1 


10970 


000—3 


08620 




AM 


CADD, 


4,10 


10 108 


1 1 






08630 




AM 


CENO. 


7), 10 


10 120 


1 1 




OOOP 5 


08640 




B 


OUTKl 




10 1 32 


49 


09848 


uuuuu 


086)0 




DORG 


•-3 




10 140 








06660 


• 


OUTPUT THREE SECTORS 










08670 


0UTK2 


TFM 


RETURN*6,0UTK3 




16 


i nlf n 


J0160 


08680 




8 


CKLl+12 


10 152 


49 


10460 


uuuuu 


08690 




DORG 


• -3 




10160 








08700 


0UTK3 


AM 


CADD, 


4,10 


10160 


1 1 


10855 


000-4 


08710 




TR 


CAOD, 


Kl,6 


10 172 


31 


1 085N 


10871 


08720 




SM 


CLGTH, 


3,10 


10184 








08730 




TF 


CAOD, 


CLGTH, 611 


10196 


26 


1085N 


1087- 


08740 




AM 


CLGTH, 


3,10 


10208 


1 1 


1 0870 


?o&7- 


08750 




A 


CADD, 


CLGTH, 611 




f * 






08760 




TFM 


CLGTH, 


DISK*7 


102 32 


16 


* 




08770 




TFM 


CAD0,0ISK»8 


10244 


16 


10855 


J0558 


08780 




8 


OUTKl 




102)6 


49 


09848 


AAAAA 

UUUUU 


08790 




OORG 


•-3 




10264 








08800 


• 


CONSTANT 


OUTPUT ROUTINE FOR PASS 1 










08810 


• 
















08820 


• 




BTM OUTADD, NEW ADDRESS 










08830 




OS 


5 




10268 




5 






out *nn 


AM 


CADD, 


9,10 


10270 


|| 


10855 


000-9 


08850 




C 


CEND. 


CADD 


10282 


24 


10860 


10655 


08860 




BNH 


CKLCD 




10294 


47 


10380 


01100 


08870 




SM 


CADD, 


5,10 


10306 


12 


10855 


000-5 


08880 


OUT 


TR 


CADD, 


Kl,6, CONSTANT 


10318 


31 


1085N 


10871 


08890 




TF 


CADD, 


OUTAOD-1,6, NEW ADORESS 


10330 


26 


1085N 


10269 


08900 




AM 


CADD, 


4,10 


10342 


11 


108)) 


000-4 


08910 




TF 


CLGTH, 


CADD 


103)4 


26 


10870 


10855 
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08920 




SM CLGTH, 01, 10 


10366 


12 


10870 


000-1 


08930 




BB 


10379 


42 


00000 


00000 


08940 




DORG «-9 


10)80 








08950 


• 


CHECK FOR LAST CARD 










08960 


CKLCD 


C LADD, CENO 


10380 


24 


1086) 


10660 


08970 




BE CKL1 


10)92 


46 


10448 


01200 


08980 




TF CADD, CENO 


10404 


26 


108)) 


10660 


08990 




AM CEND, 7), 10 


10416 


U 


10860 


OOOP) 


09000 


CKL 


AM CADD, 4,10 


10426 


11 


108)) 


000-4 


09010 




B OUT 


10440 


49 


10)18 


00000 


09020 




DORG •-) 


10449 








09030 


• 


OUTPUT 










09040 


CKL1 


TFM RETURN+6, CKL 


10448 


16 


10526 


J0428 


09050 


• 


DISK OUTPUT ROUTINE 










09060 




TFM IORT,#*23 


10460 


16 


00565 


J0483 


09070 




B I0PT,DK0ATA,7 


10472 


49 


00532 


J0542 


09080 




AM OKADD, 3,10 


10464 


11 


10532 


000-3 


09090 




TFM CADD, DISK 


10496 


16 


10855 


J0550 


09100 




TFM CEND, DISKWS 


10508 


16 


10860 


J0625 


09110 


RETURN 


B 


10)20 


49 


00000 


00000 


09120 




DORG »-4 


10527 








09130 


OUTDK 


DSC 1,0 


10527 




1 




09140 


OKADD 


0 

OC 5,00000 


10)32 




5 








-0000 










09150 




OC 3,003 


10)3) 




3 








-03 










09160 




DSA DISK 


10540 




5 


X 1 








10)40 




J0550 




09170 




DC lt» 
, 


10941 




1 




09160 


OKDATA 


DSC 2,02 
02 


10942 




2 




09190 




OSA OUTOK 


10949 




5 


X 1 








10949 




J0927 




09200 




DC It* 


10949 




1 




09210 


• 


OUTPUT DISK AREA 










09220 


OISK 


DSC )0t0 


10990 




90 








00000000000000000000000000000000000000000000000000 










092)0 




OSC SOtO 


10800 




90 








00000000000000000000000000000000000000000000090000 










09240 




DC It* 
t 


10890 




1 




09290 




DSC 49 tO 


10891 




49 




09240 




OSC )0»0 


10700 




90 








00000000000000000000000000000000000000000000000000 










09270 




OSC )0,0 


10790 




90 




09290 




OSC 50,0 


10900 




SO 




09290 




OS 1 


10990 




1 




09)00 


CAOD 


DSA DISK* 101 


10999 




) 


X 1 
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10099 




JA681 




otno 


cmo 


osa 


otto ISO 


10860 




* 


X X 










tO AAA 




IA7AA 




Of 110 LA00 


OSA 


OISKOOO 


108*9 




9 


X 1 










108*9 




40890 




04110 CLGTM 


OSA 


0ISK+1O8 


10070 




9 


X 1 










10870 




JO*98 




09140 


XI 


OSC 


2,02 


totri 




2 




09110 




02 
OC 


2,0 


1007* 




2 




091*0 




•0 

oc 

1 


it* 


10079 




1 




09170 


WK1 


oc 


9,0 


10880 




5 








-0000 










09110 


• 


DfttO 










09190 


188082 


TF 


ER»ES*16.«-1 


10882 


26 


10919 


10881 


09*00 




8CTV 




1009* 


34 


AAAAA 


00102 


09*10 




WATY 


ERNES 


10906 


39 


10921 


00100 


09*20 




88 








AAAAA 


AAAAA 


09*10 




008G 


•-9 


10920 








09440 


ERMES 


0AC 


9, ERROR 00* 


1092 1 




q 


X 2 






ERROR 00* 










09*90 


• ••• 


PGPRT WILL TYPE IF PROGRAM SWITCH 1 ON 










09**0 






PUNCH TAPE IP PUSTSN • 2 










09470 


# 




PUNCH CARDS IP PUSTSN * 4 










09410 


# 














09490 




LINKAGE TO PGP8T 










09900 






8TM PGPRT, t*12 










09910 


# 




DC l,X,, X« 0 OR 1 










09920 






OSA SA0DR-4,NAME,EA00R-4 










09910 
















09940 




OS 


9 


tno2f 








09990 


PGPRT 


TFM 


FAF1**,RACAR0*1 




16 


10999 


J 1 341 


099*0 




TF 


FAFl-l.PGPRT-l 




26 


10991 




09970 




AM 


FAFl-1,09,10 






10991 


000-9 


09980 




TF 


FAFl*ll.»-» 


inann 


7A. 




AAAAA 


09990 


PAF 1 


TO 


•- MOVE IN START ADDRESS 


* 7 


25 


nnAAit 


QOUUU 


09600 




AM 


FAF1»6,2,10 


1 1004 


1 1 


10998 


000- 2 


09610 




AM 


FAFl*ll,Oi,lO 


1101* 


1 1 


1 1001 


000—1 


09620 




CM 


FAF1*6.RACAR0*9 


1 t 2f A 


1* 




Al ?AA 


09610 




BNH 


FAF1 


1 1040 


♦ 7 


10992 




09640 




AM 


FAFl-1,9,10 




1 1 


10991 


000 9 


09690 




TF 


•♦23.FAFl-l.il 


1 106% 


26 


1 1087 


1099J 


09660 




TR 


RACARD+12,*-*,, MOVE IN NAME 


1 1076 


11 


1 1 192 


AAAAA 


09670 




80 


FAFl,PGPRT-l,ll, BRANCH IF END ADDRESS REQUIRED 


1 1088 


61 


11212 


1094L 


09680 




TF 


RACARDO5.10ZER0 


1 1 !?> 


?? 


\ \a I? 


1 1487 


09690 




AM 


FAFl-1,2,10 


1 1 » tf 


1 1 


10991 




09700 


FAF2 


BNC1 


• ♦36 


1 1 12* 




11160 


00100 


09710 




RCTV 




1 1 136 


34 


00000 


00102 


09720 




WATY 


RACARD*i 


11148 


39 


111*1 


00100 


09710 




BO 


•♦20, PUSTSN 


111*0 


41 


11190 


02294 


09740 




B 


FAFl-1,,6 


11172 


69 


1099J 


00000 
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09790 




DQRG 


•-1 


11180 








09760 




TFM 


I0RT,»*21 


11180 


I* 


00969 


J1203 


09770 




B 


I0PT,PTRA-4,7 


11192 


69 


00932 


J1900 


09780 




8 


FAFl-1,,6 


11204 


49 


1099J 


00000 


09790 




OORG 


•-* 


11211 








09800 


FAF3 


TF 


RACAR0O5,RAMASK 


11212 


2* 


11373 


11918 


09810 




AM 


PAFl-1,05,10 


11224 


11 


10991 


000-5 


09820 




TFM 


FAF4*4,RACAR0*27 


11216 


1* 


11266 


J1167 


09810 




TF 


FAF4M1,FAF1-1,U 


11248 


2* 


11271 


1099J 


09840 


FAF4 


TO 


•-•,»-•,, MOVE IN ENO AODRESS 


11260 


29 


00000 


00000 


09830 




AM 


FAF4**,2»10 


11272 


11 


11266 


000-2 


09860 




AM 


FAF**U.1»10 


11264 


11 


11271 


000- 1 


09870 




CM 


FAF4*6,RACAR0+!9 


1129* 


I* 


11266 


J1175 


09680 




BNH 


PAF4 


11108 


67 


11260 


01100 


09890 




AM 


PAP 1-1,1,10 


11120 


U 


10991 


000- 1 


09900 




B 


FAF2 


11112 


69 


11126 


00000 


09910 




DORG 


•^1 


11340 








09920 


RACARO 


DSC 


12,707070707000 


11340 




12 








707070707000 










09910 




DS 


24 


11373 




26 




09940 




DC 
_ , 


2,0* 


11377 




2 




09950 




DC 


90,0 


11427 




50 








-ooooooooooooooooooooooooooooooooooooooooooooooooo 










09960 




DC 


90,0 


11477 




50 








-0000000000000000000000000000000000000000000000000 










09970 




DC 


22,0 


11499 




22 








- 000000000000000000000 










09980 


102ERQ 


DS 


.•-12 


11407 




0 




09990 


11811 


DS 


,•-9 


11490 




0 




1 0000 


PT8A 


OSA 


RACARD+1 


11904 




9 


x 1 










1190* 




JU*l 




10010 




OC 


1,00* 


11907 




1 




10020 


8ANASK 


-0« 
DC 


11,07070707070 


11919 




11 








-7070707070 










10010 


• 


Of NO 










10040 




0086 


1*000 


1*000 








10090 


IL87 


OSC 


2,22 


14000 




2 








22 












100*0 




OSA 


8LK7A 


1*004 




9 


X 1 










14004 




24008 




10070 




OC 
• 




14007 




1 




10080 


•181 A 


OSC 
0 


1,0 


14000 




I 




10090 




oc 


9,17700 


14011 




9 








J7700 










10100 




oc 

400 


9 .100 


14014 




1 




10110 




Oli 


100440 


14011 




9 


8 1 










14021 




-2410, 




10120 




oc 




14012 




I 
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MCE 22 



10130 IDPHC TFN I0RT,»*23 
10140 0 I0PT,IU? t 7 

10190 TRA 



10140 



TCO LDRHC 



14024 14 00949 44047 

14014 40 00932 J 4000 

14040 34 00000 00900 

14040 49 00000 00000 
14024 



10170 



OENO 
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PHASE l-C 








PAGE 


23 


10ZER0 


11467 


E90580 


06240 


PUSTSN 


02294 


FP2 


02298 


SAVE1 


03432 


AOSAVE 


03447 


E90620 


06280 


RACARO 


11340 


GLP 


08408 


SAVE2 


03437 


ALPHRH 


09022 


E90750 


06448 


RAMASK 


11518 


HU 


09276 


SAVE 3 


03442 


AROUND 


02484 


E90850 


06580 


RETURN 


10520 


INDIV 


02424 


SAVE4 


06423 


BFDUMl 


09548 


E 90900 


06624 


ABASE 


02936 


I0CAL 


00716 


SNADD 


03359 


BF0UH2 


09644 


E91050 


06784 


AFTBL 


15035 


IOGT 


00566 


SMCNT 


03364 


BUFDUM 


09492 


E9U20 


06852 


BLK7A 


16008 


IOPT 


00532 


STBL 


02377 


CALLP2 


02400 


E91250 


06992 


BLK7 


16000 


I0R6C 


00520 


SYN 


03399 


COMADD 


02262 


E91320 


07060 


BLK8A 


02469 


I0RT 


00565 


TBASE 


07555 


CONNAM 


09425 


E91410 


07104 


BIKB 


02461 


IOSK 


00554 


TBCNT 


02429 


CONSEC 


09367 


E91610 


07276 


BMP 


08802 


ITNC 


10000 


TO 


09692 


DISKSW 


02383 


E91730 


07360 


CAOO 


10855 


JAY 


02367 


TELSW 


07104 


DKDATA 


10542 


E91810 


07424 


CARD 


03274 


Kl 


10871 


TENP2 


03417 


E86440 


02430 


E92010 


07656 


CENO 


10660 


KING 


02252 


TENP3 


03422 


E 86401 


02640 


£92210 


07736 


CHIS 


15839 


LADD 


10865 


TENP4 


05323 


E86801 


02908 


E92290 


07632 


CHI 


15139 


LDPHC 


16024 


TENP5 


03427 


E86820 


02968 


E92390 


07936 


CKL1 


10448 


LLl 


03082 


TENP 


03412 


E872L0 


03608 


E92440 


07984 


CKLCD 


10360 


LOC 


03404 


TEND 


02303 


687270 


03686 


E92570 


08136 


CKL 


10428 


LSTAD 


02308 


WDLN 


02962 


E87310 


03744 


E 92 660 


06312 


CLGTH 


10670 


NOOAD 


01369 


WGP 


08882 


E 6 7420 


03948 


£93010 


06518 


COMAR 


09390 


NOOE 


03454 


WK1 


10680 


E87490 


04052 


E93060 


06616 


COHSC 


09375 


NSP 


08494 


WK2 


09623 


E87670 


04180 


E93200 


06666 


CONST 


02382 


Nl 


02233 


MK3 


09659 


E88420 


04536 


E93330 


06754 


CST17 


09020 


N2 


02238 


W 


02240 


£884 70 


04560 


£93610 


09024 


CST1 


09366 


NXLOC 


02372 


MM 


02296 


E8B540 


04792 


ENTLOG 


02267 


DISK 


10550 


OUTCE 


06960 


ZER13 


11490 


E88400 


04904 


ERNEST 


09240 


OK ADD 


10532 


OUTOK 


10527 


SAVOFS 


07727 


E86660 


04968 


ERR0R2 


10082 


EBASE 


03452 


OUTKl 


09848 


SAVSYN 


02243 


E88710 


05012 


FCTEND 


02118 


ENP 


06474 


0UTK2 


10140 


SSYNMK 


09236 


£68900 


05244 


INT0P1 


02165 


EQRET 


07274 


OUTKl 


10160 


STNNTl 


03516 


E89010 


05372 


LENGTH 


02248 


ERNES 


10921 


OUTK 


09692 


STNNT2 


03564 


E 89600 


05652 


LTJUST 


09092 


ERRET 


00602 


OUT 


10916 


STNTNO 


03456 


E89410 


05672 


MONCAL 


00794 


FAF1 


10992 


P2PTR 


02313 


SUB ADO 


07667 


E 89460 


05740 


MULDEP 


02184 


FAF2 


11124 


PGPRT 


10944 


SU6FCT 


02293 


E89740 


05784 


MVNAME 


09172 


FAF1 


11212 


PTCO 


03189 


USEOFS 


02263 


E 09820 


05844 


OUTAOO 


10270 


FAF4 


11240 


PTRA 


11904 






E09930 


05952 


OUTLIT 


01012 


FLNG 


02290 


RECLG 


02243 






E90010 


06044 


PROGST 


02217 


FNON 


02324 


SAVAD 


07139 
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00010 #••••• SECOND PASS FORTRAN II 



00020 


I0PT 


OS 


• 532 






00532 




0 




00030 


IORT 


OS 


,565 






00565 




0 




00060 


IQGT 


OS 


.566 






00566 




0 




00050 


MONCAl 


DS 


,796 






00796 




0 




00060 


IQCAL 


OS 


,716 






00716 




0 




00070 


SYSCAL 


DS 


,475 






00675 




0 




00080 




DORG 


2218 






02218 








00090 


HEADER 


DSS 


16 






02218 




I* 




00100 


Nl 


DS 


2 






02233 




2 




00110 


N2 


DS 


5 






02238 




5 




00120 


M 


DS 


2 






02260 




2 




00130 


RECLG 


OS 


3 






02263 




3 




00160 


LENGTH 


DS 


5 






02268 




5 




00150 


F 


OS 


2 






02250 




2 




00160 


K 


OS 


2 






02252 




2 




00170 


BEGAD 


DS 


5 






02257 




5 




00180 


LOGON 


DS 


5 






02262 




5 




00190 


UFSTA 


OSS 


30 






02263 




30 




00200 


FCTSW 


DS 


1 






02293 




1 




00210 


PUSTSN 


OS 


I 






02296 




I 




00220 


MM 


DS 


2 






02296 




2 




00230 


FP2 


DS 


2 






02298 




2 




00260 


TBASE 


OS 


5 






02303 




5 




00250 


LSTAO 


OS 


5 






02308 




5 




00260 


P2PTR 


DS 


5 






02313 




5 




00270 


FCIINO 


OS 


5 






02318 




5 




00210 




DS 


9 






02323 




5 




00290 


FNON 


TP 


#♦62 


♦FMON-l 




02326 


26 


02366 


02323 


00300 




TPN 


IORT 


,•♦23 




0233* 


16 


00969 


-2359 


00310 




8 


I OCT 


t 


t7 


02368 


♦9 


00966 


-0000 


00320 




B 








02960 


69 


00000 


00000 


00330 




OORG 


•-6 






02367 








00360 


JAY 


DS 


I 






02367 




1 




00361 


SR 


OS 


00005,, SR., 






02372 




3 




00362 


sx 


OS 


00005,, SX,, 






02377 




9 




00363 


OP 


OS 


00002,, OP,, 






02379 




2 




00366 


sv 


OS 


00005,, SY,, 






02386 




9 




00361 


ANS 


OS 


00005,, ANS,, 






02389 




9 




00366 


A07IMP 


OS 


00005,, ADTEMP 


1 1 




02396 




5 




00367 


SI 


DS 


00005,, SL,, 






02999 




9 




00390 


PASSU 


TP 


LNG 


• WW 




02600 


26 


09660 


02296 


00360 




TP 


AOCOW, BEGAD 






02612 


26 


06977 


02257 


00370 




AM 


A0C0N,1,10 






02626 


U 


06977 


000- 1 


00310 


• 


SET AOORISS IN 


AOCOW TO EVEN 












00390 




B7N 


ADJUST.ADCON 






02696 


17 


09990 


-6977 


00600 




TP 


BEGAD* AOCOW 






0266B 


26 


02297 


06977 


00610 


• 


INITIALIZE 














00620 


JMG 


TPN 


TNAX 


tO 


• 9 


02660 


U 


06972 


00-00 


00630 




TP 


PUTXZ 


,LSTAD 




02672 


26 


0B619 


0230B 


00660 




TPN 


IORT 


• •♦23 




02686 


16 


00969 


-2507 


00690 




• 


I OCT 


♦PUTXX 


#7 


02696 


69 


00966 


-8602 


00660 




TPN 


NUT 


tiWPi 




0290B 


u 


01696 


-8660 


00670 




A 


NEXT 


#WTR 




02920 


21 


01696 


02319 


00600 




TP 


PREBUF 


iNIX? 




02992 


26 


0B765 


0B696 


00690 




SN 


NEXT 


• 1 


tlO 


02966 


12 


0B696 


000- 1 
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00*00 




SF 


FLGRH 






0299* 


92 


00*2* 


00000 


001 10 




TOM 


SKIPS* 


• 0 




02901 


19 


09**1 


00000 


00920 




TP 


OOMAX 


•DOOASE 




OHIO 


20 


09907 


03010 


00930 




TOM 


DOS* 


fO 




02992 


19 


09993 


00000 


00340 




TF 


OOREP 


•DOOASE 




02*0* 


2* 


03790 


03010 


00990 




TFM 


SCNT 


• 0 




A94I4 


1* 


09*73 


-0000 


009*0 




TFM 


6LN0 


#0 


• 8 


02*2* 


1* 


09390 


0-000 


00970 


CLEAR 


•0 


CD I 28, DOS W 






02**0 


*3 


1031* 


09333 


00900 


• 


SET UP SUING 


RECORD CONSTANTS 










00990 




TP* 


BGNSm 


tO 


•7 


02*92 


I* 


17000 


-0000 


00*00 




oc 

• 


It *t* 






02**9 




1 




00*10 




TM 


BGNSY 


• 0 


• 10 


02*** 


1* 


1*999 


000-0 


00*20 




TFM 


ENOST 


• BGNSY- 1 




02*7* 


I* 


03970 


J6994 


00630 




TF 


SMAREA 


t N13089 




02*00 


2* 


09337 


09364 


00**0 


LI 


OTM 


GETX 


• SX 




02700 


17 


09210 


-2377 


00*90 




BTM 


AOSL 


tSX 




02712 


17 


09312 


-2377 


00**0 




CM 


SX» 192 


.8. SEMI COLON 




0272* 


I* 


02377 


0-132 


00*70 




ONE 


l\ 






U< (St 


4. J 


02700 


01200 


00*10 




TFM 


I 


• 1 


.* 


027*0 


14 


09947 


0-001 


00*90 




BT 


GTSCL 


tGTSCL-l 




027*0 


27 


0*0*8 


06847 


00700 




AM 


SCNT 


, 1 


• 10 


02772 


1 1 




000— I 


00710 


12 


OTM 


GTNS 


#•♦1* 




0278* 


17 


09446 


-2800 


00720 




OSA 


1 






02 BOO 




5 


X 1 














02B00 




-9547 




00730 




OSA 


IV 






02009 




9 


X 1 














02B09 




-99*7 




00740 




CM 


LV 


♦ 152 


• • 


02 BO* 


I* 






00750 




BH 


L3 






02818 


4* 


02928 


01100 


007*0 




jf 


N40002 






02B3O 


26 


03494 


09547 


00770 




AM 


N40002 


• 2 


• 10 


028*2 


1 1 


03494 




00780 




BTM 


GTNS 


• •♦16 




0209* 


17 


09446 


-2870 


00790 




OSA 


N40002 






02870 




5 


X 1 














02870 




— 3494 




00800 




USA 








02875 




3 


X 1 














02879 




-9577 




00810 




BTM 


FORCE 


• •♦1* 




0287* 


17 


04380 


-2892 


00820 




OSA 


LV 






02092 




5 


X 1 














02892 




-9567 




00830 




DSA 


RV 






02897 




5 


X 1 














02897 




-9577 




00840 




DSA 


ANS 






02902 




5 


X I 














02902 




-2389 




00850 




CM 


ANS 






02904 


14 


02389 


-0000 


00860 




BNE 


ANS 


• 


•* 


0291* 


47 


0238R 


01200 


00870 


L3 


AM 


I 


• I 


.10 


02928 


11 


09547 


000-1 


00880 




B 


L2 






029*0 


49 


02784 


00000 


00890 




DORG 


•-3 






029*8 








00900 


EXIT 


SM 


1 


• 1 


• 10 


029*8 


12 


09547 


000-1 
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00910 


B 


L2 




02960 


49 


02784 


00000 


00920 


OORG 


•-3 




029*8 








00930 •••*•• 
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00940 CODES 


SM 


I 


.1 .10 


029*8 


12 


09547 


000- 1 


00950 


BTM 


RMNS 


.•♦16 


02980 


17 


05416 


-2996 


00960 


OSA 


I 




0299* 




5 


X I 










02996 




-9547 




00970 


DSA 


SL 




03001 




5 


X 1 










03001 




-2399 




00980 


TF 


T3, 


SL 


03002 


2* 


09656 


02399 


00990 


BTM 


RMNS 


.•♦16 


0301* 


17 


05416 


-3030 


01000 


OSA 


I 




03030 




5 


X I 










03030 




-9547 




01010 


DSA 


LV 




03039 




5 


* 1 










03039 




-9567 




01020 


BTM 


GTNS 


.•♦16 


0309* 


17 


05446 


-3052 


01030 


DSA 






03092 




5 


X 1 










03052 




-9547 




01040 


DSA 


SR 




03057 




5 


X 1 










03057 




-2372 




01050 


CM 


SR. 


140, 8 .DUMMY 


0305B 


14 


02372 


0-140 


01060 


BNE 


CKFMT 




03070 


47 


0313B 


01200 


01070 


TOM 


OOSM 


• 1 


03002 


19 


09333 


00001 


01080 


BTM 


RMNS 


• •♦I* 


0309* 


17 


05416 


-3110 


01090 


OSA 


I«SR 




03110 




5 


X 2 










03110 




-9547 












03119 




-2372 




OUOO 


BTM 


GTNS 


• •♦1* 


0311* 


17 


05446 


-3132 


OHIO 


DSA 


I.SR 




03112 




3 


X 2 










03132 




-9947 












03137 




-2372 




01120 CKFMT 


CM 


SR. 


128.8. FORMAT 


03110 


1* 


02972 


0-120 


01190 


BNE 


SETFCT 




03190 


*7 


0322* 


01200 


011*0 


BTM 


PUTX 


• •♦1* 


031*2 


17 


07032 


-3170 


01150 


DSA 


8 » BLANK t BLANK 


09110 




9 


X 3 










03170 




-0002 












09109 




-0990 












09100 




-099* 




011*0 


TP 


sxp 


• AOCOW 


09100 


20 


.09902 


0*077 


01170 


SM 


SXP 


tlO #10 


09101 


12 


00902 


OOOJO 


01100 


SM 


ADCON 


•* .10 


0921* 


12 


00077 


000-4 


01190 SETFCT TP 


SETA©- I 


.SL 


09210 


20 


09*70 


02900 


01200 


TOM 


SET AO 


t* 


09210 


19 


09*71 


0000* 


01210 


OMR 


SETMMT 


•SITAO «ll 


09190 


*9 


09*02 


09*7J 


01220 


TP 


SET AO 


•AOCOM tO 


09101 


20 


09*74 


0*077 


01230 


8 NCI NOTVP 


0327* 


*? 


099** 


00100 


012*0 


TOM 


SITAO 


• 9 


09200 


19 


09*71 


00009 
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01290 




RCf V 








03291 


34 


00000 


00102 


01240 




WNTY 


SE T AD 


t |4 




03310 


91 


0347J 


oo too 


01270 




SPTV 


• * • 






03322 


34 


00000 


00101 


01280 




MNfV 


AOCOW- 4 






09334 


90 


06979 


00100 


012*0 


NOTYP 


TON 


SETAO 


t9 




09944 


19 


0J471 


00009 


01300 




ton 


SET AO 


»1 #611 




09990 


15 


0347J 


OOOOJ 


01310 




CM 


SR 


tl28 ,6 




03370 


14 


02972 


0-128 


01320 




BE 


CODE 17 






03902 


46 


10242 


01200 


01330 




8 


EXIT 






03304 


49 


02948 


00000 


01140 




DOUG 


•-3 






03402 








01350 


SETNMT 


TF 


N40002 


t SETAO ,11 




03402 


24 


09494 


0347J 


01340 




CF 


N40002 






03414 


13 


03494 


00000 


01370 




SM 


N40002 


.4 tlO 




03426 


12 


03494 


000-4 


01380 




BTM 


PUTA 


,•♦16 




0349B 


17 


00272 


-3454 


01390 




DSA 


N40002 .ADCOW 






03454 




5 


X 2 














03454 




-3494 
















03459 




-6977 




01400 




B 


SETPCT*36 


t4 




03460 


49 


03262 


00004 


01410 


SE TAD 


DS 


,• 






03471 




0 




01*20 


COOEO 


B 


EXIT 






03472 


49 


02948 


00000 


01430 




DORG 


•-3 






03480 








01440 


N20000 


DS 




#•♦1 




03480 




0 




01450 


M40000 


DS 


5 






03484 




5 




01460 


N40001 


OS 


5 , 






03489 




5 




01470 


N40002 


DS 


5 






03494 




5 




01480 


N40003 


OS 


5 






03499 




5 




01490 


N40004 


DS 


5 






03504 




5 




01500 


N40005 


OS 


5 






03509 




5 




01510 


N40006 


DS 


5 






03514 




5 




01520 


N 4000 7 


OS 


5 






03519 




5 




01530 


N40008 


DS 


5 






03524 




5 




01540 


M40009 


DS 


5 






03529 




5 




01550 


N40010 


DS 


5 






03534 




5 




01560 


N400U 


DS 


5 






03539 




5 




01570 


N40012 


DS 


5 






03544 




5 




01580 


N20001 


DS 




#•♦1 




03545 




0 




01590 




FORTRAN ADJUST 














01600 




DS 


5 






03549 




5 




01610 


ADJUST 


MM 


•-1,5,610, 


MULTIPLY AOCOW 


BY 5 


03550 


13 


0354R 


000-5 


01620 




BD 


•♦14.99 






03562 


43 


03576 


00099 


01630 




BB 








03574 


42 


00000 


00000 


01640 




DORG 


•-9 






03576 








01650 




AM 


AOJUST-l, 1,610, AOD 1 TO AOCOW 




03576 


11 


0354R 


000-1 


01660 




BB 








03588 


42 


00000 


00000 


01670 




DORG 


•-4 






03595 








01680 




FORTRAN OP SEARCH ROUTINE •••••• 












01690 


OPSR 


TF 


OPSX, •-l.il, 


MOVE IN PARAMETERS 


03596 


26 


03667 


0359N 


01700 




AM 


□PSR-1.5,10 






03608 


11 


03595 


000-5 


01710 




TF 


OPGT.OPSR-l. 


11 




03620 


26 


03698 


0359N 


01720 




AM 


OPSR-1,1,10 






03632 


11 


03595 


000-1 


01 730 




TFM 


0PT1.0BASE 






03644 


16 


03703 


-2625 


01740 




A 


OPTl-l,,, 


GENERATE TABLE 


ADDRESS 


03656 


21 


03702 


00000 


01750 


OPSX 


DS 


t • 






03667 




0 




01760 




BD 


•♦24, FX,, 


IS IT FIXED OR 


FLOATING VARIABLE 


03666 


43 


03692 


03715 


01770 




SM 


OPTl.5,10, 


FLOATING, AOJUST TABLE ADDRESS 


03680 


12 


03703 


000-5 
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01780 




TF ,,, MOVE ENTRY ADDRESS TO A GT 


03692 


01790 


OPGT 


DS ,»-5 


03698 


01800 


OPTl 


DS ,• 


03703 


01810 




B OPSR-1,,6, EXIT 


03704 


01820 


FX 


DS l,« 


03715 


01830 


OBASE 


DS ,•♦10-1100 


02625 


01840 


FLAO 


DC 5,04090 


03720 






-4090 




01850 


FXAD 


OC 5,03878 


03725 






-3878 




01860 


REP4 


OC 5,06922 


03730 






-6922 




01870 


PRINT 


OC 5,04282 


03735 






-4282 




0L880 


TRACE 


DC 5,03496 


03740 






-3496 




01890 


READ 


OC 5,04402 


03745 






-4402 




01900 


DOREF 


OC 00005, 17000,, DOREF, 


03750 






J 7000 




01910 


TYPE 


OC 5,04282 


03755 






-4282 




01920 


FLMUL 


OC 5,04138 


03760 






-4138 




01930 


FXMUL 


OC 5,03950 


03765 






-3950 




01940 


FLEXP 


OC 5,04258 


03770 






-4258 




01950 


FXEXP 


OC 5,04234 


03775 






-4234 




01960 


SU81 


DC 5,-02258 


03760 






-2250 




01970 


ACCEPT 


OC 5,04354 


03785 






-4334 




01980 


SUB2 


OC 5,-02263 


03790 






-226L 




01990 


ACCTAP 


OC 5,04378 


03795 






-4378 




02000 


SUBS 


DC 5,-02260 


03000 






-2260 




02010 


PUNCH 


OC 5,04390 


03005 






-4930 




02020 


OOBASE 


OC 00005, 17000,, DOBASE, 


03810 






J 7000 




02030 


PUNTAP 


OC 5,04304 


03815 






-4304 




02040 


PL SUB 


OC 5,04066 


03820 






-4044 




02050 


FXSUB 


OC 5,09902 


03925 






-9902 




02060 


PLOVO 


OC 5,04162 


03990 






-4142 




02070 


PXOVO 


OC 5,09974 


09099 






-9974 


02080 


PL MOV 


OC 5,04104 


09040 






-4184 



03692 26 00000 00000 
0 
0 

03704 49 0359N 00000 
1 
0 
5 

5 

5 

5 

5 
5 
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02040 PXADV 


OC 5,03998 


0)849 






-8998 






02100 PXTOFL 


OC 9,04042 


0)890 






-4042 






02110 FLTOPX 


OC 9*0)854 


0)995 






-8894 






02120 RFLSUB 


OC 5,04119 


0)960 






-4114 


0)949 




021)0 RFXSU6 


OC 5,0)924 






-8926 






02140 RSNFL 


OC 5,04020 


0)870 






-4020 






02150 RSNFX 


OC 5,04020 


0)679 






-4020 






02160 ATVPE 


OC 5,04512 


0)680 






-4512 






02170 SLASH 


DC 5,06492 


0)665 






-6492 






02180 REP 


OC 5,06818 


0)690 






-6818 






02190 ITYPE 


DC 5,04424 


0)899 






-4424 






02200 FTYPE 


OC 5,04534 


03900 






-45)4 






02210 ETVPE 


OC 5,04556 


03905 






-4556 






02220 REOO 


DC 5,06716 


03910 






-6718 






02230 MTYPE 


OC 5,04578 


03915 






-4578 






02240 XTYPE 


DC 5,07046 


03920 






-7046 






02250 ASTOP 


DC 5,02395 


03925 


5 




-2395 






02260 FRFAC 


DC 5,03452 


03930 


5 




-3452 






02270 TOFAC 


DC 5,03408 


03935 


5 




-3408 






02280 F ACAD 


DC 5,02492 


03940 


5 




-2492 






02290 10 


DC 5,05982 


03945 


5 




-5982 






02300 IOENO 


OC 5,06698 


03950 


5 




-6698 






02310 IXI 


DC 5,04210 


03955 


5 




-4210 






02320 PAR 


OC 5,03378 


03960 


5 




-3378 






02330 MAT 


DC 5,06334 


03965 


5 




-6334 






02340 BGNST 


OC 3,0,16999 


16999 


3 




-00 






02350 8GNSY 


OC 2,0,16995 


16995 


2 


02360 ENOST 


-0 

OC 5,16994 


03970 


5 




J6994 







471 
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02370 




DC 


1, •.17000 




17000 




l 




02380 




FORTRAN SYMBOL TABLE SEARCH ROUTINE •••••• 










02390 




OS 


5 




03975 




5 




02400 


SRFCT 


TF 


SRSY, •-1,11, 


MOVE IN PARAMETERS 


03976 


26 


04047 


0397N 


02410 




AM 


SRFCT-1,5,10 




03988 


11 


03975 


000-5 


02420 




TF 


SRGT,SRFCT-l,il 




04000 


26 


04098 


0397N 


02430 




AM 


SRFCT-1,1,10 




04012 


U 


03975 


000-1 


02440 




TDM 


SBASE.4 




04024 


15 


04371 


00004 


02450 




TF 


SBASE-l 




04036 


26 


04370 


00000 


02460 


SRSY 


OS 


, • 




04047 




0 




02470 




BNR 


SRNX,SBASE,11 




04046 


45 


04092 


0437J 


02480 




TFM 


SRGT, 0,67 




04060 


16 


0409Q 


-0000 


02490 




TOM 


RMSW,1,11 




04072 


15 


04785 


OOOOJ 


02500 




B 


SRFCT-1,,6 




04084 


49 


0397N 


00000 


02510 




DORG 


♦-3 




04092 








02520 


SRNX 


TF 


,SBASE,11, 


MOVE OBJECT AODRESS OF SYMBOL TO GT 


04092 


26 


00000 


0437J 


02530 


SRGT 


OS 


,•-5 




04098 




0 




02540 




TOM 


FPSW ,0 




04104 


15 


09659 


00000 


02550 




8NF 


•♦68, SRGT, 11 




04U4 


44 


04184 


0409Q 


02560 




BD 


♦♦36.SKIPSW 




04128 


43 


04164 


09661 


02570 




CF 


SRGT, ,6 




04140 


33 


0409Q 


00000 


02580 


DMSW 


OS 


,•-1 




04150 




0 




02590 


COMSW 


DS 


»• 




04151 




0 




02600 




TDM 


FPSW, 1,11 




04152 


15 


09659 


OOOOJ 


02610 




TFM 


OPX, 27,10 




04164 


16 


04193 


000X7 


02620 




B 


• ♦20 




04174 


49 


04196 


00000 


02630 




DORG 


•-3 




04184 








02640 




TFM 


OPX, 17, 10 




04164 


14 


04193 


000 J 7 


02650 


OPX 


DS 


,•-2 




04193 




0 




02660 




AM 


SBASE.1,10 




04196 


11 


04371 


000-1 


02670 




TD 


FXORFL , SBASE ,11, 


SET FIX OR FLOAT 


04208 


23 


04373 


04 37 J 


02680 




AM 


SBASE.1,10 




04220 


11 


04371 


000-1 


02690 




TD 


ONSM, SBASE ,11, 


SET DIMENSION SWITCH 


042)2 


25 


04150 


0437J 


02700 




TOM 


COMSW ,0 




04244 


15 


04151 


00000 


02710 




BNF 


•♦24, DMSW 




04256 


44 


04280 


04150 


02720 




TDM 


COMSW, 1, , 


SET COMMON SWITCH 


04266 


15 


04151 


00001 


02730 




80 


•♦20.0MSW,, 


IS IT DIMENSIONED 


04260 


4) 


04)00 


04150 


02740 




6 


SRCFFL , , , NO 


EXIT 


04292 


44 


04336 


00000 


02750 




DORG 


•-) 




04)00 








02760 




SM 


SBASE, 7, 10 




04)00 


12 


04371 


000-7 


02770 




TF 


PI, SBASE ,11, 


SET 1 MAX 


04)12 


24 


09691 


0437J 


02760 




AM 


SBASE, 7, 10 




04)24 


11 


04371 


000-7 


02790 


SRCFFL 


CF 


FXORFL 




04)86 


)) 


04)7) 


00000 


02600 




SM 


S6ASE,2,10 




04)46 


12 


04)71 


000-2 


02610 




6 


SRFCT-1,,6, 


EXIT 


04)60 


49 


0)9 7N 


00000 


02620 


S6ASE 


OS 






04)74 




0 




028)0 


FXORFL 


OC 


2,0 




04)7) 




2 




02640 


•••••• 


FORTRAN FORCE PROCEDURE •••••• 










02690 




OS 


9 




04176 




9 




02660 


FORCE 


TF 


FLV. — l.U, 


MOVE IN PARAMETERS 


04160 


24 


04416 


0417R 


02670 




AM 


FORCE- I. 5, 10 




04)91 


II 


04)79 


000-5 
04)7R 


02660 




TF 


FRY, FORCE- 1,11 




04406 


26 


04942 


02690 




AM 


FORCE- 1,9* 10 




04416 


II 


04179 


000-5 


02900 




TF 


FAMS,FORCf-l,ll 




04416 


16 


04674 


04)76 
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02910 




AM 


FORCE-1,2, 10 






04440 


11 


04)79 


000-2 


01920 




CM 


» 104,8. 


IS 


LIFT OPERATOR LESS THAN OF* LOM VALUE 


04452 


14 


00000 


0-104 


029)0 


PLV 


0$ 








04498 




0 




02990 




81 


F0RCB*24 






04464 


47 


04456 


01)00 


029S0 




TFM 


FTl, FBASE. • 




MOVE TA8LE EASE TO FTl 


04476 


16 


04691 


-)677 


02940 




A 


FTl-l.FLV.ll. 




GENERATE TABLE AOOAESS 


04468 


21 


04690 


04450 


029T0 




TF 


LVAL.FTl.il. 




REMOVE LEFT VALUE FROM TABLE 


04900 


26 


0471) 


0469J 


02980 




AM 


FTl, 7, 10, 




AOO 7 TO TABLE ADDRESS 


04512 


11 


04691 


000-7 


02990 




IF 


FCOOEtFTl * 11 ♦ 




REMOVE COOE FROM TABLE 


04924 


26 


04679 


0469J 


0)000 




CM 


f 104, 6 t 


IS 


RIGHT OPERATOR LESS THAN OP LOM VALUE 


049)6 


14 


00000 


0-104 


0)010 


FRV 


OS 


.•-5 






04542 




0 




0)020 




BL 


FORCB* 24 






04946 


47 


04656 


01)00 


0)0)0 




CM 


FRV.141,69, 




IS OP HIGHER THAN HIGH VALUE 


04960 


14 


04S4R 


00J41 


0)040 




BH 


FORCC 






04972 


44 


04692 


01100 


0)050 




TFM 


FTl, FBASE t . 




MOVE TABLE BASE TO FTl 


04584 


16 


04691 


~)677 


0)060 




A 


FTl-l ,FRV. 11 , 




GENERATE TABLE ADDRESS 


04996 


21 


04690 


0454K 


03070 




AM 


FTl, 2, 10. 




ADD 2 TO TABLE ADORESS 


0460B 


11 


04691 


000-2 


03000 




TF 


RVAL, FTl, 11, 




REMOVE RIGHT VALUE FROM TABLE 


04620 


26 


04715 


0469J 


03090 


FORCB 


C 


LVAL ,R VAL , , 




COMPARE LEFT VALUE TO RIGHT 


04632 


24 


0471) 


04715 


03100 




BNH 


• ♦24 






04644 


47 


04666 


01100 


03110 




TFM 


FCOOE,,, 




MOVE 2ER0 TO CODE 


04656 


16 


04679 


-0000 


03120 




TFM 


. . « 




MOVE ZERO OR COOE TO FANS 


04666 


16 


00000 


-0000 


03130 


FCODE 


DS 


t* 






04679 




0 




03140 


FANS 


DS 


.•-5 






04674 




0 




03150 




B 


FORCE-l. ,6, 




EXIT 


04660 


49 


0437R 


00000 


03160 




OS 


5,« 






04691 




5 




03170 


FORCC 


TFM 


RVAL, 0, 10 






04692 


16 


04715 


000-0 


03160 




B 


FORCB 






04704 


49 


04632 


00000 


03190 




OORG 


•-3 






04712 








03200 


LVAL 


DS 


2 






0471) 




z 




03210 


RVAL 


OS 


2 






04715 




2 




03220 


FBASE 


OS 


,■♦2-1040 






03677 




o 




03230 




OC 


2,1,, 




RPAREN 


04717 




2 




03240 




-1 
DC 
NO 


2,50 






04719 




2 




03250 




OSA 


L3 






04724 




5 


X 1 



04724 -2928 



03260 


RFLAG 


OC 


1.0 




04725 


I 


03270 




OC 


2.60,. 


GOfO 


04727 


2 






00 










03280 




DC 


2,59 




04729 


2 






N9 










03290 




OSA 


C00E6 




04734 


5 












04734 


J0074 


03300 


RXFt AG 


OC 


1,0 




04735 


1 


03310 




OC 


2,0,, 


COMPUTED GOTO 


04737 


2 






-0 










03320 




DC 


2,0 




04739 


2 






-0 










03330 




OSA 


C00E9 




04744 


5 



0)340 


FTSM 


DSC 


if 0 






0 




03350 




OC 


2.2,, 






-2 




03360 




OC 


2.0 






-0 




03370 




DSA 


C00E7 


03360 


CALLX 


DC 


1*0 


03390 




OC 


2,0,, 






-0 




03400 




OC 


2,0 






-0 




03410 




DSA 


G0DE12 


03420 


FFRSW 


DS 


I 


03430 




OC 


2,0,, 






-0 




03440 




DC 


2.0 






-0 




0)450 




OSA 


COOEO 


0)460 


SUBPSM 


OS 


1 


03470 




DC 


2,10,, 






JO 




0)480 




DC 


2.10 






JO 




03490 




DSA 


C0DE1 


0)500 


RMSW 


OS 


1 


0)510 




OC 


2,0,, 






-0 




0)520 




OC 


2*0 






-0 




0)530 




OSA 


COOE 14 


0)540 


FLAGSM 


OS 


1 


0)550 




OC 


2.0. , 






-0 




0)560 




DC 


2.0 






-0 




0)570 




OSA 


CODE 14 


0)680 


CKSM 


DS 


1 


0)590 




OC 


2.0, , 






-0 




0)600 




DC 


2,0 






-0 





FORTRAN II -0 PHASE 2 



IF 



DO 



DOA 



PLUS 



PRINT 



READ 



TYPE 







PAGE 


04744 
04745 


J0146 
I 




04747 


2 




04749 


2 




04754 


5 


X 1 


04754 
04755 


J0096 
1 




04757 


2 




04759 


2 




04764 


5 


X 1 


04764 
04765 
04767 


JO 170 
1 
2 




04769 


2 




04774 


5 


X I 


04774 
04775 
04777 


-)472 
I 
2 




04779 


2 




04764 


5 


X 1 


04764 
04765 
04787 


J0002 
I 
2 




04789 


2 




04794 


5 


t 1 


04794 
04795 
04797 


J0194 
1 
2 




04799 


2 




04804 


5 


X 1 


04804 
04609 
04807 

04809 


JO 1 94 
1 

2 

2 
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0)410 


DSA 


COOt 14 




04814 


5 X 


1 










04814 


J0194 




0)420 


DC 


ItO 




048 1 § 


1 




0)4)0 


DC 


2,5,, 


NPY 


04847 


2 






-5 












0)440 


DC 


2,5 




04819 


2 






-) 








5 X 




0)4)0 


DSA 


COOil 




04824 


1 










04624 


J0002 




0)440 


DC 


1,0 




04625 


1 




03670 


DC 


2,5,, 


EXP 


04627 


2 






-5 












034)0 


DC 


2,4 




04829 


2 






-4 












03690 


OSA 


CODEi 




04634 


5 X 


1 










04834 


J0002 




03700 


OC 


1,0 




04835 


1 




03710 


DC 


2,0,, 


ACCEPT 


04837 


2 






-0 












03720 


OC 


2,0 




04839 


2 






-0 












03730 


DSA 


CODE 14 




04844 


5 X 


1 










04844 


J0194 




037*0 


DC 


1,0 




04845 


1 




03750 


DC 


2,0,, 


ACCEPT TAPE 


04847 


2 




03760 


-0 
DC 


2,0 




04849 


2 






-0 












03770 


OSA 


C0DE14 




04854 


5 X 


1 










04854 


J0194 




03760 


DC 


1,0 




04855 


1 




03790 


DC 


2,0,, 


PUNCH 


04857 


2 






-0 












03600 


DC 


2,0 




04859 


2 






-0 












03810 


DSA 


CODE 14 




04864 


5 X 


1 










04864 


J0194 




03820 


DC 


1,0 




04865 


1 




03830 


DC 


2,0,, 


PUNCH TAPE 


04867 


2 






-0 












03840 


DC 


2,0 




04869 


2 






-0 












03850 


DSA 


CODE 14 




04874 


5 X 


I 
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04874 


JO 194 




03860 


DC 


1,0 




04875 


1 




03870 


DC 


2,10,, 


MINUS 


04877 


2 






JO 












03880 


OC 


2,10 




04679 


2 






JO 












03890 


DSA 


CODE I 




04884 


5 X 


1 










04884 


J0002 




03900 


DC 


1,0 




04865 


I 




03910 


DC 


2,5,, 


01 VIDE 


04867 


2 






-5 












03920 


DC 


2,5 




04669 


2 






-5 












03930 


DSA 


C0DE1 




04894 


5 X 


1 










04894 


J0002 




03940 


DC 


1,0 




04695 


1 




03950 


DC 


2,0,, 


ROVO 


04897 


2 






-0 












03960 


DC 


2,0 




04899 


2 






-0 












03970 


DSA 


CODEO 




04904 


5 X 


1 










04904 


-)472 




03960 


OC 


1*0 




04909 


1 




0)990 


OC 


2,49,, 


CNA 


04907 


2 






N9 












04000 


DC 


2,46 




04909 


2 






MS 












04010 


DSA 


C0DE6 




04914 


5 X 


1 










04914 


J0122 




04020 


DC 


1,0 




0491S 


1 




040)0 


DC 


2,49,, 


LPAMN 


04917 


2 






N9 












04040 


DC 
-I 


2,1 




04919 


2 




04050 


OSA 


COOES 




04924 


5 X 


1 










04924 


J 0024 




04040 


OC 


1,0 




04929 


1 




04070 


DC 


2,40,, 


S70P 


0492? 


2 






00 












04060 


OC 
N9 


2,55 




04929 


2 




04090 


OSA 


C00E4 




044)4 


5 X 


1 










04994 


J0074 




04100 


OC 


ItO 




04999 


1 
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04110 


DC 


2,60,, 


PAuse 


04937 










00 














0*120 


oc 


2,59 




04939 










N9 














04130 


OSA 


CODE 6 




04944 




X 


I 










04944 


J0074 






04140 


OC 


l»0 




04945 








04150 


oc 


2,60,, 


CONTINUE 


04947 










00 














04140 


oc 


2,59 




04949 










N9 














04170 


OSA 


C00E6 




04954 




X 


I 










04954 


J 00 74 






04180 


OC 


1.0 




04955 








04190 


OC 


2,60,, 


FORMAT 


04957 










00 














04200 


oc 


2,59 




04959 










N9 














04210 


OSA 


C00E17 




04964 




X 


I 










04964 


J0242 






04220 


DC 


1,0 




04965 








04230 


OC 


2,5,, 


UNMNS 


04967 










-5 














04240 


OC 


2,0 




04969 








0*250 


-0 
OSA 


COOE* 




04974 




X 


1 










04974 


J0050 






04260 


DC 


1,0 




04975 








0*270 


DC 


2,0,, 


SENSE SWITCH 


04977 










-0 














04280 


DC 


2,2 




04979 








04290 


-2 
DSA 


COOEO 




04984 




X 


1 










04984 


-3472 






04300 


DC 


1,0 




04985 








04310 


DC 


2,0,, 


CALL EXIT 


04987 


2 








-0 














04320 


DC 


2,0 




04989 


2 








-0 














04330 


DSA 


COCALL 




04994 


5 


X 


I 










04994 


J0410 






0*340 


DC 


1,0 




04995 


I 






0*350 


OC 


2,60,, 


SC 


04997 


2 







00 

477 
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PAGE 


0*360 


DC 


2,60 




04999 


2 




00 










04370 


DSA 


COOEO 




05004 


5 X I 










05004 


-3472 


0*380 


DC 


1,0 




05005 


1 


0*390 


DC 


2,60,, 


EQUAL 


05007 


2 




00 










0**00 


DC 


2,59 




05009 


2 




N9 










0**10 


DSA 


C0DE1 




0501* 


5 X I 










05014 


J0002 


0**20 


DC 


1,0 




05015 


I 


0**30 


DC 


2,0,, 


COLON 


05017 


2 




-0 










0***0 


DC 


2,0 




05019 


2 




-0 










0**50 


DSA 


CODE 5 




05024 


5 X i 










05024 


-2968 


0**60 


OC 


1,0 




05025 


I 


0**70 


OC 


2,0,, 


SUBP 


05027 


2 




-0 










04480 


DC 


2,0 




05029 


2 




-0 










04490 


OSA 


FCT1 




05034 


5 X 1 










05034 


J0338 


04500 


OC 


1,0 




05035 


1 


04510 


OC 


2,0,, 


SUIF 


05037 


2 




-0 










04520 


OC 


2,0 




05039 


2 




-0 










04530 


DSA 


FCT1 




05044 


5 X 1 










05044 


J0338 


04540 


OC 


1,0 




05045 


1 


04550 


OC 


2,0,, 


OIF 


05047 


2 




-0 










04560 


OC 


2,0 




05049 


2 




-0 










04570 


OSA 


FCT1 




05054 


5 X 1 










05054 


J0338 


04580 


OC 


1,0 




05055 


1 


04590 


oc 


2,0,, 


CALL 


05057 


2 




-0 










04600 


oc 


2,0 




05059 


2 



1+20 FORTRAN I |-0 PHASE I PACE 14 



04*10 


OS A 


COOflS 




09064 


9 X 


1 










05064 


J0218 




04620 


DC 


ltO 




09069 


1 




04*10 


OC 


2.0,, 


RETURN 


09067 


2 






-0 












04440 


OC 


9 .A 




09069 


2 






-0 












04690 


OSA 


PC TAT 




09074 


9 X 


I 










09074 


J0362 




04460 


DC 


1,0 




09079 


1 




04670 


OC 


2,0,, 


DUMMY 


05077 


2 






-0 












04610 


DC 


2*60 




05079 


2 






00 












04640 


DSA 


COOEO 




05084 


5 X 


1 










05084 


-3472 




04700 


DC 


1.0 




05015 


1 




04710 


DC 


2,0,, 


END 


05087 


2 






-0 












04720 




2,0 




05089 


2 






-0 












04730 


DSA 


CODE 6 




05094 


5 X 


1 










05094 


J0074 




04740 


DC 


1,0 




05095 


1 




04750 


DC 
- 1 


2,1,, 


FETCHV 


05097 


2 




04760 


DC 






05099 


2 






-0 














DSA 


CODE 14 




05 104 


5 X 


1 










05104 


J0194 




0*780 


DC 


1,0 




05105 


I 




04790 


DC 
-I 


2,1,, 


FETCHL 


05107 


2 




04800 


DC 


2,0 




05109 


2 






-0 














DSA 


CODE 14 




05114 


5 X 


1 










05114 


J0194 




0*820 


DC 


1,0 




05115 


I 




0*830 


OC 
-I 


2,1,, 


FINOV 


05117 


2 




04840 


DC 


2,0 




05119 


2 






-0 












04850 


DSA 


C00E14 




05124 


5 X 


1 
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05124 


J0194 




04860 


DC 


1,0 




05125 


1 




04870 


DC 
-1 


2,1,, 


FINOt 


05127 


2 




04880 


DC 


2.0 




05129 


2 






-0 












04890 


DSA 


CODE 14 




05134 


5 X 


1 










05134 


J0194 




04900 


DC 


1,0 




05135 


1 




04910 


DC 


2.1,, 


RECOROV 


05137 


2 




04920 


-1 
DC 


2,0 




05139 


2 






-0 












04930 


DSA 


CODE 14 




05144 


5 X 


I 










05144 


J0194 




04940 


DC 


1.0 




05145 


1 




04950 


DC 


2,1.. 


RECORD!. 


05147 


2 






-1 










04960 


OC 


2.0 




05149 


2 






-0 












04970 


DSA 


CODE 14 




05154 


5 X 


I 










05154 


JO 194 




04980 


OC 


1.0 




09155 


1 




04990 


DC 


2,0,, 


SO 


05157 


2 






-0 












05000 


DC 


2.0 




05159 


2 






-0 












05010 


OSA 


COSSAO 




09164 


5 X 


1 










09164 


J0290 




05020 


DC 


1.0 




09169 


1 




05030 


DC 


2.O.. 


St 


09167 


2 






-0 












05040 


DC 


2.0 




09169 


2 






-0 












05050 


DSA 


CODESS 




09174 


5 X 


1 










09174 


402** 




05040 


DC 


ltO 




05179 


1 




09070 


DC 


2.0,. 


92 


09177 


2 






-0 












09080 


OC 


2.0 




09179 


2 






-0 












09090 


OSA 


COOESS 




09194 


9 1 


1 










09104 


J 02 66 




09100 


OC 


ltO 




0518* 


1 
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05110 




oc 


2.0, , 


S3 


05187 




2 




05120 




~o 
oc 


2,0 




05189 




2 




05130 




•0 
DSA 


CODESS 




05194 




5 


X 1 












05 m 




J0266 




05140 




OC 


1,0 




05195 




I 




05150 




oc 


2,0,, 


CALL LINK 


05197 




2 




05160 




-0 

oc 


2,0 




05199 




2 




05170 




-0 
DSA 


COCALL 




05204 




5 


X I 












05204 




J0410 




05180 




GETX FORTRAN ROUTINE 












05190 




DS 


5 




05209 




5 




05200 


GETX 


BNR 


GETSV, INPUT 




05210 


45 


05258 


09678 


05210 




TFM 


IORT ,»*23 




05222 


16 


00565 


-5245 


05220 




B 


lOGT ,GETBLK ,7 


05234 


49 


00566 


-5284 


05230 




AM 


GT6LKB ,1 


» 10 


05246 


U 


05297 


000- 1 


05240 


GE TSV 


TF 


GETX-l,INPUTO,6, 


GET NEXT SYMBOL 


05258 


26 


052 OR 


09681 


05250 




TR 


INPUT, INPUTS,, 


SLIDE DOWN 


05270 


31 


09678 


09682 


05260 




BB 






05282 


42 


00000 


00000 






D0RG 


• -9 




05284 








05280 


GET6LK 


DSC 


2,2 




05284 




2 




05290 




02 
0SA 


GTBLKA 




05290 




5 


X I 












05290 




-5292 




05300 




OC 
• 


I, ' 




05291 




I 




05310 


GTBLKA 


DSC 
0 


1.0 




05292 




| 




05320 


GTBLKB 


DC 


5,600 




05297 




5 








-0600 












05330 




DC 


3,1 




05300 




3 








-01 














05340 




DSA 


INPUT 




05305 




5 


X I 












05305 




-9678 




05350 




DC 


lt« 




05306 




1 




05360 




FORTRAN II GTNSt RMNS 












05370 




DS 


5 




05311 




5 




05380 


AOSt 


TF 


•♦30, ENDST,, 


SET UP OPEN AOORESS 


05312 


26 


05342 


03970 


05390 




SM 


•♦18,4,10 




05324 


12 


05342 


000-4 


05400 




TR 


, ENDST, U, 


OPEN STRING 4 LOCATIONS 


05336 


31 


00000 


0397- 


05410 




TD 


BGNSY* 1 ,BGNSY-3 , , 


RESTORE 1ST DIGIT OF NORM 


05348 


25 


16996 


16992 


05*20 




TF 


BGNSV,ADSL-1 ,11, 


MOVE SYMBOL INTO FIRST POSITION 


05360 


26 


16995 


0531J 


05430 




CF 


8GNSY-3, , , CLEAR 


FLAG ON NEW SYMBOL 


05372 


33 


16992 


00000 


05440 




AM 


BGNST,l,10, 


INCREASE NORM BY ONE 


05384 


U 


16999 


000-1 


05450 




SM 


ENDST, 4, 10, 


AOJUST ENDST BY FOUR 


05396 


12 


03970 


000-4 


05460 




BB 






05408 


42 


00000 


00000 


05470 




DORG 


♦-9 




05410 









481 
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05480 




DS 


5 




05414 




5 




05490 


RMNS 


TOM 


RMNS+8,1,11, 


SET RMNS SNITCH TO FLAG 1 


05416 


15 


05424 


OOOOJ 


05500 




BT 


RGR, RMNS- I 




05428 


27 


05506 


05415 


05510 




OS 


5 




05444 




5 




05520 


GTNS 


TOM 


RMNS*8,1,, 


SET GTNS SWITCH TO 1 


05446 


15 


05424 


00001 


05530 




BT 


RGR.GTNS-i 




05458 


27 


05506 


05445 


05540 




DS 


5 




05474 




5 




05550 


RPNS 


TDM 


RMNS+8,0,, 


SET RPNS SWITCH TO 0 


05476 


15 


05424 


00000 


05560 




BT 


RGR, RPNS- 1 




05488 


27 


05506 


05475 


05570 




DS 


5 




05504 




5 




05580 


RGR 


TF 


RGRI ,o-l,U, 


MOVE IN AOORESS OF I 


05506 


26 


05584 


0550N 


05590 




AM 


RGR-1,5,10 




05518 


U 


05505 


000-5 


05600 




TF 


RGRS,RGR-1,U, 


MOVE IN AOORESS OF SYMBOL 


05530 


26 


05757 


0550N 


05610 




AM 


RGR-1,1,10 




05542 


11 


05505 


000- 1 


05620 




CM 


BGNST, 0,8, 


COMPARE NORM TO ZERO 


05554 


14 


16999 


0-000 


05630 




BNH 


RGRNUL 




05566 


47 


05894 


01100 


05640 




CM 


• 0,8, 


COMPARE I TO ZERO 


05578 


14 


00000 


0-000 


05650 


RGRI 


DS 


,•-5 




05584 




0 




05660 




BNH 


RGRNUL 




05590 


47 


05894 


01100 


05670 




C 


RGR I , BGNST ,6 , 


COMPARE I TO NORM 


05602 


24 


0558M 


16999 


05680 




BH 


RGRNUL 




05614 


46 


05894 


01100 


05690 




TF 


RGRA, BGNST,, 


MOVE IN NORM 


05626 


26 


05685 


16999 


05700 




S 


RGRA, RGRI, 11, 


SUBTRACT I FROM NORM 


05638 


22 


05685 


0558M 


05710 




AM 


RGRA, 1,10, 


AOD 1 


05650 


11 


05685 


000- 1 


05720 




MM 


RGRA, 4, 1011, 


MULTIPLY BY MINUS 4 


05662 


13 


05685 


000-M 


05730 




SF 


95 




05674 


32 


00095 


ooooo 


05740 


RGRA 


OS 


, • 




05685 




0 




05750 




AM 


99, BGNST,. 


AOD STRING AOORESS 


05686 


11 


00099 


J6999 


05760 




TF 


•♦30,99,, 


MOVE SYMBOL AOORESS 


05698 


26 


05728 


00099 


05770 




SM 


•♦18,3,10, 


SUBTRACT 3 FOR FLAG POSITION 


05710 


12 


05728 


000-3 


05780 


RGRF 


SF 




SET FLAG IN STRING 


05722 


32 


00000 


OOOOO 


05790 




80 


REMGET, RMNS+8 , , 


BRANCH IF RMNS OR GTNS 


05734 


43 


05778 


05424 


05800 




TF 


99, ,6, 


MOVE SYMBOL INTO STRING 


05746 


26 


0009R 


OOOOO 


05810 


RGRS 


OS 


• • 




05757 




0 




05820 




CF 


RGRF^6,,6, 


CLEAR FLAG 


05758 


13 


0572Q 


OOOOO 


05830 




8 


RGR-1,,6, 


EXIT 


05770 


49 


0550N 


OOOOO 


05840 




OORG 


•-3 




05778 








05850 


REMGET 


TF 


RGRS, 99, 611, 


TAKE SYMBOL FROM STRING 


05778 


24 


0575P 


0009R 


05860 




CF 


RGRF^6,,6, 


CLEAR FLAG 


05790 


33 


0572Q 


OOOOO 


05670 




BNF 


RGR-1,RMNS^6,6, 


EXIT IF GTNS 


05802 


44 


05S0N 


05424 


05880 




SM 


RGRF^6,1,10, 


AOO ONE FOR CLOSE AOORESS 


05814 


12 


05728 


000- 1 


05890 




TF 


•♦30,RGRF+6,, 


MOVE CLOSE AOORESS 


05826 


26 


05856 


05729 


05900 




AM 


•♦16,4,10, 


AOD 4 FOR CLOSE TO AOORESS 


05838 


11 


05856 


000-4 


05910 




TF 


,RGRF^6,U, 


CLOSE STRING ONE SYMBOL 


05850 


26 


00000 


0572Q 


05920 




SM 


BGNST, 1,10, 


DECREASE NORM BY ONE 


05862 


12 


16999 


000- 1 


05930 




AM 


ENDST, 4, 10, 


AOJUST ENDST 


05874 


11 


03970 


000*4 


05940 




1 


RGR-1,,6, 


EXIT 


05866 


49 


0550N 


OOOOO 


05950 




OORG 


•-3 




05694 








05960 


AGRNUL 


•0 


•♦20,RMNS^6., 


•RANCH IF RMNS OR GTNS 


05894 


43 


05914 


05424 


05970 




• 


RGR-1,,6, 


SKIT IF RPNS 


05906 


49 


0950N 


OOOOO 


05960 




0OR6 


••5 




06944 








06990 




TP* 


RGRS, 0,66, 


MOVE NULL TO SYMBOL 


05914 


16 


0575P 


0*000 


06000 




• 


RGR-1,,6, 


HIT 


09926 


49 


OSSON 


OOOOO 


06010 




OORG 


•-3 




09954 








06020 




FORTRAN GENERATE 


TEMPORARY STORAGE ROUTINE •••••• 










06030 




OS 


5 




09938 




5 
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0*040 


GMRP 


TFM 


61, ,8, SIT 


GI TO If BO 


05940 


16 


04735 


0-000 


04090 




TOM 


GTSBSW, 0 




05952 


19 


07024 


AAAAA 


04040 




AM 


GlfltlO* 


400 I TO G! 


05944 


1 1 


04735 




040TO 




BTM 


GTNS*»H4« » 


BIT |TM SYMBOL 


05974 


17 


05444 


-9992 


04010 




DSA 


GI tGA 




05992 






x 2 












05992 




-4735 














05997 




—4591 




04090 




CM 


GA, 101,1, 


COMPARE TO FAC f 101 I 


09998 


14 


04591 


0— 101 


04100 




BNE 


GNAP*24 


■ 


04010 


47 


05944 


01200 


04110 




CM 


TMAX, ,9, 


HAVE AMY TEMFS BEEN GENERATED 


04022 


14 


04972 


00*00 


04120 




BE 


GNONE 




04034 


44 


04150 


01200 


04130 


GYES 


TF 


GBASE t TBASE 




04044 


24 


09437 


02303 


04140 




TFM 


GCNTt0t9 




04098 


14 


iZ 




04190 




SM 


GBASE, 7, 10 




04070 


12 


09437 


000—7 


04140 




BNF 


GFREE. GBASE* I It 


BRANCH IF FREE ONE FOUND 


04082 


44 


04592 


0963P 


04170 


GTPT 


AM 


GCNTt It 10 




04096 


1 1 


041 17 




04180 




CM 


TMAX 




04104 


14 


04972 


—OOOO 


04190 


GCNT 


DS 


• • 




04117 




0 




04200 




BE 


GNONE 




061 18 


44 


06150 


01200 


06210 




SM 


GBASE* 10*10 




06130 


12 


09637 


000 JO 


06220 




B 


GYES*36 




06142 


49 


06082 


00000 


06230 




OORG 


•-3 




06 1 50 








06240 


GN0N6 


AM 


TMAX* 1 * LO 




06150 


1 1 


06972 




06250 




BD 


FULL CK-24* GTSBSW 




06162 


43 


06350 




06260 




TF 


GCOW* AOCOW, t 


MOVE ADCOM TO GCOW 


06176 


24 




06977 










Ann 10 FOB 1 FNfiTM OF IN&T& 


04186 


l| 


06839 


00OJ9 


06280 




A 


GCOW*LNG 




06198 


21 


06839 


09640 


06290 




TF 


TCOW.GCOW*, 


SAVE CONSTANT ADDRESS 


06210 


24 


06969 


06839 


06300 




TOM 


SS2.1 




06222 


15 


07477 


00001 


06310 




8TM 


PUTX,«*16,, 


OUTPUT STORE FAC INST 


06236 


17 


07032 


-6250 


06320 




OSA 


BTM, FRFAC, GCOW 




06240 




5 


X 3 



06250 -6980 
06255 -3930 
06260 -6839 



06330 




MM 


GCOW, 5,10* 


IS GCOW 000 OR EVEN 


06262 


13 


04839 


000-5 


06340 




BD 


GAD0l,99 




06274 


43 


04548 


00099 


06350 




AM 


GCOW, 2*10* 


AOO 2 TO GCOW 


06286 


11 


06839 


000-2 


06360 


GPUT 


TDM 


SSI, I 




06298 


IS 


07476 


00001 


06370 




BTM 


PUTX,«>*16 




06310 


17 


07032 


-6326 


06380 




DSA 


B, GCOW, BLANK 




06326 




5 


X 3 












06326 




-6982 














06331 




-6839 














06336 




-9356 




06390 




TF 


ADC0W*GCOW** 


RESERVE SPACE FOR NEW TEMP 


06338 


26 


06977 


06B39 


06400 




TF 


GBASE, TBASE* • 


MOVE IN NEXT AVAILABLE TABLE AODRESS 


06350 


26 


09637 


02303 


06410 




S 


GBASE- 1 , TMAX 




06362 


22 


09636 


06972 


06420 


FULLCK 


C 


GBASE, OOMAX 




06374 


24 


09637 


09587 


06430 




BNL 


GPUTA 




06386 


46 


06454 


01300 


06440 




RCTY 






06398 


34 


00000 


00102 


06450 




WNTY 


SCNT-3 




06410 


38 


09670 


00100 


06460 




MATY 


FULMES 




06422 


39 


09473 


00100 


06470 


MNCLOV 


BV 


• ♦12 




06434 


46 


06446 


01400 


06480 




B7 


MONCAL 




06446 


49 


00796 





483 
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PAGE 


06490 GPUTA 


TF 


GBASE* TC0W*6 




04454 


26 


096 3P 


06969 


06500 GFLAG 


AM 


GBASE, 4, 10 




06466 


11 


09637 


000-4 


06510 


TFM 


GBASE, 10,610 




06478 


16 


0963P 


OOOJO 


06520 


SM 


GBASE ,3, 10 




06490 


12 


09637 


000-3 


06530 


TO 


GBASE, FLAGSW,6 




06502 


25 


096 3P 


04795 


06540 


BO 


GTF I N, GTSBSW 




06514 


43 


19418 


07026 


06550 


TOM 


FSW.O 




04526 


15 


09326 


00000 


06560 GTJW 


BTM 


RPNS,**16 




06538 


17 


09476 


-6554 


06570 


DSA 


GI.GBASE-l 




06554 




5 


X 2 










06554 




-6735 












06559 




-9636 




06580 


B 


GNRP-1,.6. 


EXIT 


06560 


49 


0593R 


00000 


06590 


DORG 


•-3 




06568 








06600 GADOl 


AM 


GCOW, I, 10, 


AOO 1 TO GCOW 


06568 


11 


06639 


000- 1 


06610 


B 


GPUT 




06580 


49 


06298 


00000 


06620 GA 


OS 


• • 




06591 




0 




06630 GFREE 


AM 


GBASE* I. 10 




06592 


11 


09637 


000-1 


06640 


BD 


GTST, GBASE, 11 




06604 


43 


06628 


096 3 P 


06650 


BNF 


NGFRE, GTSBSW 




06616 


44 


06660 


07026 


06660 GTST 


BD 


GFLAG* 12* GTSBSW 




06628 


43 


06478 


07026 


06670 


SM 


GBASE. 1,10 




06440 


12 


09637 


000-1 


06680 


87 


GTPT 




04452 


49 


06094 




06690 NGFRE 


SM 


GBASE, 4, 10 




04440 


12 


09637 


000-4 


06700 


TF 


TCOW.GBASE.il* 


MOVE ADDRESS OF GT TO TCOW 


04472 


24 


06969 


0963P 


06710 


TDM 


SS2.1 




04684 


15 


07477 


00001 


06720 


BTM 


PUTX.#*14.. 


OUTPUT STORE FAC INST 


04696 


17 


07032 


-6712 


06730 


DSA 


BTM* FRFAC «TCOW 




06712 




5 


X 3 










06712 




-6980 












06717 




-3930 












06722 




-6969 




06740 


B 


GFLAG 




06724 


49 


06444 


00000 


06750 GI 


DS 


3,» 




04735 




5 




06760 


OC 


4.1000 




04739 




4 






JOOO 














06770 GTCL 


CM 


GTCL-l.101,8 




04740 


14 


04739 


0-101 


06780 


BE 


•♦34 




04752 


44 


04788 


01200 


06790 


C 


TBASE- 1. GTCL- 1 




04744 


24 


02302 


06739 


04800 


BH 


GTFLCL 




04774 


44 


04814 


01100 


04810 


BB 






04798 


42 


00000 


00000 


04820 


OORG 


•-4 




04790 








04830 GCLEAR 


TF 


•♦17.GTCL-1 




04790 


24 


04807 


06739 


04840 


TOM 


7 




04802 


19 


00007 


00000 


04850 


BB 


• tO 




04814 


M2 


00000 


00000 


04840 


OORG 


•-9 




04814 






04739 


04B70 GTFLCL 


TF 


•♦17.GTCL-1 




04814 


24 


04833 


04880 


CF 


4 




04921 


33 


00004 


00000 


04890 GCOM 


OS 


3*« 




04839 




9 




04900 


B 


GCLEAR 




04840 


44 


04790 


00000 


04910 


DORG 


•-3 




04841 








04920 GTSCL 


TF 


GBASE* TBASE 




04848 


24 


09437 


02303 


04930 


S 


GBASE-1* TMAX 




04f«0 


21 


09434 


04972 


04940 


AM 


GBASE* 9* 10 




04872 


11 


09497 


000-3 


04950 


C 


GBASE, TBASE 




04884 


24 


04417 


02303 


04940 


BNH 


•♦14 




04994 


47 


04410 


01100 
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0*970 




88 




06900 


42 


00000 


00000 


06980 




OORG 


• -9 


06910 








06990 




TDM 


68ASEtt6 


06910 


15 


0963P 


00000 


06991 




SM 


GBASE ,3,10 


06922 


12 


09637 


000-3 


06992 




CF 


G8ASE 1 16 


06934 


33 


096 3P 


00000 


07000 




AM 


GBASE, 13,10 


06946 


H 


09637 


000J3 


07010 




B 


GTSCL06 


06958 


49 


06884 


00000 


07020 


TCOW 


OS 


• • 


06969 




o 




070)0 


TMAX 


oc 


3.0 


06972 




3 








-00 












07040 


ADCOW 


DC 


5,0 


06977 




5 








-0000 










07050 




oc 

• 


1," 


06978 




I 




07060 


BTM 


oc 


2,17 


06980 




2 




07070 


8 


J7 
DC 
M9 


2,49 


06982 




2 




07080 


Dl 


DS 


5 


06987 




5 




07090 


Dt 


OS 


5 


06992 




5 




07100 


02 


OS 


5 


06997 




5 




onio 


OJ 


DS 


5 


07002 




5 




07120 


03 


DS 


5 


07007 




5 




07130 


OK 


DS 


5 


07012 




5 




07140 


04 


DS 


5 


07017 




5 




07150 


Tl 


DS 


5 


07022 




5 




07160 


I 


DS 


3 


07025 




3 




07170 


GTSBSW 


DSC 


1,0 


07026 




I 




07180 


•••••• 


DISC OUTPUT ROUTINES FOR OBJECT PROGRAM 








07190 




DS 


5 


07031 




5 




07200 


PUTX 


TF 


PUTl .PUTX-l ,11 


07032 


26 


08770 


0703J 


07210 




AM 


PUTX-l ,5 ,10 


07044 


11 


07031 


000-5 


07220 




TF 


PUT 2 , PUTX-l ,11 


07056 


26 


08775 


0703J 


07230 




AM 


PUTX-l ,5 ,10 


07068 


11 


07031 


000-5 


07240 




TR 


TYPET ,TVPEX 


07080 


31 


08425 


08781 


07250 


PUTXA 


TF 


PUT3 ,PUTX-l ,11 


07092 


26 


08780 


0703J 


07260 




AM 


PUTX-l ,2 ,10 


07104 


11 


07031 


000-2 


07270 


PUTXB 


C 


COOET .LSTYPE 


07116 


24 


08438 


08444 


07280 




BNE 


PUTOIF 


07128 


47 


07604 


01200 


07290 




C 


SAVCOW , ADCOW 


07140 


24 


07499 


06977 


07300 




BNE 


OUTSEQ 


07152 


47 


07744 


01200 


07310 




C 


BAL , SING 


07164 


24 


08446 


08427 


07320 




BL 


PUTNXT 


07176 


47 


07904 


01300 


07330 


PUTEST 


BO 


PUTINS ,COOET 


07188 


43 


07208 


08438 


07340 




B7 


PUTCAD 


07200 


49 


07528 




07350 


•••••• 


PLACE INSTRUCTIONS IN OUTPUT BUFFER 










07360 


PUTINS 


AM 


NEXT ,2 ,10 


07208 


u 


08456 


000-2 


07370 




TF 


NEXT ,PUT1 ,611 


07220 


26 


08450 


0877- 


07380 




C 


LOCOM ,PUT3 ,11 


07232 


24 


02262 


0878- 


07390 




BNH 


• ♦24 


07244 


47 


07268 


01100 


07400 




BD 


FLG2 ,SS2 


07256 


43 


07468 


07477 


07410 


PUTXC 


SM 


NEXT ,1 ,10 


07268 


12 


08456 


000-1 


07420 




C 


LOCOM ,PUT2 ,11 


07280 


24 


02262 


0877N 


07430 




BNH 


• ♦24 


07292 


47 


07316 


01100 


07440 




BO 


•♦24 ,SSl 


07 304 


43 


07328 


07476 



1620 FORTRAN I I — 0 PHASE 2 PAGE 21 



07450 




CF 


NEXT 


» 


.6 


07316 


33 


08450 


00000 


07460 


PUTGT 


DS 








07327 




0 




07470 




AM 


NEXT 


• 6 


,10 


07328 


11 


08456 


000-6 


07480 




TF 


NEXT 


,PUT2 


,611 


07 340 


26 


08450 


0877N 


07490 




BD 


FLG3 


,SS3 




07352 


43 


07488 


07478 


07500 


PUTXD 


AM 


NEXT 


,5 


,10 


07364 


U 


08456 


000-5 


07510 




TF 


NEXT 


,PUT3 


• 611 


07376 


26 


08450 


0878- 


07520 




BD 


FLG4 


,SS4 




07388 


*3 


07508 


07479 


07530 


PUTXE 


TFM 


SS4 


,0 


• 8 


07400 


16 


07479 


0-000 


07540 




SM 


BAL 


• 12 


• 10 


07412 


12 


08446 


000J2 


07550 


PUTXF 


A 


AOCOW 


, SLNG 




07424 


21 


06977 


08427 


07560 




TF 


SAVCOW 


, AOCOW 




074 36 


26 


07499 


06977 


07570 




A 


LNGAO 


, SLNG 


• 6 


07448 


21 


0845J 


08427 


07580 




B7 


PUTX-l 




,6 


07460 


49 


0703J 




07590 


FLG2 


SF 


NEXT 


» 


• 6 


07468 


32 


08450 


00000 


07600 


SSI 


DS 


,•-3 






07476 




0 




07610 


SS2 


OS 


,•-2 






07477 




0 




07620 


SS3 


DS 


,•-1 






07478 




0 




07630 


SS4 


DS 








074 79 




0 




07640 




B7 


PUTXC 






07480 


49 


07268 




07650 


FLG3 


SF 


NEXT 


,99999 


.67 


07488 


32 


08450 


R9999 


07660 


SAVCOW 


DS 


»• 






07499 




0 




07670 




B7 


PUTXO 






07500 


49 


07364 




07680 


FLG4 


SF 


NEXT 


• 


• 6 


07508 


32 


08450 


00000 


07690 




B7 


PUTXE 






07520 


49 


07400 




07700 


•••••• 




PLACE OSA 


ADDRESSES IN OUTPUT 


BUFFER 










07710 


PUTCAD 


A 


NEXT 


• SLNG 




07528 


21 


08456 


08427 


07720 




S 


BAL 


• SLNG 




07540 


22 


08446 


08427 


07730 




TF 


NEXT 


• PUT 3 


• 611 


07552 


26 


08450 


0878- 


07740 




BO 


• ♦20 


•COOET-3 




07564 


43 


07584 


08435 


07750 




87 


PUTXF 






07576 


49 


07424 




07760 




TFM 


SAVCOW 


,99999 




07584 


16 


07499 


R9999 


07770 




87 


PUTXF^24 




07596 


49 


07448 




07780 


•••••• 




THIS TYPE 


NOT EQUAL TO LAST 












07790 


PUTDIF 


TF 


LSTYPE 


• COOET 




07604 


26 


08444 


08438 


07800 




C 


SAVCOW 


•AOCOW 




07616 


24 


07499 


06977 


07810 




BNE 


OUTSEQ 






07628 


47 


07744 


01200 


07820 




C 


BAL 


•SSLNG 




07640 


24 


08446 


08429 


07830 




BL 


PUTNXT 






07652 


47 


07904 


01300 


07840 


PUTXG 


AM 


NEXT 


• I 


• to 


07664 


11 


08456 


000-1 


07850 




TO 


NEXT 


•TYPET 


• 6 


07676 


25 


06450 


08425 


07860 




AM 


NEXT 


• 2 


• 10 


07668 


11 


08456 


000-2 


07870 




TFM 


NEXT 


• 0 


• 610 


07700 


16 


06450 


000*0 


07880 




TF 


LNGAO 


• NEXT 




07712 


26 


08451 


08456 


07890 




SM 


BAL 


• 3 


• 10 


07724 


12 


00446 


000-3 


07900 




07 


PUTEST 






07736 


49 


07100 




07910 


•••••• 


OUT OF SEQUENCE 












07920 


OUTSEQ C 


BAL 


•SQLNG 




07744 


24 


00446 


08433 


07930 




0L 


PUTNXT 






07756 


47 


07904 


01300 


07940 




CM 


BAL 


• 75 


• 10 


07766 


14 


00446 


0OOP5 


07950 




81 


PUTXH 






07700 


46 


07820 


01200 


07960 




AM 


NEXT 


• I 


#10 


07792 


11 


00456 


000-1 


07970 




SM 


BAL 


• 1 


• to 


07004 


12 


00446 


000-1 


07900 




TOM 


NEXT 


• 


• 6 


07016 


15 


00450 


00000 


07990 




OC 


t.»»* 






07027 




I 
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08000 


PUTXH 


AM 


NEXT 




.5 


• 10 


07828 


11 


08456 


000-5 


08010 




SM 


BAL 




.5 


.10 


07840 


12 


08446 


000-5 


08020 




80 


PUTTA 




,C00ET-3 




07852 


43 


07884 


08435 


080)0 


PUTXJ 


TF 


NEXT 




,A0C0M 


• 6 


07864 


26 


08450 


06977 


08040 




B7 


PUTXG 








07876 


49 


07664 




08090 


PUTTA 


TF 


NEXT 




,PUT2 


.611 


07884 


26 


08450 


0877N 


08060 




87 


PUTXG 








07896 


49 


07664 




080T0 




NEXT CARO 


BUFFER 


TO BE USEO 












08080 


PUTNXT 


AM 


NEXT 




.1 


.10 


07904 


11 


08456 


000- I 


06090 




TO 


NEXT 




,FLGRM 


.6 


07916 


25 


08450 


08424 


08100 




CM 


PREBUF 




,BUF4 




07928 


14 


08765 


-8685 


08110 




BE 


PUTPCH 








07940 


46 


08008 


01200 


08120 




AM 


PREBUF 




.75 


,10 


07952 


11 


08765 


000P5 


08130 




TF 


NEXT 




, PREBUF 




07964 


26 


08456 


08765 


08140 




SM 


NEXT 




.1 


.10 


07976 


12 


08456 


000- I 


08150 


PUTXI 


TFM 


BAL 




,75 


.10 


07988 


16 


08446 


000P5 


08160 




B7 


PUTXH 








08000 


49 


07828 




08170 




OUTPUT BUFFER LOAD TO DISC 












08180 


PUTPCH 


TDM 


BUF4*75 








08008 


15 


08760 


00000 


08190 




DGM 


• 








08019 




1 




08200 




TFM 


10RT 




,♦♦23 




08020 


16 


00565 


-8043 


08210 




B 


IOPT 




,PUTXX 


.7 


08032 


49 


005 32 


-8402 


08220 




AM 


PUTXZ 




,3 


.10 


08044 


11 


08415 


000-3 


082)0 




TFM 


PREBUF 




,BUF1 




08056 


16 


08765 


-8460 


08240 




TFM 


NEXT 




.BUFl-l 




08068 


16 


08456 


-8459 


08250 




TFM 


• ♦18 




,BUF4+75 




0B080 


16 


08098 


-8760 


08260 




TF 


8UF4+75 




,N13089 




08092 


26 


08760 


09364 


08270 




SM 


• -6 




♦ 12 


,10 


08104 


12 


08098 


000J2 


08280 




CM 


• -18 




♦ BUFl 




08116 


14 


08098 


-8460 


08290 




8H 


• -36 








08128 


46 


08092 


01100 


08)00 




B 


PUTXI 








08140 


49 


07988 


00000 


08310 


PUTC 


TF 


• ♦23 




♦ •-1 


.11 


08152 


26 


08175 


0815J 


0831 1 




CF 


• ♦11 








08164 


33 


08175 


00000 


08312 




C 


• -1 




,LOCOM 


.6 


08176 


24 


0817N 


02262 


08313 




BH 


PUTCA 








08188 


46 


08248 


01100 


08320 




TR 


TYPFT 




» T YPECR 




08200 


31 


08425 


08796 


08330 


PUTCD 


TF 


PUTX-l 




,PUTC-! 




08212 


26 


07031 


08151 


08340 




B 


PUTXA 








0B224 


49 


07092 


00000 


08350 


PUTD 


TF 


PUTC-1 , 


PUTD-1 






08236 


26 


08151 


08235 


08360 


PUTCA 


TR 


TYPET 




, TYPECN 




08248 


31 


08425 


0B811 


08370 




B 


PUTCB 








08260 


49 


08212 


00000 


08380 


PUTA 


TF 


PUT2 




, PUTA-l 


,11 


08272 


26 


08775 


0827J 


08390 




AM 


PUTA-l 




,5 


.10 


08284 


11 


08271 


000-5 


08400 




YF 


PUT3 




, PUTA-l 


.11 


08296 


26 


08780 


0827J 


08410 




AM 


PUTA-l 




, 1 


.10 


08308 


tt 


08271 


000-1 


08420 




TF 


PUTX-l 




, PUTA-l 




08320 


26 


07031 


08271 






TR 


TYPET 




, TYPE A 




08332 


31 


08425 


08826 


08440 




B 


OUTSEQ 








08344 


49 


07744 


00000 






TR 


TYPET, TYPERM 






08356 


3 I 


08425 


08367 


08460 




TF 


PUTX-l, 


PUTRM-1 






08 368 


26 


07031 


08355 


08470 




B7 


PUTXA 








08380 


49 


07092 




08480 


TYPERM 


DSC 


1.2 








08387 




1 




08490 




2 

DC 


2,2 








08389 




2 




08500 




-2 

DC 


2,5 








08391 




2 





-5 



08510 




DC 


2, 10 


08393 


2 






JO 








08520 




DC 


2.11 


08395 


2 






Jl 








08530 




DC 


100 


08400 


5 






-0100 






08540 




DC 


I. ' 


08401 


I 


08550 


PUTXX 


DSC 


2,2 


08402 


2 






02 








08560 




DSA 


PUTXY 


08408 


5 










08408 


-8410 


08570 




DC 


!.• 


08409 


1 


08580 


PUTXY 


osc 


1,0 


08410 


1 


08590 


PUTXZ 


0 

DC 


5,0 


08415 


5 






-0000 






08600 




DC 


3,3 


08418 


3 






-03 








08610 




DSA 


BUFl 


08423 


5 










08423 


-8460 


08620 


FLGRM 


DC 


It' 


08424 


I 


08630 


TYPET 


DS 


I 


08425 


I 


08640 


SLNG 


OS 


2 


08427 


2 


08650 


SSLNG 


DS 


2 


08429 


2 


08660 


NLNG 


DS 


2 


08431 


2 


08670 


SQLNG 


DS 


2 


08433 


2 


08680 


CUDET 


DS 


5 


08438 


5 


08690 




DS 


1 


08439 


1 


08700 


LSTYPE 


DC 


5,0 


08444 


5 






-0000 






08710 


BAL 


DC 


2.75 


08446 


2 






P5 








08720 


LNGAD 


DS 


5 


08491 


5 


08730 


NEXT 


DSA 


BUFl-l 


0845* 


5 



08456 -8459 



08740 




DAS 1 


08459 


i 


08750 


BUFl 


DSC 50,0 

00000000000000000000000000000000000000000000000000 


08460 


50 


08760 




DSC 25,0 

0000000000000000000000000 


08510 


25 


08770 


BUF2 


DSC 50.0 

oooooooooooooooooooooooooooooooooooooooooooooooooo 


08595 


50 


08780 




DSC 25,0 

0000000000000000000000000 


08585 


25 


08790 


BUF3 


DSC 50,0 

00000000000000000000000000000000000000000000000000 


08610 


50 


06800 




OSC 25,0 

0000000000000000000000000 


08660 


25 


08610 


8UF4 


OSC 50,0 

00000000000000000000000000000000000000000000000000 


08685 


50 
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08820 


DSC 


25 


tO 


08735 


25 




0000000000000000000000000 






08830 


0GM 






08760 


I 


08840 PREBUF 


OSA 


BUF I 


08765 


5 










08765 


*8460 


U0B5U rU 1 I 


OS 


5 




08770 




nmm£.r\ oiit> 
UBBOU CUI< 


DS 


5 




08775 


j 


OBBrO PUTJ 


OS 


5 




08780 


5 


OBBBO ITFC* 


DSC 


It 


1 


0878 1 


V 


08890 


1 

DC 


2* 


12 


08783 


2 




J2 










08900 


DC 


2. 


15 


08785 


2 




J5 










08910 


DC 


2. 


20 


08787 


2 




K0 










08920 


OC 


2. 


21 


08789 


2 




Kl 










08910 


OC 


5, 


1 


08794 


5 




-0001 








089*0 


DC 
* 


It 


i 


08795 


1 


OB V5U 1 TrtLK 


DSC 


1. 


3 


08 796 


I 


08960 


3 

DC 


2, 


5 


08798 


1 




-5 










08970 


DC 


2, 


8 


08 BOO 


2 




-8 










08980 


DC 


2, 


13 


08802 


2 




J3 










08990 


DC 


2, 


14 


0680* 


2 




J* 










09000 


DC 


5, 


10 


08809 


5 




-0010 








09010 


DC 
f 


1. 


| f 


08810 


I 


09020 TYPECN 


DSC 


1. 


.2 


088 1 1 


I 


090 30 


2 

DC 


2, 


,5 


088 13 


2 


09040 


-5 
DC 


2. 


.8 


088 15 


2 


09050 


-8 
DC 


2. 


1 13 


08817 


2 




J3 










09060 


DC 


2. 


.14 


08819 


2 




J4 










09070 


DC 


5, 


,100 


08824 


5 




-0100 








09080 


DC 


1. 


. » 


08825 




09090 TYPE A 


DSC 


I* 


,3 


08826 


1 


09100 


3 

DC 


2, 


,5 


08828 


2 




-5 










09110 


DC 


2, 


,13 


08830 


2 




J3 
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09120 




DC 


2,13 






08832 




2 




09130 




J3 

OC 


2,1* 






08834 




2 








J4 
















09140 




DC 


5,1000 






08839 




5 








-1000 














09150 




DC 


It" 






088*0 








09160 




DS 


5 






08845 




5 




09170 


CANOS 


TF 


CANDSA 


,•-1 


• U 


08846 


26 


08960 


0884N 


09180 




BTM 


RMNS 


• •♦16 




08858 


17 


05*16 


-887* 


09190 




DSA 


I, OX 






08874 




5 


X 2 














0887* 




-95*7 
















08879 




-9121 




09200 




BTM 


RMNS 


• •♦16 




08880 


17 


05*16 


-8896 


09210 




OSA 


l.DY 






08896 




5 


X 2 














08896 




-95*7 
















08901 




-9125 




09220 




CF 


OY-3 






08902 


33 


09122 


00000 


09230 




SF 


OX 




• 10 


0891* 


32 


09121 


000-0 


09240 




TO 


•-1 


• DX-3 




08926 


25 


08925 


09118 


09250 




CM 


•-13 


,9 


• 1011 


08938 


I* 


06925 


000-R 


09260 




BNE 


•♦24 






08950 


*7 


08974 


01200 


09270 




SF 


OY 






08962 


32 


09125 


00000 


09280 




TF 




tOY 




0897* 


26 


00000 


09125 


09290 


CANDSA 


DS 




• •-5 




08980 




0 




09300 




AM 


CANOS- I 


.5 


• 10 


08986 


11 


08845 


000-5 


09310 




BTM 


RMNS 


#•♦16 




08998 


17 


05414 


-9014 


0*9320 




OSA 


!,DX 






09014 




3 


X 2 














09014 




-9547 
















09019 




-9121 




09330 




CM 


OX 


• 104 


• 1 


09020 


14 


09121 


0-104 


093*0 




BNE 


• ♦32 






09032 


47 


09084 


01200 


09350 


CANDRT 


AN 


CANOS- 1 


,1 


• 10 


09044 


11 


06646 


000-1 


093A0 




B 


CANDS-1 


• 


• 6 


09056 


*9 


0864N 


ooooo 


09370 




DORG 


•-3 






09064 








09380 




BTM 


SRFCT 


,•♦16 




09064 


17 


03978 


-9080 


09390 




OSA 


DX.DX 






09080 




5 


X 2 














090B0 




-9121 
















09085 




-9121 




09*00 




TF 


• ♦IB 


, CANOS- 1 


• U 


09086 


26 


09104 


0664N 


09410 




TF 




• OX 




09098 


26 


00000 


09121 


09420 




6 


CANORT 






09110 


49 


09044 


OOOOO 


09430 


OX 


OS 








09121 




0 




09440 


OV 


OS 


4 






09125 




4 




09450 




OAS 


1 






09127 




1 


X 2 


09460 


BUI 


DSC 


2,22 






09126 




2 








22 
















094 70 




DSA 


BLK1A 






09134 




6 


X I 














, 09134 




-9136 




09480 




OC 








09135 




1 
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09*90 


•LKIA 


DSC 


1,0 


0913* 


1 






0 








09900 




DC 


5,17876 


091*1 


5 






J7876 






09510 




DC 


3,41 


0914* 


3 






-41 








09520 




DSA 


CODE 1-2 


091*9 


5 










091*9 


JOOOO 


095)0 




OC 


1,* 


09150 


1 


095*0 




OS 


1 


09151 


I 


09550 


BLK2 


DSC 


2,22 


09152 


2 






22 








09560 




OSA 


BLK2A 


09158 


5 X 










09158 


-9160 






DC 
• 


l,« 


09159 


1 


09580 


BLK2A 


DSC 
0 


1,0 


09160 


1 


09590 




OC 


5,17936 


09165 








J7936 






09600 




DC 


3,60 


09168 


3 






-60 












DSA 


C0DE1-2 


09173 


5 X 










09173 


JOOOO 


09620 




DC 
• 


It" 


0917* 


I 


09630 




DS 


1 


09175 


1 


09640 


BLK 3 


DSC 


2,22 


09176 


2 






22 








09650 




DSA 


BLK3A 


09182 


5 X 










09182 


-918* 


09660 




DC 
* 


I,' 


09183 


1 


09670 


BLK3A 


DSC 
0 


L,0 


0918* 


1 


09680 




DC 


5, 18000 


09189 


5 






J8000 






09690 




OC 


3,41 


09192 


3 






-41 








09700 




OSA 


CODEl-2 


09197 


5 X 










09197 


JOOOO 


09710 




DC 


If' 


09198 


1 


09720 




DS 


1 


09199 


I 


09730 


BLK4 


DSC 


2.22 


09200 


2 






22 








097*0 




OSA 


BLK4A 


09206 


5 X 










09206 


-9208 


09750 




DC 




09207 


I 
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09760 BLK4A 


DSC 
0 


1,0 


09208 


09770 


DC 


5,18041 


09213 




J 8041 




09780 


DC 


3,41 


09216 




-41 






09790 


OSA 


C00EI-2 


09221 








09221 


09800 


DC 
, 




09222 


09810 


DS 


1 


09223 


09820 BLK5 


OSC 


2,22 


09224 




22 






09830 


DSA 


BLK5A 


09230 








09230 


09840 


DC 


lt« 


09231 


09850 BLK5A 


OSC 


1,0 


09232 


09860 


0 

DC 


5,17917 


09237 




J7917 




09870 


OC 


3,019 


09240 




-19 






09880 


OSA 


SUBCDS-2 


09245 








09245 


09890 


DC 


It* 


0924* 


09900 


DS 


1 


092*T 


09910 BLK6 


DSC 


2,22 


092*8 




22 






09920 


DSA 


BLK6A 


0925* 








0925* 


09930 


OC 
, 


!•• 


092S5 


09940 BLK6A 


DSC 


1,0 


0925* 


09950 


0 

OC 


5,18082 


092*1 




J8082 




099*0 


DC 


3,019 


092** 




-19 






09970 


DSA 


SUBCDS-2 


092*9 








092*9 


09980 


DC 


It* 


09270 


09990 


DS 


1 


09211 


10000 8LR7 


OSC 


2,22 


092T2 




22 




10010 


DSA 


BLK 7 A 


09271 








09271 


10020 


OC 


It" 


09279 



J* 100 



J* 100 
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PACE 20 



10030 


BLK7A 


0$C 


1,0 


09280 




100*0 




0 
DC 


5,10101 


09285 








J8101 






10050 




DC 


3,019 


09280 








"*19 








100 AO 




DSA 


SUBCDS-2 


09293 












09293 


J4100 


10070 




OC 
t 


t,« 


09296 




looao 




OS 


I 


09295 




10090 


BLK8 


osc 


2,22 


09296 








22 








1 01 00 




DSA 


BLKBA 


09302 












09302 


-9304 


10110 




OC 


1,» 


09303 




10120 


BLK8A 


DSC 


1,0 


09306 




10130 




0 

DC 


5,18120 


09309 








J8120 






10140 




OC 


3,019 


09312 




10150 




-19 
DSA 


SUBCOS-2 


09317 












09317 


J4100 


10160 




OC 


It* 


09318 




10170 


CKCOW 


OC 


5,0 


09323 








-0000 






10180 




DC 
i 


1»* 


09 324 




10190 


SSSW 


OS 


00O0l,,SSSM,, 


09325 




10200 


FSW 


OS 


00001, , FSW,, 


09326 




10210 


101 


OS 


00001, ,101,, 


09327 




10220 


102 


OS 


00001**102,, 


09328 




10230 


103 


OS 


00001, ,103,, 


09329 




10240 


STEMPl 


OS 


00001,, STEMPl,, 


09330 




10250 


STEMP2 


DS 


00001,, STEMP2,, 


09331 




10260 


CAILSW 


OS 


00001. .CALLSW, . 


09332 




10270 


OOSM 


OS 


00001, , DOS W,, 


09333 




10280 


EXINO 


OS 


00001 , .EX1ND* * 


09334 




10290 


SUBSW 


OS 


00001, , SUBSW,, 


09335 




10300 


REGSW 


DS 


1 


09336 




10310 


RSW 


OS 


I 


09337 




10 320 


S WARE A 


DS 


»• 


09337 


0 


10330 


TFM 


DC 


00002,16, TFM , 


09339 


2 






J6 








10340 


SF 


DC 


00002, 32, .SF, 


09341 


2 






L2 








10350 


CF 


OC 


00002,33, ,CF 


09343 


2 






13 








10360 


TF 


DC 


00002, 26, , TF , 


09345 


2 






K6 
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10370 AM 

10380 MM 

10390 H 

10400 N13089 



10410 
10420 
10430 
10440 
10450 
10460 

10470 

10480 

10490 

10500 

10510 

10520 

10530 

10540 

10550 

10560 

10570 

10580 

10590 

10600 

10610 

10620 

106)0 

10640 

10650 

10660 

10670 



ZERO 

ZER06 

ZERO* 

ZER05 

BLANK 

N 13092 

SUB 

N13133 
MOD 
MPY 
8T 

RCTY 

WATV 

GLNO 

ADD 

SM 

RVSN 

RMOD 

MODMES 

OOMES 

FULMES 

OOA 

MN$5 

N I 3063 

N 13062 

FAC 

FIVE 



DC 


00002, 11,, AM, 


Jl 




OC 


00002, 13,, MM, 


J3 




DC 


00002, 48,, H, 


M8 




DC 


00013,0 


-000000000000 


OS 


,•-11 


DS 


,•-7 


DS 


.•-9 


OS 


,•-8 


OS 


.•-8 


DC 


5,00099,,, 


-0099 


OC 


00002,22,, SUB, 


K2 




DC 


5,00095,,, 


-0095 


OC 


2,0 


-0 




DC 


00002,23 


K3 




DC 


00002,27, ,BT, 


K7 




DC 


00002, 34,, RCTY, 


14 




OC 


00002, 39,, WATY, 


L9 




OC 


00004,000, ,6LN0, 


-000 




DC 


00002,21,, ADO, 


Kl 




OC 


00002, 12,, SM, 


J2 




DC 


3,125 


J25 




DC 


3,123 


J23 




OAC 


13, MIXED MODE* 


MIXEO MODE' 


OAC 


22. IMPROPER 00 



IMPROPER 00 NESTING' 
DAC 20, SYMBOL TABLE PULL* 

SYMBOL TABLE FULL* 
OC 00004. 109, .OOA, 
-109 

OC 00002.-05. .MNS5, 
-N 

OC 5.00100... 
-0100 

OC 5,00102... 
•0102 

OC 00004. 101 . »F AC, 
-101 

OC 2,5 
-5 



09347 


2 






09349 


2 






09351 


2 






09364 


13 






09353 
09357 
09355 
09356 
09356 
09369 


0 
0 
0 
0 
0 






09371 








09376 








09378 








09380 








09382 








09384 








09386 








09390 








09392 








09394 








09)97 








09400 








09403 


13 


X 


2 


09429 


22 


X 


2 


0947) 


20 


X 


2 


09515 








09517 








09522 








09527 








09511 








095)) 









494 
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10410 Rf NAME 


OS 


00005* .RTNAME , , 


09 lit 


i 06 to sr 


OS 


00001 f tSTn 


09841 


10700 I 


OS 


00004,,!,, 


0984? 


10710 J 


OS 


00005.. J.. 


09982 


10720 1* 


OS 


00005, .P.. 


09957 


10730 Q 


OS 


00005, tOt • 


09582 


10740 IV 


OS 


00005, ,LV». 


098*7 


10820 RTAD 


OS 


00005, »RTADt . 


09972 


108)0 RV 


OS 


00005. .RVtt 


09977 


10840 SXF 


OS 


5 


09982 


10890 DOM AX 


OS 


5 


09987 


10880 J40004 


OS 


5 


09992 


10870 T2 


OS 


4 


0999* 


10880 NOllOO 


oc 


5.1100 


09601 




-1100 




10090 BNM 


DC 


2.47 


09603 




M7 






10900 C 


DC 


2.24 


09609 




K4 






10920 CM 


DC 


2.14 


09607 




J4 






10930 BL 


DC 


2.47 


09609 




H7 




09614 


10940 NO 1300 


OC 


5.1300 




-1300 




10950 Bfc 


OC 


2.46 


09616 




M6 




09621 


10940 N01200 


DC 


5.1200 




-1200 


09623 


10970 80 


OC 


2,43 




M3 






10980 BNF 


DC 


2,44 


09625 




H4 




09630 


10990 FACP2 


DC 


5,02490 




-2490 




11000 BI 


DC 


2,46 


09632 


11010 GBASE 


M6 

OS 


5 


09637 


11020 LNG 


DS 


3 


09640 


11030 PI 


OS 


11 


09651 


11040 T3 


DS 


5 


09656 


11050 OPZ 


DS 


2 


09658 


11060 FPSW 


DSC 


1.0 


09659 


11070 FPSWX 


0 

DSC 


1,0 


09660 


11080 SKIPSW 


0 

osc 


1.0 


09661 


11090 COMXSW 


0 

OSC 


1.0 


09662 


11100 ERSWT 


0 

DSC 


1.0 


09663 


11110 N00796 


0 

DSA 


MONCAL 


09668 








09668 


11120 SCNT 


DS 


00005. . SCNT, , 


09673 



495 
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11130 




DC 


It 1 




09674 




1 




11131 




DAS 


I 




09677 




I 


X 2 


11140 


INPUT 


DC 


l,« 




09678 




I 




11150 




DS 


99 




09777 




99 




11160 




DC 
• 


!»• 




09778 




I 




11170 




DORG 


10000 




10000 








11180 




SECONDARY LINKAGE FOR BLOCK 1 










11190 




DC 


2,1 




10001 




2 




11200 


CODE I 


-1 
SM 


I 


tl tlO 


10002 


12 


09547 


000-1 


11210 




B 


CODE IP 




10014 


49 


10434 


00000 


11220 


C0DE3 


TF 


N40002 


.1 


10026 


26 


03494 


09547 


11230 




B 


C0DE3P 




10038 


49 


12218 


00000 


11240 


C0DE4 


BTM 


RMNS 


.C0DE4P 


10050 


17 


05416 


J3380 


11250 




H 






10062 


48 


00000 


00000 


11260 


C0DE6 


TFM 


FM0N*3S 


,BLK2 


10074 


14 


02359 


-9152 


11270 




BTM 


FMON 


.C0DE6 


10086 


17 


02324 


J0074 


11280 


C0DE7 


TFM 


FM0NO5 


,BLK2 


10098 


16 


02359 


-9152 


11290 




BTM 


FMON 


,C0DE7 


10110 


17 


02324 


J0098 


11300 


CODES 


SM 


I 


,2 .10 


10122 


12 


09547 


000-2 


11310 




B 


CO0E8P 




10134 


49 


13666 


00000 


11320 


C0DE9 


TFM 


FM0N435 


• 8LK2 


10146 


16 


02359 


-9152 


11330 




BTM 


FMON 


.C0DE9 


10159 


17 


02324 


J0146 


11340 


C00E12 


B 


SUBC12 




10170 


49 


14150 


00000 


11350 




M 






10182 


48 


00000 


00000 


11360 


CODE 14 


TFM 


FMON+35 


,BLK3 


10194 


16 


02359 


-9176 


11370 




BTM 


FMON 


, CODE 14 


1020* 


17 


02324 


J0194 


11380 


C00E15 


TOM 


CALLSW 


tl 


10218 


19 


09332 


00001 


11390 




B 


C015P 




10230 


49 


13720 


00000 


11400 


C00E17 


TFM 


FM0N435 


,BLK2 


10242 


16 


02359 


-9152 


11410 




BTM 


FMON 


.C00E17 


10254 


17 


02324 


J0242 


11420 


COOESS 


B 


SUBCDS 




10266 


49 


14102 


00000 


11430 




H 






10278 


48 


00000 


00000 


11440 


C0SSA8 


B 


SUBCAB 




10290 


49 


14126 


00000 


11450 




H 






10302 


48 


00000 


00000 


11460 


CD12B 


6 


SUB12B 




10314 


49 


14174 


00000 


11470 




H 






10326 


48 


00000 


00000 


11480 


FCT1 


TFM 


FMON* 3 5 


,BLK4 


109)8 


16 


02359 


-9200 


11490 




BTM 


FMON 


♦ PCTl 


10950 


17 


02324 


J0338 


11500 


FCTRT 


TFM 


FMON* 3 5 


♦ 8LK2 


109*2 


I* 


02959 


-9152 


11510 




BTM 


FMON 


.FCTRT 


10974 


17 


02924 


J0362 


11520 


EOJ 


TFM 


FMON+35 


,8LK4 


1098* 


1* 


02959 


•9200 


11930 




BTM 


FMON 


,EOJ 


10999 


17 


02924 


J0986 


11940 


CDCALL 


TFM 


FM0N*»5 


titKJ 


10410 


1* 


02999 


-9176 


11990 




BTM 


FMON 


♦COCALL 


10422 


17 


02924 


J0410 


11540 


•••••• 




THE FOLLOWING 


COOES ARITHMETIC OPERATORS 










11570 


CODE IP 


BTM 


RMNS 


,•♦1* 


1041* 


17 


0941* 


J0490 


11590 




OSA 


I 




10490 




9 


X 1 












10410 




-9947 




11590 




DSA 


SL 




10*19 




1 


X 1 



10499 



-2399 
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11600 




BTM 


RNNS 


.•♦16 


10656 


17 


01616 


J0672 


11610 




OSA 


1 




10672 




5 


X 1 












10672 




•9567 




1 1620 




OSA 


IV 




10677 




5 


X 1 












10677 




-9567 




116)0 




BTM 


GTNS 


#•♦16 


10678 


17 


05646 


J0494 


11660 




OSA 


1 




10696 




5 


X 1 












• 

10696 




— 9547 




11650 




OSA 


SR 




10499 




5 


X I 












10699 




-2372 




1 1660 




CM 


LV, 


133,6, EQUAL 


10500 


14 




* 


1 1670 




BE 


CODE 1C 




105 12 


46 


1 1036 


01200 


11680 




CM 


LV, 


1 15 1 8 f E XPONENTI At 


10526 


16 


09567 


0— 115 


11690 




BE 


COOEIO 




105)6 


66 


1 1538 


01200 


11700 






CODE AOO 


t SUBTRACT, MULTIPLY* DIVIDE 










1 1710 




CM 


SI, 


101*8, PAC 


10568 


16 


02)99 


0-101 


11720 




BNE 


N60007 




10560 


47 


10794 


01200 


11730 




TO 


MOD 


.FLAGSW 


10572 


25 


09378 


04795 


1 1740 


COOE 1A 


TOM 


SS2 


« 1 


10586 


15 


07477 


00001 


11750 




BTM 


SRFCT 


#•♦16 


10596 


17 


03976 


J0612 


11760 




OSA 


SR 




10612 




5 


X 1 












10612 




-2372 




11770 




OSA 


J 




10617 




5 


X 1 












1061 7 




-9552 




1 1 780 


• 


TEST FOR 


MIXED MODE 










1 1 790 




C 


MOD 


•FXORFL 


10618 


24 


09378 


04373 


11800 




BE 


• ♦26 




10630 


46 


10654 


01200 


1 1810 




BT 


ERMOOE 


.ERMOOE-l 


10642 


27 


12014 


12013 


11820 




TO 


FX 


, FXORFL 


10654 


25 


03715 


04373 


1 1 8 30 






FX IS USED BY OPSR ROUTINE 










1 1840 




BTM 


OPSR 


,•♦16 


10666 


17 


03596 


J0682 


11850 




DSA 


LV 




10682 




5 


X 1 












10682 




-9567 




11860 




DSA 


N40001 




10687 




5 


X 1 












10687 




-3489 




1 1870 




BTM 


PUTX 


,•♦16 


10688 


17 


07032 


J0704 


11880 




DSA 


OPX 




10704 




5 


X 1 












10 704 




-4193 




11890 




DSA 


N40001 




10709 




5 


X 1 












10709 




-3489 




1 1 900 




DSA 


J 










X 1 












10714 




-9552 




U910 


COOEIM 


BTM 


RPNS 


,•♦16 


10716 


17 


05476 


J0732 


11920 




DSA 


I 




10732 




5 


X 1 
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PAGE 
















10732 




-9547 




11930 




DSA 


FAC 








10737 




5 


X 1 
















10*737 




-9531 




11940 




TDM 


FSW 


,1 < 


.11 




10738 


15 


09326 


OOOOJ 


11950 




TO 


FLAGSW 


, FXORFL 






10750 


25 


04795 


04373 


11960 




BT 


GTCL 


,SL 






10762 


27 


06740 


02399 


11970 




BT 


GTCL 


.SR 






10774 


27 


06740 


02372 


11980 




B 


EXIT 








10786 


49 


02948 


00000 


11990 




UORG 


•-3 








10794 








12000 


N60007 


CM 


SR. 


101. 8. FAC 






10794 


14 


02372 


0-101 


12010 




BNE 


N60009 








10806 


47 


10838 


01200 


12020 




TF 


SR 


.SL 






10818 


26 


02372 


02399 


12030 




B 


COOE IB 








10830 


49 


10944 


00000 


12040 




DORG 


•-3 








10838 






09326 


12050 


N60009 


BNF 


N60010 


.FSW 






10838 


44 


10862 


12060 




BTM 


GNRP 


.•♦12 






10850 


17 


05940 


J0862 


12070 


N60010 


TDM 


SS2 


.1 






10862 


15 


07477 


00001 


12080 




BTM 


SRFCT 


♦ •♦16 






10876 


17 


03976 


J0890 


12090 




DSA 


SL 








10890 




5 


X 1 
















10890 




-2399 




12100 




OSA 


N40001 








10895 




5 


X 1 
















10895 




-3489 




12110 




BTM 


PUTX 


.♦♦16 






10896 


17 


070)2 


J0912 


12120 




DSA 


OPX 








10912 




5 


X I 
















10912 




-4193 




12130 




DSA 


TOPAC 








10917 




5 


X 1 
















10917 




-)9)5 




12140 




DSA 


N40001 








10922 




5 


X 1 
















10922 




-3489 




12150 




TD 


MOO 


.FXORFL 






10926 


25 


09)78 


04373 


12160 




B 


COOE 1 A 








10936 


49 


10584 


00000 


12170 




DORG 


•-3 








10966 








12180 




ENTRY IF 


RIGHT SYMBOL IS FAC, 


THEN 


IF OPERATOR IS DIVIDE 










12190 


•••••• 


SET UP REVERSE DIVIDE 














12200 


COOE IB 


TO 


MOO 


.FLAGSW 






10966 


25 


09)78 


04795 


12210 




CM 


LV* 


120.8, SUBTRACT 






10956 


16 


09567 


0-120 


12220 




BNE 


• ♦24 








10968 


47 


10992 


01200 


122 30 




TPM 


LV* 


124. 8, LEFT PAREN 






10960 


16 


09567 


0-124 


12240 




CM 


LV. 


121*8. DIVIDE 






10992 


14 


09567 


0-121 


12250 




BNE 


C00E1A 








11006 


67 


10S84 


01200 


12260 




TPM 


LV, 


122*8* 






11016 


16 


09567 


0-122 


12270 




8 


COOE 1 A 








11028 


69 


10184 


00000 


12280 




DORG 


•-) 








110)6 








12290 


•••••• 


ENTRY IP 


OPERATOR IS AN EQUAL 


SIGN 












12)00 


COOE 1C 


8NP 


N6001) 


,F$W 






110)6 


66 


11444 


09)26 


12)10 




TO 


EXINO 


.FLAGSW 






11066 


25 


091)4 


06795 


12)20 




•0 


• ♦16 


• PTSM 






11060 


6) 


11094 


0474) 


123)0 


SLC 


BTM 


SRFCT 


.•♦16 






11072 


17 


0)976 


J1088 


12)40 




DSA 


SL 








11086 




1 


X I 
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11088 




-2399 




12)90 




DSA 


St 




11093 




5 


X 1 












11093 




-2399 




12160 




BNF 


C00E1E ,RSW 




11094 


44 


11118 


09337 


12370 




TO 


FXORFL tRFLAG 




11106 


29 


04373 


04725 


12 )«0 


•••••• 


FXORFL IS SET 8Y SRFCT 












123*0 CODE IE 


TO 


•♦23 tEXINO 




11119 


25 


11141 


09334 


12400 




CM 


FXORFL tO 


1 10 


1 1 1 30 


14 


04373 


000—0 


12410 




BE 


COOEIK 




11142 


46 


11216 


01200 


12420 




OUTPUTS FIX TO FLOAT Oft 


FLOAT TO FIX INSTRUCTIONS 










12430 




TO 


FX v FXORFL 




111 54 


29 


03715 


04373 


12440 




BTM 


OPSR t«fl6 




11166 


17 


03596 


JU82 


124*0 




OSA 


RMOO 




11182 




5 


X 1 












1 1 182 




-9400 




12460 




OSA 


N4O001 




11187 




5 


X 1 












11187 




— 3489 




12*70 




BTM 


PUTX ,**16 




11188 


17 


07032 


J1204 


12480 




DSA 


BTM 




11204 




5 


X I 












11204 




-6980 




124*0 




OSA 


N40001 




11209 




5 


X 1 












11209 




-3489 




12500 




DSA 


ZERO 




11214 




5 


X 1 












11214 




-9353 




12510 


cuoe ix 


BD 


FCTIE ,FTS« 




11216 


A3 


12064 


04745 


12520 




BNF 


N60014 ,RSW 




11228 


44 


11348 


09337 


12530 




TDM 


RSW ,0 




1 1240 


1 9 


093 37 


00000 


12540 




TDM 


SS2 tl 




11252 


19 


07477 


00001 


12550 




BNC2 


• ♦48 




11264 


47 


11312 


00200 


12560 




OUTPUT TRACE INSTRUCTION 












1 2570 




BTM 


PUTX .•♦U 




11276 


17 


07032 


J1292 


12580 




DSA 


BT, TRACE, SL 




11292 




5 


X 3 












11292 




-9382 














11297 




-3740 






















12590 




B 


CLEAR 




11304 


49 


02640 


00000 


12600 




UORG 


•-3 




11312 








12610 


• 


OUTPUT FRFAC INSTRUCTION 












12620 




BTM 


PUTX ,»+16 




11312 


17 


07032 


J1328 


12630 




DSA 


OT,FRFAC»SL 




11328 




5 


X 3 












11328 




-9382 














11333 




-3930 














11338 




-2399 




126*0 




B 


CLEAR 




11340 


49 


02640 


00000 


12650 




DQRG 


•-3 




11348 








12660 


N 600 14 


TDM 


SS2 1 1 




11348 


15 


07477 


00001 


12670 




BNC2 


• ♦48 




11360 


47 


11408 


00200 


12680 


• 


OUTPUT TRACE INSTRUCTION 












12690 




BTM 


PUTX t»*L6 




11372 


17 


07032 


J1388 



12700 



12710 
12720 
12730 
12740 
12750 



12770 



12780 
12790 



1620 FORTRAN II-D PHASE 2 
OSA OP X, TRACE • SL 



B CLEAR 
DORG »-3 

OUTPUT FRFAC INSTRUCTION 



BTM 
DSA 



PUTX 
OPX 



DSA FRFAC 



12800 N60013 BTM 
12810 



B CLEAR 
DORG 4-3 

SRFCT 
SR 



DSA 



.•♦16 



tl 

#•♦16 



12820 DSA N40002 



12830 TDM SS2 

12840 BTM PUTX 

12850 DSA OPX 



12860 DSA TOFAC 

12870 DSA N40002 



12860 TO EXINO , FXORFL 

12890 BNF SLC tRSW 

12900 8 SLC- 12 

12910 DORG »-3 

12920 • ENTRY OPERATOR IS EXPONENTIAL 



12930 CODE 10 CM SLt 

12940 BNE N60019 

12990 C00E1G BO •♦20 

12960 B N60016 

12970 OORG »-3 

12990 TOM SS2 

12990 BTM SRFCT 

13000 OSA SR 



lOltltFAC 



tFLAGSW 



tl 

t"16 



13010 



OSA J 



11388 




5 


X 3 


11388 




-4193 




11393 




-3740 




11398 




-2399 




11400 


49 


02640 


00000 


11408 








11408 


17 


07032 


J1424 


11424 




5 


X I 


11424 




-4193 




11429 




5 


X I 


11429 




-3930 




11434 




5 


X I 


11434 




-2399 




11436 


49 


02640 


00000 


11444 








11444 


17 


03976 


J 1460 


11460 




5 


X 1 


11460 




-2372 




11465 




5 


X 1 


11465 




-3494 




11466 


19 


07477 


00001 


11479 


17 


07032 


J 1494 


11694 




5 


X 1 


11494 




-4193 




11499 




S 


X 1 


11499 




^•3935 




11904 




5 


X 1 


11504 




-3494 




11906 


25 


09334 


04373 


11518 


44 


11072 


09337 


11530 


49 


11060 


00000 


11539 








11539 


14 


02399 


0-101 


11990 


47 


11996 


01200 


11362 


A3 


11992 


04799 


11974 


49 


11734 


00000 


11992 








11992 


19 


07477 


00001 


11994 


17 


03974 


J1610 


11610 




9 


X 1 


11610 




-2372 




11619 




9 


X 1 


11619 




-9992 





500 
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13020 


TO 


• ♦23 


• FLAGSM 


11616 


25 


11639 


04795 


13030 


CM 


FXORFL 


• 0 tlO 


1 162B 


16 


06373 




110*0 


BE 


• ♦26 




11660 


66 


11666 


01200 


13050 


BT 


ERMODE 


•EAHOOE-l 


11652 


27 


12016 


12013 


13060 N60017 


BTM 


PUTX 


#•♦16 


11666 


1 7 


07032 


J 1680 


13070 


DSA 


OPX 




11660 




5 


X 1 










11680 




-6193 




13080 


DSA 


I XI 




11689 






X 










11685 




-3955 




13090 


OSA 


J 




11690 




■5 


X 1 










11690 




-9552 




13100 CODE IF 


BTM 


RPNS 


• •♦16 


1 1692 


1 7 


05476 


J 1 708 


13110 


DSA 


I 




1 1 708 




5 


X 1 










1 1 708 




-9547 




13120 


DSA 


FAC 




1 1 71 3 






X 1 










11713 




-9531 




1 31 30 


TDM 


FSW 


1 1 til 


11716 


15 


09326 


0000 J 


13140 


B 


EXIT 




11726 


49 


02948 


00000 


13150 


DORG 


•-3 




11736 








13160 N60016 


BTM 


SRFCT 


• •♦16 


1 1 736 


I 7 


03976 


Jl 750 


I 31 70 


DSA 


SR 




1 1 750 




5 


X I 










11750 




-2372 




13180 


DSA 


J 




11755 




5 


X 1 










- ' ' 
1 1 755 




-9552 




1 3190 


TD 


FX 


t FXORFL 


11756 


25 


03715 


04373 


13200 


BD 


• ♦36 


»FX 


11768 


4J 


11804 


03715 


13210 


TDM 


UFSTR 


tl 


1 1780 


15 


02263 


00001 


13220 


TDM 


UFSTR+1 


• 1 


11792 


15 


02264 


00001 


132 30 


TDM 


SS2 


tl 


11806 


15 


07477 


00001 


13240 


BTM 


OPSR 


• •♦16 


11816 


17 


03596 


J 1832 


1 3250 


DSA 


LV 




11832 




5 


X 1 










11832 




-9567 




13260 


DSA 


N40002 




1 1837 




5 


X 1 










11837 




-3494 




13270 


BTM 


PUTX 


• •♦16 


1 1838 


17 


07032 


J 1854 


1 3280 


DSA 


OPX 




11856 




5 


X 1 










1 1856 




-4193 




1 3290 


DSA 


N40002 




1 1859 




5 


X 1 










1 1 859 




-3494 




13 300 


DSA 


J 




11864 




5 


X I 










11864 




-9552 




13310 


TDM 


FXORFL 


tO 


11866 


15 


04373 


00000 


13320 


B 


C0DE1H 




11878 


49 


10716 


00000 


13330 


DORG 


•-3 




11886 









50 1 

mmmmmmmmmmmmmmmmmmmmmmmmmmmmammm 
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13340 


N60015 


8NF 


N60018 


• FSW 


11886 


44 


11932 


09326 


13350 




BTM 


GNRP 


• •♦12 


11898 


17 


05940 


J1910 


13360 




BTM 


GTNS 


• •♦16 


11910 


17 


05446 


J1926 


13370 




DSA 


I 




11926 




5 


X I 












11926 




-9547 




13380 




DSA 


SR 




11931 




5 


* 1 












11931 




-2372 




13390 


N60018 


BTM 


SRFCT 


• •♦16 


11932 


17 


03976 


J 1948 


13400 




DSA 


SL 




11948 




5 


X 1 












11948 




-2399 




13410 




DSA 


J 




11953 




5 


X 1 












11953 




-9552 




13420 




TD 


FLAGSW 


•FXORFL 


11954 


25 


04795 


04373 


13430 




TDM 


SS2 


• 1 


11966 


15 


07477 


00001 


13440 




BTM 


PUTX 


• •♦16 


11978 


17 


07032 


J1994 


13450 




DSA 


OPX 




11994 




5 


X 1 












11994 




-4193 




13460 




DSA 


TOFAC 




11999 




5 


X 1 












11999 




-3935 




13470 




DSA 


J 




12006 




5 


X 1 












12006 




-9552 




13480 




B 


CODEIG 


• t5 


12006 


49 


11502 


00000 


13490 




DORG 


•-3 




12016 








13500 


ERMODE 


RCTY 






12016 


34 


00000 


00102 


13510 




WNTY 


SCNT-3 




12026 


38 


09670 


00100 


13520 




WATY 


MOOMES 




12038 


39 


09403 


00100 


13530 




TOM 


ERSMT 


.1 


12050 


15 


09663 


00001 


13540 




BB 






12062 


62 


00000 


00000 


13550 




DORG 


•-9 




12066 






13560 


FCT1E 


TDM 


FTSW 


tO 


12066 


19 


04745 


00000 


13570 




TOM 


SSI 


• 1 


12076 


19 


07476 


00001 


13580 




TOM 


SS3 


tl 


12088 


19 


07678 


00001 


13590 




TF 


N400U 


tTl 


12100 


26 


03939 


07022 


13600 




SN 


N40011 


tl tlO 


12112 


12 


03939 


000-1 


13610 




BTM 


PUTX 


• •♦16 


12126 


I? 


07032 


J2160 


13620 




OSA 


B 




12160 




5 


X 1 












12160 




-6982 




13630 




OSA 


N400U 




12169 




5 


X I 












12165 




-3539 




13640 




OSA 


BLANK 




12190 




9 


X I 












12190 




-9396 




13650 




SN 


AOCOM 


.6 ,10 


12192 


12 


06977 


000-4 


13660 




BTM 


PUTA 




12166 


IT 


08272 


J2180 


13670 




DSA 


SXF# AOCOM 




12100 




9 


X 2 



12180 



-9982 
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12 185 




-6977 




1 3410 




S 


TBASE-lt 


THAX 


12 186 


22 


02302 


06972 


1)490 




TFM 


TMAXt 


0,9 


12191 


16 


04972 


00—00 


11700 




8 


CLEAR 




12210 


49 


02640 


00000 


13710 




OORG 


•-1 




12218 








1 3720 




OUTPUT FUNCTION LINKAGE OR REMOVE PARENTHESIS 










137)0 


CODE 30 


SN 


N40002 


1 1 tlO 


12218 


12 


03494 


000- 1 


13740 




8TN 


GTNS 


• •♦16 


12230 


17 


05446 


J2246 


1 3750 




DSA 


N40002 




12246 




5 


X 1 












12244 




- 3494 




1)760 




OSA 


SL 




12251 




5 


X I 












: 








1 )77o 




CM 


SL. 


10l,8 t FAC 


12232 




1 f «AA 




1 3760 




BL 


N60020 




12264 








1 3790 






SL • 


l"*»8i mn 1 |n aTftTeWfcNI WALL 


12276 


14 


02399 


0 154 


13400 




BW 


kkA. AA * A 




12288 


46 


12308 


01100 


13810 




B 


CODE 38 




12300 


49 


12642 


00000 






OORG 


•-3 




12 308 








13830 


N60020 


SM 


I 


1 1 1 10 


12308 


12 


09547 


000-1 


13840 




BTM 


RMNS 


• •♦16 


12320 


17 


05416 


J2336 


1 3850 




OSA 


I 




12336 






X 1 












12336 




-9547 




13860 




DSA 


SL 




12341 




5 


X 1 












12341 




-2399 




13870 




BTM 


RMNS 


• •♦16 


12 342 


17 


05416 


J2358 


I 3880 




OSA 


I 




12358 




5 


X 1 












12358 




-9547 




13890 




DSA 


SR 




12363 




5 


X 1 












12363 




-2372 




13900 




BTM 


RMNS 


• •♦16 


12 364 


17 


05416 


J2380 


1 39 LO 




OSA 


I 




12380 




5 


X 1 












12380 




—9547 




I 3920 




DSA 


SR 




12385 




5 


X 1 












12 385 




-2372 




13930 




CM 


SR 


•101 t 9 


12386 


I* 


02372 


OOJOl 


13940 




BE 


N60021 




12 398 


46 


12488 


01200 


1 3950 






N60022 


FSM 


12410 




12434 


09326 


13960 




BTM 


GNRP 


• •♦12 


12422 


17 


05940 


J2434 


13970 


N60022 


BTM 


SRFCT 


• •♦16 


12434 


17 


03976 


J2450 


1 3980 




DSA 


SR 




12450 




5 


X I 












12450 




-2372 




1 3990 




DSA 


SR 




12455 




5 


X I 












12455 




-2372 




14000 




TDM 


SS2 


• 1 


12456 


15 


07477 


00001 


14010 




TD 


FLAGS* 


•FXORFL 


12468 


25 


04795 


04373 


1*020 




B 


C0DE3A 




12480 


49 


12512 


00000 
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14030 




DORG 


•-3 




12488 








14040 


N60021 


TF 


SR 


•FACAD 


12488 


26 


02572 


03940 


14050 




TFM 


OPX 


,17 ,10 


12500 


16 


04193 


000J7 


14060 


•••••• 


OUTPUT LIBRARY FUNCTION LINKAGE 










14070 


CODE 3A 


TDM 


SS3 


,1 


12512 


15 


07478 


00001 


14080 




TF 


N40002 


,TBASE 


12524 


26 


03494 


02303 


14090 




TF 


N40002-1 


• SL 


12534 


26 


03493 


02399 


14100 




TDM 


N40002 


,9 


12548 


15 


03494 


00009 


141L0 




TF 


N40002 


•N40002 ,11 


12560 


26 


03494 


0349M 


14120 




BTM 


PUTX 


,•♦16 


12572 


17 


07032 


J2588 


14130 




DSA 


OPX 




12588 




5 


X 1 












12588 




-4193 




14140 




DSA 


N40002 




12593 




5 


X 1 












12593 




-3494 




14150 




DSA 


SR 




12598 




5 


* 1 












12591 




-2372 




14160 




BTM 


RPNS 


,•♦16 


12600 


17 


05476 


J2616 


14170 




DSA 


I 




12616 




5 


X I 












12616 




-9547 




14180 




DSA 


FAC 




12621 




5 


X 1 












12621 




-9531 




14190 




TDM 


FSH 


• I .11 


12622 


IS 


09326 


OOOOJ 


14200 




8 


EXIT 




12634 


49 


02948 


00000 


14210 




DORG 


•-3 




12642 








14220 


CODE 38 


CM 


SL, 


154.8.ARITM STATEMENT CALL 


12642 


14 


02399 


0-154 


14230 




BE 


C00E3C 




12654 


46 


12790 


01200 


14240 




CM 


SL, 


15), 8, FUNCTION CALL 


12666 


14 


02399 


0-153 


14250 




BE 


CODE )C 




12671 


46 


12790 


01200 


14260 


N60023 


CM 


SL, 


107 • 8, IF 


12690 


14 


02399 


0-107 


14270 




BE 


CODE 7 




12702 


44 


10098 


01200 


14280 




BTM 


RMNS 


• •♦16 


12714 


If. 


05416 


J2730 


14290 




DSA 


I 




12730 




5 


X 1 












12730 




-9547 




14300 




DSA 


SR 




12735 




5 


X 1 












127)9 




-2372 




16310 




AM 


I 


• 1 ,10 


127)4 


11 


09947 


000-1 


14320 




BTM 


RMNS 


••♦14 


12741 


17 


05416 


J2764 


14330 




DSA 


I 




12744 




5 


X 1 












12744 




-9947 




14340 




DSA 


SR 




12749 




9 


X 1 












12749 




-2371 




143S0 




SM 


I 


• 1 ,10 


12770 


12 


09947 


000-1 


14)60 




8 


EXIT 




12712 


49 


02941 


00000 


14370 




OORG 


•-3 




12790 








14)00 


• 


ARITH STATEMENT CALL OR FUNCTION CALL OPERATOR 










14390 C0DE3C 


SM 


I 


• 2 .10 


12790 


12 


09547 


000-2 


14400 CODE 3Y 


BTM 


RMNS 


• •♦14 


mot 


If 


05416 


J2118 
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14410 




OSA 


I 




12818 




5 


X 1 












12818 




-9547 








OSA 






12823 




5 


X 1 












12823 




-2399 




14430 




BTM 


RMNS 


• •♦16 


12024 




09416 


J2840 


14440 




OSA 


I 




12040 




5 


X 1 












12840 




-9547 




14450 




OSA 






12845 




5 


X I 












12845 




-9567 




14460 






RMNS 


#•♦16 


12846 


1 7 


05416 


J2862 


14470 




hca 






12862 




5 


X 1 












12862 




-9547 




14480 




DSA 


_ 




12867 




5 


X 1 












12867 




-2372 




14490 




BNF 


N60026 


»F SW 


12868 


44 


12892 


09326 


14500 




BTM 


GNRP 


,•♦12 


12880 


17 


05940 


J2892 


14510 


N60026 


CM 


LV, 


154,8,ARITH STATEMENT CALL 


12892 


14 


09567 


0-154 






BE 


N60027 




12904 


46 


12928 


01200 


14530 




TDM 


SS3 


,1 


12916 


15 


07478 


00001 


14540 


N6O027 


TFM 


SS2 


,11 ,10 


12928 


16 


07477 


000J1 


1 4550 






SRFCT 


,•♦16 


12940 


1 j 


03976 


J2956 


1 4560 




DSA 


SL 




12956 




5 






















1 4570 




DSA 


M A A A A 1 




12961 




5 


X 1 












12961 




-3489 












,A0C0W 


12962 


26 




06977 


14590 




AM 


N40003 


,11 ,10 


12974 


11 


03499 


000J1 


14600 




TD 


FLAGSW 


f FXQRFL 


12986 


25 


04795 


04373 


146 10 








,•♦16 




17 






14620 




DSA 


BTM 




13014 




5 


X 1 












\ in! a 




-6980 




1 4630 






HI A AAA 1 






















13019 




— 3489 




14640 




DSA 


N40003 




13024 




5 


X 1 




















14650 




BD 


CODE 32 


,CALLX 


13026 


43 


13278 


04755 


14660 


C00E3D 


TDM 


FPSW 


,0 


13038 


15 


09659 


00000 


146 70 






RMNS 


,•♦16 




17 




J 3066 


14680 




DSA 


I 




13066 




5 


X 1 


14690 










13066 




-9547 






DSA 


SL 




13071 




5 


X 1 












13071 




-2399 




14700 




BTM 


GTNS 


,•♦16 


13072 


17 


05446 


J3088 



505 
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14710 




DSA 


I 




13088 




5 


x i 












L3088 




-9547 




14720 




DSA 


SR 




13093 




5 


X 1 












13093 




-2372 




14730 




BTM 


SRFCT 


• •♦16 


13094 


17 


03976 


J3U0 


14740 




DSA 


SL 




13110 




5 


x 1 












13110 




-2399 




14750 




DSA 


SL 




13115 




5 


X 1 












13115 




-2399 




14760 




BNF 


• ♦24 


,FPSH 


13116 


44 


13140 


09659 


14770 




SF 


SL 




13128 


32 


02399 


00000 


14780 




BTM 


PUTC 


,•♦16 


13140 


17 


08152 


J3156 


14790 




OSA 


SL 




13156 




5 


X 1 












13156 




-2399 




14800 


CODE 3E 


CM 


SR, 104, 


8, RIGHT PAREN 


13158 


14 


02372 


0-104 


14810 




BE 


N60032 




13170 


46 


13212 


01200 


14820 




BTM 


RMNS 


,•♦16 


13182 


17 


05416 


J3198 


148 30 




DSA 


I 




13198 




5 


X 1 












13198 




-9547 




14840 




DSA 


SR 




13203 




5 


X 1 












13203 




-2372 




14850 




8 


C0DE30 




13204 


49 


13038 


00000 


14860 




DORG 


•-3 




13212 








14870 


N60032 


BTM 


ADJUST 


,ADC0W 


13212 


17 


03550 


-6977 


14880 


CODE 3X 


80 


CET 


,CALLSW 


13224 


43 


13298 


09332 


14890 




BTM 


RPNS 


• •♦16 


13236 


17 


05476 


J3252 


14900 




DSA 


I 




13252 




5 


X 1 












13252 




-9547 




14910 




DSA 


FAC 




13257 




5 


X I 












13257 




-9531 




14920 




TOM 


FSM 


• 1 ,11 


13250 


15 


09326 


OOOOJ 


14930 




8 


EXIT 




13270 


49 


02948 


00000 


14940 




OORG 


•-3 




13270 








14950 


CODE 32 


TON 


CALLX 


.0 


13270 


15 


04755 


00000 


14960 




B 


CLEAR 




13290 


49 


02640 


00000 


14970 




OORG 


•-3 




13290 








14980 


CET 


TF 


N40001 


• I 


13290 


26 


03489 


09347 


14990 




AM 


N40001 


• I tlO 


19310 


U 


03489 


000-1 


15000 




0TM 


GTNS 


• •♦16 


13322 


17 


09446 


J 33 30 


15010 




OSA 


N4000l,N4000l 




13330 




5 


X 2 












13330 




-3409 














13343 




-3409 




15020 




CM 


N4000I 


•132 »0 


13344 


14 


03409 


0-132 


15030 




BE 


CLEAR 




13356 


46 


02640 


01200 


15040 




8 


CODE 3X4 12 




13360 


49 


13236 


00000 


15050 




OORG 


•-3 




13376 
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19070 C0DE4F OSA 


I 




13SB0 




5 


X 1 










193*0 




-9547 




19080 


OSA 


lv 




um 




5 


X I 










133B5 




-9547 




1 5090 


BTM 


GTNS 


••♦i* 


um 


17 


05444 


J 3402 


15100 


OSA 


1 




13401 




5 


X 1 










13402 




-9547 




151 10 


OSA 


SB 




1340? 




5 


X 1 










13407 




-2372 




15120 


T ^ 


LV 


tBVSM 


13400 


24 


09547 


09397 


151 50 


CM 


SB. 


101.8.FAC 


13420 


14 


02372 


0-101 


15140 


BMC 


N40034 




13412 


47 


13314 


01200 


15150 


TO 


FX 


•PLAGSW 


13444 


25 


03715 


04795 


15140 C00E4A 


BTN 


OPSN 


#•♦1* 


11494 


17 


03594 


J3472 


15170 


OSA 


LV.M400C 


>1 


13472 




5 


X 2 










13472 




-9547 












13477 




-3499 




15100 


8TM 


PUTX 


••♦u 


13478 


17 


07032 


J3494 


15190 


OSA 


BTM 




1 1494 




5 


X 1 










11494 




-6980 




15200 


ua» 


N40003 




11499 




5 


X I 










11499 




-3499 




15210 


OSA 


ZEBO 




11504 




5 


X 1 










11504 




-9353 




15220 


B 


EXIT 




11504 


49 


02948 


00000 


15230 


DOUG 


•-3 




11514 








15240 N 600 34 


BNF 


N4003S 


•FSM 


13514 


44 


13538 


09326 


15250 


BTM 


GNBP 


.•♦12 


11524 


17 


05940 


J 35 38 


15260 N60035 TOM 


SS2 


f 1 


11519 


19 


07477 


00001 


15270 


BTM 


SBFCT 


.•♦U 


13550 


11 


03976 


J3566 


15280 


OSA 


SB 




13544 




5 


X 1 










• 13544 




-2372 




15290 


OSA 


N40003 




13371 




5 


X 1 










13571 




-3499 




153O0 


BTM 


PUTX 


• •♦14 


13572 


17 


07032 


J3568 


15310 


OSA 


OPX 




13588 




5 


X 1 










13588 




-4193 




15320 


OSA 


TOFAC 




13593 




5 


X 1 










13591 




-3935 




15330 


OSA 


N40003 




11598 




5 


X 1 










13598 




-3499 




15340 


TDM 


FSM 


• 1 til 


13400 


19 


09326 


OOOOJ 
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15350 




TO 


FLAGS* 


.FXOBFL 


13612 


25 


04795 


04373 


15360 




BTM 


BFNS 


.•♦I* 


13624 


17 


05476 


J3440 


15370 




OSA 


I 




13640 




5 


X 1 












13640 




-9547 




15380 




OSA 


FAC 




13649 




5 


X 1 












13649 




-9531 




15390 




TO 


FX 


.FXOBFL 


13644 


25 


03715 


04373 


15400 




B 


C00E4A 




13698 


49 


13456 


00000 


15410 




DOBG 


•-3 




13644 








15420 


C00E8F 


BTM 


GTNS 


• •♦16 


13444 


17 


05444 


J3682 


15430 




OSA 


1 




11482 




5 


X 1 












11482 




-9547 




15440 




OSA 


LV 




11487 




5 


X 1 












13487 




-9567 




15450 




CM 


LV. 


124,8, LEFT FABEN 


11488 


14 


09567 


0-124 


15460 




BNE 


CODE 8 


11700 


47 


10122 


01200 


15470 




B 


C00E3 




11712 


49 


10026 


00000 


15480 




OOBG 


•-3 




11720 








15490 


C015F 


BTM 


KMNS 


• •♦U 


11720 


17 


05416 


J3736 


15500 




OSA 


I 




11714 




5 


X I 












11714 




-9547 




15510 




OSA 


SL 




13741 




5 


X 1 












13741 




-2399 




15520 




TF 


N40012 


... ^ . 


13742 


26 


03544 


09547 


15530 




AM 


N40012 


.2 .10 


11734 


11 


03544 


000-2 


15540 




BTM 


GTNS 


• •♦16 


13744 


17 


05446 


J3782 


15390 




OSA 


N40012 




11782 




5 


X 1 












117*2 




-3544 




15560 




OSA 


$X 




137*7 




5 


X 1 












137*7 




-2377 




15570 




CM 


sx. 


1S2.9.SEMI COLON 


1379* 


14 


02377 


0-132 


19990 




8MB 


EXIT 


13*00 


47 


02949 


01200 


15990 




TOM 


CAttX 


fi 


13912 


19 


04799 


00001 


19400 




• 


COO* IV 


11824 


44 


12902 


00000 


19410 




OOBG 


•-1 




11932 








19420 




00*6 


14100 




14100 








13*30 




TIBTIABV Lft*A*J HOCK 9 










19440 




DC 


Iff 




14101 




2 




19430 


SUOCOS BTM 


*MftS 


tCOSSP 


14102 


I? 


09416 


J4202 


13440 




M 






14114 


49 


00000 


00000 


15470 


SUBCAB 


TP* 


PN03H99 


tlU* 


1411* 


1* 


02339 


-4248 


194*0 




•TN 


PNON , 
PN0N*99 


.SU*CA8 


1413* 


1? 


02324 


J4124 


19490 


SUBCU 


TP* 


«IU7 


14130 


1* 


01199 


-9272 


1S700 




•TM 


PNON 


.SU*Clt 
•BLB8 


141*1 


1? 


02324 


J4150 


19710 


SOB 128 


TF* 


PMOft+19 


14|f* 


1* 


02339 


-9294 


13720 




•7* 


PNON 


• SiftlSI 


141** 


1? 


02324 


J4174 


19730 


C03SP 


03* 


Itt* 


14I0I 




3 


X 2 
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14202 




-9547 
















^ 14207 




-2372 




15740 




BTM 


RUNS 


#•♦16 




14208 


17 


05416 


J4224 


15750 




OSA 


t,SV 






14224 




5 


X 2 














14224 




-9547 
















14229 




-2384 




15760 




BTM 


ANNS 


• •♦16 




14230 


17 


05416 


J4246 


15770 




OSA 


ItSY 






14246 




5 


X 2 














14246 




-9547 
















14251 




-2384 




15780 




SM 


I 


.1 


• 10 


14252 


12 


09547 


000- 1 


15790 




BTM 


GTNS 


• •♦16 




14264 


17 


05446 


J4280 


15800 




DSA 


l.SX 






14280 




5 


X 2 














14280 




-9547 
















14285 




-2377 




15810 




AH 


I 


,1 


• 10 


14286 


11 


09547 


000-1 


15820 




TOM 


SKIPS* 


• 1 




14298 


15 


09661 


00001 


15830 




BTM 


SRFCT 


• •♦16 




14310 


17 


03976 


J4326 


158*0 




OSA 


SX.SX 






14326 




5 


X 2 














14326 




-2377 
















14331 




-2377 




15850 




TO 


RXFLAG 


,FX0RFL 




14332 


25 


04735 


04373 


15860 




BTM 


CANOS 


• •♦16 




14344 


17 


08846 


J4360 


15870 




OSA 


OltO! 






14360 




5 


X 2 














14360 




-6987 
















14365 




-6992 




15880 




TF 


N40005 


•AOCOW 




14366 


26 


03509 


06977 


IS890 




AM 


N40005 


• 12 


• 10 


14378 


11 


03509 


000J2 


15900 




TDM 


SS2 


.1 




14390 


15 


07477 


00001 


15910 




BO 


• ♦20 


, RXFLAG 




14402 


43 


14422 


04735 


15920 




B7 


• ♦20 






14414 


49 


14434 




15930 




SF 


N40005 






14422 


32 


03509 


00000 


15940 




CM 


SR 


,150 


• 8 


14434 


14 


02372 


0-150 


15950 




BL 


XXI 






14446 


47 


14602 


01300 


15960 




BE 


XX2 






14458 


46 


14536 


01200 


15970 


X X 3 


AM 


I 


1 6 


• 10 


14470 


H 


09547 


000-6 


15980 




TF 


N40006 


• SUB 3 




14482 


26 


03514 


03800 


15990 




BTM 


CANDS 


,•♦16 




14494 


17 


08846 


J4510 


16000 




OSA 


04, SY 






14510 




5 


X 2 














14510 




-7017 
















14515 




-2384 




16010 




SM 


I 


• 6 


• 10 


14516 


12 


09547 


000-6 


16020 




B7 


XX4 






14528 


49 


14660 




16030 


XX2 


AM 


I 


,3 


, 10 


14536 


I i 


09547 


000-3 


16040 




TF 


N40006 


• SUB2 




14548 


26 


03514 


03790 


16050 




BTM 


CANDS 


,•♦16 




14560 


17 


08846 


J4576 


16060 




OSA 


04, SY 






14576 




5 


X 2 














14576 




-7017 
















14581 




-2384 
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16070 




SM 


I ,3 ,10 


14582 


12 


09547 


000-3 


16080 




B7 


XX4 


14594 


49 


14660 




16090 


XXI 


BTM 


CANDS ,•♦16 


14602 


17 


08846 


J4618 


16100 




DSA 


D4,SY 


14618 




5 


X 2 










14618 




-7017 












14623 




-2384 




16110 




TF 


N40006 ,SUBl 


14624 


26 


03514 


03780 


16120 




CM 


Dl ,1 


14636 


14 


06987 


-0001 


16130 




BE 


CDSIFP 


14648 


46 


15430 


01200 


16140 


XX4 


BTM 


PUTX ••♦16 


14660 


17 


07032 


J4676 


16150 




OSA 


BTM,N40006,N40005 


14676 




5 


X 3 










14676 




-6980 












14681 




-3514 












14686 




-3509 




16160 




BTM 


PUTC ,»+l6 


14688 


17 


08152 


J4704 


16170 




DSA 


SX 


14704 




5 


* 1 










14704 




-2377 




16180 




BTM 


PUTD ••♦16 


14706 


17 


08236 


J4722 


16190 




OSA 


D4 


14722 




5 


X 1 










14722 




-7017 




16200 




BNF 


•♦24 ,101 


14724 


44 


14748 


09327 


16210 




SF 


Dl 


14736 


32 


06987 


00000 


16220 




BTM 


PUTD ••♦16 


14748 


17 


08236 


J 4 764 


16230 




OSA 


01 


14764 




5 


X 1 










14764 




-6987 




16240 




BTM 


PUTC ••♦16 


14766 


17 


08152 


J4782 


16250 




OSA 


01 


14782 




5 


X I 










14782 




-6992 




16260 




CM 


SR .150 *8 


14784 


14 


02372 


0-150 


16270 




BL 


COSSSl 


14796 


47 


14976 


01300 


16280 




BE 


CDSSS2 


14808 


44 


14956 


01200 


16290 


C0SSS3 


TOM 


UFSTR^4 ,1 


14820 


15 


02267 


00001 


16300 




BTM 


CANOS ••♦U 


14832 


17 


08846 


J4848 


16310 




OSA 


02,0 J 


14848 




5 


X 2 










14848 




-6997 












14853 




-7002 




16320 




BTM 


PUTO 9 »416 


14654 


17 


08236 


J4870 


16330 




OSA 


02 


14870 




5 


X 1 










14670 




-6997 




16340 




BTM 


PUTC ••♦16 


14672 


17 


08132 


J4688 


16350 




OSA 


DJ 


14886 




5 


X 1 










14688 




-7002 




16360 


XX5 


BTM 


CANOS ••♦U 


14690 


17 


06846 


J4906 


16370 




OSA 


03, OK 


14906 




5 


X 2 










14906 




-7007 












14911 




-7012 
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16160 


OTN 


PUTO 


#•♦16 




14912 


17 


06216 


J4928 


16190 


OSA 


03 






14928 




ft 


X 1 












14928 




-7007 




16400 


6TN 


FUTC 


#•♦16 




14910 


17 


06152 


J4946 


16410 


OSA 


OK 






14946 




5 


X 1 












14946 




-7012 




16420 


B7 


COSIV 






14948 


49 


14968 




16410 CDSSS2 


TOW 


UFSTR*3 


tl 




14986 


15 




00001 


16440 


B7 


XXS 






14968 


49 


14690 




16450 C0SSS1 


TON 


UFSTR«2 


#1 




14976 


15 


02265 


00001 


16460 C0S1V 


BTN 


FUTRN 


#•♦16 




14988 


17 


06156 


J5004 


16470 


OSA 


ZRM 






15004 




5 


X 1 












15004 




J5727 




16410 


TON 


SKIFSW 


#0 






15 




nnnnn 


16490 


BNF 


QZF 


• 101 




15018 


44 


15072 


09327 


16500 


SN 


I 


• 1 


• 10 


15010 


12 


09547 


000- 1 


16510 


BTN 


RNNS 


• •♦16 




15042 


17 


05416 


J 505 8 


16520 


OSA 


I.ST 






15058 




5 


X 2 












15058 




-9547 














15061 




-9541 




16530 


B 


C014B 






15064 


49 


11788 


00000 


16540 


00R6 


•-3 






15072 








16550 QIP 


BTN 


GTNS 


• •♦16 




15072 


17 


05446 


J5088 


16560 


OSA 


If ST 






15066 




5 


X 2 












15068 




-9547 














15091 




-9541 




16570 


SM 


I 


• 1 


#10 


15094 


12 


09547 


000-1 


16560 


CM 


ST 


• 133 


• B 


15106 


14 


09543 


0-133 


16590 


BNE 


COSIT 






15118 


47 


15224 


01200 


16600 


TO 


RFLAG 


t RXFLAG 




15110 


25 


04725 


04735 


16610 


TON 


RSH 


• 1 


• 11 


15142 


15 


09337 


OOOOJ 


16620 


BTN 


PUTX 


• •♦16 




15154 


17 


07032 


J5170 


16630 


OSA 


TF f FACADt 


N I 3092 




15170 




5 


X 3 












15170 




-9345 














15175 




-3940 














15180 




-9369 




16640 


BTN 


RPNS 


• •♦16 




15182 


17 


05476 


J5196 


16650 


OSA 


ItFAC 






15198 




5 


X 2 












15198 




-9547 














15201 




-9531 




16660 


BTN 


6NRP 


• •♦12 




15204 


17 


05940 


J5216 


16670 


B7 


EXIT 






15216 


49 


02948 




16680 CDS1T 


BNF 


• ♦24 


• FSM 




15224 


44 


15248 


09326 


16690 


BTN 


GNRP 


• •♦12 




15216 


17 


05940 


J5248 


16700 


BO 


•♦32 


•CALLSW 




15248 


43 


15280 


09332 


16710 


TFM 


OPX 


• 27 


• 10 


15260 


16 


04193 


000K7 


16720 


B 


• ♦20 






15272 


49 


15292 


00000 


16730 


OORG 


•-3 






15280 








16740 


TFN 


OPX 


• 17 


• 10 


15260 


16 


04193 


000J7 



511 



16750 




BTN 


PUTX 


• •♦16 


15292 


17 


07032 


J5308 


16760 




OSA 


OPX v TOFAC»N11092 


15108 




5 


X 3 












15108 




-4193 














15313 




-3935 














15318 




-9369 




16770 




BTM 


RPNS 


• •♦16 


15320 


17 


05476 


J5336 


16780 




OSA 


I.FAC 




15336 




5 


X 2 












15336 




-9547 














15341 




-9531 




16790 




TOM 


FSN 


• 1 #11 


15142 


15 


09326 


OOOOJ 


16800 




TO 


FLAGSW 


•RXFLAG 


15154 


25 


04795 


04735 


16801 




BO 


• ♦20 


•CALLS* 


15166 


41 


15386 


09332 


16802 




B7 


EXIT 




15176 


49 


02948 




16803 




BTM 


GNRP 


• •♦12 


15166 


17 


05940 


J5398 


16804 




SM 


GBASE 


• I #10 


15198 


12 


09637 


000- 1 


16805 




SF 


GBASE 


# #6 


15410 


32 


096 3P 


00000 


16610 




B7 


EXIT 




15422 


49 


02948 




16820 


COSIFP 


BNF 


C0S1Z 


#SX 


15410 


44 


15450 


02377 


16830 




87 


XX4 




15442 


49 


14660 




16640 


C0S1Z 


BO 


• ♦12 


•RXFLAG 


15450 


43 


15482 


04735 


16850 




TF 


L 


• FP2 


15462 


26 


07025 


02298 


16660 




B7 


C0S1S 




15474 


49 


15494 




16860 




TF 


L 


• K 


15482 


26 


07025 


02252 


16910 


C0S1S 


TOM 


SS2 


•o 


15494 


15 


07477 


00000 


16920 




M 


04 


• L 


15506 


21 


07017 


07025 


16930 




SF 


95 




15516 


12 


00095 


00000 


16940 




TF 


04 


• 89 


15S30 


26 


07017 


00099 


16950 




A 


04 


•sx 


15542 


21 


07017 


02377 


16960 




80 


• ♦20 


•RXFLAG 


15554 


41 


15574 


04735 


16970 




B7 


•♦44 




15566 


49 


15610 




16960 




BNF 


• ♦16 


• 101 


15574 


44 


15610 


09327 


16990 




SF 


L 




15566 


12 


07025 


00000 


17000 




SF 


04 




15596 


12 


07017 


00000 


17010 




TON 


SSI 


• 1 


15610 


11 


07476 


00001 


17020 




BTN 


PUTX 


• •♦16 


15622 


17 


07032 


J5636 


17010 




OSA 


NN f 0 1 # L 




11616 




5 


X 3 












15616 




-9149 














18641 




-4992 














11646 




-7025 




17040 




TON 


SS2 


#1 


15610 


15 


07477 


00001 


17050 




BTN 


PUTX 


#•♦16 


11662 


I? 


07012 


J5678 


17060 




OSA 


AN,N11092#04 




11678 




5 


X 3 












11678 




-9147 














11661 




-9149 














11686 




-7017 




17070 




BTN 


PUTX 


• •♦16 


11680 


17 


07012 


J5706 


17060 




OSA 


SF.N13133, BLANK 


11706 




5 


X 1 












11706 




-9141 














11711 




-9176 














11718 




-9116 




17090 




6 


C0S1VM6 




11716 


49 


11006 


00000 
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17100 




DORG 


• -3 




15726 








171 10 


2RN 


OC 


2t» 




15727 




2 




17120 




OORG 


1A002 




16002 








1 7 1 30 


XOOX 


OSC 


14,01 7 tOO 1 3*02400 


16002 




14 








01780013602400 












171*0 


xrvx 


34 


XOOX, 701 




16016 


34 


16002 


00701 


17150 




30 


XOOX, 702 




16028 


38 


16002 


00702 


17200 




TRA 






16040 


36 


00000 


00500 












16052 


49 


00000 


00000 


17210 




TCO 


XYVX 




16016 








17220 




DORG 


10000 




10000 








1 7230 




SECONDARY LINKAGE FOR SLOCK 2 










1 7240 




DC 
-2 


2.2 




10001 




2 




I 7250 


XOOE I 


TFN 


FM0NO5 


,BLK1 


10002 


16 


02359 


-9128 


1 7260 




BTM 


FMON 


,C00E1 


10014 


17 


02324 


J0002 


1 7270 


XODE 3 


TFN 


FN0NO5 


♦ BLK1 


10026 


16 


02359 


-9128 


I 7280 




BTM 


FMON 


•C00E3 


10038 


17 


02324 


J0026 


17290 


XQDE4 


TFM 


FM0N*35 


.BLKl 


10050 


16 


02359 


-9128 


1 7300 




BTM 


FMON 


•C00E4 


10062 


17 


02324 


J0050 


17310 


X00E6 


BTH 


RMNS 


,C0DE6P 


10074 


17 


05416 


J 0438 


17320 




H 






10086 


48 


00000 


00000 


1 7330 


XODE 7 


CM 


RV 


,130 ,8 


10098 


14 


09577 


0-130 


1 7340 




B 


C0DE7P 




10110 


49 


11274 


00000 


1 7350 


X0DE8 


TFM 


FM0N*35 


,BLK1 


10122 


16 


02359 


-9128 


1 7360 




BTM 


FMON 


, CODES 


10134 


17 


02324 


J0122 


17370 


XO0E9 


AM 


I 


fl ,10 


10146 


11 


09547 


000-1 


17380 




B 


C0DE9P 




10158 


49 


12190 


00000 


17390 


XOOE 12 


TFM 


FMON+35 


,BLK1 


10170 


16 


02359 


-9128 


17400 




BTM 


FMON 


, CODE 12 


10182 


17 


02324 


J0170 


17410 


XODE 14 


TFM 


FM0N*35 


,BLK3 


10194 


16 


02359 


-9176 


17420 




BTM 


FMON 


.C00E14 


10206 


17 


02324 


J0194 


1 7430 


XODE 15 


TFM 


FM0NO5 


• BLK1 


10218 


16 


02359 


-9128 


I 7440 




BTM 


FMON 


, C00E1S 


10230 


17 


02324 


J0218 


17450 


X0DE17 


BTM 


RMNS 


,C017P 


10242 


17 


05416 


J2868 


1 7460 




H 






10254 


48 


00000 


00000 


1 7470 


XODESS 


TFM 


FM0N*35 


*BLK1 


10266 


16 


02359 


-9128 


17480 




BTM 


FMON 


•CODESS 


10278 


17 


02324 


J 02 66 


1 7490 


XDSSAB 


TFM 


FMQN+35 


• BLK1 


10290 


16 


02359 


-9128 


I 7500 




BTM 


FMON 


•CDSSAB 


10 302 


17 


02324 


J0290 


17510 


XD12B 


TFM 


FMON*35 


t BLK 1 


10314 


16 


02359 


-9128 


I 7520 




BTM 


FMON 


.CD12B 


10326 


17 


02324 


J0314 


17530 


XCT1 


TFM 


FM0NO5 


,BLK4 


10338 


16 


02359 


-9200 


I 7540 




BTM 


FMON 


,FCT1 


10350 


17 


02324 


J0338 


17550 


XCTRT 


BD 


N60182 


•SUBPSW 


10362 


43 


14506 


04775 


17560 




B 


FCTRTP 




10374 


49 


14444 


00000 


17570 


XOJ 


TFM 


FM0N*35 


,BLK4 


10386 


L6 


02359 


-9200 


17580 




BTM 


FMON 


• EOJ 


10396 


17 


02324 


J0386 


17590 


XDCALL 


TFM 


FMQN*35 


• BLK3 


10410 


16 


02359 


-9176 


1 7600 




BTM 


FMON 


•COCALL 


10422 


17 


02324 


J0410 


17610 




OUTPUTS COOING 


FOR GO TO, STOP, PAUSE, ANO ENO 










17620 


C0DE6P 


DSA 


I 




10436 




5 


X 1 












10438 




-9547 





513 
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17630 




DSA 


LV 




10443 




5 


X 1 












10443 




-9567 




17640 




BTM 


RMNS 


,•♦16 


10444 


17 


05416 


J0460 


17650 




DSA 


I 




10460 




5 


X I 












10460 




-9547 




17660 




DSA 


SR 




10465 




5 


X I 












10465 




-2372 




17670 




BTM 


RMNS 


,•♦16 


10466 


17 


05416 


J 0482 


17680 




DSA 


I,SX 




10482 




5 


X 2 












10482 




-9547 














10487 




-2377 




17690 






CODE GO TO 












17700 




CM 


LV, 105 


.8, GO TO 


10488 


14 


09567 


0-105 


17710 




BNE 


N60041 




10500 


47 


10652 


01200 


17720 




TOM 


SKIPSM 


tl 


10512 


15 


09661 


00001 


17730 




BTM 


SRFCT 


,•♦16 


10524 


17 


03976 


J0540 


17740 




DSA 


SR 




10540 




5 


X 1 












10540 




-2372 




17750 




OSA 


SK 




10545 




5 


X 1 












10545 




J0849 




17760 




TOM 


SKIPSW 


tO 


10546 


15 


09661 


00000 


17770 




BNF 


C0DE6B 


,RNSM 


10558 


44 


10592 


04785 


17780 




BTM 


INSET 


,•♦16 


10570 


17 


11134 


J0586 


17790 




OSA 


SR,ADCOM 




10566 




5 


* 2 












10586 




-2372 














10591 




-6977 




17800 


C00E6B 


TOM 


SSI 


,1 


10592 


15 


07476 


00001 


17810 




BTM 


PUTX 


,•♦16 


10604 


17 


07032 


J0620 


17820 




OSA 


8 




10620 




5 


X 1 












10620 




-6982 




17830 




OSA 


SK 




10625 




5 


X 1 












10625 




J0849 




17840 




DSA 


BLANK 




10630 




5 


X 1 












10630 




-9356 




17850 




SM 


AOCOW 


t4 .10 


10632 


12 


06977 


000-4 


17860 


C00E6A 


6 


CLEAR 




10644 


44 


02640 


00000 


17870 




OORG 


•-3 




10652 








17880 


N60041 


CN 


LV, 127 


,8, CONTINUE 


10652 


14 


09567 


0-127 


17890 




BE 


CLEAR 




10444 


44 


02640 


01200 


17900 




CN 


SX, 132 


,8, SEMI COLON 


10474 


14 


02377 


0-132 


17910 




BNE 


N60043 




104BB 


47 


10720 


01200 


17920 




TFM 


J 


tO 


10700 


14 


09552 


-0000 


17930 




B 


N60044 




10712 


4f 


10B50 


00000 


17940 




OORG 


•-3 




10720 








17950 


N60043 


TFN 


J 


#0 


10720 


14 


09552 


-0000 


17960 




TFN 


• ♦64 


ti-4 


10712 


14 


10796 


-954B 
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17470 




OTN 


ANNS 


#•♦16 


10764 


17 


09414 


J0760 


i mo 




DSA 


I.SX 




10760 




9 


X 2 












10760 




-9947 














10769 




-2177 




17990 




CM 


SX, 


I 32, 6» SEMI COLON 


10766 


14 


02377 


0-112 


11000 




OE 


N40044-12 




10770 


44 


10919 


01200 


11010 




TO 


J-4 


• sx 


10790 


25 


09949 


02377 


14020 




AM 


•-A 


tl .10 


10902 


11 


10794 


000-1 


19010 




CM 


•-18 


tJ*l 


10914 


14 


10796 


-9551 


11040 




8L 


N6004S«24 




10926 


47 


10744 


01100 


11090 




sf 


J-4 




10919 


32 


09948 


00000 




SK 


OS 






10949 




o 




11070 


•••••• 




CODE PAUSE 












ltoto 


N60044 


CM 


LV, 


126, 8, PAUSE 


10990 


14 


09547 


0-126 


11090 




6NE 


M60045 




10962 


47 


10910 


01200 


18100 




6TM 


PUTX 


,•♦16 


10974 


17 


07032 


J0690 


16110 




DSA 


M 




10990 




5 


X 1 












10990 




-9351 




18120 




DSA 


J 




10899 




5 


X 1 












10895 




-9552 




18130 




DSA 


BLANK 




10900 




5 


X 1 












10900 




-9356 




18140 




8 


CLEAR 




10902 


49 


02640 


00000 


18190 




OOAG »-3 




10910 








18160 


•••••• 




CODE STOP 












18170 


N60045 


CM 


LV, 


125, 8. STOP 


10910 


14 


09567 


0-125 


18180 




ONE 


N60046 




10922 


47 


1 1066 


01200 


18190 




8TM 


PUTX 


,•♦16 


10934 


17 


07032 


J0950 


18200 




DSA 


RCTY 




10990 




5 


X I 












10950 




-9384 




18210 




DSA 


BLANK 




10955 




5 


X I 












10955 




-9356 




18220 




DSA 


N 13062 




10960 




5 


X 1 












10960 




— 9527 




18230 




BTM 


PUTX 


,•♦16 


10962 


17 


07032 


J0978 


16240 




DSA 


MATY 




10978 




5 


X 1 












10976 




-9386 




18250 




DSA 


ASTOP 




10983 




5 


X 1 












10983 




—3925 




18260 




DSA 


N I 3063 




10986 




5 


X 1 












10988 




-9522 




18270 




BTM 


PUTX 


,•♦16 


10990 


17 


07032 


J1006 


18280 




DSA 


H 




11006 




5 


X 1 












11006 




-9351 




18290 




DSA 


J 




11011 




5 


X 1 
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18300 




DSA 


BLANK 




11016 




5 


X I 












11016 




-9356 




18310 




BTM 


PUTX 


,•♦16 


11018 


17 


07032 


J1034 


18320 




DSA 


B 




11034 




5 


X 1 












11034 




-6982 




18330 




DSA 


N00796 




11039 




5 


X 1 












11039 




-9668 




18340 




DSA 


BLANK 




11044 




5 


X 1 












11044 




-9356 




18350 




SM 


AOCOU 


•4 ,10 


11046 


12 


06977 


000-4 


18360 




8 


CLEAR 




11058 


49 


02640 


00000 


18370 




DORG 


•-3 




11066 








18380 






CODE END 












18390 


N60046 


BTM 


PUTX 


,•♦16 


11066 


17 


07032 


J1082 


18400 




DSA 


H 




11082 




5 


X 1 












11082 




-9331 




18410 




OSA 


BLANK 




11087 




5 


X 1 












11067 




-9356 




18420 




DSA 


BLANK 




11092 




5 


X 1 












11092 




-9356 




18410 




BTM 


PUTX 


,•♦16 


11094 


17 


07032 


JlliO 


18440 




DSA 


B 




11110 




5 


X 1 












11110 




-6982 




16450 




OSA 


N00796 




11115 




5 


X 1 












11119 




-9666 




16460 




DSA 


BLANK 




11120 




5 


X 1 












11120 




-9156 




16470 




8 


EOJ 




11122 


49 


10186 


00000 


16490 


INSET 


TP 


INSETA 


••-I .11 


11114 


24 


11191 


1U1L 


18490 




AM 


INSET- I 


tS ,10 


11144 


11 


11111 


000-9 


18900 




TF 


INSETA 


• INSfT-1 ,11 


11199 


26 


11217 


1U1L 


16910 




AM 


IN SIT- I 


,1 tlO 


11170 


11 


11113 


000-1 


19920 




TF 


SETAO- 1 




11192 


26 


01470 


00000 


19910 


INSETA 


OS 






11191 




0 




19940 




TOM 


SETAO 


• 4 


11194 


19 


01471 


00004 


19990 




TF 


SAOCOM 




11204 


24 


11291 


00000 


19940 


INSET9 


OS 


• • 




11217 




0 




19970 




AM 


SAOCOM 


• 6 .10 


11219 


It 


11291 


000-4 


19990 




TF 


SETAO 


t SAOCOM ,6 


11210 


24 


014TJ 


11291 


19990 




SF 


SETAO 


t f6 


11242 


32 


0147J 


00000 


19600 


SAOCOM 


OS 


,• 




11291 




0 




19410 




TON 


RMSM 


»0 


11294 


19 


04799 


00000 
00000 


19420 




8 


INSET- 1 


• #4 


11244 


49 


1111L 


14410 




OOAG 


•-! 




11274 








19440 




OUTPUT IP 


CODING 











516 
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19630 


COOf 7P 


BE 


C00E7B 






11276 


46 


12048 


01200 










1 1 




11216 


26 


03619 


09547 


11670 




AN 


N 4000 I 


1 1 


#10 


11298 


11 


03619 


000-1 


11610 




BTM 


GTNS 


#•♦16 




11310 


17 


09446 


J 1326 


18690 




OSA 


N40001 






11926 




* 


X 1 














11326 




-3489 




1 8700 




OSA 








11331 




5 


X 1 














11331 




-2399 




18710 








1 101 


tl 


11332 


16 


02399 


0-101 


18720 




BE 


N60048 






11346 


46 


11430 


01200 


18730 




BTM 


SRFCT 


• •♦1* 




11336 


17 


03976 


J1372 


18740 




OSA 


SL 






11 372 




5 


X 1 














11372 




-2399 




18750 




OSA 


N40003 






11377 




5 


X I 














1 1377 




— 3499 




18760 




TOM 


SS2 






11378 


15 


07477 


00001 


18770 




BTM 


PUTX 


#•♦16 




11390 


17 


07032 


J1406 














1 1406 






X 1 














11406 




-4193 




18790 




OSA 


TQFAC 






11411 






X 1 














11411 




-3935 




18800 




DSA 








1 1416 




5 


X 1 














11416 




-3499 








TD 


FL AGSW 


.FXORFL 




11418 


25 


04795 


04373 


18820 


N6004B 


8NC3 


• ♦40 






11430 


47 


11470 


00300 


18830 




BTM 


PUTX 


,•♦16 




11442 


17 


07032 


J1458 






DSA 


BTM 






1 1458 




5 


X I 














11458 




-6980 




18850 




OSA 


TRACE 






1 1463 




5 


X 1 














U463 




-3740 




L8860 




DSA 


FACAD 






1 1468 




5 


X I 














11468 




-3940 




18870 




OUTPUT FIXEO VARIABLE IF 


TEST 










18880 




80 


•♦20 


.FLAGSW 




11470 


43 


11490 


04795 


18890 




8 


N60049 






11482 


49 


11812 


00000 


18900 




DORG 


• -3 






1 1490 








18910 




AM 




.2 


» »o 


1 1490 


1 1 


09547 


000-2 


I 8920 




BTM 


PUTX 


♦ •♦16 




1 1502 


1 7 


07032 


J1518 


18930 




DSA 


CM.FACAD, 


•ZER04 




11518 




5 


X 3 














11518 




-9607 
















11523 




-3940 
















11528 




-9355 




18940 




TDM 


SKIPSW 


,1 




11530 


15 


09661 


0000 1 


18950 




BTM 


GSBI 


#•♦12 




11542 


17 


11698 


J1554 


18960 




BTM 


PUTX 


#•♦16 




11554 


17 


07032 


J1570 



: : ^ 517 
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18970 




DSA 


BL.N40003 


.N01300 




11570 




5 


X 3 














11570 




-9609 
















11575 




-3499 
















11580 




-9614 




18980 




BTM 


GSBI 


#•♦12 




11582 


17 


11698 


J 1594 


18990 




BTM 


PUTX 


#•♦16 




11594 


17 


07032 


J1610 


19000 




DSA 


BE.N40003 


,N01200 




11610 




5 


X 3 














11610 




-9616 
















11615 




-3499 
















11620 




-9621 




19010 


C0DE7C 


BTM 


GSBI 


#•♦12 




11622 


17 


11698 


J1634 


19020 




BTM 


PUTX 


#•♦16 




11634 


17 


07032 


J1650 


19030 




DSA 


B,N40003, 


ZER05 




11650 




5 


X 3 














11650 




-6982 
















11655 




-3499 
















11660 




-9356 




19040 




TDM 


SKIPSW 


#0 




11662 


15 


09661 


00000 


19050 




SM 


ADCOW 


.6 


• 10 


11674 


12 


06977 


000-4 


19060 




B 


CLEAR 






11686 


49 


02640 


00000 


19070 


GSBI 


AM 


I 


#1 


.10 


11698 


11 


09547 


000-1 


19080 




BTM 


GTNS 


#•♦16 




11710 


17 


05446 


J1726 


19090 




OSA 


I»SK 






11726 




5 


X 2 














11726 




-9547 
















11731 




J0849 




19100 




BTM 


SRFCT 


• •♦16 




11732 


17 


03976 


J 1 748 


19110 




DSA 


SK,N40003 






11748 




5 


X 2 














11748 




J0849 
















11753 




-3499 




19120 




BNF 


• ♦34 


.RMSW 




11754 


44 


11788 


04785 


19130 




BTM 


INSET 


• •♦16 




11766 


17 


11136 


J1782 


19140 




DSA 


SK, ADCOW 






11782 




5 


X 2 














11782 




J0B49 
















11787 




-6977 




19150 




TON 


SSI 


• 1 




11780 


15 


07476 


0000 1 


19160 




B 


GSBI-1 




•6 


11900 


49 


U69P 


00000 


19170 


N60049 


TF 


N40001 


» ADCOW 




11912 


26 


03689 


06977 


19180 




AN 


N40001 


.20 


• 10 


11924 


11 


03489 


OOOKO 


19190 




TF 


N40004 


•FACAD 




11936 


26 


03504 


03960 


19200 




S 


N40004 


#FP2 




11949 


22 


03506 


02299 


19210 




AM 


N40004 


#1 


• 10 


11960 


11 


03504 


000-1 


19220 




TOM 


SSI 


tl 




11972 


19 


07476 


00001 


19230 




BTN 


PUTX 


• •♦16 




11996 


17 


07032 


J 1900 


19240 




OSA 


BD.N40001 


>N60Q06 




11900 




3 


X 3 














11900 




-9623 
















11905 




-3489 
















11910 




-3506 




19230 




AM 


1 


#3 


• 10 


11912 


11 


09967 


000-3 


19260 




TON 


SKIPSW 


• 1 




11926 


19 


09661 


0000 1 


19270 




BTM 


GSBI 


• •♦12 




11936 


IT 


11699 


41949 
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into 




BTM 


PUTK 


#•♦14 




11448 


17 


07032 


J 1964 


16240 




OSA 


6.N40003, 


1ER05 




11444 




5 


X 3 














11964 




-6982 
















1 1969 




— 3499 
















11974 




-9354 




14100 




SM 


AOCOM 


.4 


• 10 


1197* 


12 


04477 


000-4 


14110 




• TN 


GSBI 


• •♦12 




11961 


17 


11448 


J2000 


14320 




BTM 


PUTX 


• •♦16 




12000 


17 


07032 


J2016 


14330 




OSA 


6NF V N40003.FACM2 




12014 




5 


X 3 














12016 




-9625 
















12021 




-3499 
















12026 




-9630 




14340 




SM 


I 


.3 


• 10 


12026 


12 






14350 




B 


C00E7C 






12040 


49 


11622 


00000 


14340 




DORG 


•-3 






1204B 








14370 


C00E76 


AM 


I 


• 3 


• 10 


12048 


11 


09547 


000-3 


14340 




BTM 


GTNS 


.•♦16 




12060 


17 


05446 


J2076 


14340 




OSA 


ItN40001 






12076 




5 


X 2 














12076 




-9547 
















12081 




-3489 




19400 




TF 


INDREC-2 


•N40001 




12082 


26 


12181 


03489 


19410 




SF 


INDREC-4 






12094 


32 


121 79 




19420 




TOM 


SKIPSW 


• 1 




12106 


13 


09661 


0000 1 


19430 




AM 


I 


• 1 


• 10 


12118 


tl 


09347 


000- 1 


19440 




BTM 


GSBI 


• •♦12 




12130 


17 


11696 


J2142 


19450 




BTM 


PUTX 


• •♦16 




12142 


17 


07032 


J2158 


19440 




OSA 


B!»N40003 


•INDREC 




12158 




5 


X 3 














12158 




-9632 
















12163 




-3499 
















12168 




J2183 




19470 




B 


C0DE7C 






12170 


49 


11622 


00000 


19480 




DORG 


•-3 






12178 








19490 


INDREC 


DC 


6,0 






12183 




6 








.00000 














19300 


CGCOW 


OS 


5 






12188 




5 




19510 


•••••• 




OUTPUT COMPUTED GO TO 












19520 


C00E9P 


BTM 


GTMS 


• •♦16 




12190 


17 


05446 


J2206 


19530 




OSA 


I 






12206 




5 


X 1 














12206 




-9547 




19540 




OSA 


St 






12211 




5 


X 1 














12211 




-2399 




19550 




CM 


SL, 


104,8. RIGHT PAREN 




12212 


14 


02399 


0-104 


19560 




BNE 


C0DE9 






12224 


47 


10146 


01200 


19570 




TF 


N40004 


.1 




12236 


26 


03504 


09547 


19580 




AM 


N 40004 


• 1 


• 10 


12248 


11 


03504 


000-1 


19590 




BTM 


GTNS 


,♦♦16 




12260 


17 


05446 


J2276 


19600 




OSA 


N40004 






12276 




5 


X 1 














12276 




-3504 




19610 




OSA 


SL 






12281 




5 


X 1 
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12281 




-2399 




19620 


TDM 


SSI 


.1 


12282 


15 


07476 


0000 1 


19630 


TDM 


SKIPSW 


• 1 


12294 


15 


09661 


00001 


19640 


BTM 


SRFCT 


.•♦16 


12306 


17 


03976 


J2322 


19650 


OSA 


SL 




12322 




5 


X 1 










12322 




-2399 




19660 


DSA 


N40004 




12327 




5 


X 1 










12327 




-3504 




19670 


BTM 


PUTX 


• •♦16 


12326 


17 


07032 


J 2344 


19680 


OSA 


MM 




12344 




5 


X I 










12344 




-9349 




19690 


DSA 


N40004 




12344 




5 


X I 










12344 




-3504 




19700 


OSA 


MNS5 




12354 




5 


X 1 










12354 




-9517 




19710 


TDM 


SS2 


tl 


12356 


15 


07477 


00001 


19720 


TF 


M40001 


•AOCOM 


12368 


26 


03489 


06977 


19730 


AM 


N40001 


•18 ,10 


12360 


11 


03489 


000J8 


19740 


BTM 


PUTX 


♦ •♦16 


12342 


17 


07032 


J2408 


19750 


DSA 


SM 




12406 




5 


X 1 










12408 




-9394 




19760 


DSA 


N 13042 




12413 




5 


X 1 










12413 




-9369 




19770 


DSA 


N40001 




12416 




5 


X I 










12416 




-3489 




19780 


TFM 


I 


• 3 »B 


12420 


16 


09547 


0-003 


19790 


TDM 


SS3 


• 1 


12432 


IS 


07476 


00001 


19800 


BTM 


GTNS 


• •♦16 


12444 


17 


05446 


J2460 


19810 


OSA 


1 




12460 




5 


X I 










12460 




-9547 




19820 


DSA 


SK 




12445 




5 


X 1 










12441 




J0649 




19830 


BTM 


SMCT 


• •♦16 


12464 


17 


03974 


J2462 


19840 


DSA 


SK 




12462 




3 


X 1 










12482 




J0844 




19850 


OSA 


N40004 




12467 




5 


X 1 










12467 




-1504 




19860 


TOM 


SKIPS* 


• 0 


12486 


16 


04441 


00000 


19870 


6NF 


C00E48 


ttMSM 


12300 


44 


12166 


04763 


19880 


TF 


CGCOM 


•AOCOM 


12512 


24 


12166 


06477 


19840 


AM 


CGCOM 


• » .10 


12324 


11 


12166 


000*5 


19400 


BTM 


INSET 


• •♦16 


12534 


17 


UU4 


J2552 


14410 


OSA 


SR. CGCOW 




12152 




5 


X 2 
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12552 




J0849 
















12557 




J2168 




19920 


C00E9B 


TDM 


SS2 


♦ 1 




12556 


15 


07477 


00001 


19930 




BTN 


PUTX 


#•♦16 




12570 


17 


07032 


J2586 


19940 




DSA 


g 






12586 




j 


X 1 














12586 




-6982 




19950 




DSA 


N 13092 






12591 






X 1 














12591 




"9369 




19960 




OSA 


N40004 






12596 




5 


X 1 














12596 




-3504 




19970 




TFM 


I 


,4 


.8 


12596 


16 


09547 


0-004 


19980 




BTN 


GTNS 


,•♦16 




12610 


17 


05446 


J2626 


19990 




DSA 


I 






12626 




5 


X 1 














12626 




—9547 




20000 




OSA 


St 






12631 






X 1 














12631 




-2399 




200 10 




CM 


SL t 






12632 


14 


02399 


0—104 


20020 




BE 


CLEAR 






12666 


46 


02640 


01200 


20030 


C0DE9A 


BTN 


GTNS 


• •♦ 16 




12656 


If 


05446 


J2672 


20040 




OSA 


I »SL 




12672 




5 


X 2 














12672 




-9547 
















12677 




-2399 




20050 




CM 


SL 


.104 


«• 


12678 


14 


02399 


0-104 


20060 




BE 


Hi QUI/ f ft 










no**? 


nnnn? 






TON 




1 1 




1 JTftJ 


15 






20080 




BTN 


SRFCT 


#•♦16 




12716 


I 7 


03976 


J2730 


20090 




DSA 


^1 .N4ftftfll 






12730 




5 


X 2 














12730 




-2399 
















12735 




-3489 




20100 




TON 


SKIPSW 


tO 




12736 


15 


09661 


00000 


20110 




BNF 


C0DE9C 


,RM$W 




12768 


44 


12806 


04785 










t ADCOW 






?t 


\ \ i of 








CM 


rrrnu 


»2 


,10 


12772 


12 


12188 




20140 




BTN 


INSET 


,•♦16 




12784 


1 j 


111 34 


J2800 


20150 




OSA 


SL.CGCOW 






12800 




5 


X 2 


































1 7fln«f 










CO0E9C 




PUTC 


, •♦ 16 






1 


Z 


J2822 


?ni 7ft 






ijinnn t 












X I 














12822 




— 3489 




20180 




AN 


j 




, 10 


12824 


|| 


09547 


000-1 


20190 




B 


C0DE9A 






12836 


49 


12656 


00000 


20200 




DORG 


♦-3 






12844 








20210 


N60072 


BTN 


ADJUST 


•ADCOW 




12844 


17 


03550 


-6977 


20220 




B 


CLEAR 






12856 


49 


02640 


00000 


20230 




OORG 


• -3 






12864 
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20250 


CD17P 


OSA 


I,SX17 






12868 




5 


X 2 














12868 




-9547 
















12873 




J3119 




20260 




BTM 


RNNS,»*16 






12874 


17 


05416 


J2890 


20270 




DSA 


I,SX17 






12890 




5 


X 2 














12890 




-9547 
















12895 




J3119 




20280 




TF 


REP3,A0C0W,, 




SAVE ADDRESS OF 1ST SPEC 


12896 


26 


14013 


06977 


20290 




AN 


ADCOW , 


1 


,10 


12908 


U 


06977 


000- 1 


20300 


CD17A 


BTN 


RNNS,*+16 f , 




REMOVE A SYMBOL 


12920 


17 


05416 


J2936 


20310 




DSA 


I,SX17 






12936 




5 


X 2 














12936 




-9547 
















12941 




J3U9 




20320 




CN 


SX17, 101,6, 


IS 


IT AN OPERATOR 


12942 


14 


13119 


0-101 


20330 




BNL 


C0178,,, 




YES, BRANCH 


12954 


46 


13382 


01300 


20340 




BTN 


RNNS,*+16,, 




REMOVE NEXT SYMBOL 


12966 


17 


05416 


J2982 


20350 




DSA 


I.SV17 






12982 




5 


X 2 














12982 




-9547 
















12987 




J3909 




20360 




CN 


SY17, 147,8, 


IS 


IT XTVPE 


12988 


14 


13909 


0-147 


20370 




BE 


CD17C 






13000 


46 


13120 


01200 


20380 




CN 


SY17, 148,6, 


IS 


IT HTYPE 


13012 


14 


13909 


0-148 


20390 




BE 


CD17D 






13024 


46 


13180 


01200 


20400 




CN 


SV17, 124,8, 


IS 


IT LEFT PAREN 


13036 


14 


13909 


0-124 


20410 




BE 


C017E 






13048 


46 


13310 


01200 


20420 




TF 


FREQI.SX17,, 




OTHER OPERATOR, SAVE FREQ 


13060 


26 


13215 


13119 


20430 




TF 


REPi, ADCOW,, 




SAVE ADDRESS OF NEXT SPEC 


13072 


26 


13179 


06977 


20440 




AN 


REP1,4, 10 






13064 


11 


13179 


000-4 


20450 




TF 


SX17.SY17 






13096 


26 


13119 


13909 


20460 




B 


C017B 






13108 


49 


13382 


00000 


20470 


SX17 


OS 


»• 






13119 




0 




20480 


C017C 


BTN 


PUT17,XTVPE, , 




PUT XTVPE A NO LENGTH 


13120 


17 


14266 


-3920 


20490 




NN 


SX17,2,10 






13132 


13 


13119 


000-2 


20500 




SF 


97 






13144 


32 


00097 


00000 


20510 




BT 


PUT17C.99 






13156 


27 


14322 


00099 


20520 




B 


CD17A 






13168 


49 


12920 


00000 


20530 


REP1 


OS 


»• 






13179 




0 




20540 


CD170 


BTN 


PUT17, HTYPE,, 




PUT HTYPE t LENGTH AND CONSTANTS 


13180 


17 


14286 


-3915 


20550 




NN 


SX17,2,10 






13192 


13 


13119 


000-2 


20560 




SF 


97,, 9 






13206 


32 


00097 


00-00 


20570 


FREQ1 


OS 


»• 






13215 




0 




20580 




6T 


PUT17C99 






13216 


27 


14322 


00099 


20590 


CD17F 


BTN 


RNNS,»*16 






13228 


17 


05416 


J 3244 


20600 




OSA 


I,SV17 






13246 




5 


X 2 














13244 




-9547 
















13249 




J3909 




20610 




BT 


PUU7i,SYl7 






13250 


27 


14370 


13909 


20620 




SN 


SX17.1.10 






13262 


12 


13119 


000-1 


20630 




CN 


SX17,0,9 






13276 


14 


13119 


00-00 


20640 




BH 


C017F 






13266 


46 


13228 


01100 


20650 




B 


C017A 






13296 


49 


12920 


00000 
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2 0440 


RE P2 


OS 


• • 




IS 309 




g 




20470 


CD17E 


Im 


HIP Jf A Ob DM f f 


SAVE PRBWRNvY *UWH«»» 


11310 


2t 


14013 


06977 








REPlt 1 t 10 




11122 


12 


14013 


ooo-i 


20490 




TIS 


Ben * nr ny 




11114 


24 


13309 


04977 






AM 


R€R2t4t 10 




11144 


1 1 


13309 


000*4 


20710 




7F 


rREQZt 5X17 




11358 


24 


13381 


13119 


20720 




B 


CO 17A» »9 




J • 


49 


12920 


00—00 


20710 


FREQ2 


OS 


• * 




19381 








20740 


C017B 


CM 


SX17, 104,6* 


RIGHT PAR EN 


11182 


^ 


1 3119 


0—104 


20790 




BE 


C01 7G 




11194 




13930 


01200 


20740 




CM 


SX17, 145,8* 


E TYPE 


• * 


|^ 


131 19 


0—145 


20770 




BE 


CDI7H 




13418 


44 


13910 




20780 




CM 


SX17# 121*6* 


SLASH 


11410 


14 




0-121 


20790 




BE 


C017I 




11442 


44 


13404 


0|200 


20800 




CM 


SX17, 144*6* 


A TYPE 






131 19 


0—144 


20810 




BE 


CD17J 




13444 




1 3626 


01200 


20820 




CM 


SX17* 149,8* 


I TYPE 


11478 


14 


i tilt 




20830 




BE 


CD17K 




11490 






01200 


20840 




CM 


SX17* 146*8* 


F TYPE 4 


11502 




13119 


0—146 


20050 




BE 


C017L 




11514 




1 3796 


0 1200 


20840 




CM 


SX17, 132*8, 


SEMI COLON 


11524 


1 1 




0— 1 32 


20870 




BE 


C017SC 






44 


14014 




20880 




CM 


SX17« 124*8* 


i ee t nitcu 
Lfcrl rAKEN 


13550 


1^ 


1 3119 


0—124 


20890 




BNE 


CD17A, tt 


CMA 


13542 


^7 


12920 


0 1200 


20900 


CD17M 


TF 


REP3t AOCOUt $ 


SAVE REPEAT ADDRESS 


15576 


24 


1401 3 




20910 




SM 


REP3f 1 »10 




11584 


12 




000-1 


20920 




B 


C017A 




11598 


49 


12920 


uuuuu 


20930 




OORG 


•-3 




11404 








20940 


coin 


B7M 


PUT17, SLASH 




13606 


17 


14286 


-3885 


20950 




B 


C017A 




13618 


49 


12920 


AAAAA 

UOQOU 


20940 




OORG 


•-3 




11626 








20970 


C017 J 


8TM 


FUT17* ATYPE 




11626 


\1 


-*f ,* 




20980 




BTM 


RMNS t •♦16 




11616 


i# 


05416 


•* 3454 


20990 




OSA 


I « SX17 




13654 






2 












13454 




—9547 














13459 




J31 19 




21000 




MM 


SXl7 v 2f 10 




13440 


13 


131 19 


000-2 


21010 




SF 


97 




13672 


32 


00097 


00000 


21020 




BT 


PUT17C 1 99 




13684 


27 


14322 


00099 


21030 


CD17N 


CM 


FREQ1 * 0t9f 


BUT 1ICA BCTIIfiU lf\nH Cf C 

PUT rREQ RETURN *UDRt55 


13696 


14 


13215 


00—00 


21040 




BE 


CD17A 




13708 


44 


12920 


01200 


21050 




BTM 


PUT17»REP 




13720 


17 


14286 


— 3890 


2 1060 


CD1 1 7 


BT 


PUT17I t REPl 




13732 


27 


14234 


13179 


21070 




BT 


PUTlTBt FREQl 




13744 


27 


14370 


13215 


21080 




TFM 


FREOlf Of 9 




13754 


14 


13215 


00-00 


21090 




B 


C017A 




13748 


44 


12920 


00000 


21100 




OORG 


•-3 




13774 








21110 


C017K 


BTM 


PUT17, I TYPE 




13774 


17 


14286 


-3895 


21 120 




B 


C017 J* 12 




13788 






UUUUU 


21130 




OORG 


•-3 




13796 








21140 


CD17L 


BTM 


PUT17.FTVPE 




13796 


17 


14286 


-3900 


21150 




BTM 


RMNS**>*16 




13808 


17 


05416 


J3824 


21160 




OSA 


ItSX17 




13824 




5 


X 2 












13824 




-9547 
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13829 




J3119 




21170 




BT 


PUTl7CtSX17 




13830 


27 


14322 


13119 


21180 




BTM 


RMNS.**16 




13842 


17 


05416 


J3858 


21190 




OSA 


ItSX17 




11858 




5 


X 2 












13858 




-9547 














13863 




J3119 




21200 




BTM 


RMNS, •♦16 




13864 


17 


05414 


J3880 


21210 




DSA 


ItSXl7 




13880 




5 


X 2 












11880 




-9547 














11885 




J3U9 




21220 




BT 


PUT176tSXl7 




11686 


27 


14370 


13119 


21230 




B 


CD17N 




11698 


49 


13696 


00000 


21240 


SY17 


DS 


»• 




11909 




0 




21250 


CD17H 


BTM 


PUT17#ETVPE 




11910 


17 


14286 


-3905 


21260 




B 


CD17L+12 




11922 


49 


13608 


00000 


21270 




OORG 


•-3 




11910 








21260 


C017G 


CM 


FREQ2»0#9f 


PUT FREQ RETURN AODRESS 


11910 


14 


13381 


00-00 


21290 




BE 


C017A 




11942 


44 


12920 


01200 


21300 




TF 


FREQUFREQ2 




11954 


24 


13215 


13381 


21310 




TF 


REP1.REP2 




13944 


24 


13179 


13309 


21320 




TFM 


FREQ2.0.9 




11976 


14 


13381 


00-00 


21330 




BTM 


PUT17, REP4 




11990 


17 


14286 


-3730 


21340 




B 


coin 




14002 


49 


13732 


00000 


21350 


REPl 


DS 


• • 




14011 




0 




21360 


CD17SC 


BTM 


PUT IT. REDO 




14014 


17 


14286 


-3910 


21370 




BT 


PUT17I #REP3 




14024 


27 


14234 


14013 


21380 


C017XX 


BTM 


ADJUST,ADC0W.. 


ADJUST ADCOH TO EVEN AODRESS 


14018 


17 


03550 


-4977 


21390 




TF 


N40002*SXF 




14050 


24 


03444 


09582 


21400 




B 


MUB 128+24 




14042 


49 


14198 


00000 


21410 




OORG 


14100 




14100 








21420 




OC 


2.2 




14101 




2 




21430 


MUBCOS 


-2 
TFM 


FM0N415 , 


>BLKS 


14102 


14 


02359 


-9224 


21440 




BTM 


FNON ( 


tSUBCDS 


14114 


17 


02324 


J4102 


21450 


WUBCAB 


TFM 


FNON* 15 i 


>6LK6 


14126 


14 


02159 


-9246 


21440 




BTM 


FNON .i 


rSUBCAB 


14116 


17 


02124 


J4124 


21470 


HUBC12 


TFM 


FNON* 15 « 


,BLX7 


14150 


14 


02159 


-9272 


21480 




BTM 


FNON i 


.SU6C12 


14142 


17 


02124 


J4150 


21490 


MUB 128 


TFM 


FN0N*15 t 


>BLX6 


14174 


14 


02159 


-6294 


21500 




BTM 


FNON i 


-SU812I 


14164 


17 


02124 


J4174 


21510 




BTM 


PUTA , 


.•♦14 


14198 


17 


06272 


J4214 


21520 




OSA 


SXF.AOCOM 




14214 




5 


X 2 












14214 




-9562 














14219 




-6977 




21530 




8 


CLEAR 




14220 


49 


02640 


00000 


21540 




OORG 


•-3 




14228 








21550 




OS 


5 




14212 




5 




21540 


PUT171 


TR 


TVPET , 


TYPECR 


142S4 


11 


06425 


08796 


21570 




TFM 


PUT 3 , 


,PUTlTI-l 


14244 


14 


06760 


J4211 


21500 




TFN 


PUTX-1 , 


•♦20 


14218 


14 


07011 


J4276 


21540 




87 


PUTXB 




14270 


44 


07116 




21400 




B02 






14278 


42 






21410 




OS 


5 




14264 




4 
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21620 


PUT17 


TR 


TYPET 


,TYPfCN 


1*286 


31 


08*25 


08611 


21610 




TP 


PUT 3 


tPUT17~l 


1*298 


26 


01780 


16285 


21660 




B 


PUT17I*26 




16110 


69 


16298 


00000 


21690 




OS 


t« 




16321 




0 




21660 


PUT17C 


TR 


TYPET 


•TYPEK3 


16322 


31 


08625 


16628 


21670 




SF 


PUT17C-3 




16336 


32 


16319 


00000 


21610 




TP* 


PUT3 


.PUT17C-1 


16366 


16 


08780 


J6321 


2 1690 




8 


rUf 1 f 1 ♦«* 




163ft 


69 


16298 


AAAAA 


21700 




OS 


• • 




16369 




0 




21710 




TR 




• TVPEK2 


16370 


3 1 


08629 


16*13 


21720 




SP 


PUT176-2 




16382 


32 


16368 


00000 


2 1 730 




TFM 


PUT3 


, PUT17I-1 


16396 


16 


06780 


J6369 


217*0 




87 


PUT 1 71*26 




16606 


♦9 


16256 




21750 


TYPEK2 


DSC 


1.2 




16613 




I 




21760 




2 

DC 


2,2 




16615 




2 




21770 




-2 
DC 


2.5 




1*617 




2 




2 1 780 




-5 

DC 


2,10 




.16619 




2 








JO 
















DC 


2,11 




16*21 




2 








Jl 

DC 


5,10000 




1**26 












JOOOO 












2 18 10 




DC 
» 


i.» 




16*27 




1 




21820 


TYPEK3 


DSC 
2 


1,2 




1**28 




I 




21830 




DC 


2,3 




1**30 




2 




218*0 




-3 
DC 


2,6 




1**32 




2 




2 1850 




-6 
DC 


2,11 




1**3* 




2 




21860 




Jl 

DC 


2,12 




1**36 




2 








J2 














21870 




DC 


5,10000 




1***1 




5 








JOOOO 












21880 




DC 
t 


l,« 




1***2 




I 




2 1 890 






UUTPUT RETURN 












21900 


FCTRTP 


TDM 


SS2 


,1 


1**** 


15 


07*77 


00001 


21910 




BTM 


SRFCT 


,•♦16 


1**56 


17 


03976 


J**72 


21920 




DSA 


RTNAME 




16*72 




5 


X 1 












1**72 




-9538 




21930 




OSA 


NA0011 




1**77 




5 


X 1 












1**77 




-3539 




219*0 




BTM 


PUTX 


,•♦16 


1**78 


17 


07032 


J**9* 


21950 




DSA 


BTM 




1**9* 




5 


X 1 












1**9* 




-6980 




21960 




DSA 


TOFAC 




16*99 




5 


X 1 



525 



1620 FORTRAN M~D PHASE 2 PAGE 61 











1**99 




-3935 




21970 




OSA 


N*0011 


1*50* 




5 


X 1 










1*50* 




-3539 




21980 


N60182 


TFM 


SS3 ,101 ,9 


1*506 


16 


07*78 


00J01 


21990 




TF 


N*0012 ,RTA0 


1*518 


26 


035** 


09572 


22000 




SM 


N*0012 ,1 ,10 


1*530 


12 


035** 


000- 1 


22010 




BTM 


PUTX ,•♦16 


1*5*2 


17 


07032 


J*558 


22020 




DSA 


B 


1*558 




5 


X 1 










16558 




-6982 




22030 




DSA 


N*0012 


1*563 




5 


X 1 










1*563 




-35** 




220*0 




DSA 


BLANK 


1*568 




5 


X 1 










1*568 




-9356 




22050 




B 


CLEAR 


1*570 


*9 


026*0 


00000 


22060 




DORG 


•-3 


1*578 








22070 




DORG 


16002 


16002 








22080 


XZ2X 


3* 


BLK2A.701 


16002 


3* 


09160 


00701 


22090 




38 


BLK2A,702 


16016 


38 


09160 


00702 


22100 




TRA 




16026 


36 


00000 


00500 










16036 


*9 


00000 


00000 


22110 




TCD 


XZ2X 


16002 








22120 




DORG 


10000 


10000 








22130 




SECONDARY LINKAGE FOR BLOCK 3 










221*0 




DC 
-3 




10001 




2 




22150 


Y0DE1 


TFM 


FMON+35 ,8LKl 


10002 


16 


02359 


-9128 


22160 




BTM 


FMON ,C00EI 


10016 


17 


0232* 


J0002 


22170 


Y0DE3 


TFM 


FMON+35 ,BLK1 


10026 


16 


02359 


-9128 


22180 




BTM 


FMON , CODE 3 


10038 


17 


0232* 


J0026 


22190 


YOOE* 


TFM 


F MONO 5 ,BLK1 


10050 


16 


02359 


-9128 


22200 




BTM 


FMON ,COOE* 


10062 


17 


0232* 


J0050 


22210 


Y00E6 


TFM 


FN0NO5 ,8LK2 


10076 


16 


02359 


-9152 


22220 




BTM 


FMON ,CO0E6 


10086 


17 


0232* 


J007* 


22230 


V0DE7 


TFM 


F MONO 5 , BLK2 


10098 


16 


02359 


-9152 


222*0 




BTM 


FMON ,C0DE7 


10110 


17 


0232* 


J0098 


22250 


YOOE 8 


TFM 


F MONO 5 ,8LKl 


10122 


16 


02359 


-9128 


22260 




BTM 


FMON , CODE 8 


10136 


17 


0232* 


J0122 


222 70 


V0DE9 


TFM 


F MONO 5 , BLK2 


10166 


16 


02359 


-9152 


22280 




BTM 


FMON ,C00f9 


10156 


17 


02326 


J01*6 


22290 


YOOE 12 


B 


SU8C12 


10170 


69 


16150 


00000 


22300 




M 




10182 


68 


00000 


00000 


22310 


Y0DE1* 


TOM 


FX ,1 


10196 


19 


03715 


00001 


22320 




B 


C016P 


10206 


69 


10636 


00000 


22330 


YOOE 15 


TFM 


FN0NO3 ,BLK1 


10218 


16 


02959 


-9128 


223*0 




BTM 


FMON ,C00E19 


10230 


17 


0292* 


J0218 


22350 


YOOE 17 


TFM 


PM0NO5 , BLK2 


10262 


16 


02359 


-9152 


22360 




BTM 


FMON , CODE 17 


10296 


17 


02926 


J0262 


22370 


YOOESS 


B 


SUBCOS 


10266 


69 


16102 


00000 


22380 




M 




10276 


66 


00000 


00000 


22390 


V0SSA6 


B 


SUBCAB 


10290 


69 


16126 


00000 


22600 




H 




10302 


68 


00000 


00000 
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22410 


Y012B 


6 


SUB 128 






10314 


49 


14174 


wwwv 


22420 
















UvvvU 


00000 


224)0 


VCT 1 


T 


F MOM* J 5 


»BLK4 




10339 


|£ 


02359 


"9200 


an 




ATM 


FMON 


»FCT1 




10350 


|-j 


02324 


J0336 


22430 


YCTRT 


TFM 


FM0H*15 


t BLK2 




10362 




02359 


—9152 


22460 




BTM 


FMON 


tFCTRT 




10376 


If 


02324 


J0362 


22470 


YOJ 


TFM 


FM0NO5 


• BLK4 




10384 


14 


02359 


-9200 


22460 




BTM 


FMON 


,10 J 




10398 


17 


02324 


J0386 


22490 


YDCALL 


CM 


L V 


1 1)1 


• i 


10610 


14 


09567 


0—131 


22900 




B 


CDCALP 






10622 


49 


12688 


00000 


22510 


•••••• 




OUTPUT 10 


STATEMENT 












22520 


CD14P 


TOM 


FFRSM 


»o 






15 




nnnnn 


22530 




BTM 


RMNS 


• •♦16 




10666 




05416 




22540 




DSA 


I 






10462 




5 
















10462 




-9547 




22550 




OSA 


SR 






10467 




















J nl m 




-2372 




22560 




BTM 


GTNS 


♦ •♦16 






1 


05446 


J0484 


22570 




OSA 


I * SI 






10*04 






X 2 


















9547 
















10489 




-2399 




22580 




CM 


LV 


f 142 


• 8 


10490 


14 




0—142 


22590 




BL 


C014JG 






10502 


47 


10980 


01300 


22600 




CM 


LV 


1 147 


• 8 


10514 


14 


09567 


«7 • MM 


22610 




BH 


CD14JG 






10526 


46 


10980 


01 100 


22620 




TOM 


FFRSW 


tl 




10538 


15 






22610 




CM 


LV 


• 142 


• 8 


10550 


14 


09567 


0-142 


22660 




BE 


C014FV 






10562 


46 


10690 




22650 




CM 


LV 


1 143 


• 8 


10574 


1 4 




nT?nn 


22660 




BE 


C014FL 






10586 


46 


10784 




22670 




CM 


LV 


f 146 


• 6 


10598 


14 


?nonn 


0 146 


22680 




BE 


C014RV 






10610 


46 




01200 


22690 




CM 


LV 


• 147 


• 8 


10622 


14 


09567 


0—147 


22700 




BE 


C014RL 






10634 


46 


10920 


01200 


22710 




SF 


FFRSH 






10646 


32 




A A AAA 

ouuuu 


22720 




CM 


LV 


» 144 


• 8 


10658 


1 4 


09567 




22730 




BE 


C014SV 






10670 


46 


10940 


01200 


22740 




B 


CD14SL 






10682 


49 


10960 


00000 


22750 




DORG »-3 






10690 








22760 


C014FV 


TF 


LVP 


•FETCH 




10690 


26 


12855 


12887 


22770 




CM 


SL 


.101 


• 8 


10702 


14 


02399 


0-101 


22780 




BNE 


C014JH 






10714 


47 


1 1002 


01200 


22790 




BTM 


PUTX 


• •♦16 




10726 


17 


07032 


J0742 


22800 




DSA 


BT.LVP.N13092 




10742 




5 


X 3 














10742 




9382 
















10747 




J2855 
















10752 




-9369 




22810 




BTM 


RMNS 


• •♦16 




10754 


17 


05416 


J0770 


22820 




OSA 


ItSL 






10770 




5 


X 2 














10770 




-9547 
















10775 




-2399 
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22830 




B 


C014A 




10776 


49 


11214 


00000 


22840 




OORG 


•-3 




10784 








22850 


CD14FL 


TF 


LVP 


•FETCH 


10784 


26 


12855 


12887 


22860 




BTM 


SRFCT 


• •♦16 


10796 


17 


03976 


J0812 


22870 




OSA 


SL.N40004 




10812 




5 


X 2 












10812 




-2399 














10817 




-3504 




22880 




TOM 


SS2 


• 1 


10818 


15 


07477 


00001 


22890 




BTM 


PUTX 


• •♦16 


10830 


17 


07032 


J0846 


22900 




OSA 


BTM.TOFAC, 


N40004 


10846 




5 


X 3 












10846 




-6980 














10851 




-3935 














10856 




-3504 




22910 




BTM 


RPNS 


• •♦16 


10858 


17 


05476 


J0874 


22920 




OSA 


I.FAC 




10876 




5 


X 2 












10876 




-9567 














10879 




-9531 




22930 




BTM 


GNRP 


• •♦12 


10880 


17 


05940 


J0892 


22960 




87 


C014FV*12 




10892 


49 


10702 




22950 


C014RV 


TF 


LVP 


•RECORO 


10900 


26 


12855 


12882 


22960 




B7 


CD14FV*12 




10912 


69 


10702 




22970 


C014RL 


TF 


LVP 


•RECORD 


10920 


26 


12855 


12882 


22980 




B7 


CD14FL*12 




10932 


49 


10796 




22990 


C014SV 


TF 


LVP 


• FIND 


10960 


26 


12855 


12877 


23000 




B7 


CD14FVM2 




10952 


49 


10702 




23010 


C014SL 


TF 


LVP 


• FINO 


10960 


26 


12855 


12877 


23020 




87 


CD14FL*12 




10972 


49 


10796 




23030 


C014JG 


BTM 


OPSR 


• •♦16 


10980 


17 


03596 


J0996 


23040 




OSA 


LV.LVP 




10996 




5 


X 2 












10996 




-9567 














1 1001 




J2855 




23050 


C014JW 


BTM 


RMNS 


• •♦16 


11002 


17 


05416 


J1018 


23060 




DSA 


I 




11018 




5 


X 1 












11018 




-9547 




23070 




DSA 


SL 




11023 




5 


X 1 












11023 




-2399 




23080 




TDM 


SS2 


• I 


11024 


15 


07477 


00001 


23090 






OUTPUT INSTRUCTION FOR 10 DEVICE 










23100 




BTM 


SRFCT 


• •♦16 


11034 


17 


03976 


J1052 


23110 




OSA 


SL 




11052 




5 


X 1 












11052 




-2394 




23120 




DSA 


N40006 




HOST 




5 


X 1 












11057 




-3506 




23121 




BD 


C016NR 


.FFRSW 


11 Oil 


43 


11176 


06765 


23130 




BD 


CD14RM 


• RMSW 


11070 


41 


11126 


06785 


23160 




AM 


SBASE 


.3 ,10 


11012 


It 


06371 


000-5 


23150 




BNR 


C016NR 


•SBASE til 


11094 


49 


11176 


0637J 


23160 




TFM 


OPT 


.27 ,10 


11104 


14 


12957 


000K7 
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B7 






11 1 It 


49 


11186 




23180 


C014AN 


TF 


N40001 


•AOCOH 


11126 


2* 


09489 


06977 


23190 




AM 


N40001 


• U .10 


11138 


It 


03489 


000 J 1 


23200 






SBASE 


•N40001 ,6 


1 1 190 


2£ 


0637 J 


03489 


232 10 






RMSM 


• 0 


1 1 162 


15 


04785 


00000 


23220 




TSli 


OPV 


•17 ,10 


11176 


1$ 


12857 


00047 


23230 




BTM 


PUTX 


• •♦16 


11 If 4 


1 t 


07032 


J1202 


23240 




DSA 


0PV,LVP,N40004 


11202 




} 


X 3 












11202 




J2857 














11207 




J2655 














11212 




•3504 




23250 


C014A 


BNF 


• ♦20 


•FFRSU 


11216 


44 


11234 


04 765 


23260 




87 


CLEAR 




11226 


49 


02640 




23270 




BTM 


RMNS 


• •♦16 




1 7 


05416 


J 1250 


23280 




DSA 


I 




1 1250 




5 


X 1 












11250 




-9547 




23290 




OSA 


SL 




11255 




5 


X 1 












1 1255 




"2399 




23300 




CM 


SL. 


132t8fSEMI COLON 


11256 


14 


02399 


0-132 


23310 




BE 


C014EN 




11268 


46 


12442 


01200 








GTNS 


,•♦16 


1 1280 


1 7 


05446 


Jl 296 


23330 




ncA 


I 




1 1296 




5 


X 1 












1 1 296 




"9547 




2 3340 




DSA 


St 




1 1301 






X 1 












11301 




-2399 




23350 




CM 


Sit 


109,B,OOA 


11302 


14 


02399 


0-109 


2 3360 




BE 


CODOA 












23370 




CM 


SL t 


124, 8, LEFT PAREN 


11326 


14 


02399 


0-124 


23380 




BE 


CODEPA 




11338 


46 


11880 


01200 


23390 




BTM 


SRFCT 


• •♦16 


1 1 350 


1 7 


03976 


J 1366 


23400 




DSA 


SL 




1 1 366 






X 1 












, , 




—2399 




234 10 




DSA 


SR 




li 371 




* 


X 1 
















• 9979 

T i ? 5* 




23420 




BD 


CODARR 


,OMSH 


1 1 \77 






04150 


23430 






OUTPUT SIMPLE VARIABLE 










23440 




BD 


♦ ♦20 


,FXORFL 


11384 


43 


11404 


04373 


23450 




B 


CD99 




11396 


49 


11476 


00000 


23460 




DORG 


• -3 












23470 




BNF 


CD98 


• FPSW 


11404 


44 


11464 


09659 


23480 




TDM 


SSI 


• 1 


11416 


15 


07476 


00001 


23490 




BTM 


PUTX 


,•♦16 


1 1428 


1 7 


07032 


J 1444 


23500 




DSA 






1 1444 




5 


X 1 












11444 




-9341 




23510 




DSA 


SR 




11449 




5 


X 1 












11449 




-2372 




23520 




DSA 


BLANK 




11454 




5 


X 1 



529 
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11454 




-9356 




23530 




B 


• ♦20 






11456 


49 


11476 


00000 


23540 




DORG 


•-3 






11464 








23550 


CD98 


TDM 


SS4 


tl 




11464 


15 


07479 


00001 


23560 


CD99 


TDM 


SS2 


,1 




11476 


15 


07477 


00001 


23570 




BO 


CD97 


,FFRSH 




11488 


43 


11520 


04765 


23580 




TF 


N40004 


• 10 




11500 


26 


03504 


03945 


23590 




B7 


CD96 






11512 


49 


11532 




23600 


CD97 


TF 


N40004 


• SWF 




11520 


26 


03504 


12862 


23610 


CD96 


BTM 


PUTX 


,•♦16 




11532 


17 


07032 


J1548 


23620 




DSA 


QPX 






11548 




5 


X 1 














11548 




-4193 




23630 




DSA 


N40004 






11553 




5 


X 1 














11553 




-3504 




23640 




DSA 


SR 






11558 




5 


X 1 














11558 




-2372 




23650 




BD 


• ♦20 


, FXORFL 




11560 


43 


11580 


04373 


23660 




B 


C014C 






11572 


49 


11632 


00000 


23670 




DORG 


•-3 






11580 








23680 




BNF 


C014C 


,FPSW 




11580 


44 


11632 


09659 


23690 




TDM 


SSI 


• 1 




11592 


15 


07476 


00001 


23700 




BTM 


PUTX 


• •♦16 




11604 


17 


07032 


J1620 


23710 




DSA 


CF 






11620 




5 


X 1 














11620 




-9343 




23720 




DSA 


SR 






11625 




5 


X 1 














11625 




-2372 




23730 




OSA 


BLANK 






11630 




5 


X 1 














11630 




-9356 




23740 


CD14C 


BTM 


RMNS 


• •♦16 




11632 


17 


05416 


J1646 


23750 




DSA 


I 






11648. 




5 


X 1 














11648 




-9547 




23760 




OSA 


SL 






11653 




5 


X 1 














11653 




-2399 




23770 




R 


C014A 






11654 


49 


11214 


00000 


23780 




DORG 


•-3 






11462 








23790 


•••••• 


OUTPUT 1 


DIMENSION VARIABLES 


IN 10 STATEMENTS 










23800 


CODARR 


TF 


N40004 


• I 




11662 


26 


03104 


09547 


23810 




AM 


N40004 


• I 


• 10 


11674 


11 


03504 


000- 1 


23820 




BTM 


GTNS 


• •♦16 




11684 


17 


05446 


J 1702 


23830 




DSA 


N40004 






11702 




5 


X 1 














11702 




-3504 




23840 




DSA 


LV 






11707 




5 


X 1 














1170? 




-9347 




23850 




CM 


LV 


• 168 


• 8 


11708 


14 


09547 


0-148 


23860 




BL 


COONAT 






11720 


47 


12534 


01300 


23870 




AM 


I 


• 1 


• 10 


11732 


11 


09947 


000-1 
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2 mo 




TOM 


101 tl til 


117** 


15 


09327 


OOOOJ 


2 mo 




CM 


tV tl*8 tt 


11756 


t* 


09567 


0-1*8 


2 It 00 




BE 


CDSSAB 


It TAB 


46 


10290 


01200 


23910 




87 


COOES S 


11780 


*9 


10266 




23920 


COUS 


tOM 


101 tO 


11788 


15 


09327 


00000 


23930 




80 


C095 *FFRSW 


11800 


*3 


11832 


0*765 


239*0 




TF 


N6000* «t0 


11812 


26 


0350* 


039*5 


23990 




87 


C09* 


11824 


*9 


116** 




239*0 


C095 


TF 


N*000* ,SHF 


11832 


26 


0350* 


12662 


239T0 


C09* 


BTM 


FUTX *•♦!* 


118** 


1? 


07032 


J 1660 


23980 




OSA 


BT 


11860 




5 


X I 










11860 




-9382 




23990 




DSA 


N40004 


11865 




5 


X 1 










11865 




-350* 




2*000 




OSA 


N I 3092 


11870 




5 


X I 










11870 




-9369 




2*010 




B 


COl*A 


11872 


49 


11214 


00000 


24020 




008 C 


•-3 


11680 








2*030 


CODEPA 


TFH 


PARCNT, 1,10 


11880 


16 


12017 


000-1 


2*0*0 


C014NA 


AM 


1,1* 10 


11892 


11 


09547 


000-1 


2*050 




BTM 


GTNS***16 


1190* 


17 


054*6 


J 1920 


2*060 




OSA 


ItSL 


11920 




5 


X 2 










11920 




-95*7 












11925 




-2399 




2*070 




CM 


SI , 10**8 


11926 


14 


02399 


0-10* 


2*080 




BNE 


•♦32 


11938 


47 


11970 


01200 


2*090 




SM 


PARCNT* 1* 10 


11950 


12 


12017 


000-1 


2*100 




R 


C014NA 


11962 


49 


11892 


00000 


2*1 10 




008 G 


•-3 


11970 








2*120 




CM 


SI* 12**8 


11970 


14 


02399 


0-12* 


2*130 




BNE 


• ♦36 


11962 


47 


12018 


01200 


241*0 




AM 


PARCNT* 1*10 


1199* 


1 1 


12017 


000- 1 


2*150 




B 


CD16NA 


12006 


49 


11892 


00000 


2*160 


PARCNT 


DS 


2»» 


12017 




2 




24170 




CM 


Si, 133,8 


12018 


14 


02399 


0-133 


24180 




BNE 


CD14NA 


12030 


47 


11892 


01200 


24190 




CM 


PARCNT, 1,10 


120*2 


14 


12017 


000-1 


24200 




BH 


CD14NA 


1205* 


46 


11892 


01100 


24210 




AM 


GLN0»1 * 10 


12066 


11 


09390 


000-1 


24220 




TF 


T2.GLN0 


12076 


26 


09596 


09390 


24230 




SM 


1*3*10 


12090 


12 


095*7 


000-3 


24240 




TDM 


101*1 


12102 


15 


09327 


00001 


24250 




B7 


CODE 12 


1211* 


49 


10170 




24260 


CD14E 


TOM 


101*0 


12122 


15 


09327 


00000 


24270 




AM 


1*2* 10 


1213* 


11 


095*7 


000-2 


24280 




BTM 


RMNS***16 


12146 


17 


05416 


J2162 


24290 




OSA 


I,SL 


12162 




5 


X 2 










12162 




-9547 












12167 




-2399 




24300 




BTM 


RMNS*«*16 


12168 


17 


05416 


J2184 


24310 




DSA 


ItSL 


1218* 




5 


X 2 
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1218* 




-9547 












12189 




-2399 




24320 


BTM 


RPNS***16 




12190 


t7 


05476 


J2206 


24330 


DSA 


I, DO A 




12206 




5 


X 2 










12206 




-9547 












12211 




-9515 




24340 


AM 


1*1*10 




12212 


11 


09547 


000-1 


24350 


BTM 


RMNS*«*16 




1222* 


17 


05416 


J2240 


24360 


DSA 


I.SL 




122*0 




5 


X 2 










122*0 




-9547 












122*5 




-2399 




24370 CD14NC 


BTM 


RMNS***16 




122*6 


17 


05416 


J2262 


24380 


DSA 


I,SL 




12262 




5 


X 2 










12262 




-9547 












12267 




-2399 




24390 


BTM 


GTNS*»*16 




12268 


17 


05446 


J2284 


24400 


OSA 


1,SL 




1228* 




5 


X 2 










1228* 




-9547 












12289 




-2399 




24410 


CM 


SL, 104,8 




12290 


I* 


02399 


0-104 


24420 


BNE 


COUNC 




12302 


*7 


122*6 


01200 


24*30 


TFM 


1.1*8 




1231* 


16 


095*7 


0-001 


24440 


B 


C01*A 




12326 


*9 


1121* 


00000 


24450 


OORG 


•-3 




1233* 








2**60 COOOA 


TDM 


101 


• 1 


1233* 


15 


09327 


00001 


2**70 


TF 


T2 


,GLNO 


123*6 


26 


09596 


09390 


2**80 


87 


C012B 




12356 


*9 


1031* 




2**90 CD14M 


SM 


GCNO 


• I .10 


12366 


12 


09390 


000-1 


24500 


TDM 


101 


• 0 


12378 


IS 


09327 


00000 


24510 


BTM 


RMNS 


• •♦1* 


12390 


17 


05*16 


J2*06 


2*520 


DSA 


I 




12*06 




5 


X 1 










12*06 




-95*7 




2*530 


DSA 






12*11 




5 


X 1 










12*11 




-2399 




2*5*0 


BTM 


RMNS 


• •♦16 


12*12 


17 


05416 


J2426 


2*550 


DSA 


I 




12428 




5 


X 1 










12*28 




-95*7 




2*560 


OSA 


SL 




12*33 




5 


X I 










12*33 




-2199 




2*570 


B 


CD1*A 




12636 


*9 


1121* 


00000 


2*960 


OORG 


•-3 




12**2 








2*590 C01*EN 


BO 


CD UNO 


•FFRSM 


12*62 


63 


12502 


0*7*5 


2*600 


TF 


N*000* 


• I 01 MO 


12416 


26 


0350* 


03990 


2*610 


BTM 


FUTX 


#t*l4 


12644 


17 


07032 


J2662 


2*620 


OSA 


BTM 




12*62 




5 


X I 



2*630 



DSA N40004 



-6980 r~ 
5 * I » 
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12487 




-5504 




24*40 




OSA 


IERO 


12492 




5 


X 1 










12492 




-9353 




24650 




8 


CLEAR 


12494 


49 


02*40 


00000 


24660 




00 AG 


•-3 


12502 








24670 


C014ND 


TF 


N40004 .OIOENO 


12S02 


2* 


05504 


128*7 


24610 




TDM 


FFRSW tO 


12514 


|9 


047*5 


ooooo 


24690 




87 


CD14EN*24 


1252* 


49 


124** 


24700 


•••••• 


OUTPUT COOING FOR COMPLETE MATRICES IN 10 STATEMENTS 










24710 


CODMAT 


BTM 


PUTX *•♦!* 


12554 


17 


07032 


J25S0 


24720 




OSA 


TFM 


12550 




5 


X 1 










12550 




-9339 




24730 




OSA 


PAR 


12555 




5 


X 1 










12555 




-3960 




24740 




OSA 


PI 


12560 




5 


x 1 










12560 




-9651 




24750 




80 


•♦20 .FXDftFl 


12562 


43 


12582 


04373 


24760 




8 


CM99 


1257* 


49 


12666 


OOOOO 


24770 




DORG 


•-3 


12582 








24780 




8NF 


CM98 tFPSW 


12582 


44 


12642 


09*59 


24710 




TOM 


SSI fl 


12594 


15 


07476 


00001 


2*800 




8 TM 


PUT* .ixii. 


12606 


17 


07032 


J2622 


24810 




OSA 


SF 


12622 




5 


X 1 










12622 




-9341 




24820 




OSA 


SR 


12627 




5 


X 1 










12627 




-2372 




24830 




DSA 


BLANK 


12632 




5 


X 1 










12632 




-9356 




24840 






• ♦20 


12634 


49 


12654 


UUUUU 


24850 




DORG 


•-3 


12642 








24860 


CM98 


bd* 


SS4 , 1 


12642 


15 


07479 


00001 


24870 






•♦<*» CUWSw 


12654 


43 


12678 


04151 


24880 


CM99 


TOM 


SS2 ( 1 








00001 


24890 




BO 


CM96 fFFRSW 


12678 


43 


12832 


04765 


24**00 




TF 


N40004 (MAT 


12690 


2* 


03504 


03965 


24910 




BTM 


PUTX ,»*U 


12702 


If 


07032 




24920 




DSA 


OPX 


12718 




5 


X 1 










12718 




-4193 




24930 




DSA 


N40004 


12723 




5 


X 1 










12723 




-3504 




24940 




DSA 


SR 


12728 




5 


X 1 










12728 




-2372 




24950 




80 


•♦20 .FXORFL 


12730 


43 


12750 


04373 


24960 




B 


CM97 


12742 


49 


12802 


OOOOO 


24970 




DORG 


•-3 


12750 








24980 




BNF 


CM97 ,FPSW 


12750 


44 


12802 


09659 



24990 




TDM 


SSI 


25000 




BTM 


PUTX 


25010 




DSA 


CF 


25020 




DSA 


SR 


25030 




OSA 


BLANK 


25040 


CM97 


BTM 


RMNS 


25050 




DSA 


I 


25060 




OSA 


St 


25070 




B 


C014A 


25080 




DORG 


•-3 


25090 


CM96 


TF 


N40004 


25100 




87 


CM99*36 


25110 


LVP 


OS 


5 


25120 


OPY 


OS 


2 


25130 


SMF 


DC 


5,-02288 






-228Q 


25140 


OIOENO 


OC 


5,-02298 






-2290 


25150 


OR AY 


DC 


5,-02293 






-229L 


25160 


FIND 


DC 


5,-02273 






-227L 


25170 


RECORO DC 


5,-02278 






-227Q 


25180 


FETCH 


OC 


5,-02283 






-228L 


25190 


•••••• 


CALL EXIT A 


25200 


COCALP 


BE 


coxir 


25210 


COL INK 


AM 


i 


25220 




BTM 


RMNS 


25230 




DSA 


I.SY 


25240 




TF 


NAME-8 


25250 




BTM 


RMNS 


25260 




OSA 


ItSY 


25270 




TF 


NANI-4 


25280 




CP 


NAME- 7 


25290 




BTM 


RMNS 
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• 1 

,•♦16 



»3 

,•♦1* 



#10 



OSA I,SV 



12762 


15 


07476 


00001 


12774 


17 


07032 


J 2 790 


12790 




5 


X I 


12790 




-9343 




12795 




5 


X 1 


12795 




-2372 




12800 




5 


X 1 


12800 




-9356 




12802 


17 


05416 


J2818 


12818 




5 


X 1 


12818 




-9547 




12823 




5 


X 1 


12823 




-2399 




12824 


49 


11214 


OOOOO 


12832 








12832 


26 


03504 


12872 


12844 


49 


12702 




12855 




5 




12857 




2 




12862 




5 




12867 




5 




12872 




5 




12877 




5 




12882 




5 




12887 




5 




12888 


4* 


154*2 


01200 


12900 


11 


09547 


000-5 


12912 


17 


0541* 


J2928 


12928 




5 


X 2 


12928 




-9547 




12953 




-2384 




12934 


2* 


13455 


02394 


1294* 


IT 


0541* 


J29*2 


129*2 




5 


X 2 


129*2 




-9547 




129*7 




-2584 




129*8 


2* 


13457 


02384 


12990 


31 


15454 


OOOOO 


12992 


17 


09*1* 


J 3 008 


13008 




5 


X 2 



13008 



534 
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PAGE TO 



2*110 


tp 


NAME 


• Sv 


211*0 


CF 


NAMf-1 




21110 COLGT 


OS 


»• 




21140 


TF 


COLCT 


t ADi 


21141 


TOM 


SS2 


tl 


21110 


AM 


COLGT 


,10 


211*0 


8TN 


PUTX 


• •♦1 


21170 


OSA 


TFN,N07445 


•COLGT 



29310 




If 


COLCT 


•ADCOM 


21311 




TOM 


SS2 


• 1 


21390 




AM 


COLGT 


.19 


21400 




BTM 


PUT* 


• •♦16 


21410 




OSA 


TFM,N00141 


•COLGT 


21420 




BTM 


PUTX 


• •♦16 


25430 




OSA 


B,M00716,N2TH0 


21440 




SM 


AOCOM 


• 4 


25450 




BT 


PUTX2 


,NM22 


25460 




BT 


PUTX17 


1 N147RM 


25470 




BT 


PUTX12 


• NAME 


25480 




AM 


AOCOH 


• I 








CLEAR 




25100 




05 


»• 




25510 


PUTX2 


TR 


TYPET 


•TYPEM2 


25520 




TFM 


PUT3 


•PUTX2-1 


25530 




TFM 


PUTX-1 


• •♦20 


25540 




B7 


PUTX8 




25550 




BB2 






25560 




OS 


5 




25570 


PUTX17 


TR 


TYPET 


, TYPECN 


25580 




TFM 


PUT3 


♦ PUTX17- 


25590 




B 


PUTX2+24 




25600 




OS 


7 




25610 


PUTX12 


TR 


TYPET 


, TYPE 12 


25620 




TFM 


PUT3 


• PUTX1*- 


25630 




87 


PUTX2*24 




25640 


TYPEM2 


OSC 


1,2 




25650 




2 

oc 


2,2 








-2 






25660 




DC 


2,5 








-5 






25670 




OC 


2,10 








JO 







• 10 



,10 



• 10 



• 10 



11011 




-2184 




11014 


24 


11441 


02184 


11024 


33 


13418 


www 


13017 




0 




110 It 


24 


11017 


04977 


11090 


19 


07477 


00001 


11042 


11 


13037 


OOONO 


11074 


17 


07032 


J 1090 


11090 




1 


x 3 


13090 




-9339 




11091 




J3427 




13100 




J3037 




13102 


24 


13037 


04977 


13114 


11 


07477 


0000 1 


13124 


11 


13037 


000J9 


11131 


17 


07032 


J3114 


13114 




1 


X 3 


13114 




-9339 




13119 




J 34 32 




11144 




J 30 37 




13144 


tl 7 


07032 


J3182 


13182 




5 


X 3 


13182 




-6982 




13187 




J 3437 




13192 




J 1442 




13194 


12 


04977 


000-4 


13204 


27 


13246 


13444 


13218 


27 


13318 


1 3449 


13230 
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15230 




9 


X 3 














15230 




-9339 
















15233 




-3940 
















19240 




-7017 




29970 




BTM 


APNS 


,•♦16 




15242 


17 


09476 


J5258 


29980 




DSA 


I »FAC 






1525B 




9 


X 2 
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152SB 




-9547 
















15263 




-9931 




29990 




BTN 


GNRP 


• •♦ 12 




15264 


17 


09940 


J5276 


10000 




87 


CDABXT 




15276 


49 


15398 




30010 


CDA6P 


BTN 


RPNS 


• 16 




15284 


17 


05476 


J5300 


30020 




OS A 


1 1 FAC 






15100 




5 


X 2 














15300 




-9547 
















15505 




-9531 




30030 




TOM 


PSM 


» * 


ill 


15506 


is 


09326 


OOOOJ 


30040 




TO 


PLAGSM 


t RXFLAG 




15518 


25 


04795 


04735 


30041 




6NF 


C0A8XT 


» FPSW 




15350 


44 


15596 


09659 


30042 




80 


• ♦20 


f CALL SW 




15342 


43 


19362 


09332 


30043 




87 


CDA6XT 






15354 


49 


15398 




30044 




BTM 


GNRP 


t •♦12 




15362 


17 


09940 


J5374 


300 4 5 




SM 


GBASE 


t i 


in 
• *w 


15374 


12 


09637 


000- 1 






SP 


GBASE 


• 


• 6 


15586 


32 


0963P 


00000 


300 SO 


C0A6XT 


TOM 


SKIPSW 


» o 




15396 


15 


09661 


00000 






87 


EXIT 






15410 


49 


02948 




30070 


GTFIN 


TO 


GBASE 


f RXFLAG 


» o 


15418 


23 


096 3 P 


04735 


30080 




AM 


GBASE 


• * 


, 10 


15430 


1 1 


09637 


000-3 


30090 




TOM 


GBASE 


f 1 


,6 


15442 


19 


096 3 P 


00001 


30100 




SM 


GBASE 


1 4 


i 10 


15454 


12 


09637 


000-4 


301 10 




jf 


GBASE 


f TCOM 


#6 


15466 


26 


096 3P 


06969 


30120 




87 


GTJW 






15476 


49 


06538 




30130 




DORG 


16002 






16002 








30140 


XUUX 


34 


RL KAA. 701 






16002 


34 


09256 


00701 


301 50 




38 


8LK6A.702 






16014 


38 


09256 


00702 


30160 




TRA 








16026 


36 


00000 


00500 














16038 


49 


00000 


00000 


30170 




TCO 


XUUX 






16002 








301 80 




DORG 


14100 






14100 








30190 




TERTIARY LINKAGE BLOCK 7 












30200 




DC 


2,7 






14101 




2 




30210 


_ 

YUouDS 


-7 
TFM 


F MONO 5 


♦ BLK5 




14102 


16 


02359 


-9224 


30220 




BTM 


FMON 


, SUBCDS 




141 14 


17 


02324 


J4102 






TFM 


FMON+35 


,BLK6 




14126 


16 


02359 


—9246 






BTM 


FMON 


•SUBCA6 




14138 


17 


02324 


J4126 




YUBC 12 


TF 


N40004 


.1 




14150 


26 


03504 


09547 






B 


CD12P 






14 162 


49 


14198 


00000 


30270 


VUB12B 


TFM 


FM0N4-35 


t BLK8 




14174 


16 


02359 


-9296 


30280 




BTM 


FMON 


, SUB 128 




14186 


17 


02324 


J4174 


30290 




OUTPUT INITIALIZING INSTRUCTION FOR 00 CODING AND PLACE 










30300 




INOICIES ON 


DO LIST 












30310 


C012P 


AM 


N40004 


tl 


,10 


14198 


11 


03504 


000-1 


30320 




BO 


C012C 


1 101 




14210 


43 


14244 


09327 


30330 




BTM 


GTNS 


,•♦16 






17 






30340 




DSA 


N40004 






14238 




5 


X 1 














14238 




-3504 




30350 




DSA 


T2 






14243 




5 


X 1 














14243 




-9596 




30360 


C012C 


AM 


DOREF 


.21 


• 10 


14244 


u 


03750 


000K1 
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30370 




C 


DOREF 


, GBASE 




14256 


24 


03750 


09637 


30380 




BNH 


C012E 






14268 


47 


14364 


01100 


30390 




RCTY 








14280 


34 


00000 


00102 


30400 




WNTY 


SCNT-3 






14292 


38 


09670 


00100 


30410 




WATY 


DFLMS 






14304 


39 


14337 


00100 


30420 




BV 


•♦12 






14316 


46 


14328 


01400 


30430 




B7 


MONCAL 






14328 


49 


00796 




30440 


DFLMS 


DAC 


14,00 TABLE 


FULL • 




14337 




14 


X 2 






00 TABLE FULL* 














30450 


C012E 


TF 


DOMAX 


, DOREF 




14364 


26 


09587 


03750 


30460 




AM 


DOMAX 


• 21 


• 10 


14376 


U 


09587 


000K1 


30470 




TF 


OOREF 


• T2 


• 6 


14388 


26 


0375* 


09596 


30460 




AM 


N40004 


• 1 


• 10 


14400 


11 


03504 


000-1 


30490 




BTM 


GTNS 


• •♦16 




14412 


17 


05446 


J4428 


30500 




OSA 


N40004 






14428 




5 


X 1 














14426 




-3504 




30510 




OSA 


SL 






14433 




5 


X 1 














14433 




-2399 




30520 




TF 


J 40004 


•OOREF 




14434 


26 


09592 


03750 


30530 




AM 


J 40004 


• 9 


• 10 


14446 


11 


09592 


000-9 


30540 




TF 


J 40004 


• SL 


• 6 


14456 


26 


0959K 


02399 


30550 




AN 


N40004 


• 2 


• 10 


14470 


11 


03504 


000-2 


30560 




8TM 


GTNS 


• •♦16 




144B2 


17 


05446 


J 4496 


30570 




DSA 


N40004 






14498 




5 


X 1 














14496 




-3504 




30580 




OSA 


SR 






14501 




5 


X 1 














14501 




-2372 




30590 




TOM 


SSI 


• I 




14504 


19 


07476 


00001 


30600 




TOM 


SS2 


fl 




14616 


15 


07477 


00001 


30610 




TOM 


SKIPSW 


fl 




14526 


19 


09661 


00001 


30620 




BTN 


SRFCT 


• •♦16 




14960 


17 


01976 


J4556 


30630 




OSA 


SL 






14556 




5 


X I 














145S6 




-2199 




30640 




OSA 


N40001 






14961 




5 


X 1 














14961 




-1469 




30650 




BTM 


SRFCT 


• •♦16 




14562 


17 


01976 


J4576 


30660 




OSA 


SR 






14576 




5 


X 1 














16576 




-2172 




30670 




OSA 


N40003 






16981 




5 


X 1 














14581 




-1499 




30660 




BTM 


PUTX 


• •♦16 




14964 


IT 


07012 


J4400 


30690 




OSA 


TP 






14600 




9 


X 1 














14600 




-9145 




30700 




OSA 


N40001 






14609 




9 


X 1 














14609 




-1489 




30710 




OSA 


N40003 






14610 




5 


X 1 
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PACE 14 













14610 




-3499 




10720 




TOM 


SKIPS* 


• 0 


14612 


15 


09661 


00000 


10730 




SM 


J40004 


• 4 ,10 


14624 


12 


09992 


000-4 


107*0 




TP 


J 40004 


•ADCOM ,6 


14616 


26 


0959K 


06977 


10750 




AM 


J 40004 


#• #10 


14648 


11 


09592 


000-6 


10760 




AM 


N40004 


• 2 ilO 


14660 


1 1 


01504 


000—2 


10770 




BTM 


GTNS 


• •♦16 


14672 


17 


05446 


J4468 


10780 




OSA 


M40004 




14688 




5 


X I 












14688 




-3504 




10790 




OSA 


N40001 




14691 




3 


X 1 












14691 




-3489 




10800 




TP 


J40004 


•N40001 ,6 


14694 


26 


095 9K 


01489 


10810 




AM 


N40004 


,1 ,10 


14706 


1 1 


03504 


000-1 


10820 




BTM 


GTNS 


• •♦16 


14718 


IT 


05446 


J4714 


10810 




OSA 


N40004 




14714 




5 


X 1 












14714 




-3304 




10840 




OSA 


SL 




14719 




5 


X 1 












14719 




-2399 




10850 




CM 


SL. 112 


,8, SEMI COLON 


14740 


14 


02399 


0-112 


10860 




BE 


N60084 




14752 


46 


14788 


01200 


10870 




CM 


SL* 104 


,8, RIGHT PAREN 


14764 


14 


02399 


0-104 


10880 




6ME 


N60085 




14776 


47 


14832 


01200 


10890 


N60084 


AM 


J 40004 


,4 ,10 


14788 


11 


09592 


000-4 


10900 




TP 


J 40004 


, ZER04 ,6 


14800 


26 


0959K 


09355 


10910 




BO 


C014E 


• 101 


14812 


41 


12122 


09327 


10920 


C012A 


6 


CLEAR 




14824 


49 


02640 


00000 


30930 




OORG 






14812 








30940 


N60085 


AM 


J40004 


,4 ,10 


14832 


11 


09592 


000-4 


10950 




AM 


N40004 


,1 ,10 


14844 


1 1 


03504 


000-1 


10960 




BTM 


GTNS 


,•♦16 


14856 


17 


05446 


J4672 


10970 




OSA 


N40004 




14872 




5 


X 1 












14872 




-3504 




10980 




OSA 


N40001 




14877 




5 


X 1 












14877 




-3499 




10990 




jf 


J40004 


,N40003 ,6 


14878 


26 


0959K 


01499 


11000 




B 


CD12A-12 




14890 


49 


14812 


00000 


31010 




DORG 


• -3 




14898 








31020 




DORG 


16002 




16002 








31030 


XTTX 


34 


BLK7A»701 




16002 


14 


09280 


00701 


31040 




38 


BLK7A.702 




16014 


18 


09280 


00702 


31050 




TAA 






16026 


36 


00000 


00500 












16038 


49 


00000 


00000 


31060 




TCO 


XTTX 




16002 








31070 




DORG 


14100 




14100 








31080 




TERTIARY LINKAGE BLOCK 8 










31090 




DC 


2,8 




14101 




2 




31100 


ZUBCDS 


-8 
TFM 


F MONO 5 


,8LK5 


14102 


16 


02359 


-9224 


31110 




BTM 


PMON 


,SUBCOS 


14114 


17 


02124 


J4102 



5 49 
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31120 


ZUBCAB 


TFM 


FH0NO5 


,BLK6 




14126 


16 


02359 


-9248 


31130 




BTM 


FMON 


rSUBCAB 




14118 


17 


02324 


J4126 


31140 


ZUBC12 


tPm 


FM0N*15 


,BLK7 




14150 


16 


02359 


-9272 


31150 




BTM 


FMON 


•SUBC12 




14162 


17 


02324 


J4150 


31160 


ZUB12B 


BO 


C0128P+24 


• 101 




14174 


43 


14222 


09327 


31170 




B 


CD12BP 






14186 


49 


14198 


00000 


31180 


•••••• 


THE FOLLOWING 


OUTPUTS THE 


TEST AT THE ENO OP A 00 LOOP 










31190 


C012BP 


TF 


T2 


,T3 




14198 


26 


09396 


09656 


31200 




TDM 


DOSW 


.0 




14210 


15 


09333 


00000 


31210 




TF 


GBASE 


, OOREP 




14222 


26 


09637 


03730 


31220 




TOM 


CKSW 


,1 




14234 


15 


04805 


00001 


31230 




TOM 


SKIPS* 


• 1 




14246 


15 


09661 


00001 


31240 


C012V 


C 


T2 


•OOREF 


.11 


14258 


24 


09596 


0375- 


31250 




BNE 


C012X 






14270 


47 


14408 


01200 


31260 


C0120 


TF 


M40003 


•OOREF 




14282 


26 


03499 


03750 


31270 




AN 


N40003 


.17 


.10 


14294 


11 


03499 


000J7 


11280 




TF 


SL 


•N40001 


.11 


14306 


26 


02399 


0349R 


31290 




CM 


SL 


' » ■ 


.8 


14318 


14 


02399 


0-000 


31100 




TOM 


SKIPSW 


• 1 




14330 


15 


09661 


00001 


11310 




BE 


N60092 






14342 


46 


14476 


01200 


31320 




TFM 


OPZ 


• 21 


.10 


14354 


16 


09658 


0O0K1 


31330 




BTM 


SRFCT 


• •♦16 




14366 


17 


03976 


J4382 


31340 




OSA 


SL 






14382 




5 


X I 














14382 




-2399 




31150 




OSA 


N40001 






14387 




5 


X 1 














14367 




-3489 




11160 




TON 


SS2 


• 1 




14368 


15 


07477 


00001 


11370 




B 


N60093 






14400 


49 


14500 


00000 


11180 




OORG 


•-3 






14406 








11390 


C012X 


TON 


CKSW 


• 0 




14408 


19 


04805 


00000 


11400 




BT 


DOER 


•OOER-l 




14420 


27 


14876 


14675 


11410 




SM 


OOREP 


• 21 


• 10 


14432 


12 


03750 


OOOKl 


11420 




CM 


OOREF 


•OOBASE 




14444 


14 


03750 


-3810 


11430 




BL 


EXITA 






14456 


47 


14644 


01300 


11440 




8 


C012V 






14466 


49 


14258 


00000 


11450 




00R6 


•-3 






14476 








11460 


N60092 


TPN 


OPZ 


• 11 


• 10 


14476 


16 


09656 


000 J 1 


11470 




TPN 


N40001 


• 1 


• 10 


14488 


16 


03489 


000-1 


11480 


N60095 


SM 


N40003 


• 8 


• 10 


14500 


12 


03499 


000-8 


11490 




TF 


N60099 


•N40001 




14512 


26 


14940 


03499 


11500 




BTM 


SRFCT 


• •♦16 




14524 


IT 


03976 


J4540 


11510 




OSA 


N60099 






14540 




9 


X 1 














14540 




J4940 




11520 


N60099 


OS 




• • 




14540 




0 




11530 




OSA 


N40004 






14545 




9 


X 1 














14545 




-3304 




11540 




TON 


SSI 


tt 




14546 


19 


07476 


00001 


11550 




BTN 


PUTX 


• •♦16 




14558 


17 


07032 


J4974 


11560 




OSA 


OPZ «N4 0004 ,M4 0001 




14574 




5 


X 3 














14574 




-9658 
















14579 




-3904 
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RACE 66 















16384 




-3489 




31570 




AN 


N60003 


,4 


• 10 


1458* 


11 


03499 


000-4 


31560 




TF 


N60101 


•N40003 




14591 


26 


14626 


03499 


31590 




6TN 


SRFCT 


,•♦14 




14610 


17 


03976 


J4626 


SI 400 




OSA 


N60101 






16626 




3 


X 1 














14626 




J6626 




31610 


N60101 


OS 




• * 




14626 




0 




31620 




OSA 


N60001 






14631 




5 


X I 














14631 




-3689 




31630 




TFN 


SS2 


• U 


• 10 


14632 


16 


07477 


000J1 


316*0 




BTN 


PUTX 


,•♦16 




14644 


I j 


07032 


J4660 


31650 




DSA 


CN40004.N40001 




14660 




5 


X 3 














14660 




-9605 
















14665 




-3504 
















14670 




-3489 




31660 




SM 


N40003 


• 8 


1 A 




12 




000—8 


31670 




jft 


N40004 


,N60003 


• 11 


14684 


26 


03504 


0349R 


31680 




TON 


SSI 






14696 


15 


07476 


00001 


31690 




BTN 


PUTX 


• •♦ 16 




14708 


1 7 


07032 


J4724 


31700 




OSA 


BNHtN40006 


»N01 100 




14724 




5 


X 3 














14724 




-9603 




































14734 




~960l 




31710 




SM 


OOREF 


• 21 


-in 


14736 


12 


03750 


OOOK 1 


31720 






OOREF 


•DOBASE 








03750 


0381 0 


31730 




BE 


N60107 






14760 


46 




01200 


31760 




TP 


N40003 


t OOREF 




14772 


it 


OIAQQ 


03750 


31750 




r* 


N40003 


• 21 


• 10 


i 470! 


* * 




OOOK I 


31760 






OOREF 


•N60003 


• 611 






n ,,c_ 




3 1 770 




BE 


CD12D 






1 a. an a 


A A 


1 A7fl7 


nlans 


31780 


N60 107 


BO 


•♦26 


• CKSW 








1 AAAA 










OOREF 


tGBASE 










09637 






TOM 


SKIPSM 


• 0 






15 




nnnnn 






an 


CD14M 


• 101 




1 a a la 














CLEAR 


• 


» 5 




AQ 




nnnnn 
uuuuu 






nnar 


•-3 














\ i r *n 


_ 


or tv 








14876 




oooou 




31850 




WNTY 


SCNT-3 








38 




00100 


31860 




WATY 


DOMES 






14900 


39 


09429 


00100 








ERSUT 


• 1 




14912 


1 5 






31880 




BB 








14924 


42 


00000 


00000 


3 1 890 




OORG 


♦-9 






14926 








31900 




OORG 


16002 






16002 








31910 


xssx 


34 


BLK8A, 701 






16002 


34 


09304 


00701 


31920 




38 


BLK8A.702 






16014 


38 


09304 


00702 


31930 




TRA 








16026 


36 


00000 


00500 














16038 


49 


00000 


00000 


31940 




TCO 


XSSX 






16002 








31950 




DEND 


PASSU 






02400 









55 1 
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ACCEPT 


03785 


COOEIG 


11562 


INDREC 


12183 


N60041 


10652 


BLANK 


09356 


ACCTAP 


03795 


C0DE1H 


10716 


INSETA 


11193 


N60043 


10720 


BLK1A 


09136 


ADJUST 


03550 


C0DE1P 


10434 


INSETB 


11217 


N60044 


10850 


BLK1 


09128 


ADTEMP 


02394 


CODEIX 


11216 


J40004 


09592 


N60045 


10910 


BLK2A 


09160 


CALBLK 


13239 


CO0E3A 


12512 


LCOMAO 


13017 


N60046 


11066 


BLK2 


09152 


CALLBK 


13247 


C0DE3B 


12642 


LENGTH 


02248 


N60048 


11430 


BLK3A 


09184 


CALLSW 


09332 


C0DE3C 


12790 


LSTVPE 


08444 


N60049 


11812 


BLK3 


09176 


CANDRT 


09044 


C0DE3D 


13038 


NNCLOV 


06434 


N60072 


12844 


BLK4A 


09208 


CANDSA 


08980 


C0DE3E 


13158 


MODMES 


09403 


N60084 


14788 


BLK4 


09200 


CD12BP 


14198 


CO0E3P 


12218 


MONCAL 


00796 


N60085 


14832 


BLK5A 


09232 


CD14EN 


12442 


CO0E3X 


13224 


N00565 


13432 


N60092 


14476 


BLK5 


09224 


C014FL 


10784 


C0DE3Y 


12802 


N00716 


13437 


N60095 


14500 


BLK6A 


09256 


C014FV 


10690 


CO0E3Z 


13278 


NOO 796 


09668 


N60099 


14540 


BLK6 


09248 


CD14JG 


10980 


C0DE4A 


13456 


NO 1100 


09601 


N60101 


14626 


BLK7A 


09280 


CD14JM 


11002 


C00E4P 


13360 


NO 1200 


09621 


N60107 


14820 


BLK7 


09272 


C014NA 


11892 


C00E6A 


10644 


NO 1300 


09614 


N60182 


14506 


BLK8A 


09304 


C014NC 


12246 


C0DE68 


10592 


NO 7495 


13427 


NINERM 


13049 


BLK8 


09296 


C014ND 


12502 


C00E6P 


10438 


N13062 


09527 


OUTSEO 


07744 


BL 


09609 


C014NR 


11174 


C00E7B 


12048 


N13063 


09522 


PARCNT 


12017 


BNF 


09625 


C014RL 


10920 


C00E7C 


11622 


N13089 


09364 


PASS 1 1 


02400 


BNH 


09603 


C014RN 


11126 


C0DE7P 


11274 


N13092 


09369 


PREBUF 


06765 


BNR 


13274 


C014RV 


10900 


C00E8P 


13666 


N13133 


09376 


PUNTAP 


03813 


B 


06982 


CD14SL 


10960 


C0DE9A 


12656 


N147RN 


13449 


PUSTSN 


02294 


BTM 


06980 


C014SV 


10940 


C00E9B 


12558 


N20000 


03480 


PUT17B 


14370 


BT 


09382 


CD17SC 


14014 


C0DE9C 


12806 


N20001 


03545 


PUT17C 


14322 


BUF1 


08460 


CD17XX 


14036 


C0DE9P 


12190 


N40000 


03484 


PUT171 


14234 


BUF2 


08535 


COABXT 


15398 


CODEPA 


U880 


N40001 


03489 


PUTCAD 


07528 


BUF3 


08610 


COCALL 


10410 


COOESS 


10266 


N40002 


03494 


PUTOIF 


07604 


BUF4 


08685 


COCALP 


12888 


COONAT 


12534 


N40003 


03499 


PUTEST 


07188 


CALLX 


04755 


COL INK 


12900 


CONXSW 


09662 


N40004 


03504 


PUTINS 


07208 


CANOS 


08846 


CDS1FP 


15430 


OIOEND 


12867 


N40005 


03509 


PUTNXT 


07904 


CD117 


13732 


CDSAB1 


14494 


DOBASE 


03810 


N40006 


03514 


PUTPCH 


08008 


C012A 


14824 


C0SAB2 


14622 


ENONES 


13281 


N40007 


03519 


PUTX12 


13362 


CD12B 


10314 


C0SAB3 


14750 


EOJEND 


12416 


N40008 


03524 


PUTX17 


13318 


C012C 


14244 


C0SAB4 


14738 


EOJRIT 


12872 


N40009 


03529 


RECORD 


12882 


CD12D 


14282 


C0SAB5 


14694 


EOJSTN 


12672 


N40010 


03534 


REMGET 


05778 


C012E 


14364 


C0SAB7 


14542 


EOPETE 


12752 


N400U 


03539 


RFLSUB 


03860 


C012P 


14198 


C0SAB8 


14902 


EOTONY 


12728 


N40012 


03544 


RFXSUB 


03865 


C012X 


14408 


CDSABX 


15010 


ERNOOE 


12014 


N60007 


10794 


RGRNUL 


05894 


C012Y 


14258 


COSABZ 


15066 


FCT1G1 


10778 


N60009 


10638 


RTNANE 


09538 


C014A 


11214 


COSSAB 


10290 


FCTEND 


02318 


N60010 


10862 


RXFLAG 


04735 


CD14B 


11788 


C0SSS1 


14976 


FCTRTP 


14444 


N60013 


11444 


ADCOM 


06977 


CD14C 


11632 


C0SSS2 


14956 


FLAGSW 


04795 


N60014 


11346 


ADD 


09392 


CD14E 


12122 


CDSSS3 


14820 


FLTOFX 


03855 


N60015 


11886 


ADSL 


05312 


C014N 


12366 


CLLBLK 


13252 


FULLCK 


06374 


N60016 


11734 


AN 


09347 


CD14P 


10434 


COOARR 


11662 


FULNES 


09473 


N6001? 


11664 


ANS 


02389 


C015P 


13720 


C00E12 


10170 


FXORFL 


04373 


N60018 


11932 


ASTOP 


03925 


C017A 


12920 


CODE 14 


10194 


FXTOFL 


03850 


N60020 


12308 


ATYPE 


03880 


C017B 


13362 


CODE 15 


10218 


GCLEAR 


06790 


N60021 


12488 


BAL 


08446 


C017C 


13120 


CO0E17 


10242 


GETBLK 


05284 


N60022 


12434 


BCOM 


13272 


C0170 


13160 


C00E1A 


10564 


GRBAGE 


13190 


N60023 


12690 


•0 


09623 


C017E 


13310 


CODE IB 


10944 


GTBLKA 


05292 


N60026 


12692 


BEGAD 


02237 


CD17F 


13226 


C00E1C 


11036 


GTBLKB 


05297 


N60027 


12928 


BE 


09616 


C017G 


13930 


CODE ID 


11538 


GTFLCL 


06816 


N60032 


13212 


BGNST 


16999 


CD17H 


13910 


CODE IE 


11116 


GTSISM 


07026 


N60034 


13514 


6GNSV 


16999 


C017I 


13606 


C00E1F 


11692 


HEADER 


02218 


N60035 


13936 


BI 


09632 


C017J 


13626 
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PHASE 2 



PAGE 



88 



com 


13776 


OK 


07012 


FLG3 


07688 


M 


09351 


P2PTR 


02313 


CO 1 71 


13796 


DMSW 


04150 


FLG6 


07508 


HTVPE 


01915 


PAR 


01960 


CD17N 


13576 


DOA 


09515 


FLGRM 


08626 


INPUT 


09678 


PRINT 


01735 


C O 1 7N 


13696 


DOER 


16876 


FLMUL 


03760 


INSET 


11116 


P 


09557 


CO I TP 


12868 


DOMAX 


09567 


FLROV 


03860 


101 


09327 


PUNCH 


01605 


CD94 


11866 


DOMES 


09629 


FLSUB 


03820 


102 


09326 


PUT 1 7 


14286 


C095 


11832 


DOREF 


03750 


FLV 


06658 


103 


09329 


PUTl 


08770 


C096 


11532 


DOSH 


09333 


FMON 


02326 


IOCAL 


00716 


PUT2 


08775 


C097 


11520 


DRAY 


12872 


F0RC8 


06632 


IOENO 


03950 


PUT 3 


06760 


C098 


11666 


OX 


09121 


FORCC 


06692 


I OCT 


00566 


PUT A 


08272 


C099 


11676 


OY 


09125 


FORCE 


06380 


I OP T 


00512 


PUTCA 


06246 


C0A8P 


15286 


SNOST 


03970 


FOUR 


13278 


IORT 


00569 


PUTCB 


06212 


CDABU 


15190 


EOJG 


12106 


FP2 


02298 


10 


03965 


PUTC 


06152 


C0A6W 


16436 


EOJJ 


12000 


FPCL 


15196 


I 


09167 


PUTD 


08216 


COABZ 


14368 


EOJP 


11966 


FPSW 


09659 


I TYPE 


01899 


PUTGT 


07127 


CDLGT 


13037 


EOJ 


10386 


FPSMX 


09660 


IXI 


01995 


PUTRM 


06196 


COPCH 


12960 


EOJWG 


12268 


FREQ1 


13215 


JAY 


02167 


PUTTA 


07686 


CDS1S 


15694 


EOJW 


12332 


FREQ2 


13381 


J 


09552 


PUTX2 


11266 


COSIT 


15224 


EOROO 


12960 


FRF AC 


03930 


JWG 


02660 


PUTXA 


07092 


COS IV 


14988 


ERSWT 


09663 


FRV 


06562 


K 


02252 


PUTXB 


07116 


C0S1Z 


15450 


ETVPE 


03905 


F 


02250 


LI 


02T00 


PUTXC 


07268 


COSSP 


14202 


EXINO 


09334 


FSU 


09326 


L2 


02784 


PUTXD 


07166 


COX IT 


13462 


EXIT* 


14844 


FT1 


06691 


L3 


02928 


PUTXE 


07400 


CET 


13298 


EXIT 


02948 


FTSW 


06765 


LNGAD 


08651 


PUTXF 


07424 


CF 


09343 


FACAO 


03940 


FTYPE 


03900 


LNG 


09640 


PUTXG 


07666 


CGCOW 


12188 


FACM2 


09630 


FXAO 


03725 


LOCOM 


02262 


PUTXH 


07828 


CKCOW 


09 323 


FAC 


09531 


FXOVO 


03835 


L 


07025 


PUT XI 


07988 


CKFMT 


03138 


FANS 


04676 


FXEXP 


03775 


LSTAD 


02106 


PUTXJ 


07864 


CKSW 


04805 


F8ASE 


03677 


FXMUL 


03765 


LVAL 


06711 


PUTX 


07012 


CLEAR 


02640 


FCOOE 


06679 


FXROV 


03845 


LVP 


12855 


PUTXX 


08402 


CM 96 


12832 


FCTU 


10602 


FX 


03715 


LV 


09567 


PUTXY 


08410 


CM97 


12802 


FCT12 


1 1492 


FXSUB 


03825 


MAT 


03965 


PUTXZ 


08415 


CM98 


12642 


FCT13 


11262 


GADD1 


06568 


MM 


09369 


0 


09562 


CM99 


12666 


FCTU 


10850 


GA 


06591 


MNS5 


09517 


QZP 


15072 


CM 


09607 


FCTIB 


11388 


GBASE 


09637 


MOD 


09378 


RCTY 


09384 


COOEO 


03472 


FCTIC 


11620 


GCNT 


06117 


MPY 


09380 


READ 


03745 


CODE I 


10002 


FCTID 


11432 


GCOW 


06839 


Nl 


02233 


RECLG 


02243 


C0DE3 


10026 


FCTIE 


12066 


GETSY 


05258 


N2 


02236 


REDO 


03910 


CODE* 


10050 


FCT1F 


11344 


GETX 


05210 


N2TH0 


13642 


REGSW 


09336 


C0DE5 


02968 


FCTIG 


10756 


GFLAG 


06466 


NAME 


13461 


REP1 


13179 


C0DE6 


10074 


FCTIH 


10930 


GFREE 


06592 


NEXT 


08656 


REP2 


13309 


C0DE7 


10098 


FCTU 


11696 


GI 


06735 


NGFRE 


06660 


REP3 


14013 


COOES 


10122 


FCTIK 


11600 


GLNO 


09390 


NLNG 


08431 


REP4 


03730 


C0DE9 


10146 


FCT1L 


11886 


GNONE 


06150 


NM22 


13444 


REP 


03690 


CODET 


08438 


FCT1P 


10438 


GNRP 


05960 


NOTYP 


03346 


RFLAG 


04725 


COOOA 


12334 


FCT1 


10338 


GPUTA 


06454 


OBASE 


02625 


RGRA 


05685 


COMSW 


04151 


FCTRT 


10362 


GPUT 


06298 


ONE 2 


13276 


RGRF 


05722 


C 


09605 


FCTSW 


02293 


GS8I 


11698 


OPGT 


03698 


RGRI 


05584 


CSw 


13042 


FETCH 


12887 


GTCL 


06760 


OP 


02379 


RGR 


05506 


Pi 


06987 


FFRSW 


04765 


GTFIN 


15618 


OPSR 


03596 


RGRS 


05757 


02 


06997 


FIND 


12877 


GTJM 


06538 


OPSX 


03667 


RMNS 


05416 


03 


07007 


FIVE 


09533 


GTNS 


05666 


OPT I 


03703 


RMOO 


09400 


04 


07017 


FLAO 


03720 


GTPT 


06096 


OPX 


04193 


RMSU 


04785 


DFLMS 


14337 


FLDVO 


03830 


GTSCL 


06848 


OPY 


12857 


RPNS 


05476 


01 


06992 


FLEXP 


03770 


GTST 


06628 


OPZ 


09658 


RSNFL 


03870 


DJ 


07002 


FLG2 


07468 


GYES 


06046 


PI 


09651 


RSNFX 


03875 
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RSH 


09337 


SUBSW 


09335 


X0DE9 


10146 


Z00E6 


10076 


XOCALL 


10410 


RTAO 


09572 


SWF 


12862 


XOJ 


10386 


Z0DE7 


10098 


XDSSAB 


10290 


RVAL 


04715 


SX17 


13119 


XSSX 


16002 


Z00E8 


10122 


X00E12 


10170 


RV 


09577 


SXF 


09582 


XTTX 


16002 


Z0DE9 


10146 


X00E14 


10194 


RVSN 


09397 


SX 


02377 


XTVPE 


03920 


ZOJ 


10386 


X0DE15 


10218 


SBASE 


04371 


SY17 


13909 


XUUX 


16002 


ZRM 


15727 


X00E17 


10242 


SCABP 


14202 


SY 


02384 


XVVX 


16002 


SAOCOW 


11253 


XODESS 


10266 


SCNT 


09673 


Tl 


07022 


XWWX 


16002 


SARGSW 


13262 


XUB12B 


16174 


SECTO 


13216 


T2 


09596 


XXI 


14602 


SAVCOW 


07699 


XUBC12 


14150 


SEC TY 


13224 


T3 


09656 


XX2 


14536 


SETFCT 


03226 


XUBCAB 


14126 


SETAO 


03471 


TBASE 


02303 


XX3 


14470 


SETNMT 


03402 


XUBCDS 


14102 


SF 


09341 


TCOW 


06969 


XX4 


14660 


SKIPSW 


09661 


YDCALL 


10410 


SIX9Z 


13118 


TFM 


09339 


XX5 


14890 


SRCFPL 


06136 


YDSSAB 


10290 


SK 


10849 


TF 


09345 


XYYX 


16016 


STEMPl 


09330 


YOOEl 2 


10170 


SLASH 


03885 


TMAX 


06972 


XZZX 


16002 


STEMP2 


09331 


Y00E14 


10194 


SLC 


11072 


TOFAC 


03935 


YCT1 


10338 


SUB12B 


14176 


Y0DE15 


10218 


SLNG 


0842 7 


TRACE 


03740 


YCTRT 


10362 


SUBC12 


14150 


YOOEl 7 


10242 


SL 


02 399 


TSW 


13043 


Y012B 


10316 


SUBCAB 


14126 


YOOESS 


10266 


SM 


09394 


TVPEA 


08826 


YOOEl 


10002 


SUBCDS 


16102 


VUB12B 


16174 


SOLNG 


08433 


TYPE 


03755 


Y00E3 


10026 


SUBCOW 


13267 


YUBC12 


14150 


SRFCT 


03976 


TYPET 


08425 


YO0E4 


10050 


SUBPSW 


06775 


YUBCAB 


14126 


SRGT 


04098 


TYPEX 


08781 


Y0DE6 


10074 


SVTYNB 


13119 


YUBCDS 


16102 


SRNX 


04092 


UFSTR 


02263 


Y00E7 


10098 


SWAREA 


09137 


Z DC ALL 


10410 


SR 


02372 


HATV 


09386 


Y00E8 


10122 


SVSCAL 


00675 


ZDSSAB 


10290 


SRSY 


04047 


W 


02240 


Y00E9 


10146 


TYPE 12 


13606 


Z00E12 


10170 


SSI 


07476 


WW 


02296 


YOJ 


10386 


TVPECN 


08811 


Z0DE14 


10194 


SS2 


07477 


XOOX 


16002 


ZCT1 


10336 


TVPECR 


06796 


Z0DE15 


10216 


SS3 


07478 


XCTl 


10338 


ICTRT 


101*» 


TYPEK2 


16611 


ZOOEI 7 


10242 


SS4 


07479 


XCTRT 


10362 


ZD12B 


10.314 


TYPEK1 


14421 


ZODESS 


10266 


SSLNG 


08429 


X012B 


10314 


ZER04 


09355 


TYPEN2 


13191 


ZUB12B 


16176 


SSSW 


09325 


X00E1 


10002 


ZEROS 


09356 


TYPERM 


08187 


ZUBC12 


14150 


ST 


09543 


X00E3 


10026 


ZER06 


09357 


USEOCR 


12991 


ZUBCAB 


14126 


SUB1 


03780 


X00E4 


10050 


ZERO 


09353 


WUB12B 


14176 


ZUBCDS 


16102 


SUB 2 


03790 


X00E6 


10074 


ZOOEi 


10002 


WU8C12 


16190 






SUB3 


03800 


X00E7 


10098 


Z0DE3 


10026 


WU8CA6 


16126 






SUB 


09371 


X00E8 


10122 


Z00E4 


10050 


WUBCDS 


16102 







END OF ONE ASSEMBLY. 
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1620 FORTRAN II-D SUBROUTINES SET I PAGE 1 



00010 




1620 


FORTRAN II-D 


SUBROUTINES 






00020 




IORT 


ENTRY POINTS AND CONSTANTS 






00030 


IORBC 


OS 




♦ 


520 






00520 


0 


00040 


IOPT 


DS 




f 


532 






00532 


0 


00050 


IOSK 


OS 






554 






00554 


0 


00060 


IOGT 


DS 






566 






00566 


0 


00070 


ERRET 


DS 




• 


602 






00602 


0 


00080 


IORT 


DS 




t 


565 






00565 


0 


00090 


IOCAL 


DS 




* 


716 






00716 


0 


00100 


MONCAL 


DS 




i 


796 






00796 


0 


00110 


010 


DS 






616 






00616 


0 


00120 




1620 


FORTRAN 


II-D IN CORE AREAS 






00130 


• •• 


COMMUNICATION AREA 










00140 




DORG 


2218 








02218 




00150 


F 


DS 


2. 


, FLOATING POINT 


WORO LENGTH 


02219 


2 


00160 


K 


DS 


2, 


, FIXEO 


POINT WORD 


LENGTH 


02221 


2 


00170 


PROGST 


DS 


5, 


, STARTING AOORESS 


OF MAINLINE PROGRAM 


02226 


5 


00180 


COMA DO 


DS 


5, 


, STARTING ADDRESS 


OF COMMON AREA 


02231 


5 


00190 


Nl 


DS 


2. 


, NUMBER 


OF WORDS IN LOGICAL RECORO 


02233 


2 


00200 


N2 • 


DS 


5, 


, NUMBER 


OF LOGICAL RECORDS 


02238 


5 


00210 


M 


OS 


2, 


r WORD LENGTH 






02240 


2 


00220 


RECLG 


OS 


3, 


, RECORC 


LENGTH 






02243 


3 


00230 


ENTLN 


DS 


5, 


i ENTRY 


AOORESS 


TO 


LOG SUBROUTINE 


02248 


5 


00240 


ENTEXP 


DS 


5, 


, ENTRY 


AOORESS 


TO 


EXPONENTIAL SUBROUTINE 


02253 


5 


00250 


ENTSC1 


DS 


5, 


, ENTRY 


AOORESS 


TO 


SINGLE SUBSCRIPT SUBROUTINE 


02258 


5 


00260 


ENTSC2 


DS 


5, 


» ENTRY 


ADDRESS 


TO 


DOUBLE SUBSCRIPT SUBROUTINE 


02263 


5 


00270 


ENTSC3 


DS 


5, 


, ENTRY 


AOORESS 


TO 


TRIPLE SUBSCRIPT SUBROUTINE 


02268 


5 


00280 


ENTFIO 


DS 


5, 


, ENTRY 


ADORE SS 


TO 


FINO SUBROUTINE 


02273 


5 


00290 


ENTREC 


DS 


5, 


i ENTRY 


ADDRESS 


TO 


RECORD SUBROUTINE 


02278 


5 


00300 


ENTFET 


OS 


5, 


, ENTRY 


ADDRESS 


TO 


FETCH SUBROUTINE 


02263 


5 


00310 


ENTSHO 


DS 


5, 


, ENTRY 


ADDRESS 


TO 


SWITCH 0 SUBROUTINE 


02288 


5 


00320 


ENTORR 


OS 


5, 


, ENTRY 


ADDRESS 


TO 


ARRAY SUBROUTINE 


02293 


5 


00330 


ENTOED 


OS 


5, 


, ENTRY 


ADDRESS 


TO 


DISK END SUBROUTINE 


02298 


5 


00340 


ENTCOS 


DS 


5, 


, ENTRY 


ADDRESS 


TO 


COSINE SUBROUTINE 


02303 


5 


00350 


ENTSIN 


OS 


5, 


» ENTRY 


AOORESS 


TO 


SINE SUBROUTINE 


02308 


5 


00360 


ENTATN 


DS 


5, 


i ENTRY 


ADDRESS 


TO 


ARCTANGENT SUBROUTINE 


02313 


5 


00370 


ENTSQT 


OS 


5, 


, ENTRY 


AOORESS 


TO 


SQUARE ROOT SUBROUTINE 


02318 


5 


00380 


ENTABS 


DS 


5, 


i ENTRY 


ADDRESS 


TO 


ABSOLUTE SUBROUTINE 


02323 


5 


00390 




OS 


70 


i.RESERVEO FOR ENTRIES TO AOOEO SUBROUTINES 


02393 


70 


00400 




COMMON WORKING AREAS 








00410 


STOP 


DAC 


5,ST0P« 








02395 


5 






STOP 
















00420 


RECMK 


OS 




t 


ST0P»8 






02403 


0 


00430 


OR BUFF 


OSS 


29 










02404 


29 


00*40 


FAC 


OS 


60 










02492 


60 


J04 50 




OC 
• 


I 


• 


• 






02493 


1 


00460 


SAVE 


DS 


72 










02565 


72 


00470 


BETA 


OS 


38 










02603 


38 


00480 




DGM 












02604 


I 


00490 


GAM 


OS 




f 


SAVE- 10 






02555 


0 


00500 


TAFE 


DS 




t 


SAVE -30 




02535 


0 


00510 


I MSA 


OS 




f 


BETA -28 




025T5 


0 


00520 


MESERR 


OAC 


6,ER E • 








02607 


6 






ER E 


• 














00530 


OUOH 


OS 




t 


MESERR 






02607 


0 
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00940 


EI 


OS ,«-2 


02619 


0 


00990 


DUO 


OS 70 


026B? 


70 


00940 


••••• 


1620 FORTRAN II-O FLOATING F01NT CON? A NTS 






00970 




OC 60 ,0 


02T2T 


40 






-000000000000000000000000000000000000000 






00980 




OSC 60 f 0 


02 728 


40 






0000000000000000000000000000000000000000 






00990 


ZERO 


OS #• 


027*7 


0 


00600 


9SCPF 


OC 28 #9999999999999999999999999999 


02799 


28 






R 999999999999999999999999999 






00610 


• •••• 


1620 FORTRAN II-O FIXED POINT CONTANTS 






00620 


FX9 


OC 10 ,9999999999 


02805 


10 






R 999999999 






00630 


FXZ 


OC 10 » 0000000000 


02819 


10 






-ooooooooo 






00660 


FXl 


OC 10 .0000000001 


02625 


10 






-000000001 






00690 




CONSTANTS FOR RELOCATABLE SUBROUTINES 






00660 




DC 31 ,0 


02856 


31 






-000000000000000000000000000000 






00670 


9SPF 


DS ,»-2 


02894 


0 


00680 


LN2 


OC 31 •0693167180559969309417232121698 


02867 


31 






-693147180559945309*17232121458 






00690 


LN4 


OC 31 •1386296361119690618836664242916 


02918 


31 






J38629436U 19890618834464242916 






00700 


LN8 


OC 31 •2079441541679835928291696364375 


02949 


31 






K079441941679835928291696364379 






00710 


LN10 


DC 31 •2302585092994045684017991454684 


02980 


31 






K 302585092994045686017991656686 






00720 


LOGE 


DC 30 .434294481903251827451128918917 


03010 


30 






M34294481903251827651 128916917 






00730 




DC 32 ,10000000000000000000000000000000 


03042 


32 






JOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 






00760 


ONEZ 


DS ••-4 


03098 


0 


00750 




DC 2 ,01 
-I 


03044 


2 


00760 


TWOZ 


DC 29 • 20000000000000000000000000000 


03073 


29 






KOOOOOOOOOOOOOOOOOOOOOOOOOOOO 






00770 


TWOPI 


OC 30 •628318530717958647692528676656 


03103 


30 






028318530717958647692528676656 






00780 


PI 


DC 30 •314159265358979323846264338328 


03133 


30 






1 14159265358979323846264338328 






00790 


PI0V2 


DC 30 •157079632679489661923132169164 


03163 


30 






J 5 707963267 94 8966 19231 32169164 






00800 


P10V4 


DC 28 ,7853981633974483096156608458 


03191 


28 






P853981 633974483096156608458 






00810 


SIX 


DC 28 ,6000000000000000000000000000 


03219 


28 






0000000000000000000000000000 






00820 


TAN6 


DC 29 ,54041950027058415544357836461 


03246 


29 






N404 195002705841 5544357836461 






00830 


TEN36 


DC 30 ,218776162394955256222611491638 


03278 


30 






K 18776162394955256222611491638 






00860 




1620 FORTRAN II-O INDIRECT ADDRESS BOXES AND MODIFIED 






00850 




CONSTANTS (USING K AND F) 






00860 


FXH 


DSA FAC*1 


03283 


3 



557 



1620 FORTRAN 1 1 -D SUBROUTINES 











03283 


-2493 






00870 


FPIMK 


DS 


• FXH 


03263 


0 






00880 


99MK 


DC 5 


• 99 


03288 


3 










-0099 












00890 


100MK 


DC 5 


• 100 


03293 


5 










-0100 












00900 


IMSAPF 


DSA IMSA 




03298 


5 


X 


1 










03298 


-2575 






00910 


ISPFM1 


DSA IMSA-l 




03303 


5 


X 


1 










03303 


-2574 






00920 


FH 


DSA FAC 




03306 


9 


X 


1 










03308 


-2692 






00930 


FNH 


OSA FAC-l 




03313 


9 


X 


1 










03313 


-2491 






00940 


FMIWF 


DS 


• FNH 


03313 


0 






00950 


96MF 


DC 5 


• 96 


03318 


9 










-0096 












00960 


97MF 


OC 5 


.97 


03323 


5 










-0097 












00970 


98MF 


OC 5 


,98 


03328 


5 










-0098 












00980 


POT 


DC 5 


.99 


09333 


5 










-0099 












00990 


HNO 


OC 5 


• 100 


03338 


9 










-0100 












01000 


102MF 


OC 5 


• 102 


09343 


9 










-0102 












01010 


FLZALP 


OSA ZERO-78 




03348 


9 


X 


1 










03346 


-2689 






01020 


FLZ 


DSA ZERO-80 




03353 


9 


X 


1 










03393 


-2687 






01030 


FNHMl 


OSA FAC-2 




03358 


9 


X 


1 










03396 


-2490 






01040 


97M2F 


DC 5 


,97 


03363 


9 










-0097 












01050 


LNENT 


OC 5 


.80 


01168 


9 










-0080 












01060 


EXPENT 


DC 5 


,36 


tr n 


3 







-0036 
01070 PAR OS S 
01080 OS 5 

01090 OKOATA DSC 2 ,00 

00 

01100 DSA OIOODA 



NO OF ELEMENTS IN MATRIX TO PROCESS 



©#378 
03379 



5 
9 
2 

3 X 



DC 



01120 OIOODA OSC I 
0 



03389 



-»3§7 
I 



155 



1620 FORTRAN 1 1-0 SUBROUTINES SET 1 



PAGE 4 



011)0 




DC 


5 


« 00000 










03392 




s 








-0000 




















01140 




DC 


3 


,000 










03395 




3 








-00 






















01190 




OSA 


DKBUFF 












03400 




5 


X 1 




















03400 




-2404 




01160 




OC 


I 












03401 




1 




01170 




1620 FORTRAN ll-D 


IN CORE 


SUBROUTINES 












01180 




OS 


5 












03406 




5 




01190 


TOFAC 


TF 


FAC 


»T0 FAC- 


1 


,11 






03408 


26 


02492 


0340P 


01200 




SM 


TOFAC-i 


• 0102 




• 8910 






03420 


12 


03407 


O-J-2 


01210 


2FM1 


DS 




• •-2 




1 


TWO TIMES F MINUS 


ONE 


03429 




0 




01220 


FKODD 


DS 


1 


• •-4 






0 F OR K ODD, 1 F 


ANO K EVEN 


03427 




I 




01230 




TF 


FAC-2 


, TO FAC- 


1 


, 11 






03432 


26 


02490 


0340P 


012*0 




BB 














03444 


42 


00000 


00000 


01250 




DORG 


•-9 












03446 








01260 




DS 


5 












03450 




5 




01270 


FMFAC 


TF 


FM FAC-i 


.FAC 




• 6 






03452 


26 


0345J 


02492 


01260 




SM 


PMFAC-1 


• 0002 




• 810 






03464 


12 


03451 


0-0-2 


01290 


MF 


DS 




• •-2 






MINUS F 




03473 




0 




01 300 




TF 


FM FAC-1 


•FAC-2 




\t> 






03476 


26 


0345J 


02490 


01310 




BB 














03488 


42 


00000 


00000 


01320 




DORG 


• -9 












03490 








01330 




DS 


5 












03494 




5 




013*0 


TRACE 


TF 


FM FAC-1 


• •-1 










03496 


26 


03451 


03495 


0L350 




BNC4 


FM FAC 












03508 


47 


03452 


00400 


01360 




RCTV 


GAM- 1 






.2 






03520 


34 


-2554 


00102 


01370 


GN1M2F 


DS 




• •-5 




• 


GAMMA MINUS ONE MINUS TWO TIMES F 


03526 




0 




0 1380 




BNF 


TRFX 


•FAC-l 




• • 


BR IF FIXED ARG 




03532 


44 


03564 


02491 


01390 




WNTY 


FNH 






.6, 


TYPE FLOATING ARG 




03544 


38 


0331L 


00100 


01400 




B 


FM FAC 












03556 


49 


03452 


00000 


01410 




DORG 


• -4 












03563 








01420 


TRFX 


WNTY 


FXH 


* 




,6, 


TYPE FIXED ARG 




03564 


38 


0328L 


00100 


01430 




B 


FM FAC 












03576 


49 


03452 


00000 


01440 




DORG 


• -4 












03583 








01450 


F1N0IN 


DC 

J 


I 












03583 




I 




01460 


ZERFAC 


TF 


FAC-2 


•9SPF-1 










03584 


26 


02490 


02853 


01470 




TFM 


FAC 


• 0299 




•81011 




03596 


16 


02492 


0-2RR 


01480 


FP2 


OS 




• •-2 




• 


F PLUS TWO 




03605 




0 




01490 




B 


FINISH*! 












03608 


49 


03804 


00000 


01500 




DORG 


•-4 












03615 








01510 


LVl 


AM 


SAVE 


,0101 




.8910 






03616 


11 


02565 


O-J-l 


01520 


FH1 


OS 




• •-2 




• 


F MINUS ONE 




03625 




0 




01530 




BNV 


FINISH 






• 6 






03628 


47 


0380L 


01400 


01540 




TFM 


EI 


,00571 




• 79, 


SET UP ERROR CODE 


El 


03640 


16 


02615 


-0N71 


01550 


K2 


DS 




,•-3 






TWO TIMES K 




03648 




0 




01560 


OVFLOW 


TFM 


FAC 


,0099 




• 810 






03652 


16 


02492 


0-0R9 


01570 


F2 


DS 




• —2 






TWO TIMES F 




03661 




0 




01580 




TF 


FAC-2 


• 9SCPF 




» » 


SET RESULT TO ALL 


NINES. 


03664 


26 


02490 


02795 


01590 


ERROR 


RCTY 


FINISH 






,6 






03676 


34 


0380L 


00102 


01600 




WATY 


MESERR 












03688 


39 


02607 


00100 


01610 




B 


ENOD+12 












03700 


49 


03780 


00000 


01620 


MU 


BNF 


• ♦24 


• MU-1 




• • 


SET CORRECT SIGN ON FAC 


03712 


44 


03736 


03711 



1620 FORTRAN II-D SUBROUTINES SET 1 PAGE 5 



01630 




SF 


FAC 


• GAM 






03724 


32 


02492 


02555 


01640 


GM2F 


DS 




, • 


» 


GAMMA MINUS TWO TIMES F 


03735 




0 




01650 




TDM 


FXERR+25 


.9 




RESET ERROR EXIT 


03736 


15 


03701 


00009 


01660 




TFM 


FXERROO 


, ENDD+ 12 






03748 


16 


03706 


-3780 


01670 


F1XEND 


BB 










03760 


42 


00000 


00000 


01680 




OORG 


•-3 








03768 








01690 


FXERR 


DS 




, ERROR 






03676 




0 




01700 


ENDO 


TF 


FAC 


• SAVE 




MOVE EXPONENT. 


03768 


26 


02492 


02565 


01710 




BNF 


♦ ♦24 


• 99 




SET PROPER SIGN 


03780 


*4 


03804 


00099 


01720 




SF 


FAC-2 


• ENDD 






03792 


32 


02490 


03768 


01730 


FINISH 


DS 










03803 




0 




01740 


FL TEND 


DS 




,FINISH*7 






03810 




0 




01750 




BB 










03804 


42 


00000 


00000 


01760 




DORG 


•-4 








03811 








01770 


DUMMY 


OS 




,99999 






99999 




0 




01780 


START 


DS 




,03851 






03851 




0 




01790 




1620 FORTRAN II-D 


SUBROUTINES - INITIAL SECONDARY LINKAGE 










01800 




OORG 


START 








03851 








01810 




DS 


1 








03851 




1 




01820 




DC 


2 


,00 






03853 




2 




01830 




-0 
TFM 


FM0NM1 


.•-START 






03854 


16 


07165 


-0003 


01840 




DC 


2 


.1 


• •-3 




03862 




2 




01850 




-1 
B 


FMQN 








03866 


49 


07154 


00000 


01860 




TFM 


FMONMl 


.•-START 






03878 


16 


07165 


-0027 


01870 




DC 


2 


.1 


• •-3 




03886 




2 




01880 




-I 
fi 


FMON 








03890 


*9 


07154 


00000 


01890 




TFM 


FMON+ll 


••-START 






03902 


16 


07165 


-0051 


01900 




OC 


2 


.1 


• ♦-3 




03910 




2 




01910 




-I 
B 


FMON 








03914 


49 


07154 


00000 


01920 




TFM 


FM0NM1 


••-START 






03926 


16 


07165 


-0075 


01930 




DC 


2 


• I 


• •-3 




03934 




2 




01940 




-I 
B 


FMQN 








03938 


49 


07154 


OOQOO 


01950 




TFN 


FMONMl 


• •-START 






03990 


16 


07169 


-0091 


01960 




DC 


2 


• 1 


• •-3 




03958 




2 




01970 




-1 
B 


FNON 








03962 


49 


07194 


00000 


01980 




TFN 


FNON^ll 


••-START 






03974 


16 


07169 


-0123 


01990 




DC 


2 


• 1 


• •-1 




03982 




2 




02000 




-1 
B 


FMON 








03986 


49 


07194 


00000 


02010 




TFN 


FNON* 11 


••-START 






03998 


16 


07169 


-0147 


02020 




OC 


2 


• 1 


• •-1 




04006 




2 




02030 




-1 
B 


FMON 








04010 


49 


07194 


00000 


02040 




OORG 


•-1 








04020 








02050 




TFN 


FMON+11 


••-START 






04020 


16 


07169 


-0149 


02060 




OC 


2 


• 1 


• •-1 




04028 




2 




02070 




-I 
B 


FMON 


• 


.8 




04032 


41 


07194 


0-000 


02080 




OORG 


•-1 








04042 








02090 




TFN 


F HON* 11 


••-START 






04042 


U 


07169 


-0191 



1620 FORTRAN 



1-0 subroutines set t 



02100 


OC 


2 


.1 




06090 




2 




02110 


-1 
B 


FMON 






04056 


49 


07154 


ooooo 






FMON* 1 1 


. »-$TART 




06066 


16 


07165 


-0215 


02130 


DC 
-I 


2 


1 1 




06076 




2 




02140 


8 


FMON 






06071 


49 


07154 


OOOOO 


021 50 


TFM 


FMON*l 1 


» S TAR T 




04090 


16 


07165 


-0239 


02160 


DC 
-I 


2 


.1 




06098 




2 




02170 


B 


FMON 






06102 


49 


07156 


OOOOO 


02180 


TFM 


F MON* 1 1 


t »-START 




061 16 


16 


07165 


-0263 


02190 


DC 


2 


.1 


• •-3 


06122 




2 




02200 


-1 
B 


FMON 






04126 


49 


07154 


OOOOO 


022 10 


TFM 


F MON* L I 


» •-START 




04138 


16 


07165 


-0287 


02220 


DC 
-1 


2 


tl 


.•-3 


04146 




2 




02230 


B 


FMON 






06150 


49 


07154 


OOOOO 


02240 


TFM 


FM0N*1 1 


• •-START 




04162 


16 


07165 


-031 1 


02250 


DC 


2 


tl 


• *-3 


04170 




2 




02260 


-I 
B 


FMON 






04174 


49 


07154 


OOOOO 


022 70 




F MON* 1 1 


• »-START 




04186 


16 


07165 


-0335 


02280 


DC 


2 


tl 


t»-3 


06196 




2 




02290 


-1 
B 


FMON 






04198 


49 


07154 


OOOOO 


02300 


TFM 


FMON* 1 1 


t »-START 




04210 


16 


07165 


-0359 


02310 


DC 

-2 


2 


,2 


.•-3 


04218 




2 




02320 


B 


FMON 






04222 


49 


07154 


OOOOO 


02330 


TFM 


FMON* 1 I 


, »-S TART 




042 34 


16 


07165 


-0383 


02340 


DC 
-2 


2 


• 2 


,•-3 


04242 




2 




02350 


B 


FMON 






04246 


49 


07154 


OOOOO 


02360 


TFM 


FMON+i 1 


t "-START 




04258 


16 


07165 


-0607 


02370 


DC 
-2 


2 


• 2 


.•-3 


04266 




2 




02380 


B 


FMON 






04270 


49 


07154 


OOOOO 


02390 


TFM 


FMON+1 1 


( •- START 




04282 


16 


07165 


-0431 


02400 


DC 
-3 


2 


• 3 


.•-3 


04290 




2 




02410 


B 


FMON 






04294 


49 


07154 


OOOOO 


02420 


TFM 


FMON* 1 1 


t "-START 




04306 


1 6 


07165 


-0455 


02430 


DC 
-3 


2 


.3 


t •- 3 


04314 




2 




02440 


B 


FMON 






04318 


49 


07154 


OOOOO 


02450 


TFM 


FMON* 11 


.•-START 




04 330 


16 


07165 


-0479 


02460 


DC 
-3 


2 


,3 


• •-3 


04330 




2 




02470 


B 


FMON 






04342 


49 


07154 


OOOOO 


02480 


TFM 


FMON* 11 


.•-START 




04354 


16 


07165 


-0503 


02490 


DC 
-3 


2 


• 3 


.•-3 


04362 




2 




02500 


B 


FMON 






04366 


49 


07154 


OOOOO 


02510 


TFM 


FMON+1 I 


.•-START 




04378 


16 


07165 


-0527 



5 6 ; 



1620 FORTRAN II -D SUBROUTINES 



02520 


DC 
-3 


2 


.3 


.♦-3 


04386 




2 




02530 


B 


FMON 






04390 


49 


07154 


OOOOO 


02540 


TFM 


FMON* 1 1 


.•-START 




04402 


16 


07165 


-0551 


02550 


DC 
-3 


2 


.3 


,*~3 


04410 




2 




02560 


B 


FMON 




.8 


04414 


49 


07154 


0-000 


02570 


DORG 


«-l 






04424 








02580 


TFM 


FMON* 11 


.•-START 




04424 


16 


07165 


-0573 


02590 


DC 
-4 


2 


.4 


.•-3 


04432 




2 




02600 


B 


FMON 




.8 


04436 


49 


07154 


0-000 


02610 


DORG 


— 1 






04446 








02620 


TFM 


FMON* 11 


.•-START 




04446 


16 


07165 


-0595 


02630 


DC 
-5 


2 


.5 


,•-3 


04454 




2 




02640 


8 


FMON 




.8 


04458 


49 


07154 


0-000 


02650 


DORG 


•-1 






04466 








02660 


TFM 


FMON+11 


.•-START 




04468 


16 


07165 


-0617 


02670 


DC 
-8 


2 


.8 


,•-3 


04476 




2 




02680 


B 


FMON 




t8 


04480 


49 


07154 


0-000 


02690 


DORG 


•-1 






04490 








02700 


TFM 


FMON* 1 1 


.•-START 




04490 


16 


07165 


-0639 


02710 


DC 
-9 


2 


t9 


.•-3 


04498 




2 




02720 


B 


FMON 




,8 


04502 


49 


07154 


0-000 


02730 


DORG 








04512 








02740 


TFM 


FMON* 1 1 


.•-START 




04512 


16 


07165 


-0661 


02750 


DC 
-8 


2 


t8 


,•-3 


04520 




2 




02760 


B 


FMON 




.8 


04524 


49 


07154 


0-000 


02770 


OORG 


•-1 






04534 








02780 


TFM 


FMON+11 


. •-START 




04534 


16 


07165 


-0683 


02790 


OC 
-6 


2 


• 6 


»»-3 


04542 




2 




02800 


8 


FMON 




,8 


04546 


49 


07154 


0-000 


02810 


DORG 


•-1 






06556 








02820 


TFM 


FMON* 11 


.•-START 




04556 


16 


07165 


-0705 


02830 


OC 
-6 


2 


,6 


.•-3 


04566 




2 




02840 


B 


FMON 




• 8 


04568 


49 


07154 


0-000 


02850 


DORG 


#-i 






06578 








02860 


TFM 


FMON* 11 


.•-START 




06576 


16 


07165 


-0727 


02870 


DC 
-6 


2 


,6 


t»-3 


06566 




2 




02880 


B 


FMON 






06590 


49 


07154 


OOOOO 


02890 


DORG 








04597 










••• MODIFICATIONS MADE BEFORE STAR? OP EXECUTION 










02910 


A 


•♦23 


• F 




04598 


21 


06621 


02219 


02920 


TF 


LN2 


.IN2-28 


t7 


04610 


26 


02867 


-2859 


02930 


A 


• ♦23 


»F 




04622 


21 


04665 


02219 


02940 
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05150 


FXSR1 


CF 


FAC 








04804 


33 


02492 


00000 


05160 




TF 


F XA- 1 


»FXSR-l 


1 1 


56 T UP ADD 


04816 


26 


03877 


03925 


05170 




B 


FXA 


t 


1 1 


igiuru t n ciycn nntur Ann 
BKANlrl lU rIKcD rUINT AUU 


04826 


49 


03878 


00000 


05180 




OORG 


• -3 








04836 








05190 




SF 


FAC 








04836 


32 


02492 


00000 


05200 




8 


r X5R !♦ 1 Z 








04848 


49 


04816 


00000 


05210 




DORG 


•-3 








04856 








05220 


FXM1 


SF 


100MK 


• 


• 6 




04856 


32 


0329L 


00000 


05230 




TF 


FAC 


f 99 






04868 


26 


02492 


00099 


05240 




BB 










04880 


42 


00000 


00000 


05250 




DORG 


•-9 








04882 








05260 


FX01 


D 


100MK 


f FXD-1 


t611 




04882 


29 


0329L 


0397L 


05270 




BV 


• ♦26 








04894 


46 


04920 


01400 


05280 




TF 


FAC 


.99MK 


ill 




04906 


26 


02492 


0328Q 


05290 




BB 










04918 


42 


00000 


00000 


05300 




DORG 


•-9 








04920 








05310 




TFM 


E I 


.578 


.9. 


ERROR E8. 


04920 


16 


02615 


00N78 


05320 


FXNINE 




r acRKt 30 


»F I XEND— 


1 2 1 1 


CCT no coono CHIT 


04932 


16 


03706 


-3748 


05 330 




TF 


FAC 


,FX9 


f • 


FAC * F-X9 


04944 


26 


02492 


02805 


05340 




B 


FXERR 








04956 


49 


03676 


00000 


05350 




DORG 


•-3 








04964 








05360 


FXDRl 


D 


100MK 


tFAC 


,6 




04964 


29 


0329L 


02492 


05370 




B 


FXDU12 








04976 


49 


04894 


00000 


05380 




DORG 


•-4 








04983 








05390 


RSGN1 


BNF 


• ♦26 


, FAC-2 


t t 


FLOATING POINT NUMBER 


04984 


44 


05010 


02490 


05400 




CF 


FAC-2 








04996 


33 


02490 


00000 


05410 




BB 










05008 


42 


00000 


00000 


05420 




DORG 


• -9 








05010 








05430 




SF 


FAC-2 








05010 


32 


02490 


00000 


05440 




BB 










0502 . 


42 


00000 


00000 



567 
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05450 




DORG 


• -9 








05024 








05460 




BNF 


• ♦26 


.FAC 


i • 


FIXED POINT NUMBER 


05024 


44 


05050 


02492 


05470 




CF 


FAC 








05036 


33 


02492 


00000 


05480 




BB 










05048 


42 


00000 


00000 


05490 




DORG 


•-9 








05050 








05500 




SF 


FAC 








05050 


32 


02492 


00000 


05510 




BB 










05062 


42 


00000 


00000 


05520 




DORG 


•-9 








05064 








05530 


FL0AT1 


BZ 


2ERFAC 




i » 


YES 


05064 


46 


03584 


01200 


05540 




TD 


99 


.FAC 


♦ * 


STORE SIGN 


05076 


25 


00099 


02492 


05550 




CF 


FAC 








05088 


33 


02492 


00000 


05560 




TR 


BETA-9 


,FXH 


.11 




05100 


31 


02594 


0328L 


05570 




TF 


FAC-2 


.9SPF-1 


1 1 


CLEAR FAC 


05112 


26 


02490 


02853 


05580 




TF 


SAVE 


• K 


• • 


CHAR - K 


05124 


26 


02565 


02221 


05590 




TFM 


• ♦23 


.BETA-9 






05136 


16 


05159 


-2594 


05600 




BD 


• ♦44 


• 




FINO HI ORO DIGIT 


05148 


43 


05192 


00000 


05610 




SM 


SAVE 


il 


,10, 


AOJUST CHAR 


05160 


12 


02565 


000-1 


05620 




AM 


•-13 


il 






05172 


11 


05159 


-0001 


05630 




B 


•-36 








05184 


49 


05148 


00000 


05640 




DORG 


•-3 








05192 








05650 




TR 


FNH 


,•-33 


• 611 




05192 


31 


0331L 


0515R 


05660 




TF 


• ♦35 


»FNH 


• • 


FIND AND CLEAR RECORO MARK 


05204 


26 


05239 


03313 


05670 




AM 


• ♦23 


il 






05216 


11 


05239 


-0001 


05680 




BNR 


•-12 








05226 


45 


05216 


00000 


05690 




TOM 


•-X 


.0 






05240 


15 


052 3R 


00000 


05700 




TO 


FACU 


•RECMK 


* . 


REPLACE RECORO MARK 


05252 


25 


02493 


02403 


05710 




TF 


BETA 


•ZERO-74 


1 1 


CLEAR BETA 


05264 


26 


02603 


02693 


05720 




B 


N0RM^60 








05276 


49 


05700 


00000 


05730 




OORG 


•-4 








052B3 








05740 


FSBl 


TF 


FAO-1 


•FSB-1 






05284 


26 


04089 


04065 


05750 




B 


FAD1 








05296 


49 


05304 


00000 


05760 




OORG 


•-3 








05304 








05770 


FA01 


TF 


BETA 


.FAO-l 


• 11. 


MOVE EXPONENT 


05304 


26 


02603 


0408R 


05780 




SM 


FAO-i 


.2 


• 10 




05316 


12 


04089 


000-2 


05790 




TF 


BETA-2 


• 9SPF 


• » 


CLEAR BETA-2 TO F*l ZEROS. 


05328 


26 


02601 


02854 


05800 




A 


BETA-2 


•FAO-1 


• 11* 


ADD OR SUBT. MANTISSA 


05340 


21 


02601 


0406R 


05810 




TF 


SAVE 


• FAC 


• t 


MOVE EXPONENT. 


05352 


26 


02565 


02492 


05820 




TF 


FAC-l 


•FAC-2 


. • 


RIGHT SHIFT ONE DIGIT. 


05364 


26 


02491 


02490 


05830 




CF 


FM 


• 


.6. 


CLEAR FLAG ON HIGH ORDER DIGIT. 


05376 


33 


0330Q 


00000 


05840 




TON 


FNH 


• 0 


• 611. 


SET fcEXT HIGH OIGIT TO FLAG ZERO. 


05388 


15 


0331L 


0000- 


05850 




C 


BETA 


• SAVE 


t • 


COMPARE EXPONENTS • 


05400 


24 


02603 


02565 


05860 




BNH 


• ♦84 




• t 


BRANCH IF NO EXCHANGE OF OPERANDS 


05412 


47 


05496 


01100 


05870 




TF 


SAVE-2 


Ifac-i 


• i 


EXCHANGE MANTISSAS. 


05424 


26 


02563 


02491 


05880 




TF 


FAC-l 


• BETA-2 


. • 




05436 


26 


02491 


02601 


05890 




TF 


BETA-2 


•SAVE-2 






09448 


26 


02601 


02563 


05900 




TF 


FAO^B 


• SAVE 


• » 


EXCHANGE EXPONENTS. 


05460 


26 


04096 


02565 


05910 




TF 


SAVE 


• •ETA 






05472 


26 


02969 


02603 


05920 




TF 


BETA 


•PAD+8 






09484 


26 


02603 


04098 


05930 




TFN 


AODUl 


•BETA-2 


• t 


SET UP ADDRESS 


09496 


16 


09609 


-2601 


05940 




S 


•ETA 


• SAVE 


• f 


SUBTRACT EXPONENTS 


0990B 


22 


02609 


02365 


05990 




•v 


NOAOO 




• * 


NO OPERATION IP OVERFLOW. 


05920 


44 


09792 


01400 


05960 




A 


AOO+U 


Ibita 


t f 


NODI FY AOORfSS FOR SHIFT* 


09912 


21 


09609 


02609 


05970 




A 


•IT A 


•F 


t • 


ADD F TO BETA 


05944 


21 


02603 


02219 


05980 




BNH 


NOAOO 




■ 1 


NO OP IF IX DIP NOT LlSS THAN F 


09996 


47 


03792 


01100 


05990 




INF 


ADD 


! BETA-2 


1 1 




0996B 


44 


09992 


02601 


06000 




SF 


ADD* 11 


t 


#*i 


SIT SI ON OP OPERAND. 


09 900 


32 


0960L 


00000 
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040 10 


AOO 




FAC- 1 


• 


t » 




06020 




62 




'* 


t » 


BRANCH IF ZERO RESULT 


06030 




TDM 


UNFLOW— 1 


• 2 








TOW 


DVpLOW-1 


• 1 






06050 


NORM 


TO 




# F AC— I 


• f 


STORE SIGN OF RESULT 






CF 


FAC- i 








06070 




SO 


LVl 


• FNM 


• lit 




2*2!! 2 




TR 


FNM 


t FM 


• 611, 


LEFT SMIFT ONCE 


06090 




TOU 


FAC-1 


• 0 


• • 


SET LAST DIGIT TO ZERO. 


06100 




SF 


FNM 


• 


• 6» 




061 10 




BO 


F INI SH 


• FNM 


• 611 , 


TEST LEAOING ZERO 


06120 




SM 


SAVE 


• 1 


.10, 


SUBT ONE FROM EXPONENT. 


06 1 30 




BNV 


N0RM+36 








06140 




TFM 


E I 


• 572 


• 9, 


SET UF ERROR CODE E2. 


061 50 


ONFLOW 


TFM 


FAC 


• -99 


»10, 




06160 




TF 


FAC-2 


•9SPF-1 


• • 


SET RESULT TO ZERO. 


061 70 




B 


ERROR 








06180 




OORG 


•-4 








06 1 90 


NOAOO 


SF 


FH 


t 


• 6 




06200 




TR 


FNM 


• FM 


• 611 




06210 




TF 


FAC 


• SAVE 






06220 




B6 










06230 




OORG 


• -9 








06240 


F SBR I 


CF 


FAC-2 








06250 




TF 


FAD- 1 


.FSBR-l 


» » 


SET UP AOO 


06260 




B 


FAD 


• 


f • 


BRANCH TO FLOATING POINT ADD 


06270 




OORG 


•-5 








06280 




SF 


FAC-2 








06290 




B 


FSBR1*12 








06300 




OORG 


•-4 








06310 


FMP I 


SM 


FMP- 1 


,2 


• 10* 


SUBT. TWO FROM ADDRESS. 


06320 




LO 


79 


t ZERO-10 


* • 


CLEAR AREA FOR PRODUCT. 


06330 




M 


FAC-2 


tFMP-l 


• 1 1 1 


MULTIPLY TWO MANTISSAS. 


06340 




BZ 


ZERFAC 








06350 




A 


SAVE 


• FAC 


• t 


ADO EXPONENTS. 


06360 




TF 


FAC-1 


»HND 


til* 


MOVE F>1 DIGITS OF PRODUCT. 


06370 




TDM 


UNFLOW-1 


• 4 


• i 


SET UP ERROR CODE E4. 


06380 




BNV 


N0RM+72 


• 


» t 


NORMALIZE IF SUM NOT OVERFLOW. 


06390 




BNF 


• ♦20 


• FAC 


» t 


TEST SIGN OF EXPONENT. 


06400 




B 


UNFL0W-12 


• 


t » 


UNDERFLOW 


06410 




OORG 


•-4 








06420 




TDM 


OVFLOW-l 


1 3 


• • 


SET UP ERROR CODE E3. 


06430 




BH 


0VFL0W-12 


t 


• • 


OVERFLOW. 


06440 




TFM 


SAVE 


• 99 


• 10, 


SET EXPONENT TO 99. 


06450 




B 


N0RM+24 


• 


• • 


NORMAL I ZE. 


06460 




OORG 


•-4 








06470 


FOl 


TF 


SAVE 


• FAC 


» » 


SAVE EXPONENT OF FAC. 


06480 




SM 


FO- I 


• 2 


• 10, 


SUBTRACT TWO FROM ADDRESS . 


06490 




TF 


79 


•ZERO-9 


• f 


CLEAR AREA FOR QUOTIENT 


06500 




LO 






• 6 , 




06510 




0 


POT 


•Vd-i 


• 611, 




06520 




TDM 


OVFLOW-l 


.7 


• » 


SET UP ERROR CODE E7 FOR 0 DIVISOR. 


06530 




BV 


OVFLOW-l 2 




• » 


DIVIDED BY ZERO. 


06540 




TF 


FAC-1 


• POT 


• U. 


MOVE QUOTIENT. 


06550 




TO 


99 


•FAC-l 


• • 


STORE SIGN DIGIT. 


06560 




8Z 


ZERFACM2 




• t 


ZERO QUOTIENT. 



05992 


21 


02491 


00000 


09*04 


4* 


0199* 


01200 


05616 


15 


08799 


00002 


05*21 


15 


03*31 


00001 


05640 


25 


00099 


02491 


05*52 


33 


02491 


00000 


05**4 


43 


03*1* 


0331L 


05*7* 


31 


0331L 


O330Q 


056*9 


13 


02491 


00000 


05700 


32 


0331L 


00000 


05712 


43 


0380L 


0331L 


05724 


12 


025*5 


000-1 


05736 


47 


05*7* 


01400 


05746 


I* 


02*15 


00N72 


05760 


I* 


02492 


OOORR 


05772 


26 


02490 


02853 


057S4 


49 


03676 


00000 


05791 








05792 


32 


0330Q 


00000 


05804 


31 


0331L 


0330Q 


0581* 


26 


02492 


02565 


05828 


42 


00000 


00000 


05830 








05830 


13 


02490 


00000 


05842 


26 


04089 


04113 


05854 


49 


04090 


00000 


05862 








05862 


32 


02490 


00000 


05874 


49 


05842 


00000 


05881 








05882 


12 


04137 


000-2 


05894 


28 


00079 


02757 


05906 


23 


02490 


0413P 


05918 


46 


03584 


01200 


05930 


21 


02565 


02492 


05942 


26 


02491 


0333Q 


05954 


15 


05759 


00004 


05966 


47 


05712 


01400 


05978 


44 


05998 


02492 


05990 


49 


05748 


00000 


05997 








05998 


15 


03651 


00003 


06010 


46 


03640 


01100 


06022 


16 


02565 


000R9 


06034 


49 


05664 


00000 


06041 








06042 


26 


02565 


02492 


06054 


12 


04161 


000-2 


06066 


26 


00079 


02758 


06078 


28 


0333L 


02490 


06090 


29 


0333L 


0416J 


06102 


15 


03651 


00007 


06114 


46 


03640 


01400 


06126 


2* 


02491 


0333L 


06138 


25 


00099 


02491 


06150 


46 


03596 


01200 



56!) 
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06570 


SE 


SM 


SAVE 




,10, 


SUBTRACT EXPONENTS. 


06162 


12 


02565 


000-0 


06580 




TDM 


OVFLOW-l 


• 5 


. . 


SET UP ERROR CODE E5. 


06174 


15 


03651 


00005 


06590 




BNV 


NORM+24 








06186 


47 


05664 


01400 


06600 




BNF 


0VFL0W-12 


• FAC 




OVERFLOW IF RESULT IS POSITIVE. 


06198 


44 


03640 


02492 


06610 




TDM 


UNFLOW-1 


• 6 




SET UP ERROR CODE E6. 


06210 


15 


05759 


00006 


06620 




BN 


ONFLOW- 12 






UNDERFLOW IF RESULT NEGATIVE. 


06222 


47 


05748 


01300 


06630 




TFM 


SAVE 


,-99 


!io, 


SET EXPONENT TO -99. 


06234 


I* 


02565 


OOORR 


06640 




B 


NORM+72 


• 




NORMALIZE. 


06246 


49 


03712 


00000 


06650 




DORG 


»-4 








06253 








06660 


FDVR1 


TF 


SEMI 


• FAC 






06254 


26 


06173 


02492 


06670 




SM 


FDVR-1 


.2 


.10. 




0626* 


12 


04185 


000-2 


06680 




TF 


79 


, ZERO-9 


. • 


CLEAR AREA FOR QUOTIENT. 


06278 


2* 


00079 


02758 


06690 




LD 


POT 


•FDVR-1 


• 611, 




06290 


28 


0333L 


0418N 


06700 




D 


POT 


.FAC-2 


• 6 




06302 


29 


0333L 


02490 


06710 




TD 


FAC 


.SAVE 


» • 


KEEP SIGN OF OIVIDEND EXPONENT. 


06314 


25 


02492 


02565 


06720 




B 


FDl+60 








0*32* 


49 


0*102 


00000 


06730 




DORG 


#-4 








06333 








06740 


FIXIU 


AM 


I MSA 


,0C 


.10, 


IS I - ZERO 


06334 


11 


02575 


000-0 


06750 




BNZ 


• ♦26 








0634* 


47 


0*372 


01200 


06760 




TF 


FAC 


• FX1 


• • 


YES» J««I - ONE 


06358 


26 


02492 


02825 


06770 




BB 










06370 


42 


00000 


00000 


06780 




DORG 


•-9 








06372 








06790 




AM 


FAC 


• 00 


• 10, 


IS J ■ ZERO 


06372 


11 


02492 


000-0 


06800 




BNZ 


PSIl 








06384 


47 


0*428 


01200 


06810 




BNF 


•-26 


• IMSA 


. • 


YES* IS I POSITIVE 


0699* 


44 


0*370 


02575 


06820 




TFM 


El 


• 771 


.9, 


NO, ER Gl« ZERO TO MINUS 1 POWER 


06408 


1* 


02*15 


00P71 


06930 




B 


FXNINE 


• 




FAC « FX9 


0*420 


49 


04932 


00000 


06840 




DORG 










06427 








06850 


PSI1 


CF 


MU-l 


• 


. . 


SET SIGN POSITIVE 


06429 


33 


03711 


00000 


06860 




SF 


I MSA- I 








06440 


32 


02574 


00000 


06870 




MM 


I MSA 


• 05 


• 10 




06452 


13 


02975 


000-5 


06880 




CF 


IMSA-1 








0*4*4 


33 


02974 


00000 


06890 




BD 


• ♦20 


• 99 






0647* 


43 


0*49* 


00099 


06900 




B 


•♦32 


» 


• • 


I EVEN 


06488 


49 


06520 


00000 


06910 




DORG 


•-4 








0*499 








06920 




BNF 


• ♦3* 


• FAC 


» • 


1 000 


0*49* 


44 


0*532 


02492 


06930 




SF 


MU-l 


• 


• . 


J NEG» SET SIGN NEGATIVE 


0*509 


32 


037U 


00000 


06940 




CF 


FAC 








0*520 


33 


02492 


00000 


06950 




C 


FAC 


• FX1 




• 


0*532 


24 


02492 


02825 


06960 




BE 


MU 




• » 


J - ♦ OR - ONE 


0*544 


4* 


03712 


01200 


06970 




BNF 


• ♦56 


1 1 MSA 


» t 


IS I POSITIVE 


0*35* 


44 


06*12 


02575 


06980 




TFM 


EI 


.772 


• 9 t 


NO. ER G2. J TO MINUS I POWER 


0*5*9 


1* 


02*15 


00P72 


06990 




TF 


FAC 


• FXZ 


* * 


FAC • FXZ 


0*990 


2* 


02492 


02815 


07000 




TFM 


FXERR+30 


•FIXEN0-12«» 


SET UP ERROR EXIT 


0*592 


1* 


0370* 


-3748 


07010 




B 


FXERR 








0**04 


49 


03*7* 


00000 


07020 




OORG 


•-4 








0*611 








07030 




TF 


BETA 


• FAC 


8 0 


STORE 4 


06*12 


2* 


02*03 


02492 


07040 




SM 


I MSA 


• 01 


• 10, 


I • I - I 


0**24 


12 


02579 


000-1 


07050 




BZ 


MU 








0**9* 


4* 


03712 


01200 


070*0 




M 


FAC 


• BETA 






0**49 


23 


02492 


02*03 


07070 




SF 


100MK 


• 


•* 




0***0 


32 


03291 


00000 


07080 




TF 


FAC 


.99 






0**72 


2* 


02492 


00099 


07090 




AM 


99MK 


• 00 


• *IQ. 


TEST OVFl 


0**94 


11 


032 9Q 


000-0 


07100 




BZ 


•-72 








0**9* 


4* 


0**24 


01200 


07110 




TFM 


EI 


• 773 




ER G3. OVFL IN FIX I 


0*709 


I* 


02*19 


00F73 


07120 




TOM 


FXERR^25 


• 1 


• • 


SET UF SIGN 


0*720 


13 


03701 


00001 
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OHIO 




6 


FXNINE 


i 


t i 


F AC • FX* 


06732 


49 


04432 


coooo 


07140 




OORC 


•-4 








04739 








07150 


FAXRlt 


SM 


FAXB-1 


#02 


• 10 




04740 


12 


04297 


000-2 


07160 




TF 


TAFE-2 


,FAX6-l 


.11 




04752 


26 


02993 


0429P 


OTITO 




AM 


fAFI-2 


• 00 


• 10 f 


IS B ZERO 


04744 


11 


02993 


000-0 


07180 
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16 


07165 


-0027 


i»-3 


03884 




2 






03890 


49 


07154 


00000 




03902 


14 


07165 


-0051 


#•-3 


03910 




2 






03914 


49 


07154 


00000 




03926 


16 


07165 


-0075 


• •-3 


03934 




2 






03936 


49 


07154 


00000 




03950 


16 


07165 


-0099 


#•-3 


03958 




2 






03962 


49 


07154 


00000 




0 39 74 


16 


07165 


- 0123 


» •- 3 


03982 




2 






03986 


49 


071*4 


00000 




03998 


16 


071 *5 


-0147 


.•-3 


04006 




?. 






04010 


49 


07154 


00000 




04020 










04020 


16 


07165 


-0169 


.•-3 


04028 




2 




t 8 


04032 


♦ 9 


071S4 


0-000 




04042 








.10, IS FAC ZERO 


04042 


11 


02492 


000-0 




04054 


49 


051 06 


00000 




04066 


16 


07165 


-0215 


• •-3 


04074 




2 






04078 


49 


07154 


00000 




04090 


16 


0 H 65 


-0239 


,•-3 


04098 




2 






04102 


49 


07154 


00000 




04114 


16 


07165 


-0263 


•-3 


04122 




2 






04126 


49 


07154 


00000 




04138 


16 


07165 


-0287 


t«-3 


04146 




2 






04150 


49 


07154 


00000 




04162 


16 


07165 


-0311 


.•-3 


04170 




2 
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11770 




B 


FMON 




04174 


49 


07154 


00000 


11780 




TFM 


FM0N*U 


, »-START 


04186 


16 


07165 


-0335 


11790 




DC 


2 


tl ,*-3 


04194 




2 




11800 




-1 
B 


FMON 




04198 


49 


07154 


00000 


11810 




TFM 


FMON* 1 1 


.•-START 


04210 


16 


07165 


-0359 


11820 




DC 

-? 


2 


.2 ,«-3 


04218 




2 




11830 




B 


FNON 




04222 


49 


07154 


00000 


11840 




TFM 


FMON* 11 


.•-START 


042 34 


16 


07165 


-0383 


11850 




DC 
-2 


2 


.2 i»-3 


04242 




2 




11860 




B 


FMON 




04246 


49 


07154 


ooooo 


11870 




TFM 


FMON* 11 


.•-START 


04258 


16 


07165 


-0407 


11880 




DC 


2 


.2 .—3 


04266 




2 




11890 




-2 
B 


FNON 




04270 


49 


07154 


OOOOO 


11900 








WRITE ALPHAMERIC 










11910 


WATY 


TF 


SWF 


.WATY-l 


04282 


26 


05861 


04281 


11920 




B 


WATY I 




04294 


49 


05498 


OOOOO 


11930 


WAPT 


TF 


SWF 


.WAPT-l 


04 306 


26 


05861 


04305 


11940 




B 


WAPT1 




04318 


49 


05518 


OOOOO 


11950 


WACO 


TF 


SWF 


.WACO- I 


04330 


26 


05861 


04329 


11960 




8 


WAC01 




04342 


49 


05538 


OOOOO 


11970 








READ ALPHAMERIC 










11980 


RATY 


TF 


SWF 


.RATV-l 


04354 


26 


05861 


04353 


11990 




B 


RATY1 




04366 


49 


05862 


OOOOO 


12000 


RAPT 


TF 


SWF 


.RAPT-l 


04378 


26 


05861 


04377 


12010 




B 


RAFT1 




04390 


49 


05882 


OOOOO 


12020 


RACD 


TF 


SWF 


•RACD-1 


04402 


26 


05861 


04401 


12030 




8 


RACD1 


• ,8 


04414 


49 


05902 


0-000 


12040 




OORG 


•-1 




04424 








12050 


I TYPE 


AM 


SWF 


.3 


04424 


11 


05861 


-0003 


12060 




B 


ITVPE1 


. .8 


04436 


49 


04598 


0-000 


12070 




DORG 


•-1 




04446 








12080 




TFN 


FNON* 11 


.•-START 


04446 


16 


07165 


-0595 


12090 




OC 


2 


tS t »-3 


04454 




2 




12100 




-5 
8 


FNON 




04456 


49 


07154 


0-000 


12110 




OORG 


•-1 




04468 








12120 




TFM 


FNON* 11 


••-START 


04468 


16 


07165 


-0617 


12130 




OC 


2 


•8 ,«-3 


04476 




2 




12140 




-8 
6 


FNON 


t •■ 


04460 


49 


07154 


0-000 


12150 




OORG 


•-1 




04490 








17160 




TFN 


FNON* 11 


••-START 


04490 


16 


07165 


-0639 


12170 




OC 


2 


•t tf-1 


04498 




2 




12180 




-9 
8 


FNON 


• tl 


04502 


49 


07154 


0-000 


12190 




OORG 


•-1 




04512 








12200 




TFN 


FMON* 11 


••-START 


04512 


16 


07165 


-0661 


12210 




OC 


2 


tt 


04520 




2 




12220 




-8 
6 


FNON 


• tS 


04524 


49 


07154 


0-000 


12230 




OORG 


•-1 




04594 








12240 




TFN 


FNON* 11 


••-START 


04534 


16 


07165 


-0683 
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26 



12290 


DC 


2 


• 6 


• •— j 


12260 


-6 
B 


FMON 




t g 


12270 


DORG 


•-1 






12290 


TFM 


FMON* 11 


.•-START 




12290 


OC 
-6 


2 


• 6 


f »— 3) 


12300 


B 


FMON 


• 


. ft 


12310 


OORG 


•-1 






12320 


TFM 


FMON* 1 1 


••-START 




12330 


OC 
-6 


2 


• 6 


• •— 9 


12340 


8 


FMON 






12350 


OORG 


•-4 
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12370 •••• 






MACRO FOR ! 


1 FTre READ AND MKITE 


12380 ITYPE1 


TF 


WI0TH2 


• SWF 


* 1 1 


12390 


A 


LAST 


•WI0TH2 




12400 


C 


LAST 


• MAX2 




12410 


BH 


ER F9 






12420 


TF 


INPLUS 


• LAST 




12430 


TFM 


IR 0IG*6 


• FAC 




12440 


TFM 


SHC AOJ 


•WRITE I 




12450 


BO 


SWL 


.RWEFSW 


/ 


12460 


TF 


TERM 


.FPIHK 




12470 


TF 


F AC 


• FXZ 




12480 


TFM 


SHC AOJ 


•READI 





04542 



12490 •••••• 

12500 •••••• 

12510 •••••• 

12520 IREAO 

12530 

12540 

12550 

12560 

12570 

12580 

12590 

12600 

12610 

12620 

12630 

12640 

12650 

12660 IRDIG 

12670 

12680 

12690 IRBLNK 

12700 

12710 

12720 I MINUS 

12730 

12740 

12750 ERRF7I 

12760 

12770 



CHAR BY CHAR IS MOVED INTO FAC. RIGHT JUSTIFIED. UNTIL SIGN 
OR W CHAR ARE EXAMINED. 

ERROR F7 WILL OCCUR IF MORE THAN K CHAR ARE AVAIL TO READ 



04546 


♦9 


07154 


0-000 


04556 








04556 


16 


07165 


-0705 


04564 




2 




04568 


49 


07154 


0-000 


04578 








04578 


16 


07165 


-0727 


0458* 




2 




04590 


49 


07154 


00000 


0459T 








04598 


26 


05956 


0586J 


04610 


21 


05736 


05956 


04622 


24 


05736 


06037 


04634 


46 


07002 


01100 


04646 


26 


05945 


05736 


04658 


16 


04888 


-2492 


04670 


16 


06044 


-4446 


04682 


43 


05934 


05953 


04694 


26 


06785 


03283 


04706 


26 


02492 


02815 


04718 


16 


06044 


-4990 



SM 


WI0TH2 


• 2 


.10 








04730 


12 


05956 


000-2 


BL 


SWL 












04742 


47 


05934 


01300 


SM 


INPLUS 


.2 










04754 


12 


05945 


-0002 


CM 


INPLUS 


.70 


.610 








04766 


14 


0594N 


OOOPO 


BH 


IR DIG 












047 78 


46 


04882 


01100 


BE 


IR BLNK 












04790 


46 


04918 


01200 


CM 


INPLUS 


.00 


.610 








04802 


14 


0594N 


000-0 


BE 


IR BLNK 












04814 


46 


04918 


01200 


CM 


INPLUS 


.20 


• 610 








04826 


14 


0594N 


OOOKO 


BE 


I MINUS 












04838 


46 


04938 


01200 


CM 


INPLUS 


.10 


• 610 








04850 


14 


0594N 


OOOJO 


BE 
B 


SWL 

ERR F7I 












04862 
04874 


46 
49 


05934 
04958 


01200 
00000 


OORG 


•-4 












04881 








TO 




. INPLUS 


.11 








04882 


25 


00000 


0594N 


C 


• -6 


.TERM 










04894 


24 


04888 


06785 


BL 


ERR F7 I 












04906 


4? 


04958 


01300 


SM 
8 


IR D 1G+6 
I READ 


.1 










04918 
04930 


12 
49 


04888 
04730 


-0001 
00000 


OORG 


•-4 












04937 








SF 


FAC 












04938 


32 


02492 


00000 


B 


SWL 












04950 


49 


05934 


00000 


DORG 


•-4 












04957 








TF 


FAC 


• FXZ 


1 1 


SET 


FIXED 


ZERO INTO FAC 


04958 


26 


02492 


02815 


TPM 


EI 


• 677 


• 911, 


SET 


ERROR 


F7 INDICATION 


04970 


16 


02615 


0007P 


B 


SWL 












04982 


49 


05934 


00000 
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12780 




DORG 


•-4 








12790 


READI 


SF 


FP1MK 




.6 




12800 




TF 


FLT END 


!lC0N2*6 






12810 




BNF 


FLOAT 


• LOC 






12820 




CF 


LOC 








12830 


RE AD IF 


TF 


LOC 


,FAC 


.6 




12840 




SM 


LOC 


.2 






12850 




TF 


LOC 


» FAC-2 


.6 




12860 


ERF7 


BNF 


BSWF-12 


• EI 


» » 


BR IF NOT ERROR TYPE F7 


12870 




CF 


EI 


• 


» • 


ERASE ERROR F 7 INDICATION 


12880 




B 


ERC0M2 








12890 




OORG 


•-4 








12900 


IFLOAT 


BZ 


ZERFAC 




» 1 


YES 


12910 




TO 


99 


.FAC 


. . 


STORE SIGN 


12920 




CF 


FAC 








12930 




TR 


BETA-9 


• FXH 


• 11 




12940 




TF 


FAC-2 


.9SPF-1 


1 1 


CLEAR FAC 


12950 




TF 


SAVE 


• K 


1 1 


CHAR * K 


12960 




TFM 


• ♦23 


•BETA-9 




12970 




BO 


• ♦44 


• 


. . 


FINO HI ORD DIGIT 


12980 




SM 


SAVE 


.01 


• 10, 


ADJUST CHAR 


12990 




AM 


•-13 


• 01 






13000 




B 


®-36 








13010 




OORG 


•-3 








13020 




TR 


FNH 


,•-33 


.611 




13030 




TF 


• ♦35 


• FNH 


• . 


FIND AND CLEAR RECORD MARK 


13040 




AM 


•♦23 


• 01 






1 3050 




BNR 


•-12 








13060 




TDM 


♦-1 


• 0 


• 6 




13070 




TO 


FAC* I 


• AECMK 


t • 


REPLACE RECORD MARK 


13080 




TF 


BETA 


.ZERO- 74 


» » 


CLEAR BETA 


13090 




8 


I NOR 60 








13100 




DORG 


•-3 








13110 


I NOR 36 


TR 


FNH 


»FH 


• 611, 


LEFT SHIFT ONCE 


13120 




TDM 


FAC-1 


• 0 


* . 


SET LAST DIGIT TO ZERO. 


13130 


I NOR 60 


SF 


FNH 




• 6 


13140 




BD 


FINISH 


I FNH 


• 611. 


TEST LEADING ZERO 


13150 




SM 


SAVE 


• 1 


• 10. 


SUBT ONE FROM EXPONENT. 


13160 




B 


I NOR 36 








13170 




DORG 


• -4 








13180 


IC0N2 


B 


READ IF 


• 


.1 




13190 




DORG 


•-4 








13200 
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- SUBROUTINES 


13210 




OORG 


START*1647 






13220 


WATVl 


TFM 


MAX 


• 0687 


.8 




13230 




8 


WRTALP 








13240 




OORG 


•-3 








13250 


WAPT1 


TFM 


MAX 


• 0887 


»• 




13260 




8 


WRTALP 








13270 




OORG 


•-3 








13280 


WAC01 


TFM 


MAX 


• 1080 


• • 




13290 


WRTALP 


TDM 


RWEFSW 


• 1 


• » 


COMMON FOR EACH WRITE 


13300 


RWA 


TF 


DATINH*2 


•MAX-2 




INITIALIZATION FOR EACH RO OR WRITE 


13310 




SF 


MAX-1 








13320 


REPSW 


OS 


2 


• •-3 






13330 


MATSW 


OS 


I 


• •-2 


» » 


SET TO 1 WHEN MATRIX HAS CONTROL 



04989 
04990 
05002 
05014 
05026 
05038 
05050 
05062 
05074 
05086 
05098 
05105 
05106 
05118 
05130 
05142 
05154 
05166 
05178 
05190 
05202 
05214 
0522* 
05234 
05234 
05246 
0S25B 
05270 
05282 
05294 
05306 
05316 
05326 
05326 
05338 
05350 
05362 
05374 
05386 
05393 
05394 
05401 

05498 
05498 
05510 
059 It 
05518 
05530 
05558 
05538 
05550 
05582 
05576 
05582 
05568 



32 


0328L 


00000 


26 


03810 


05400 


44 


04042 


05961 


33 


05981 


00000 


26 


059BJ 


02492 


12 


05981 


-0002 


26 


0598J 


02490 


44 


05814 


02615 


33 


02615 


00000 


49 


07078 


00000 


46 


03584 


01200 


25 


00099 


02492 


33 


02492 


00000 


31 


02594 


0328L 


26 


02490 


02853 


26 


02565 


02221 


16 


05201 


-2594 


43 


05234 


00000 


12 


02565 


000-1 


11 


05201 


-0001 


49 


05190 


00000 


31 


0331L 


0520J 


26 


05281 


03313 


11 


05281 


-0001 


46 


05258 


00000 


15 


0528J 


00000 


25 


02493 


02403 


26 


02603 


02693 


49 


05350 


00000 


31 


0331L 


0330Q 


15 


02491 


00000 


32 


0331L 


00000 


43 


0380L 


0331L 


12 


02565 


000-1 


♦9 


05326 


00000 


4R 


05038 


00000 


16 


05924 


0-667 


49 


05550 


00000 


16 


05924 


0-867 


49 


05550 


00000 


16 


05924 


0J080 


IS 


05953 


00001 


26 


06059 


05922 


32 


05*23 


00000 




2 
1 





582 



1620 FORTRAN Il-D SUBROUTINES SfT i 



PAGE 21 



11)40 AEPSW3 


OS 


2 


• • 




099B9 




2 




i mo 




TPM 


•-1 


9 00000 


• 711 


05516 


16 


05919 


-000- 


11140 




TON 


SWIM 


.2 




09991 


19 


05939 


00002 


11170 


LOCO 


PS 


2 


#•-1 


•LOC OF DECIMAL AS SPEC IV FORMAT 


09601 




2 




imt 


L0C02 


OS 


2 


••-) 


• TWICE LOC D 


09606 




2 




111*0 




TFM 


MESERR+6 #679 


t« 


09610 


16 


02619 


00079 


1MI0 




TPM 


MAX2 


tINH 




09622 


16 


060)7 


-6063 


11410 




A 


MAX2 


• MAX 




096)4 


21 


060)7 


05924 


11420 




A 


MAX 2 


t MAX 




09644 


21 


06037 


05924 


114)0 


•••••• 






CONTINUATION OP RWA. ALSO USED AFTER EACH OUTPUT 










11440 








RECORD NOT 


TERMINATED BY COMPLT MACRO 










1)490 




TFH 


LAST 


t INH 




09691 


16 


09736 


-6063 


11440 


RMA2 


TOM 


COMPSW 


t-1 




09670 


19 


09678 


OOOOJ 


11470 


COMPSM 


OS 




#•-) 


,-1 PROHIBITS, 0 REQUIRES OUTPUT 


09671 




0 




13410 




TR 


f 


• STIEROM 




096B2 


31 


06062 


06240 


1)490 




TR 


{rj * 


t ST2CR0 




09694 


11 


06149 


062)9 


1)300 




CM 


MAW 5 

NAX-2 


• 06 


• 10 


09706 


14 


09922 


000-6 


1)910 


WIDTH 


OS 




• •-2 


• NO. OF EFF. DIBITS IN FIELD 


09719 




3 




13920 




BNE 


• 24 






09711 


47 


09742 


01200 


139)0 




ACTV 








057)0 


34 


00000 


00102 


1 )540 


LAST 


OS 


_ 


• •-§ 


, ADR OF RM AT END OF VARIABLE OUT REC 


097)6 




9 




13990 




60 




•RWEFSW 




09742 


43 


09826 


0595) 


13960 


R ADO IT 


TFM 


inBT 


• •♦21 




09794 


16 


00969 


-5777 


139 70 




6 


t nr t 


•0AT|KH*4 


• 7 


09766 


49 


00966 


-605) 


13980 




CM 


MA V 


• 06 


• 10 


09771 


14 


09922 


000-6 


13390 




BNE 


* « 


• 


•• ALLOWS GOOF SWITCH FOR RATV 


09790 


47 


09814 


01200 


13600 




BC4 


• -72 






09802 


46 


09730 


00400 


13610 




TOM 


FLT END' 


-9,2 




09814 


19 


03809 


00002 


13620 








CONTROLS POSITION IN FORMAT SPECS 










13630 


BSWF 


AM 


SWF 


• 9 




09826 


11 


09861 


-0005 


1 3640 




TF 


• ♦18 


• SWF 


• U 


098)8 


26 


05856 


0586J 


1 3690 




B 


SWF 


• 


,6, BR TO AOR INDICATED BY FORMAT SPEC. 


09890 


49 


' 0586J 


00000 


1 3660 


SWF 


DS 


5 


»• 




09861 




5 




1 3670 


RATY 1 


TFM 


MAX 


• 0687 


• 8 


05862 


16 


05924 


0-687 


13680 




B 


RDALP 






05874 


49 


05914 


00000 


13690 




DORG 


•-3 






05662 








1)700 


RAPT I 


TFM 


MAX 


• 0887 


• 6 


05882 


16 


05924 


0-887 


1)710 




B 


RDALP 






05694 


49 


05914 


00000 


1)720 




DORG 


•-3 






09902 








1 3730 


RAC01 


TFM 


MAX 


• 1080 


• 6 


09902 


16 


05924 


0J080 


13740 


ROAL P 


TOM 


RWEFSW 


.0 




09914 


15 


05953 


00000 


13790 


MAX 


OS 


4 


• •-l 




09924 




4 




13760 




B 


RWA 






09926 


49 


05562 


00000 


13770 




DORG 


•-4 






09933 








13780 




SWL ISA 


TRINARY SWITCH USEO TO BRANCH TO THE PROPER SOURCE 










1 3790 




TO OBTAIN 


THE LOCATION THAT GOES WITH THE FORMAT MACRO 










13800 


•••••• 


BEING PERFORMED 


BB FOR OBJECT PROGRAM 










13610 


•••••• 








NOP FOR REOO CONTROL 










13820 


•••••• 








B FOR MATRIX CONTROL 










13830 


SWL 


NOP 


MATRX 2 






05934 


41 


06418 


00000 


13640 


INPLUS 


OS 


5 


• • 


, WORKING POSITION OF I/O RECORD 


05945 




5 




1)890 




TOM 


SWL + l 


.9 


, , MATRIX CONTROL SETS SWL TO 49 


05946 


15 


05935 


00009 


13860 


RWEFSW 


DS 


1 


• •-4 


• 1 FOR WRT, 0 FOR RO* FLAG FOR E 


05953 




I 




13870 


WI0TH2 


DS 


3 


• •-1 




05956 




3 




13880 




80 


SWC+12 


•MATSW 




05958 


43 


05994 


05583 


13890 




NOP 








05970 


41 


00000 


00000 
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13900 


OPG 


DS 


5 


• •-5 


• TEMP AOR OF DEC PT IN GAMMA 


05976 




5 




13910 


LOC 


OS 


5 


• • 


CORE LOCATION TO BE USED 


05981 




5 




13920 








AFTER LOC 


AOR OBTAINED BR TO PROPER MACRO 










13930 


SWC 


TOM 


SWL*1 


• 2 




05982 


15 


05935 


00002 


13940 




BO 


•♦20 


•RWEFSW 


•• 1R IF WRITING 


05994 


4) 


06014 


05953 


13950 




B 


SWC AOJ 


• 


.6 


06006 


49 


0604M 


00000 


13960 




OORG 


•-4 






06013 








13970 




TOM 


COMPSW 


.0 


•• SET TO REQUIRE OUTPUT 


06014 


15 


05678 


00000 


13980 




CF 


LOC 






06026 


33 


09981 


00000 


13990 


MAX2 


OS 


5 


• • 


, TWICE MAXIMUM CHAR FOR OUTPUT 


06037 




9 




14000 




B 








06031 


49 


00000 


00000 


14010 


SWCAOJ 


OS 




• •-5 


», RETURN AOD OF MACRO IN CONTROL 


06044 




0 




L4020 




OORG 


•-4 






06045 








14030 


OATDUO 


DSA 


0UDH 






06049 




5 


X 1 














06049 




-2607 




14040 




OC 


3 


.00* 




06052 




3 




14050 


OATINH 


-0» 
OSA 


INH 






06097 




5 


X 1 














06057 




-6063 




14060 




OC 


3 


• 00« 




06060 




3 




14070 




-0« 

OC 


I 


.0 




06061 




1 




14080 


ENOFOR 


OAC 


1.0 






06063 




1 


X 2 


14090 


INH 


0 

OS 




•ENOFOR 




06063 




0 




14100 




OS 


174 






06237 




174 




14110 


IN 


OS 


176 


•INH+174 




06237 




176 




14120 


STZERO 


oc 


2 


• 00 




062)9 




2 




14130 




-0 
00 




• 


•0246110 


06240 


-0 


-0-0- 


0-0-0 


14140 




00 




• 


•0246810 


06252 


-0 


-0-0- 


0-0-0 


14150 




00 




• 


•0246110 


06264 


-0 


-0-0- 


0-0-0 


14160 




00 




» 


•0246110 


06276 


-0 


-0-0- 


0-0-0 


14170 




00 




• 


•0246110 


06211 


-0 


-0-0- 


0-0-0 


14180 




00 




• 


•0246110 


06300 


-0 


-0-0- 


0-0-0 


14190 




00 






•0246110 


06312 


-0 


-0-0- 


0-0-0 


14200 




oc 


2 


loo 




06329 




2 




14210 


FLZERS 


-0 

oc 


2 


•o« 




06327 




2 




14220 




OS 


5 






06332 




5 




14230 


MATRIX 


TDM 


MATSW 


• I 


•• MACRO TO PROCESS NATRICIES 


06334 


13 


05583 


00001 


14240 




TDM 


SWL^l 


• 9 




06346 


15 


05935 


00009 


14250 




TF 


LOCADJ 


• FP2 




06351 


26 


06390 


03605 


14260 




BNF 


MATRX2- 


12.MATR1X-1 




06370 


44 


06404 


06333 


14270 




TFM 


LOCAOJ 


tOO 


flO 


06)12 


14 


06390 


000-0 


14280 


LOCAOJ 


DS 


2 


• P-3 


•• AOJUST LOC FOR MATRIX 


06)90 




2 




14290 




S 


LOCADJ 


• K 




06)94 


22 


06)90 


02221 


14300 




s 


MATRIX- 


1 • LOCAOJ 




06404 


22 


06))) 


06390 


14310 


MATRX2 


A 


MATRIX- 


1 UjQCAOJ 


•• RETURN FROM SMLt EACH MATRIX ELEMENT 


06411 


21 


06)1) 


06)90 


14320 




TF 


LOC 


•MATRIX-I 


•• NOV! ADJUSTED LOCATION 


064)0 


24 


09911 


06333 


143)0 




SM 


PAR 


• 1 


• 10 


06442 


12 


03)71 


000-1 


14)40 




BNE 


•♦24 






06494 


47 


06471 


01200 
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14)50 




TOU 


MATSH 


tO 






06444 


19 


03583 


00000 


14360 




BNl 


SMC* 12 








044 ?• 


44 


03994 


01 300 


14370 




88 










04490 


42 


00000 


A A AAA 

00000 


14380 




0086 


•-9 








04492 








14340 


•••••• 


MACRO FOR AN I/O CARRIAGE RETURN DURING A FORMAT STATEMENT 










14400 


SLASH 


TOM 


COMEND* 1 


.9 






06492 


15 


O4457 


00009 


14410 




80 


SLASH2 


•RWEFSW 


• • 


BR IF WRITING 


04504 


43 


06524 


05953 


14420 




8 


COMEND 








04514 


49 


04454 


00000 


14430 




OORG 


•-4 








04523 








1 4440 


SLASH2 


80 


I OCR 


•COMF SM 


1 it 


BR TO 10 CR IF OUTPUT RECORD BLANK 


04524 


43 


06664 


05678 


14450 




CM 


DATINH+2 


• 06 


• to 




04534 


14 


04059 


000*6 


14460 




BM 


MR I TE 




1 • 


BR IF NOT TYPEWRITER OUTPUT 


0654| 


46 


04432 


01100 


14470 




TF 


LAST 


.FLZERS 


.6 




06540 


26 


09730 


06327 


14480 




SM 


LAST 


• 02 


.10* 


ERASE BLANKS FROM END OF I/O RECORO 


06572 


12 


05736 


000-2 


14490 




CM 


LAST 


• 00 


• 610 




06584 


14 


03730 


000-0 


14500 




BE 


•-36 








06594 


46 


06560 


01200 


14510 




CM 


LAST 


• I NH 






04608 


14 


05736 


-6063 


14520 




BL 


COM END 








06420 


47 


06656 


01300 


145 30 


WRITE 


TFM 


IORT 


• •♦23 






06632 


16 


0056S 


-6655 


1 4540 




8 


I OPT 


♦DATINH-4 ,7 




06644 


49 


00532 


-6053 


14550 


COMEND 


a 


RMA2-12 








06656 


49 


05658 


00000 


14560 




OORG 


•-4 








06663 








14570 


I OCR 


CM 


MAX-2 


,08 


• 10 




06664 


14 


05922 


000-8 


14580 


CKW 


DS 


3 


• •-2 


t 


DEC SPEC PLUS CHAR OF ARG 


06673 




3 




14590 




BNL 


WRITE 








06676 


46 


06632 


01300 


14600 




B 


COMEND 








06688 


49 


06656 


00000 


14610 




OORG 


• -4 








06695 








14620 








MACRO TERMINATING I/O CONTROL 










14630 




DS 


3 








06697 




3 




14640 


COMPLT 


TOM 


COMEND*! 


.2 






06698 


15 


06657 


00002 


14650 


CHAR 2 


OS 


3 


• •-1 




TWICE MOOIFIED CHARACTERISTIC 


06 708 




3 




14660 




B 


SLASH*12 








06710 


49 


06504 


00000 


14670 




OORG 


• -4 








06717 








14680 


REDO 


BO 


REDO A«24,MAT SW 






06718 


43 


06786 


05583 


14690 




TO 


RED0A*23 


•COMPSW 






06730 


25 


06785 


05678 


14700 




TFM 


SWC AD J 


•REDO A 


» » 


MACRO PERMITS REDOING BACK TO ( 


06742 


16 


06044 


-6762 


14710 




B 


SWL 








06754 


49 


05934 


00000 


14720 




OORG 


•-4 








06761 








147 30 


REOOA 


TOM 


SWL*1 


• 1 


• • 


RETURN FROM SWL IF MORE DATA 


06762 


15 


05935 


00001 


14740 




TOM 


COMPSW 




•• VOIO REDO USING SWC EFFECT ON COMPSW 


06774 


15 


05678 


00000 


14750 


TERM 


DS 


5 


• • 


• 


REFERENCE ADR IN I/O RECORD 


06785 




5 




14760 




AM 


SWF 


.5 






06786 


11 


05861 


-0005 


14770 




TF 


SWF 


• SWF 


.11 




06798 


26 


05861 


0586J 


14780 




B 


SLASH 








06810 


49 


06492 


00000 


14790 




DORG 


• -4 








06817 








14800 






MACRO TO REPEAT 


FORMAT SPECS A SPECIFIC NO OF TIMES 










14810 








SUB FROM 


REP SW 


• INITIALLY SET TO ZERO 










14820 








IF REPSW 


NEG • 


SET TOREPS REQD AND REPEAT FORMAT 










14830 








IF REPSW 


ZERO, 


LAST FORMAT REPETITION IS COMPLETE 










14840 


•••••• 






IF REPSW 


PLUS, 


STEP DOWN AND REPEAT FORMAT SPEC 










14850 


REP 


AM 


SWF 


• 7 






06818 


11 


05861 


-0007 


14860 




SM 


REP SW 


• I 


.10, 


CONTROL REPETITION OF FIELDS 


06830 


12 


05582 


000-1 


14870 




BH 


REP 2 








06842 


46 


06890 


01100 


14880 




BE 


BSWF 








06854 


46 


05826 


01200 


14890 




A 


REP SW 


• SWF 


• 11 




06866 


21 


05582 


0566J 


14900 




BNH 


BSWF 








06878 


47 


05826 


01100 



58 5 
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14910 


REP2 


SM 


SWF 


.2 






06890 


12 


05861 


-0002 


14920 




TF 


SWF 


,SWF 


• 11 




06902 


26 


05861 


0586J 


14930 




8 


SWF-23 








06914 


49 


05838 


00000 


14940 




DORG 


•-4 








06921 








14950 


REP3 


SF 


REPSW3- 1 








06922 


32 


05584 


00000 


14960 


WA 


DS 


5 


»• 


» 


WORKING AREA ADR REF TO FAC OR GAM 


06933 




5 




14970 




AM 


SWF 


.7 


.10 




06934 


11 


05861 


000-7 


14980 




SM 


REPSW 3 


.1 


,10 




06946 


12 


05585 


000- 1 


14990 




BH 


REP 2 








06958 


46 


06890 


01100 


15000 




BE 


BSWF 








06970 


46 


05826 


01200 


15010 




A 


REPSW 3 


• SWF 


.11 




06982 


21 


05585 


0586J 


15020 




B 


REP 2-12 








06994 


49 


06878 


00000 


15030 




DORG 


»-4 .,. 








07001 








15040 


ERF9 


TFM 


SWC AD J 


,ER COM 2 


f t 


MACRO FOR ERROR F9 WHEN WRITING 


07002 


16 


06044 


-7078 


15050 




TF 


LAST 


,MAX 2 






07014 


26 


05736 


06037 


1 5060 




TFM 


EI 


,679 


.9 




07026 


16 


02615 


00079 


15070 




B 


SWL 








07038 


49 


05934 


00000 


15080 




DORG 


•-4 








07045 








15090 


XTYPE 


AM 


SWF 


.3 


• • 


MACRO FOR SKIPPING FIELDS 


07046 


11 


05861 


-0003 


15100 




A 


LAST 


• SWF 


,11 




07058 


21 


05736 


0586J 


15110 




B . 


BSWF 








07070 


49 


05826 


00000 


15120 




DORG 


•-4 








07077 








15130 


ERC0M2 


RCTY 








WORKING AREA ADR REF TO FAC OR GAM 


07078 


34 


00000 


00102 


15140 


WA2 


OS 




• •-5 




07084 




0 




15150 




WATY 


OUOH 








07090 


39 


02607 


00100 


15160 




RCTY 










07102 


34 


00000 


00102 


15170 


CHAR 


DS 


5 


• •-5 


• 


MODIFIED CHARACTERISTIC 


07108 




5 




15180 




TR 


61*1 


•FLZERS-l 


• » 


RESTORES RECORD MARK 


07114 


31 


02616 


06326 


15190 




B 


BSWF-12 








07126 


49 


05814 


00000 


15200 


DPT 


DS 


5 


• • 


• 


TEMP LQC OF DEC PT IN OUTPUT RECORD 


07137 




5 




15210 


0PTM2 


DS 


5 


• •♦5 


• 


TEMP AOR OF DEC PT IN I/O REC, -2 


07142 




5 




15220 




OS 


5 








07142 




5 




15230 




OORG 


08000 








06000 








15240 




38 


A3 


•00702 






08000 


38 


08032 


00702 


15250 




36 


A3 


.00703 






09012 


36 


08032 


00703 


15260 




B 


• ♦22 








08024 


49 


08046 


00000 


15270 




OORG 


• -3 








08032 








15280 


A3 


DSC 


9 


•019466033 




08032 




9 








019466033 
















15290 




DSA 


FIX 








08045 




5 


X 1 
















06045 




-3884 




15300 




TRA 










08044 


36 


00000 


00500 
















080SB 


49 


00000 


00000 


15310 




TCO 


08000 








08000 








15320 


•••••• 


1620 FORTRAN I I-D I 


NA FORMAT 










15330 


• •••• 


1620 FORTRAN I I-D I 


WA FORMAT - SECONDARY LINKAGE 










15340 




DORG 


START 








03851 








15350 




DS 


3 








03853 




3 




15360 




CM 


FAC 


.00 


• 10. 


IS CHAR POSITIVE 


03854 


14 


02492 


000-0 


15370 




8 


IF I X 








03844 


49 


03118 


00000 


15380 




TFM 


FNONm 


• •-START 






038TB 


14 


07163 


-0027 


15390 




DC 
-1 


2 


.1 


.•-3 




0SBB4 




2 




15400 




B 


FMON 








03890 


49 


07154 


00000 
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15410 


TFM 


FM0N*1 1 


(•-START 




03902 


16 


07165 


-0051 


15*20 


DC 
-I 


2 




• •-1 


03910 




2 




15*30 


6 


FMON 






0391* 


*9 


0715* 


00000 


15**0 


TFM 


FM0N*1 1 


♦•-START 




03926 


16 


07165 


-0075 


15*50 


DC 


2 




.•-1 


0393* 




2 




15*60 


- 1 
B 


FMON 






03938 


*9 


0715* 


00000 


15*70 


TFM 


FMON+1 1 


♦•-START 




03950 


16 


07165 


-0099 


15*60 


DC 


2 




♦ •-J 


03958 




2 




15*91' 


-I 
g 


FMON 






03962 


*9 


0715* 


00000 


1 5500 


TFM 


FMON+ 1 1 


ft.START 




0397* 


16 


07165 


-0123 


15510 


DC 






i •— s 


03982 




2 




155?0 


-I 

B 


FMON 






03986 


*9 


0715* 


00000 


1 5 5 30 


TFM 


FMON* 1 1 


«-START 




03998 


16 


07165 


-01*7 


1 55*0 


OC 


2 


* 


»•-! 


0*006 




2 




15550 


_ i 
B 


FMON 






0*010 


*9 


0715* 


00000 


15560 


DORG 


•-1 






0*020 








15 5 70 


TFM 


FMON* 1 1 


« »-START 




0*020 


1 6 


07 165 


— 01 69 


1 55 BO 


DC 
- 1 


2 




♦ ■— 3 


0*028 




2 




15590 


B 


FMON 




♦ 8 


0*032 


*9 


0715* 


0-000 




















1 S 6 L 0 


TFM 


r nun" i i 


•-START 




0*0*2 


16 


0 7165 


-01 9 1 


1 56?0 


DC 


2 




»*-3 


0*050 




2 




156 30 


-L 
g 


FMON 






0*05* 




0715* 


uuuuu 




TFM 


F MON* 1 1 


»-5TART 






16 




-0215 


15650 


DC 
" l 


2 




♦ •-3 


0*07* 




2 




1 5660 




FMON 










0715* 


nnnnn 


1 56 70 


TFM 


F MON* 1 1 


#-START 




0*090 


16 




-0239 


15680 


DC 
-1 


2 




♦ •-3 


0*098 




2 




1 5690 




FMON 












UUUUU 


I 5 700 


TFM 


F MON* L 1 


t »-START 




0*1 M> 




07165 


-0263 


15710 


DC 
-I 


2 




♦ •-3 


0*122 




2 




1 5 720 




cunt!-. 












uuuuu 




TFM 


r HON* 1 1 


•-START 




0*138 


16 


07165 


-0287 


157*0 


DC 
-I 


2 




♦ •-3 


0*1*6 




2 














0* 1 50 


*9 


0715* 


00000 


15760 


TFM 




* *~ 5 




0*162 


16 


07165 


—031 1 


15770 


DC 




* 


i »-3 


0*170 








15780 


B l 


FMON 






0*1?* 


*9 


0715* 


00000 


15790 


TFM 


FMON* 11 


.•-START 




0*186 


16 


07165 


-0335 


15800 


DC 
-I 


2 




♦ •-3 


0*19* 




2 




15810 


B 


FMON 






0*198 


*9 


0715* 


00000 


15820 


TFM 


FMON* i I 


.•-START 




0*210 


16 


07165 


-0359 


15830 


DC 


2 




• •-3 


0*218 




2 






-2 

















158*0 




B 


FMON 




0*222 


*9 


0715* 


00000 


15850 




TFM 


FM0N*11 


♦•-START 


0*23* 


16 


07165 


-0383 


15860 




DC 


2 


♦2 t »-3 


0*2*2 




2 




15870 




-2 
B 


FMON 




0*2*6 


*9 


0715* 


00000 


15880 




TFM 


FM0N*11 


♦•-START 


0*258 


16 


07165 


-0*07 


15890 




DC 
-2 


2 


♦2 .«-3 


0*266 




2 




15900 




B 


FMON 




0*270 


49 


0715* 


00000 


15910 


• ••• 






WRITE ALPHAMERIC 










15920 




TF 


SWF 


♦ WATY-1 


0*282 


26 


05861 


0*281 


15930 




B 


WATY1 




0*29* 


*9 


05*98 


00000 


159*0 




TF 


SWF 


♦WAPT-1 


0*306 


26 


05861 


0*305 


15950 




B 


WAPT1 




0*318 


*9 


05518 


00000 


15960 




TF 


SWF 


♦WACD-l 


0*330 


26 


05861 


0*329 


15970 




B 


WACD1 




0*3*2 


*9 


05538 


00000 


15980 


• ••* 






READ ALPHAMERIC 










15990 




TF 


SWF 


♦ RATY-1 


0*35* 


26 


05861 


0*353 


16000 




B 


RATYl 




0*366 


*9 


05862 


00000 


16010 




TF 


SWF 


♦RAPT-l 


0*378 


26 


05861 


0*377 


16020 




B 


RAPTl 




0*390 


*9 


05882 


00000 


16030 




TF 


SWF 


♦RACD-1 


0**02 


26 


05861 


0**01 


160*0 




B 


RACDl 


i tB 


0**1* 


*9 


05902 


0-000 


16050 




DORG 


•-1 




0**2* 








16060 




TFM 


FMON*li 


♦•-START 


0**2* 


16 


07165 


-0573 


16070 




DC 


2 


t* »«-3 


0**32 




2 




16080 




-* 
B 


FMON 


t (8 


0**36 


*9 


0715* 


0-000 


16090 




DORG 


•-1 




0***6 








16100 


WRITEI 


TFM 


WA 


♦ GAM*2 


0***6 


16 


06933 


-2557 


16110 




8 


WRITI1 


♦ .8 


0**58 


*9 


0*598 


0-000 


16120 




DORG 


•-1 




0**68 








16130 




TFM 


FMON*ll 


♦•-START 


0**68 


16 


07165 


-0617 


161*0 




DC 
-8 


2 


♦8 ,»-3 


0**76 




2 




16150 




8 


FMON 


. .8 


0**80 


*9 


0715* 


0-000 


16160 




DORG 


•-1 




0**90 








16170 




TFM 


FMON* 1 1 


♦•-START 


0**90 


16 


07165 


-0639 


16180 




DC 


2 


t9 ,»-3 


0**98 




2 




16190 




-9 
8 


FMON 


t .8 


0*502 


*9 


0715* 


0-000 


16200 




DORG 


•-1 




0*512 








16210 




TFM 


FMON* 11 


♦•-START 


0*512 


16 


07165 


-0661 


16220 




DC 


2 


♦8 t *-3 


0*520 




2 




16230 




-8 
B 


FMON 


, .8 


0*52* 


*9 


0715* 


0-000 


162*0 




OORG 


•-1 




0*53* 




07165 




16250 




TFM 


FMON* 11 


♦•-START 


0*53* 


16 


-0683 


16260 




OC 


2 


t6 t »-3 


0*5*2 




2 




16270 




-6 
B 


FMON 


t .8 


0*5*6 


♦9 


OTIS* 


0-000 


16280 




OORG 


•-1 




0455* 








16290 




TFM 


FMON* 11 


, —START 


0*55* 


16 


071*9 


-0705 


16300 




OC 


2 


«6 t»-J 


0*5** 




2 




16310 




-6 
8 


FMON 


t .8 


0*5*8 


*9 


0715* 


0-000 



1*20 FORTRAN II-O SUBROUTINES SET 1 



PACE 34 



16320 
16330 
16)40 

16390 
16360 
16370 
16380 
16390 
16400 
16410 
16620 
16430 
16460 
16450 
16460 
16470 
16480 
16490 
16500 
16510 
16520 
16530 
16540 
16550 
16560 
16570 
16580 
16590 
16600 
16610 
16620 
16630 
16640 
16650 
16660 
16670 
16680 
16690 
16700 
16710 
16720 
16730 
16740 
16750 
16760 
16770 
16780 
16790 
16800 
16810 
16820 
16830 
16840 
16850 
16860 



•••••• 

•••••• 



DORG 

TFM FMONMl ••-START 
DC 2 ,6 

-6 

B FMON 
OORG «-4 

1620 FORTRAN I!-0 



• •-3 



•••••• 

•••••• 

•••••• 

WRIT! I 



HRTI2 
MRTI 



IDIG 
HQ 



TFM 
TF 
BNF 
SM 
TF 
TF 
B 

DORG 
TOM 
TR 
TFM 
SM 
SM 
TO 
BO 
B 

D0R6 »-4 
TF HO 



WA2 

FAC 

WRTI2M2 
LOC 
FAC-2 
FIXEN0*6 
FIX 
• -4 

FIXENO*! 
GAM- 19 

HO 

HA 2 
HA 
HA 

I DIG 
I DIG+12 



HA FORNAT - SUBROUTINES 
RETURN FROM SHL VIA SMC IF WRITING I TYPE 
VALUE PUT IN FAC IN I FOAM, EXPANDED TO ALPHA IN 
GAMMA RIGHT TO LEFT. HO CONTAINS AOR OF HIGH OROER 
DIGIT IN GAM* AFTER VALUE IN GAM IS S IGNEO, CHECKED 
FOR WIDTH, MOVE TO OUTPUT RECORD. 

ERF8I RESULTS IF VALUE TOO LARGE FOR FORMAT SPECS. 
,FAC*l 



HRTSGN 
HRTI3 



CF 

OS 

BNF 

CM 

BNE 

TFM 

B 

OORG 
BNF 
SM 
TFM 

TFM 

S 
C 

BH 
SF 
OS 
A 

SM 
TR 
TFM 
B 

DORG 
TR 



GAM 

5 

HRTI 

HO 

HRT SGN 
LAST 
BSHF 
•-4 

HRT 13 

HO 

HO 

HO 

OUT 

OUT 

OUT 

ER F8 I 

OUT 

5 

OUT 

OUT 

OUT 

LAST 

8SHF 

•-4 

DUO H*ll 



-1 



,LOC 
,FAC- 
• 2 

.LOC 

,ICON3*6 



.MASK l-l 
.GAM+l 

• I 

• 2 

.HA 2 

• HA 2 



«£am+i 



.11 



611 
11 



.7000 



.FAC 

.2 

.20 

• 1 

• GAM 

• HO 

.WIDTH 2 



• LAST 

• 2 

• HO 

• 00 



,68 



HI ORDER HKG AOR IN I/O RECORD. I TYPE 



• 611 
,610 



04578 

04578 14 07165 -0727 
04586 2 

04590 49 07154 00000 
04597 



PREVENTS PREMATURE TERM. FOR NEG ARG 
AOR OF HI ORDER HON ZERO DIGIT 



04598 


16 


07084 


-2493 


04610 


26 


02492 


0598J 


04622 


44 


04690 


02491 


04634 


12 


05981 


-0002 


04646 


26 


02490 


05 98 J 


04658 


26 


03766 


05328 


04670 


49 


03854 


00000 


04677 








04678 


15 


03761 


00002 


04690 


31 


02536 


05330 


04702 


16 


04793 


-2556 


04714 


12 


07084 


-0001 


04726 


12 


06933 


-0002 


04738 


25 


0693L 


0708M 


04750 


43 


04770 


0708M 


04762 


49 


04782 




04769 








04 7 70 


26 


04793 


06933 


04782 


33 


02555 


00000 


04793 




5 




04794 


44 


04714 


06931 


04806 


14 


04793 


-2556 


04818 


47 


14850 


01200 


04830 


16 


05730 


OPOOO 


04842 


49 


05826 


00000 


04849 








04850 


44 


04884 


02492 


04862 


12 


04793 


-0002 


04874 


16 


0479L 


OOOKO 


04886 


12 


04793 


-0001 


04898 


16 


04957 


-2555 


04910 


22 


04957 


04793 


04922 


24 


04957 


05956 


04934 


46 


05014 


01100 


04946 


32 


04957 


00000 


04957 




5 




04958 


21 


04957 


05736 


04970 


12 


04957 


-0002 


04982 


31 


0495 P 


0479L 


04994 


16 


05730 


000-0 


05006 


49 


05826 


00000 


05013 








05014 


31 


02618 


06260 



58 9 



1620 FORTRAN II-O SUBROUTINES 



16870 




TR 


OUD H*ll 


• HO 


• 11 


16880 




CM 


DAT I NH*2 


,08 


.10 


16890 




TFM 


EI+2 


•67800 


. . 


16900 




BL 


ER COM 2 






16910 




TF 


0ATDU0*2 


,DATINH*2 




16920 




TFM 


IORT 


,•♦23 




16930 




8 


IOPT 


•DATOUD-4 


.7 


16940 




B 


ER COM 2 






16950 




DORG 


•-4 






16960 


IF IX 


BP 


• ♦32 




. • 


16970 




TF 


FAC 


Ifxz 


t . 


16980 




B 


FIXEND 






16990 




DORG 


• -3 






17000 




TO 


MU-l 


.FAC-2 




17010 




C 


FAC 


.K 


. . 


17020 




BNH 


• ♦56 






17030 




TDM 


FXEAR+25 






17040 




TFM 


EI 




.9, 


17050 




TF 


FAC 


,FX9 


» . 


17060 




B 


FXERR 




17070 




DORG 


•-3 






17080 




CF 


FAC-2 


.2ER0-51 




17090 




TF 


BETA 


. • 


17100 




TF 


IMSA 


,FXZ 




17U0 




TF 


• ♦30 


.IMSAPF 


» » 


17120 




s 


• ♦18 


• FAC 




17130 




A 


DUMMY 


.FAC-2 




17140 




TF 


FAC 


• IMSA 




17150 




B 


MU 






17160 




OORG 


•-4 






17170 


IC0N3 


B 


HRT 12 




.1 


17180 




OORG 


•-4 






17190 


MASK I 


OAC 


11.0000000000* 








0000000000* 






17200 




DORG 


08000 






17210 




38 


A5 


.00702 




17220 




36 


A5 


.00703 




17230 




B 


•♦22 






17240 




DORG 


•-3 






17250 


A5 


OSC 


9 


.019499016 






019499016 






17260 




OSA 


FIX 






17270 




TRA 








17280 




TCD 


08000 







SETS ERROR F6 AND ERASES REC MARK 



YES 
NO 



STORE SIGN 

IS CHAR GREATER THAN K 

SET ERR TYPE 

SET ER E9« OVFL IN FIX 

YES, FAC • FX9 



CLEAR AOO AREA 
ALIGN DECIMAL POINTS 



17290 •••••• 1620 FORTRAN II-O EF-HTVPE 

17300 ••••• 1620 FORTRAN II-O EF-HTYPE 

17310 OORG START 

17320 OS 3 

17330 TFM FMON+11 ••-START 

17340 DC 2 *1 ,»-3 

-1 

17350 B FMON 



FORNAT 

FORMAT - SECONDARY LINKAGE 



05026 


31 


02618 


0479L 


05038 


14 


06059 


000-8 


05050 


16 


02617 


07800 


05062 


47 


07078 


01300 


05074 


26 


06051 


06059 


05086 


16 


00565 


-5109 


05098 


49 


00532 


-6045 


05110 


49 


07078 


00000 


05117 








05118 


46 


05150 


01100 


05130 


26 


02492 


02815 


05142 


49 


03760 


00000 


05150 








05150 


25 


03711 


02490 


05162 


24 


02492 


02221 


05174 


47 


05230 


01100 


05186 


15 


03701 


00001 


05198 


16 


02615 


00N79 


05210 


26 


02492 


02805 


05222 


49 


03676 


00000 


05230 








05230 


33 


02490 


00000 


05242 


26 


02603 


02716 


05254 


26 


02575 


02815 


05266 


26 


05296 


03298 


05278 


22 


05296 


02492 


05290 


21 


99999 


02490 


05302 


26 


02492 


02575 


05314 


49 


03712 


00000 


05321 








05322 


4R 


04678 


00000 


05329 








05331 




11 


X 2 


08000 








08000 


38 


08032 


00702 


08012 


34 


08032 


00703 


08024 


49 


08046 


00000 


08032 








08032 




9 




08045 




5 


X 1 


08045 




-3854 




08046 


36 


00000 


00500 


08058 


49 


00000 


00000 


08000 








03851 








03883 




3 




03854 


16 


07165 


-0003 


038*2 




2 




03866 


49 


07154 


00000 



5 90 



1420 FORTRAN 1 1*0 SUBROUTINES SfT t 



PACE 34 



17340 


TFM 


F MOM* 1 1 


••-START 




03878 


14 


07145 


-0027 


17J70 


OC 


2 


• I 


• •-3 


03884 




2 




17380 


-I 

s 


FMON 






03880 


49 


07194 


00000 


173*0 


TFN 


F MOM* 11 


••-START 




03802 


14 


07165 


-0051 


17400 


OC 
- 1 


2 


• 1 


• •-3 


03810 




2 




17410 




FMON 






03814 


49 


07154 


00000 


17420 




FMON* 11 


••-START 




03824 


14 


07145 


-0075 


17430 


OC 
-I 


2 


, 1 


• •-3 


03834 




2 




17440 




FMON 










07154 


00000 


17450 


tfh 


FHON*U 


••-START 




03890 


14 


07165 


-0099 


17460 


oc 
-i 


2 


( 1 


• •-3 


03*98 




2 




1 7470 


g 


FMON 






03942 




071 54 




17*80 


TFH 


FMON* 11 


••-START 




03974 


14 


07165 


-0123 


17490 


DC 


2 


, 1 


• •-3 


03982 




2 




17500 


-1 
B 


FMON 






03984 


49 


07154 


00000 


1 75 10 


TFM 


FMON* I 1 


START 






14 




-0147 


175?0 


DC 
-1 


2 




• •-3 


04004 




2 




17510 


8 


FMON 






04010 


49 


07154 


00000 


175*0 


DORG 


•-1 






04020 








1 7550 


TFH 




••-START 






14 




-0169 


17*60 


DC 


2 




• •-3 


04028 




2 




17570 


-1 
8 


FMON 




• 8 


04032 


49 


07154 


0-000 


1 7580 










04042 








17590 


TFH 


FMON* 1 1 


••-START 




04042 


14 


07165 


-0191 


17600 


DC 
-1 


2 


1 1 


• •-3 


04050 




2 




17610 










04054 


49 


071 54 




17620 


TFH 


FMON* 11 


••-START 




04044 


16 


07165 


-0215 


17630 


DC 


2 


1 1 


• •-3 


04074 




2 




1 7640 


-I 
g 








04078 


49 


071 54 


00000 


17650 


TFH 


FMON* I I 


••-START 




04090 


16 


07165 


-0239 


17660 


DC 
-1 


2 


, 1 


• —3 


04098 




2 




17670 


5 


FMON 






04 102 


49 


071 54 


IIAAnA 


17680 


TFM 


FMON* 11 


••-START 




04114 


16 


07165 


-0263 


17690 


DC 
- 1 


2 




• •-3 


04122 




2 














04126 


49 


07154 


00000 


17710 


TFH 


FMON* 11 


••-START 




04138 


16 


07165 


-0287 


17720 


DC 
-1 


2 


v i 


• •-3 


04144 




2 




17730 


B 


FMON 






04150 


49 


07154 


00000 


17740 


TFM 


FMON* 11 


••-START 




04162 


16 


07165 


-0311 


17750 


DC 

-1 


2 




• •-3 


04170 




2 




17760 


B 


FMON 






04174 


49 


07154 


00000 


17770 


TFM 


FMON* 11 


••-START 




04186 


16 


07165 


-0335 


17780 


OC 
-1 


2 




• •-3 


04194 




2 





1620 FORTRAN II-O SUBROUTINES SET 1 PAGE 37 



17790 




B 


FMON 




04198 


49 


07154 


00000 


17800 




TFM 


FMON* 11 


.•-START 


04210 


16 


07165 


-0359 


17810 




OC 
-2 


2 


»2 ••-3 


04218 




2 




17820 




& 


FMON 




04222 


49 


07154 


00000 


17830 




TFM 


FMON* 11 


••-START 


04234 


16 


07165 


-0383 


17840 




OC 
-2 


2 


•2 ••-S 


04242 




2 




17850 




B 


FMON 




04246 


49 


07154 


00000 


17860 




TFM 


FMON* 11 


••-START 


04258 


14 


07165 


-0407 


17870 




DC 


2 


• 2 t—3 


04264 




2 




17880 




-2 
8 


FMON 




04270 


49 


07154 


00000 


17890 


• ••• 






WRITE ALPHAMERIC 










17900 




TF 


SWF 


•WATY-l 


04282 


24 


05861 


04281 


17910 




B 


WATVl 




04294 


49 


05498 


00000 


17920 




TF 


SWF 


•WAPT-1 


04304 


26 


05861 


04305 


17930 




B 


WAPT1 




04318 


49 


05518 


00000 


17940 




TF 


SWF 


•WACO- I 


04330 


26 


05861 


04329 


17950 




B 


WAC01 




04342 


49 


05536 


00000 


17960 


• ••• 






READ ALPHAMERIC 










17970 




TF 


SWF 


•RATY-1 


04354 


26 


05861 


04353 


17980 




B 


RATY1 




04364 


49 


05862 


00000 


17990 




TF 


SWF 


•RAPT-1 


04378 


26 


05861 


04377 


18000 




B 


RAPT1 




04390 


49 


05882 


00000 


18010 


EF2SW 


DS 


5 


t m 


04401 




5 




18020 




TF 


SWF 


•RACO-1 


04402 


26 


05861 


04401 


18030 




B 


RAC01 


• .8 


04414 


49 


05902 


0-000 


18040 




OORG 


•-1 




04424 








18050 




TFM 


FMON* 11 


••-START 


04424 


16 


07165 


-0573 


18060 




OC 
-4 


2 


.4 , — 3 


04432 




2 




18070 




B 


FMON 


• 8 


04434 


49 


07154 


0-000 


18080 




DORG 


•-1 




04444 








18090 




TFM 


FMON* 11 


••-START 


04444 


16 


07165 


-0595 


18100 




DC 


2 


•5 ,«-3 


04454 




2 




18110 




-5 
B 


FMON 


• .8 


04458 


49 


07154 


0-000 


18120 




DORG 


•-1 




04448 








18130 




TFM 


FMON* 11 


••-START 


04448 


16 


07165 


-0617 


18140 




DC 
-8 


2 


•8 ,«-3 


04474 




2 




18150 




B 


FMON 


• •* 


04480 


49 


07154 


0-000 


18160 




DORG 


•-1 


04490 








18170 




TFM 


FMON* 11 


••-START 


04490 


16 


07165 


-0639 


18180 




OC 


2 


.9 ,»-3 


04498 




2 




18190 




-9 
8 


FMON 


• .8 


04902 


49 


07154 


0-000 


18200 




DORG 


•-1 




04912 








18210 




TFM 


FMON* 11 


••-START 


04912 


14 


07165 


-0441 


18220 




DC 


2 


•8 ••-3 


04920 




2 




18230 




-8 
8 


FMON 


• 


04924 


49 


07154 


0-000 


18240 




DORG 


•-1 




04934 








18250 


• ••• 






MACRO FOR F TYPE READ A NO WRITE 










18260 


FTVPE 


CF 


RWEFSW 




04934 


33 


09993 


00000 



1620 FORTRAN 1 1-0 SUBROUTINES SET 1 



PAGE 38 



18270 




B 


EF COM 




• 8 








04546 


49 


04600 


0-000 


18280 




DORG 


•-1 












04556 








18290 


• ••e 






MACRO FOR E 


TYPE 


READ ANO 


WRITE 












18300 


ETYPE 


SF 


RWEFSW 












04556 


32 


05953 


00000 


18310 




8 


EFCOM 


» 


,9 








04568 


49 


04600 


0-000 


18320 




DORG 


•-1 












04578 








18330 


HTVPE 


AN 


SWF 


.3 










04578 


1 1 


05861 


-0003 


18340 




B 


HTYPE1 


t 


1 8 








04590 


49 


05192 


0-000 


18350 




OORG 


•-1 












04600 








18360 


• •••• 


1620 FORTRAN II-D EF- 


HTVPE 


FORMAT 


- SUBROUTINES 










18370 


EFCON 


AN 


SWF 


t3 










04600 


1 1 


05861 


-0003 


18380 




TF 


WIDTH 


• SWF 


• 11 








04612 


26 


05715 


0586J 


183^0 




AM 


SWF 


1 2 










04624 


1 1 


05861 


-0002 


18400 




TF 


LOC 0 


f SWF 


• 11 








04636 


26 


05608 


0S86J 


18410 




TF 


INPLUS 


t LAST 










04648 


26 


05945 


05736 


18420 




TF 


WIDTH 2 


•WIDTH 










0466Q 


26 


05956 


05715 


18430 




A 


WIDTH 2 


t WIDTH 










04672 


2 1 


05956 


05715 


18440 




A 


LAST 


•WIDTH2 










04684 


21 


05736 


05956 


18450 




C 


LAST 


• MAX 2 










04696 


24 


05736 


06037 


18460 




BH 


ER F9 












04708 


46 


07002 


01 100 


I 84 70 




TF 


TERM 


• LAST 










04 720 


26 


06785 


05736 


1 8480 




SM 


TERM 


,2 










04732 


12 


06785 


— 0002 


18490 




TF 


CHAR 


• WIOTH 










04744 


26 


07108 


05715 


18500 




TF 


WA 


»FNH 










04756 


26 


06933 


03313 


18510 




TOM 


97 


• 0 












1 5 




nnnnn 


18520 




TFM 


99 


• 00 


* 10 








04780 




00099 




18530 




BO 


EF WRT 


•RWEFSW 










04 792 


43 


05028 


05953 


1 8540 




TF 


FAC 


•FLIALP 


» i I 










f A 




0 44Afl 


18550 




TFM 


SWCAOJ 


•READ EF 












J* 


nAH44 




1 8560 


ROFCH 


CM 


INPLUS 


• 00 


• 61 0 • 


ELIMINATE LEADING 


BLANKS 






n«Q4M 


nnn-n 






8NE 


FCH NB 














47 




n ->nn 


18580 




SM 


CHAR 


,1 


• 10 








04852 




07108 


000-1 


1 8590 




AM 


INPLUS 


.2 










04864 




05945 


— 0002 


18600 




C 


INPLUS 


• LAST 


















186 1 0 




BL 


RD FCH 












04888 


47 


04828 


01 300 


1 8620 




TFM 


EF2SW 


• EFEN0M2 










04900 




04401 


-5212 


1 8630 




B 


BEF2SW 












049 12 


49 


u S 384 


ooooo 


1 8640 




DORG 


• -4 




















18650 


FCHNB 


CM 


INPLUS 


• 20 


• 610* 


PROCESS 


FIRST NON 


BLANK CHARACTER 




1 4 


s , 


UU UK U 


1 8660 




BNE 


• ♦32 












0*932 


47 


04964 








TFM 


EF2SW 


•EF MIN 










04944 


16 


04401 


-4632 


1 8680 




B 


BEF2SW 












04956 


49 


05 384 


OOOOO 


18690 




DORG 


♦-4 




















1 8700 




CM 


INPLUS 


.10 


• 610 








04964 


I 4 


0594N 


_ 

0 00 sf 0 


18710 




BNE 


• ♦32 












04976 


47 


05008 


0 1 200 


18720 




TFM 


EF2SW 


•EF PLUS 


















18730 




B 


BEF2SW 












05000 


49 


05384 


ooooo 


18740 




DORG 


•-4 












05007 








18750 




TFM 


EF2SW 


• EFTYPE06 








05008 


16 


04401 


-4692 


18760 




B 


BEF2SW 












05020 


49 


05384 


OOOOO 


18770 




DORG 


«-4 












05027 








18780 


EFWRT 


C 


LOC 0 


»F 










05028 


24 


05608 


02219 


18790 




BNH 


• ♦24 












05040 


47 


05064 


01100 


18800 




TF 


LOC 0 


• F 










05052 


26 


05608 


02219 


18810 




TF 


LOCO 2 


• LOC D 










05064 


26 


05606 


05608 


18820 




A 


LOCO 2 


• LOC D 










05076 


21 


05606 


05608 
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18830 
18840 
18850 
18860 
18870 
18880 
18.890 
18900 
18910 
18920 

18930 •••• 
18940 HTYPEl 

18950 
18960 
18970 
18980 
18990 
19000 
19010 
19020 
19030 
19040 
19050 

19060 HWRT 

19070 

19080 

19090 

19100 

19110 

19120 

19130 

19140 BEF2SW 

19150 

19160 

19170 
19180 

19190 MASKF 

19200 
19210 
19220 
19230 
19240 
19250 A6 

19260 

19270 
19280 



TR 


GAM-59 


•MASK F-l 




05088 


31 


02496 


05416 


TFM 


WA 


• GAM 




05100 


16 


06933 


-2555 


TFM 


WA2 


•FAC-1 




05112 


16 


07084 


-2491 


TFM 


SWCADJ 


• EFMW 




05124 


16 


06044 


-4490 


SM 


WIDTH 


• 2 


• 10 


05136 


12 


05715 


000-2 


BNF 


SWL 


•RWEFSW 




05148 


44 


05934 


05953 


SM 


TERM 


• 8 




05160 


12 


06785 


-0008 


SM 


WIDTH 


.4 


• 10 


05172 


12 


05715 


000-4 


B 


SWL 






05184 


49 


05934 


OOOOO 


DORG 


•-4 






05191 












MACRO FOR HOLLERITH TYPE REAO AND WRITE 










TF 


WIDTH2 


• SWF 


• 11 


05192 


26 


05956 


0586J 


TF 


INPLUS 


• LAST 




05204 


26 


05945 


05736 


A 


LAST 


•WI0TH2 




05216 


21 


05736 


05956 


C 


LAST 


• MAX2 




05228 


24 


05736 


06037 


BNH 


• ♦32 






05240 


47 


05272 


01100 


A 


SWF 


•WIDTH2 




05252 


21 


05861 


05956 


B 


ER COM 2 






05264 


49 


07078 


OOOOO 


OORG 


•-4 






05271 








BD 


HWRT 


•RWEFSW 




05272 


43 


05304 


05953 


TFM 


EF2SW 


• HRD 




05284 


16 


04401 


-5356 


B 


BEF2SW 






05296 


49 


05384 


OOOOO 


OORG 


•-4 






05303 








SM 


WIDTH 2 


• 2 
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05304 


12 


05956 


000-2 


TDM 


COMPSW 


.0 




05316 


15 


05678 


OOOOO 


BL 


BSWF 


» 




05328 


47 


05826 


01300 


AM 


SWF 


• 2 




05340 


11 


05861 


-0002 


TF 


INPLUS 


• SWF 


• 611 


05352 


26 


0594N 


0586J 


AM 


INPLUS 


• 2 




05364 


U 


05945 


-0002 


B 


H WRT 






05376 


49 


05304 


OOOOO 


DORG 


•-4 






05383 








TFM 


MB ASE ♦ 5 


•FTYPE 




05384 


16 


07398 


-4534 


TFM 


FMON^ll 


,HTYPE^22- 


START 


05396 


16 


07165 


-0749 


DC 
-7 


2 


.7 


• •-3 


05404 




2 




B 


FMON 






05408 


49 


07154 


OOOOO 


DORG 


•-4 






05415 








DAC 


31*000000000000000000000000000000* 


05417 




31 


X 2 


000000000000000000000000000000 • 










DORG 


08000 






08000 








38 


A6 


•00702 




08000 


38 


08032 


00702 


36 


A6 


•00703 




08012 


36 


08032 


00703 


B 


•♦22 






06024 


49 


08046 


OOOOO 


DORG 


•-3 






08032 








DSC 


9 


•019515017 


08032 




9 




019515017 














DSA 


FIX 






08045 




5 


X 1 










08045 




-3854 




TRA 








08046 


36 


OOOOO 


00500 










08058 


49 


OOOOO 


OOOOO 


TCO 


08000 






08000 
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FORMAT 

FORMAT - SUBROUTINES 
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PAGE 40 



19120 




If* 


FMON* I I 


••-START 




04536 


14 


07165 


-0683 






oc 


2 


• 6 


• •-1 


04542 




2 




19340 




-6 
8 


FMON 


« 


.8 


04546 


49 


07154 


0-000 


191*0 




DORG 


•-1 






04556 








19160 




TFM 


FMON* 11 


UL-SUIT. 




04556 


14 


07165 


-0705 


19170 




OC 


2 


.6 




04564 




2 




19180 




-6 
8 


FMON 


• 


.8 


04568 


49 


07154 


0*000 


19190 




DORG 


•-1 






04578 








19400 




TFM 


FMON* 1 1 


••-START 




06978 


14 


07165 


-0727 


1941C 




DC 


2 


.6 ilrl 


0456* 




2 




19420 




-6 
8 


FMON 






04590 


49 


07154 


00000 


19410 




OORG 


•-1 






04600 








19440 




TFM 


M6ASE+5 


• FIX 




04600 


16 


07398 


-3854 


19450 




TFM 


EFTERN*18 


•EF TYPE 




04612 


16 


05194 


-4656 


19440 




8 


EF2SW 


-i 


.6 


04624 


49 


0440J 


00000 


19470 




OORG 


•-4 






04611 








19480 


EFMIN 


SF 


99 






04632 


32 


00099 


00000 


19490 


EFPLUS 


SM 


CHAR 


.1 


• 10 


04644 


12 


07108 


000- I 


19500 


EFTYPE 


AM 


INPLUS 


• 2 




04656 


11 


05945 


-0002 


19510 




CM 


INPLUS 


• 00 


• 610 


04668 


14 


0594N 


000-0 


19520 




8E 


LOG DIG 






04680 


46 


05016 


01200 


19510 




CM 


INPLUS 


.70 


• 610 


04692 


14 


0594N 


OOOPO 


19540 




BH 


EF DIG 






04 704 


46 


05116 


01100 


19550 




BE 


LOG DIG 






04716 


*6 


1>*016 


01200 


19560 




CM 


INPLUS 


.03 


•610 


04728 


I* 


059*N 


000-3 


19570 




BE 


EF DEC 






04740 


*6 


05048 


01200 


19580 




BNF 


ERRF7 E 


• RMEflM 




04752 


44 


05324 


05953 


19590 




TFM 


EXP 


• 000 


.9 


04764 


16 


0*785 


00-00 


19600 




TOM 


E EXPA0*1 


.1 




04776 


15 


04997 


00001 


19610 


EXP 


OS 


1 


• •-2 


, VALUE OF CALC CHAR FOR OUTPUT 


04785 




3 




19620 




CM 


INPLUS 


.45 


.610 


04788 


14 


0594N 


000M5 


19610 




BE 


E EXP 






04800 


46 


04952 


01200 


19640 


EEXP2 


CM 


INPLUS 


.20 


.610 


04812 


14 


0594N 


OOOKO 


19650 




BE 


E EXP M 






04824 


46 


04940 


01200 


19660 




CM 


INPLUS 


.10 


• 610 


04816 


14 


0594N 


OOOJO 


19670 




BE 


E EXP 






04848 


46 


04952 


01200 


19680 


EEXP22 


BO 


•♦24 


.97 




04860 


43 


04B84 


00097 


19690 




SM 


CHAR 


• 1 


.9 


04872 


12 


07108 


00-01 


19700 




C 


INPLUS 


. TERM 




04864 


24 


05945 


06785 


19710 




BNL 


EEXPAD-12 




04896 


46 


04984 


01300 


19720 




TO 


EXP-1 


.INPLUS 


.11 


04908 


25 


04784 


0594N 


19730 




AM 


INPLUS 


.2 




04920 


It 


05945 


-0002 


19740 




B 


EEXP22*12 




04932 


49 


04872 


00000 


19750 




OORG 


•-4 






04939 








19760 


EEXPM 


TDM 


E EXPA0*l 


.2 




04940 


15 


04997 


00002 


19770 


EEXP 


AM 


INPLUS 


.2 




04952 


11 


059*5 


0002 


19780 




SM 


CHAR 


.1 


.10 


04964 


12 


07108 


000-1 


19790 




B 


E EXP 2 






04976 


49 


04812 


00000 


19800 




OORG 


•-4 






04983 








19810 




TO 


EXP 


• INPLUS 


.11 


04984 


25 


04785 


0594N 


19820 


EEXPAO 


A 


CHAR 


• EXP 




04996 


21 


07108 


04785 


19830 




B 


EF ENO 






05008 


49 


05200 


00000 


19840 




OORG 


•-4 






05015 
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19850 
19860 
19870 
19860 
19890 
19900 
19910 
19920 
19930 
199*0 
19950 
19960 
19970 
19980 
19990 
20000 
20010 
20020 
20030 
20040 
20050 
20060 
20070 
20080 
20090 
20100 
20110 
20120 
20130 
20140 
20150 
20160 
20170 
20180 
20190 
20200 
20210 
20220 
20230 
20240 
20250 
20260 
20270 
20280 
20290 
20300 
20310 
20120 

20330 



20340 
20350 



BNF 

SM 

B 

DORG 

BO 

TFM 

TFM 

TOM 

SM 

B 

OORG 

CF 

CM 

BNL 

TO 



EF DIG 
CHAR 
EF TERM 
•-4 

ERRF7 E 
LOC D 



.98 
• 1 



.97 
,00 



EFTERM*18«EF PLUS 



97 
CHAR 
EF TERM 
•-4 
98 
MA 

• ♦36 
MA 



EFTERM 
EFENO 



EFEN02 



HA 

INPLUS 
EFTYPE 
EFEND2 
FAC 
SML 
-3 
CHAR 
ERR F7E 
CHAR- I 
FAC 
FNH 
SML 
FAC-2 
SML 
•4 
FAC 
EI 

EFEND 
•-4 
WIDTH 2 
BSMF 
SWF 
SWF 

INPLUS 
HRQ 
DORG •-* 
DORG 01000 
36 AT 
36 A7 
8 »*22 

OORG f-1 

OSC 9 
019532009 
OSA FTVPE 



TRA 

TCO 08000 



C 

BL 
BNF 
TFM 
B 

OORG 
S 

BD 

SF 

TF 

SF 

BNF 

SF 

B 

OORG 
TF 
TOM 
B 

OORG 
SM 
BL 
AM 
TF 
AM 
6 



,-i 
.1 



• INPLUS 

• 1 

• TERM 



,611 



TRUNCATES LOW OROER DIGITS 



• FNH 
.99 



• LOC D .. . 
•CHAR-2 



• CHAR 



• U. 

.1011 



ZERO CHECK 



♦FL2ALP 

.7 



.2 

.INPLUS 
.2 



•00702 
tOOTOJ 



• 11. 

• u. 



F PLUS 2 ZEROS TO FAC 

SET ER FT INDICATION SWITCH 
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•611 



05016 


44 


05116 


00098 


05028 


12 


07108 


000-1 


05040 


49 


05176 


00000 


05047 








05048 


43 


05124 


00097 


05060 


16 


05606 


000-0 


05072 


16 


05194 


-4644 


05084 


15 


00097 


OOOOJ 


05096 


12 


07108 


000-1 


05108 


49 


05176 


00000 


05115 








05116 


33 


00098 


00000 


05128 


14 


06933 


-2491 


05140 


46 


05176 


01300 


05152 


25 


0693L 


0594N 


05164 


11 


06933 


-0001 


05176 


24 


05945 


06785 


05188 


47 


04656 


01300 


05200 


44 


05232 


0331L 


05212 


16 


02492 


OOORR 


05224 


49 


0593* 


00000 


05232 








05232 


22 


07108 


05608 


05244 


43 


05324 


07106 


05256 


32 


07107 


00000 


05268 


26 


02492 


07108 


05280 


32 


0331L 


00000 


05292 


44 


05934 


00099 


05304 


*2 


02*90 


onooo 


05316 


49 


05934 


00000 


05323 








05324 


26 


02492 


01140 


05336 


15 


02615 


OOOOP 


05366 


4V 


05200 


00000 


05355 








05356 


12 


05956 


000-2 


05366 


47 


05826 


01100 


05380 


It 


05861 


-0002 


03392 


26 


0566J 


0594N 


05404 


11 


05945 


-0002 


09416 


49 


05356 


00000 


05423 








06000 








06000 


36 


08032 


00T02 


06012 


16 


08032 


00701 


08024 


49 


08046 


00000 


06032 








06032 




9 




06045 




5 


X I 


06065 




-4534 




0606* 


3* 


00000 


00900 


06096 


4* 


00000 


00000 



596 
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20360 < 

20370 

203S0 

20390 

20400 

20410 

20420 

20430 

20440 
20450 
20460 

20470 
20480 
20490 

20500 
20510 
20520 

20«>30 
20540 
20550 

20560 
20570 
20580 

20590 
20600 
20610 
20620 

20630 
20640 
20650 
20660 

20670 
20680 
20690 

20700 
20710 
20720 

20730 
20740 
20750 

20760 
20770 
20780 
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DORG 


START 


OS 


} 


CM 


FAC 


g 


EFFIX 


TFM 


FMON* 11 


DC 


2 


- 1 




g 


FMON 


TFM 


FHQN* 1 1 


DC 








B ^ 




TFM 


r WON* 1 1 


DC 
_ i 




g 


F MON 


TFM 


F M0N* 1 1 


DC 


2 


" * 






FMON 


TFM 


F MON* 1 1 


DC 




~* 




?_ 


FMON 




FMON* 1 1 


DC 


2 


-1 




8 


FMON 




*~ i., . . 


TFM^ 


r MQN* 1 1 


DC 










_ 


nnor 


l 






i 






_ 


TFM 


F MOW 1 


r»r 


* 










TFM 


r MON* 1 1 




2 


- 1 




8 


FMON 


TFM 


FMON*ll 


DC 


2 


-1 




B 


FMON 


TFM 


FMON*U 


DC 


2 


-1 




B 


FMON 



•-START 
1 



•-START 
1 



•-START 
1 



•-START 
1 



.10, 

• •-J 

• •-3 



IS CHAR POSITIVE 



•-START 

I 



•-START 
1 



•-START 
1 



.•-3 



03851 








03853 




3 




03854 


1 4 


02492 


000-0 








nnnnn 

UvUUU 


03878 


16 


07165 


-0027 


03866 




2 




03890 


49 


07154 


nnnnn 


03902 


16 


07165 


-0051 


03910 




2 




03914 


49 


071 54 


/VAAAA 

ouuoo 


03926 


16 


07165 


-0075 


03934 




2 




03"38 


49 


071 54 


00000 


03950 


16 


07165 


-0099 


03958 




2 




03962 


49 


07154 


ooooo 


03974 


16 


07165 


-0123 


03982 




2 




03986 


49 


07154 


OOOOO 


03998 


16 


07165 


-0147 


04006 




2 




04010 


49 


07154 


OOOOO 


04020 








04020 


16 


07165 


— 0169 


04028 




2 




04032 


49 


071 54 


0-000 


04042 








04042 


16 


07165 


-0191 


04050 




2 




04054 




07154 


00000 


04066 


16 


07165 


-0215 


04074 




2 




04078 


49 


07154 


OOOOO 


04090 


16 


07165 


-0239 


04098 




2 




04102 


49 


07154 


OOOOO 


04114 


16 


07165 


-0263 


04122 




2 




04126 


49 


07154 


OOOOO 


04138 


16 


07165 


-0287 


04146 




2 




04150 


49 


07154 


OOOOO 



597 
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20800 




TFM 


FMON* 1 1 


.•-START 


04162 


16 


07165 


-0311 


20810 




DC 
-1 


2 


.1 ,*-3 


04170 




2 




20820 




8 


FMON 




04174 


49 


07154 


OCOOO 


20830 




TFM 


FMON* 1 1 


.•-START 


04186 


16 


07165 


-0335 


20840 




DC 


2 


.1 ,»-3 


04194 




2 




20850 




-1 
B 


FMON 




04198 


49 


07154 


OOOOO 


20860 




TFM 


FMON* 1 1 


.•-START 


04210 


16 


07165 


-0359 


20870 




DC 
-2 


2 


♦2 ,»-3 


04218 




2 




20880 




8 


FMON 




04222 


49 


07154 


OOOOO 


20890 




TFM 


FMON* 1 1 


.•-START 


04234 


16 


07165 


-0383 


20900 




DC 
-2 


2 


.2 ,»-3 


04242 




2 




20910 




8 


FMON 




04246 


49 


07154 


OOOOO 


20920 




TFM 


FMON* 11 


.•-START 


04258 


16 


07165 


-0407 


20930 




DC 
-2 


2 


.2 ,«-3 


04266 




2 




20940 




8 


FMON 




042 70 


49 


07154 


OOOOO 


20950 








WRITE ALPHAMERIC 










20960 




TF 


SWF 


.WATV-1 


04282 


26 


05861 


04281 


20970 




8 


WATV1 




04294 


49 


05498 


OOOOO 


20980 




TF 


SWF 


.WAPT-l 


04306 


26 


05861 


04305 


20990 




8 


WAPTl 




04318 


49 


05518 


OOOOO 


21000 




TF 


SWF 


.WACD-l 


04330 


26 


05861 


04329 


21010 




a 


WACO I 




04342 


49 


05538 


OOOOO 


21020 


• »:•• 






READ ALPHAMERIC 










21030 




TF 


SWF 


•RATY-1 


04354 


26 


05861 


04353 


21040 




B 


RATY1 




04366 


49 


0586? 


OOOOO 


21050 




TF 


SWF 


.RAPT-1 


04378 


26 


05861 


04377 


21060 




8 


RAPTl 




04390 


49 


05882 


OOOOO 


21070 




TF 


SWF 


.RACD-l 


04402 


26 


05861 


04401 


21080 




8 


RACD1 


.8 


04414 


49 


05902 


0-000 


21090 




DORG 


•-1 




04424 








21100 




TFM 


FMON* 11 


.•-START 


04424 


16 


07165 


-0573 


21110 




DC 
-4 


2 


.4 ,«-3 


04432 




2 




21120 




B 


FMON 


. .8 


04436 


49 


07154 


0-000 


21130 




OORG 


•-1 




04446 








21140 




TFM 


FMON*ll 


* •-START 


04446 


16 


07165 


-0595 


21150 




DC 
-5 


2 


.5 ,»-3 


04454 




2 




21160 




8 


FMON 


.8 


04458 


49 


07154 


0-000 


21170 




DORG 


•-! 




04468 








21180 


REAOEF 


BNF 


EF RD2*12,L0C 


04468 


44 


04642 


05981 


21190 




B 


EF R01 


. .8 


04480 


49 


04598 


0-000 


21200 




DORG 


•-1 




04490 








21210 




TFM 


FMON* 11 


.•-START 


04490 


16 


07165 


-0639 


21220 




OC 
-9 


2 


.9 ,«-3 


04498 




2 




21230 




8 


FMON 


.8 


04502 


49 


07154 


0-000 


21240 




OORG 


• -1 




04512 








1250 


A T YPE 


AM 


SWF 


• 3 


04512 


11 


05861 


-0003 


1260 




B 


A TYPE I 


. .6 


04524 


49 


04922 


o-ooo 


270 




OORG 
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04644 


26 


0598J 


02490 




ERF 7S 


BNF 


BSWF-12 


• EI 


1 1 


BR IF NOT ERROR 


TYPE FT 
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•IMSAPF 
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04B5B 


26 


04888 


03298 


21690 




S 


•♦IB 


• FAC 








04870 


22 


04888 


02492 


21 700 




A 


DUMMY 


•FAC-2 
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06000 








25920 


DEND 




00000 









608 



1620 FORTH AN I 1-0 



SUBROUTINES 



SET 1 



PAGE 54 



ARGOUT 


07262 


PL 2 ALP 


03346 


AB 


08032 


FAX I 


04234 


GENT 


05706 


A TYRE I 


AA A * 9 


FLIERS 


06127 


A9 


08032 


PCHNB 


06920 


GM2F 


03733 


BE P2SW 


01)86 


FNFAXI 


06556 


AOO 


05592 


FD1 


06062. 


HNO 


03338 






FNCNEZ 


04930 


ATYPE 


04512 


FD 


06162 


HO 


04793 


CLR70S 


OS 158 


FX0R1 1 


06372 


AXJ 


05214 


FOVA 1 


06256 


HRO 


05356 


CON A 00 


02291 


FXNINE 


04932 


81 


06044 


FOVR 


04186 


HTVPE 


04576 


CONE NO 


06656 


FXSRll 


06212 


B2 


06044 


FH 


0330B 


HMRT 


05304 


CONPLT 


06698 


GN1N2F 


03526 


BAS 


07274 


FIL 


07607 


IC0N2 


05394 


CONRSM 


05676 


HTVPE 1 


05192 


BETA 


02603 


FIX 11 


06006 


IC0N3 


05322 


DARN ON 


05550 


I FLOAT 


05106 


BSMF 


05626 


FIX1 


04596 


ICONS 


04914 


0 ALONG 


05562 


MINUS 


06936 


CNAR2 


06706 


FIXIl 


0459B 


IC0N6 


05450 


DATOUQ 


06069 


_ JKiAPf . 


01291 


CHAR 


07108 


FIX I 


04210 


IDIG 


04770 


OAT INH 


06057 


I NOR 36 


05326 


CRN 


06673 


FIX 


03854 


IFIX 


05116 


DDPNON 


05558 


INOR60 


05350 


010 


00616 


FX ODD 


03427 


IFNRT 


04634 


D J ODD A 


03387 


INPLUS 


05945 


ORG 


05976 


FLOAT 


04042 


INS A 


02575 


DKBUFF 


02604 


IRBLMK 


04918 


0PTN2 


07142 


FL2 


03353 


INH 


06063 


OK OAT A 


03379 


ISPFM1 


03303 


OPT 


07137 


FN1NF 


03313 


IN 


06237 


EEXP22 


04 86Q 


I TYPE I 


04598 


OUOH 


02607 


FN1 


03623 


IOCAL 


00716 


EEXPAD 


04996 


LDGDIG 


05016 


OUO 


02687 


FNFAC 


03452 


I OCR 


06664 


6PALPH 


04650 


LQCAOJ 


06390 


OUNNY 


99999 


FNON 


07154 


IOGT 


00566 


EPCHKS 


04642 


NASREP 


05426 


EEXP2 


04612 


FNPU 


06672 


I OP T 


00532 


EFEND2 


05232 


NASKF1 


05437 


EEXPN 


04940 


FNPl 


058B2 


IORBC 


00520 


EPLOAT 


05150 


NATRI X 


06334 


EEXP 


04952 


FNP 


0613B 


IORT 


00565 


E FPL US 


04644 


NATRX2 


06418 


EF2SW 


04401 


FNMN1 


03356 


IOSK 


00554 


EFT EAR 


05176 


NE SERR 


02607 


EFALP 


04734 


FNH 


03313 


IRDIG 


04882 


EPTYPI 


04656 


MONCAL 


00796 


EFCOH 


04600 


FP1NX 


03283 


IREAD 


04730 


END FOR 


06063 


000 SET 


05446 


EFOEC 


05046 


FP2 


03605 


I TYPE 


04424 


E NOR 3 A 


05362 


ODOREV 


04832 


EFDIG 


0SU6 


F 


02219 


X2 


03648 


E NOR 60 


05406 


ONEFAC 


05076 


EFENO 


05200 


FSB I 


05284 


K 


02221 


ENTABS 


02323 


OVFLQW 


03652 


EFFIX 


04710 


FSBRl 


05830 


LAST 


05736 


ENTATN 


02313 


PROGS T 


02226 


EFNIN 


04632 


FS8R 


04114 


LNIO 


02980 


ENTCOS 


02303 


RAOOIT 


05754 


EFMW1 


04602 


FSB 


04066 


LN2 


02887 


ENTDED 


02298 


REAOEF 


04468 


EFNW 


04490 


FTYPE 


04534 


LN4 


02918 


ENTDRR 


02293 


REAOIF 


05038 


EFR01 


04598 


FX1 


02825 


LN8 


02949 


ENTEXP 


02253 


REPSW3 


05585 


EFR02 


04630 


FX9 


02805 


LNENT 


03368 


ENTFET 


02283 


RETARC 


07358 


EFWRT 


05028 


FXAU 


06198 


L0CD2 


05606 


ENTF ID 


02273 


RETURN 


07370 


EI 


02615 


FXA1 


04790 


LOCO 


05608 


ENTREC 


02278 


RS6N11 


06392 


ENOO 


03768 


FXA 


03878 


LOC 


05981 


ENTSCl 


02258 


RWEFSN 


05953 


ENTLN 


02246 


FXD11 


06290 


LOGE 


03010 


ENTSC2 


02263 


100MK 


03293 


ERF7A 


05190 


FXDl 


04882 


LV1 


03616 


ENTSC3 


02268 


102MF 


03343 


ERF7 


05074 


FXDR1 


04964 


M14 


05622 


ENTSIN 


02308 


2FH1 


03429 


ERF7S 


04678 


FXDR 


03998 


HANTP 


05798 


ENTSQT 


02318 


96NF 


03318 


ERF8E 


05226 


FXD 


03974 


MASKF 


05417 


ENTSMD 


02288 


97N2F 


03363 


ERF8I 


05014 


FXERR 


03676 


MASK I 


05331 


ERC0N2 


07078 


97HF 


03323 


ERF9 


07002 


FXH 


03283 


MASK 


05425 


ERF8ES 


04926 


98NF 


03328 


ERRET 


00602 


FXNll 


06264 


MATSW 


05583 


ERRF7E 


05324 


9 9 MR 


03288 


ERROR 


03676 


FXM1 


04856 


MAX2 


06037 


ERRF 71 


04958 


9SCPF 


02795 


ETYPE 


04556 


FXM 


03950 


MAX 


05924 


EXPENT 


03373 


9SPF 


02854 


EXP 


04785 


FXNIN 


04684 


MBASE 


07393 


FAXB 1 1 


06740 


A10 


08032 






FXN I 


06340 


MO ATA 


07377 


FINDIN 


03583 


Al 


08068 


FAC 


02492 


FXSR1 


04804 


MF 


03473 


FINISH 


03803 


A2 


08044 


FAD1 


05304 


FXSR 


03926 


MU 


03712 


FIXENO 


03760 


A3 


08032 


FAD 


04090 


FXS 


03902 


Nl 


02233 


FIX II i 


06334 


A5 


08032 


FAXB1 


05714 


FXZ 


02815 


N2 


02238 


FLOAT! 


05064 


A6 


08032 


FAXB 


04258 


FZERQ 


04974 


NOAOO 


05792 


FLTENO 


03810 


A7 


08032 


FAXIl 


05052 


GAN 


02555 


NOD IV 


05422 



60 9 







1620 FORTRAN II-D 


SUBROUTINES 


SET I 






PAGE ! 


55 


NORM 


05640 


RDFCH 


04828 


SOS 


05570 


MAPT1 


05518 


XTYPE 


07046 


OLWRB 


06988 


REAOA 


05050 


START 


03851 


MAPT 


04306 


ZERO 


02767 


OLWR 


05962 


READI 


04990 


STOP 


02395 


NA 


06933 


SETONE 


07032 


ONEZ 


03038 


RECLG 


02243 


sue 


05982 


WATYl 


05496 


SLASH2 


06524 


OUT 


04957 


RECMK 


02403 


SWF 


05861 


WATY 


04282 


STZERO 


06239 


PAR 


03378 


REDOA 


06762 


SML 


05934 


WIDTH 


05715 


SWCADJ 


06044 


POT 


03333 


REDO 


06718 


TAFE 


02535 


WRITE 


06632 


UNFLOW 


05760 


PI0V2 


03163 


REFSW 


04601 


TANA 


03248 


WRTA2 


05358 


WEFDEC 


05194 


PI0V4 


03191 


REP2 


06890 


TEN34 


03278 


WRTA 


05314 


NI0TH2 


05956 


PI 


03133 


REP 3 


06922 


TERM 


06785 


WRTE2 


04622 


MR I TEA 


05266 


PSU 


06428 


REP 


06818 


TOFAC 


03408 


HATE 


04994 


NRITEI 


04446 


PSI 


04728 


REPSH 


05582 


TRACE 


03496 


MRTF 


04726 


WRITIl 


04596 


RACD1 


05902 


RSGN1 


04984 


TRFX 


03564 


WRTFS 


05130 


MRTALP 


05550 


RACD 


04402 


RSGN 


04020 


TWOPI 


03103 


NRTI2 


04678 


MRTE2S 


05018 


RAPT I 


05882 


RWA2 


05670 


TWOZ 


03073 


NRTI3 


04886 


WRTFPC 


05050 


RAPT 


04378 


RWA 


05562 


UNFLO 


07020 


WRTI 


04714 


WRTFPE 


05018 


RATY1 


05862 


SAVE 


02565 


WA2 


07084 


W 


02240 


WRTSGN 


04850 


RATY 


04354 


SE 


06162 


MAS 


04601 


XFD 


06632 


ZERFAC 


03564 


ROAFL 


05210 


SHORT 


05574 


MAC01 


05538 


XFDVR 


06844 






ROALP 


05914 


SIX 


01219 


WACO 


04330 


XNORM 


06924 






RDA 


05146 


SLASH 


06492 


NAFX 


05378 


XSE 


06752 







END OF ONE 



ASSEMBLY. 



1*20 FORTRAN II-O SUBROUTINES SET 2 



611 









1620 FORTRAN 1 1 -0 SUBROUTINES 


SET 2 






00010 






1620 FORTRAN 11-0 SUBROUTINES 








00020 


• ••»• 




IORT ENTRY POINTS AND CONTANTS 








00090 


IORBC 


OS 


,520 




00520 


0 


00040 


10PT 


OS 


f532 




00532 


0 


00050 


IOSK 


OS 


,554 




00556 


0 


00060 


IOGT 


OS 


,566 




005*6 


0 


00070 


ERRET 


OS 


.602 




00*02 


0 


00080 


IORT 


OS 


,565 




005*5 


0 


00090 


IOCAI 


OS 


,716 




0071* 


0 


00100 


MONCAL 


OS 


,796 




0079* 


0 


00110 


010 


OS 


• •16 




0011* 


0 


00120 






1620 FORTRAN 1 1-0 IN CORE AREAS 








00130 


• •• 




COMMUNICATION AREA 









00140 
00150 
00160 
00170 
00160 
00190 
00200 
00210 
00220 
00230 
00260 
00250 
00260 
00270 
00260 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00310 
00390 
00400 
00410 





DORG 


2218 








02216 


F 


OS 


2,, 


FLOATING POINT MORO LENGTH 


02219 


K 


OS 


2*f 


FIXED 


POINT MORO 


LENGTH 


02221 


PROGST 


OS 


5,, 


STARTING ADDRESS 


OF MAINLINE PROGRAM 


0222* 


CO* A DO 


OS 


5,, 


STARTING ADDRESS 


OF COMMON AREA 


02231 


Nl 


OS 


2,, 


NUMBER OF MOROS IN LOGICAL RECORO i 


02231 


N2 


OS 


5,, 


NUMBER OF LOGICAL RECORDS 


0223B 


M 


OS 


2,, 


MORO LENGTH 






02240 


RECLG 


OS 


3,, 


RECORD LENGTH 






02241 


ENTIN 


OS 


5,, 


ENTRY 


AOORESS 


TO 


LOG SUBROUTINE 


0224B 


ENTEXP 


OS 


5,, 


ENTRY 


AOORESS 


TO 


EXPONENTIAL SUBROUTINE 


02251 


ENTSC1 


OS 


5», 


ENTRY 


AOORESS 


TO 


SINGLE SUBSCRIPT SUBROUTINE 


0223B 


ENTSC2 


OS 


5,, 


ENTRY 


AOORESS 


TO 


OOUBLE SUBSCRIPT SUBROUTINE 


022*1 


ENTSC3 


OS 


5,, 


ENTRY 


AOORESS 


TO 


TRIPLE SUBSCRIPT SUBROUTINE 


022*6 


ENTFIO 


OS 


5,, 


ENTRY 


AOORESS 


TO 


PINO SUBROUTINE 


02273 


ENTREC 


OS 


5,, 


ENTRY 


AOORESS 


TO 


RECORO SUBROUTINE 


0227B 


ENTFET 


OS 


5,, 


ENTRY 


AOORESS 


TO 


FETCH SUBROUTINE 


02283 


ENTSMO 


OS 


5,, 


ENTRY 


AOORESS 


TO 


SNITCH 0 SUBROUTINE 


022BB 


ENTDRR 


OS 


5,, 


ENTRY 


AOORESS 


TO 


ARRAY SUBROUTINE 


02291 


ENTOEO 


OS 


5,, 


ENTRY 


ADDRESS 


TO 


OISR END SUBROUTINE 


0229B 


ENTCOS 


OS 


5,, 


ENTRY 


AOORESS 


TO 


COSINE SUBROUTINE 


02101 


ENTSIN 


OS 


5,, 


ENTRY 


AMIES S 


TO 


SINE SUBROUTINE 


0210B 


ENTATN 


OS 


5t, 


ENTRY 


AOORESS 


TO 


ARCTANGENT SUBROUTINE 


02111 


ENTSQT 


DS 




ENTRY 


ADDRESS 


TO 


SflUARS ROOT SUBROUTINE 


021IS 


ENTABS 


OS 


5,, 


ENTRY 


ADDRESS 


TO 


ABSOLUTE SUBROUTINE 


02121 




OS 


70,i 


RESERVED FOR ENTRIES TO ADDED SUBROUTINES 


02191 


••••• 


C( 


JHMO* 


1 WORKING AREAS 






STOP 


OAC 


5, STOP* 








0219S 




STOP 














RECHK 


OS 




i 


STOP*! 






02401 


OK BUFF 


OSS 


29 










02*0* 


FAC 


OS 


60 










02*91 




oc 

• 


1 


t 


• 






02*91 


SAVE 


OS 


72 










02S*i 


•ETA 


OS 


n 










02*01 




OGM 












02*0* 


CAN 


DS 




• 


SAVE-IQ 






02111 


TAFE 


OS 




t 


SAVE -10 




02111 


I MIA 


DS 




• 4 


IIU-JI 






OlfTf 


ME SERB 


OAC 


6, El 


E • 








02*0? 




ER E 


• 












OUOM 


DS 




t 


MESERR 






02*07 



612 



1620 FORTRAN 1 1-0 SUBROUTINES SET 2 



PAGE 



2 



005*0 
00550 
005*0 
005T0 

00580 

00590 
00*00 

00*10 
00*20 

00630 

00640 

00650 
00660 

00670 
00680 

00690 

00700 

00710 

00720 

00730 

00740 
00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 
00850 
00860 



El 
OUO 



ZERO 
9SCPF 

• •••• 

FX9 

FXZ 
FX! 

9SPF 
LN2 

LN4 

LN8 

IN 10 

LOGE 

ONEZ 

TWOZ 
TWOPI 
PI 

PI0V2 
PI0V4 
SIX 
TAN6 
TEN34 



OS ,»-2 
OS 70 

1620 FORTRAN 1 1-0 FLOATING POINT CONTANTS 
OC 60 *0 

-000000000000000000000000000000000000000 
DSC 40 ,0 

0000000000000000000000000000000000000000 

OS •• 

OC 28 t 9999999999999999999999999999 

R999999999999999999999999999 

1620 FORTRAN 1 1— 0 FIXED POINT CONTANTS 
DC 10 t 9999999999 

R999999999 

DC 10 • 0000000000 

-000000000 

DC 10 • 0000000001 

-000000001 

CONSTANTS FOR RELOCATABLE SUBROUTINES 
DC 31 ,0 

-000000000000000000000000000000 
OS ,«»-2 

DC 31 ,0693147180559945309417232121458 

-693147180559945309417232121458 

DC 31 .1386294361119890618834464242916 

J386294361 1 19890618834464242916 

DC 31 ,2079441541679835928251696364375 

K079441 54167983592825 1696364375 

DC 31 ,2302585092994045684017991454684 

K 30258509299404568401 7991454684 

DC 30 ,434294481903251827651128918917 

* 3429448 190325 18276511289189 J 7 

DC 32 ,10000000000000000000000000000000 
JOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
OS ,»-4 
DC 2 ,01 

-1 

DC 29 ,20000000000000000000000000000 
KOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

DC 30 ,628318530717958647692528676656 

028318530717958647692528676656 

OC 30 ,314159265358979323846264338328 

L 1415926535897932 3846264 338328 

OC 30 ,157079632679489661923132169164 

J 5707963267948966 1923 1 32169 164 

OC 28 ,7853981633974483096156608458 

P 85 398 1 6339 7A4 83096 15660845 8 

DC 28 ,6000000000000000000000000000 

0000000000000000000000000000 

DC 29 ,54041950027058415544357836461 

N4041 950027058415544357836461 

DC 30 ,218776162394955256222611491638 

K 1877616239495525622261 1491638 

1620 FOR IRAN I I-D INDIRECT AODRESS BOXES AND MODIFIED 
CONSTANTS (USING K AND FJ 

OSA FAC* 1 



02*15 
02*87 



02727 
02728 



02767 
02795 



02805 
02815 
02825 

02856 

02854 
02887 

02918 

02949 

029B0 

03010 

03042 

03038 
03044 

03073 

03103 

03133 

03163 

03191 

03219 

03248 

03278 



0 
70 



40 
40 



0 
28 



10 
10 
10 



0 
31 

31 

31 

31 

30 

32 

0 
2 

29 

30 

30 

30 

28 

28 

29 

30 



61 : 



1620 FORTRAN II -0 SUBROUTINES SET 2 PAGE 3 











03283 


-2493 


00870 


FPIMK 


DS 


,FXH 


03283 


0 


00880 


99HK 


DC 5 


,99 


03288 


5 






-0099 








00890 


100MK 


DC 5 


,100 


03293 


5 






-0100 








00900 


IHSAPF 


DSA I MSA 




03298 


5 










03298 


-2575 


00910 


ISPFM1 


OSA IMSA-l 




03303 


5 










03303 


-2574 


00920 


FH 


DSA FAC 




03308 


5 










03 308 


-2492 


00930 


FNH 


DSA FAC-1 




03313 


5 










03313 


-2491 


00940 


FM1MF 


DS 


,FNH 


03313 


0 


00950 


96MF 


DC 5 


,96 


03318 


5 






-0096 








00960 


97MF 


DC 5 


,97 


03323 


5 






-0097 








00970 


98MF 


DC 5 


,98 


03328 


5 






-0098 








00980 


POT 


DC 5 


.99 


03333 


5 






-0099 








00990 


MNO 


DC 5 


.100 


03338 


5 






-0100 








01000 


102NF 


DC 5 


• 102 


03343 


5 






-0102 








01010 


FL2ALP 


DSA ZERO-78 




03348 


5 










03348 


-2*89 


01020 


FLZ 


DSA ZERO-80 




03353 


5 










03353 


-2687 


01030 


FNHM1 


DSA FAC-2 




03358 


5 










03358 


-2490 


01040 


97M2F 


DC 5 


• 97 


03363 


5 






-0097 








01050 


LNENT 


OC 5 


• 80 


03368 


5 






-0080 








01060 


EXPENT 


OC 5 


.36 


03373 


5 






-0036 








01070 


PAR 


DS 5 


• •♦5 


i NO OF ELEMENTS IN MATRIX TO PROCESS 03378 


5 


01080 




DS 5 




03378 


5 


01090 


DKDATA 


DSC 2 


• 00 


03379 


2 






00 








01100 




DSA OIODDA 




03385 


5 










03385 


-3387 


OHIO 




DC 1 
t 


• • 


0338* 


1 


01120 


D 1000 A 


DSC I 


.0 


03387 


I 



0 



1420 FORTRAN 1 1-0 SUBROUTINES MT t 



PAGE 4 



0 1 1 10 




DC 


5 


,0000 










03392 




9 








-0000 




















01140 




DC 


1 


• 000 










01390 




1 








-00 






















01130 




OSA 


0K8UPF 












03400 




5 


X 1 




















03400 




-2404 




01160 




DC 


I 












03401 




I 




01170 


• •••• 


1620 FORTRAN U-P 


JN COM 


SUBROUTINES 














01180 




OS 


j 












03404 




5 




01190 


TOFAC 


y ft 


• AC 


*ia FAt-L-ui 








03400 


26 


02492 


0340F 


01200 






TOFAC- I 


f 0102 


•0910 








03420 


12 


03407 


O-J-2 


01210 


2FMI 


n« 




t»*| 


• 


TWO TIMES F MINUS ONI 




03429 




0 




01220 


FKQOD 


n< 


1 


• •-4 


• 


0 F OR K 000, 1 F 


A NO 


K EVEN 


03427 




1 




01230 




TC 


FAC-2 


• TO FAC" 


1 »1 1 








03432 


26 


02490 


0340P 


01240 




88 














03444 


42 


00000 


00000 


01250 




OORG 


•-9 












03444 








01760 




n< 
U) 














03450 




5 




01270 


FMFAC 


TF 


FM FAC-1 


• FAC 


• 4 








03452 


26 


0343J 


02492 


01280 




SN 


FMFAC- 1 


• 0002 


• •10 








0)444 


12 


03451 


0-0-2 


0129C 




OS 




• 


t 


MINUS F 






03473 




0 




01300 




T ^ 


FM FAC-1 


•FAC-2 


• A 








03474 


26 


0345J 


02490 


01110 




88 


• 












01488 


42 


00000 


00000 


0 1 3/0 




OORG 


•-9 












03490 








01330 




OS 


5 












03494 




5 




01 340 


TRACE 


TF 


FM FAC-l 


• •-I 










03494 


26 


03451 


0)495 


01 3*»0 




BNC4 


FM FAC 












03508 


47 


03452 


00400 


01360 




RCTV 


GAM- 1 


• 


• 2 








03520 


34 


-2534 


00102 


01370 


GMIN2F 


OS 




• •-5 


■ ■ * 


GAMMA MINUS ONE MINUS 


TWO TIMES F 


03524 




0 




01 380 




8NF 


TRFX 


•FAC-l 


• « 


•R IF FIXED ARG 






03532 


44 


03544 


02491 


01390 




WNTV 


FNH 


• 


•4t 


TYRE FLOATING ARG 






03544 


36 


0331L 


00100 


01400 




8 


FM FAC 












03554 


49 


03452 


00000 


01410 




DORG 


•-4 












03563 








01420 


TRFX 


WNTY 


FXH 


i 


• 4« 


TYPE FIXED ARG 






03564 


38 


0328L 


00 1 00 


01430 




8 


FM FAC 












03576 


49 


03452 


00000 


01440 




DORG 


•-4 












03583 








01450 


FINDIN 




1 


• 1 










03583 




1 




01460 


ZERF AC 


J 

TF 


FAC-2 


•9SPF-1 










03584 


26 


02490 


02853 


01470 




TFM 


FAC 


• 0299 


,11011 






03596 


16 


02492 


0-2RR 


01480 


FP2 


OS 




• •-2 


• 


F PLUS TWO 






03605 




0 




01490 




8 


FINISH*! 












03608 


49 


01*04 


00000 


01500 




OORG 


•-4 












03615 








01510 


LV1 


AM 


SAVE 


.0101 


• •910 








03616 


11 


02565 


O-J-l 


01520 


FMl 


OS 




• •-2 


• 


F MINUS ONE 






03623 




0 




01530 




BNV 


FINISH 




• 4 








03628 


47 


0380L 


01400 


01540 




TFM 


EI 


\ 00571 


• 79, 


SET UP ERROR CODE 


El 




03640 


16 


02615 


-0N71 


01550 


K2 


OS 




.•-3 




TWO TINES R 






03644 




0 




01560 


OVFLOM 


TFM 


FAC 


• 0099 


!«io 








03652 


16 


02492 


Q- OR 9 


01570 


F2 


OS 




• •-2 




TWO TIMES F 






03661 




0 




01580 




TF 


FAC-2 


•9SCFF 


• • 


SET RESULT TO ALL 


NINES. 


03664 


26 


02490 


02795 


01590 


ERROR 


R'CTY 


FINISH 


> 


.4 








03476 


34 


03801 


00102 


01600 




WATY 


MESERR 












03688 


39 


02607 


00100 


01610 




8 


END0*12 












03700 


49 


03780 


00000 


01620 


NU 


BNF 


• ♦24 


• MU-1 


• • 


SET CORRECT SIGN ( 


m FAC 


03712 


44 


03736 


03711 
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01630 




SF 


FAC 


• GAM 






03T24 


32 


02492 


02555 


01640 


GM2F 


OS 




• • 


• 


GAMMA MINUS TWO TIMES F 


03T35 




0 




01650 




TOM 


FXERR*25 


• 9 


• • 


RESET ERROR EXIT 


03736 


15 


03701 


00009 


01660 




TFM 


FXERR*30 


,ENDD+12 






03 748 


16 


03706 


-3780 


01670 


FIXENO 


BB 










03760 


42 


00000 


00000 


01680 




DORG 


•-) 








03766 








01690 


FXERR 


OS 




•ERROR 






03676 




0 




01700 


ENOO 


TF 


FAC 


• SAVE 


• • 


MOVE EXPONENT. 


03768 


26 


02492 


02565 


01710 




BNF 


• ♦24 


,99 




SET PROPER SIGN 


03780 


44 


03804 


00099 


01720 




SF 


FAC-2 


• ENOD 






03792 


32 


02490 


03768 


01730 


FINISH DS 


• • 








03803 




0 




01740 


FLTENO 


DS 




,FINISH*T 




03810 




0 




01750 




BB 










03804 


42 


00000 


00000 


01760 




DORG 


• -4 








0)811 








01770 


DUMMY 


OS 




•99999 






99999 




0 




01780 


START 


OS 




•03851 






03851 




0 




01790 


•«•••• 


1620 FORTRAN II-D 


ALL SUBR IN CORE 










01800 




1620 FORTRAN II-D 


ALL SUBR IN CORE - SECONDARY LINRAGE 










01810 




DORG 


START 








03851 








01820 




DS 


3 








03853 




3 




01830 


FIX 


CM 


FAC 


,00 


• 10, 


IS CHAR POSITIVE 


03854 


14 


02492 


000-0 


01840 




B 


F1X1 






03864 


49 


10658 


00000 


01850 


FXA 


A 


FAC 


•FXA-l 


• 11 




0387B 


21 


02492 


0387P 


01860 




6 


FXA1 








03890 


44 


10850 


00000 


01870 


FXS 


S 


FAC 


•FXS-l 


,11 




03902 


22 


02492 


0390J 


01880 




8 


FXA1 








03914 


49 


10950 


00000 


01890 


FXSR 


BNF 


PXSRU32 


•FAC 


» t 


CHANGE SIGN ON FAC 


03924 


44 


10896 


02492 


01900 




B 


FXSR1 








03938 


49 


10664 


00000 


01910 


FXM 


M 


FAC 


•FXNrl 


• 11 




03950 


2) 


02492 


0394R 


01920 




B 


FXMl 








03942 


49 


10916 


00000 


01930 


FXD 


LD 


99 


.FAC 


t • 


FAC • FW4 


03974 


28 


00099 


02492 


01940 




B 


FX01 








03944 


49 


10942 


00000 


01950 


FXOR 


10 


99 


•FXOR- I 


tilt 


FAC • J/FAC 


0349B 


28 


00099 


0399F 


01960 




8 


FX0R1 








04010 


49 


11024 


00000 


01970 




OORG 


ft 








04020 








01980 


RSGN 


BNF 


RSON1*40 


•FAC-1 






04020 


44 


11084 


02491 


01990 




B 


RSBN1 


• 


• 8 




04032 


49 


11044 


0-000 


02000 




OORG 


•-1 








04042 








02010 


FLOAT 


AN 


FAC 


•00 ... 


UOt 


IS FAC 2ER0 


04042 


U 


02492 


000-0 


02020 




B 


FLOAT 1 








04094 


49 


11124 


00000 


02030 


FSB 


TDM 


FA0U1T 


a 


— M 


JIT UF JNil* TQ IMJTRACT 


04044 


19 


11401 


00002 


02040 




B 


FS81 








040TB 


49 


11344 


00000 


02050 


FAO 


TON 


FADUI7 


«i 


«• 


SET UF INST, TO AOO 


04090 


15 


11401 


00001 


02060 




B 


FA01 






04101 


49 


11364 


00000 


02070 


PSBR 


BNF 


FSSA102 


#FAC-t 


•J 


CHANGE SIGN ON FAC 


04114 


44 


11922 


02490 


02040 




B 


FSBR1 








04124 


49 


11890 


00000 


02000 


FNF 


TF 


Mb* . 


•tllsl . 


iUi 


H0U UFQNAiT TO SAVI, 


04110 


24 


02949 


0413F 


02100 




• 


FRF I 




041 BO 


49 


11942 


00000 


02110 


FO 


TF 


119 11 


»F»-4 


M$ 


NOV! IXFOBtfNT. 


04141 


24 


12253 


0414J 


02120 




B 


FOl 




041 f 4 


49 


12102 


•0000 


02110 


F09R 


TF 


IAVI 


•HVfc-l - 


UU 


novi ntmmm. 


04 IBB 


24 


02945 


0410N 


02140 




• 


FOWll 






04 100 


40 


12114 


00000 


02150 


FIX! 


TF 


1MB- - 


iFUlTi— .4iU 




042IQ 


24 


02979 


0400R 


02140 




B 


FIXIl 








04211 


49 


12394 


00000 


02170 


FAX I 


TF 


INSA 


•FAU-l 


•lit 


I NBA • I 


04234 


IB 


02575 


042BL 


02180 




B 


FAXI1 








04244 


44 


12B24 


00000 
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02190 


MX! 


TP 


TAPE 


.FAMt-1 


• Hi 


LOAD 


EXPONENT 6 


04256 


26 


02339 


0429P 


02200 




8 


PAX81 












04270 


49 


13466 


00000 


02210 


•••• 






WRITE ALPHANffRIC 
















02220 


MATY 


TF 


SMF 


•WATY-1 










04282 


26 


09861 


04281 


02230 




6 


WATVl 












04294 


49 


09498 


00000 


02240 


WAPT 


TF 


SMF 


tWAPT-1 










04306 


26 


09861 


04309 


02290 




6 


HAPT1 












04316 


49 


09518 


00000 


02260 


WACO 


TF 


SWF 


t WACO* I 










04330 


26 


09861 


04329 


02 2 TO 




B 


WAC01 












04342 


49 


09936 


00000 


0228© 


• 






READ ALPHAMERIC 
















02290 


AATY 


TF 


SWF 


•RATV-l 










04354 


26 


09861 


04393 


02300 




B 


RATY1 












04366 


49 


05862 


00000 


02)10 


RAPT 


TF 


SWF 


,AAPT-1 










04378 


26 


09661 


04377 


02320 




8 


AAPT1 












04390 


49 


09882 


00000 


02330 


RACO 


TF 


SWF 


•RACO-l 










04402 


26 


09861 


04401 


02340 




6 


RAC01 


• 


_ 
f 6 








04414 


49 


09902 


0-000 


02330 




OORG 


»-l 












04424 








02360 


I TYPE 


AM 


SWF 


• 3 










04424 


11 


09861 


-0003 


02370 




B 


I TYPE 1 


» 


» 8 








04436 


49 


09694 


0-000 


02360 




OORG 


•-1 












04446 








02390 


MRITEI 


TFM 


WA 


•GAM^2 










04446 


16 


06933 


-2557 


02*00 




B 


WRITIl 


t 


t 8 








04458 


49 


10210 


0-000 


02410 




OORG 


•— l 












04468 








02420 


READEF 


BNF 


£F R02*12.L0C 










04468 


44 


08686 


05981 


02430 




B 


EF R01 


» 


• 8 








044B0 


49 


08642 


0-000 


02440 




OORG 


•-1 












04490 








02430 


EFMW 


TF 


FLTEND 


•IC0N6+6 










04490 


26 


03810 


05480 


02460 




B 


EFMWl 


t 


»8 








04502 


49 


09206 


0-000 


02470 




OORG 


•-1 












04512 








02480 


ATYPE 


AM 


SWF 


• 3 










04512 


11 


05861 


-0003 


02490 




B 


ATYPE 1 


* 


.8 








04524 


49 


08730 


0-000 


02500 




OORG 


— I 












04534 








02510 


• ••• 






MACRO FOR 


F TYPE 


READ 


AND WRITE 










02520 


FTYPE 


CF 


RWEFSW 












04534 


33 


05953 


ooooo 


02530 




B 


EF COM 


» 


,8 








04 546 


49 


07138 


0-000 


02540 




OORG 


•-1 












04556 








02550 


• ••• 






MACRO FOR 


E TYPE 


READ 


AND WR 


ITE 










02560 


ETYPE 


SF 


RWEFSW 












04556 


32 


05953 


ooooo 


02570 


WA3 


DS 


5 


• • 


• 


TEMP 


STORE 


FOR ZERO INSERT ADDRESS 


04567 




5 




02580 




B 


EFCOM 


t 


.8 








04568 


49 


07138 


0-000 


02590 




OORG 


•-1 












04578 








02600 


HTYPE 


AM 


SWF 


»3 










04578 


11 


05861 


-0003 


02610 




B 


HTYPE I 












04590 


49 


08402 


ooooo 


02620 




OORG 


• -<> 












04597 








02630 


• •••• 


1620 FORTRAN 1 1 -0 


ALL SUBR IN 


CORE - 


SUBROUTINES 










02640 


WRTE2 


TR 


GAM*l 


p MASK 










04598 


31 


02556 


05401 


02650 




BD 


ERF BE 


.CHAR-2 










04610 


43 


05202 


07106 


02660 




TO 


GAH*8 


tCHAR 










04622 


25 


02563 


07108 


02670 




TO 


G«M*6 


,CHAR-1 










04634 


25 


02561 


07107 


•02680 




BNF 


•♦24 


« CHAR 










04646 


44 


04670 


07108 


02690 




TDM 


GAM* 3 


• 2 










04658 


15 


02558 


00002 


02700 




TF 


TERM 


,GAM*2 


.6 








04670 


26 


0678N 


02557 


02710 




TR 


OPT 


,OPG 


,611 








04682 


31 


0713P 


05970 


02720 




B 


WEF DEC 












04694 


49 


05170 


OOOOO 


02730 




OORG 


•-4 












04701 









02740 •••••• 3 CASES FOR WRITING F TYPE tCHAR IS EXP-LOCO-F 



-> 
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02750 








CHAR IS NEG 


, EXP 


IS NEG 










02760 








CHAR IS NEG 


, EXP 


IS POSITIVE IWRTFPEI 










02770 








CHAR IS POSITIVE 


IWRTFPCJ 










02780 


WRTF 


TR 


GAM* 1 


, MASK EP+7 






04702 


31 


02556 


05409 


02790 




BD 


F ZERO 


tFLTENO-4 






04714 


43 


04950 


03806 


02800 




BD 


ER F8 E 


, CHAR-2 






04726 


43 


05202 


07106 


02810 




CM 


CKW 


,000 


»9 




04 7 38 


14 


06673 


00-00 


02820 




8NH 


F ZERO 








04750 


47 


04950 


01100 


02830 




C 


CKW 


, WIDTH 






04762 


24 


06673 


05715 


02840 




BH 


ER F8 E 








04774 


46 


05202 


01100 


02850 




TF 


CHAR 2 


, char 






04786 


26 


06708 


07108 


02860 




A 


CHAR 2 


, CHAR 






04798 


21 


06708 


07108 


02870 




BNF 


WRTFPC 


t CHAR 






04810 


44 


05026 


07108 


02880 




TFM 


• ♦35 


»GAM 






04822 


16 


04857 


-2555 


02890 




A 


• ♦23 


•CHAR 2 






04834 


21 


04857 


06708 


02900 




TF 


GAM 








04846 


26 


02555 


OOOOO 


02910 




BNF 


WRTFPE 


,FAC 






04858 


44 


04994 


02492 


02920 




TF ' 


LAST 


• GAM4-2 


• 6 




04870 


26 


05730 


02557 


02930 




TF 


0PTM2 


,GM2F 


.611, 


SET SIGN LEFT OF DEC 


PT 04882 


26 


0817L 


0373N 


02940 




TF 


WA3 


,DPT 






04894 


26 


04567 


07137 


02950 


FNCNEZ 


AM 


WA3 


,2 




INSERT ZERO FROM DEC 


PT TO 04906 


11 


04567 


-0002 


02960 




BD 


WEF DEC 


• WAS 


• U. 


FIRST NON ZERO DIGIT 


ON RIGHT 04918 


43 


05170 


0456P 


02970 




TFM 


WA3 


,70 


,610 




04930 


16 


0456P 


OOOPO 


02980 




B 


FNCNEZ 








04942 


49 


04906 


OOOOO 


02990 




OORG 


»-4 








04949 








03000 


FZERO 


TFM 


DPTM2 


,70 


• 610, 


F TYPE OUTPUT EQUALS 


ZERO 04950 


16 


081 7L 


OOOPO 


03010 




TF 


CHAR 2 


•LOCO 2 






04962 


26 


06708 


05606 


omio 




TOM 


CHAR-2 


• 0 


ai 




04974 


19 


07106 


0000- 


03030 




B 


CLR70S- 


12 






04986 


49 


05122 


00000 


03040 




DOSG 


•-4 








04993 








03050 


WRTFPE 


TF 


0PTM2 


• OPG 


.611 




04994 


26 


0817L 


05970 


03060 




TR 


OPT 


• OPG 


• 611 




05006 


31 


071 3P 


05970 


03070 




8 


WEF DEC 








09016 


49 


09170 


OOOOO 


03080 




OORG 










05029 








03090 


WRTFPC 


TF 


• ♦30 


• TERM 






05026 


26 


09096 


06785 


03100 




S 


• ♦18 


•CHAR 2 






05038 


22 


09056 


06708 


03110 




TF 




,6AM^2 






05050 


26 


OOOOO 


02997 


03120 




TF 


CLR70S+30.TERM 






05062 


26 


05164 


06789 


03130 




C 


CHAR 


• LOCO 






05074 


24 


07108 


09608 


03140 




BNL 


CLR 70S 








05086 


46 


05134 


01300 


03150 




A 


OPG 


•CHAR 2 






05096 


21 


05976 


06706 


03160 




TR 


DPT 


• OPG 


• 611 




09110 


31 


0713P 


05970 


03170 




TF 


CLR70SO0.LAST 






05122 


26 


09164 


05736 


03160 


CLR70S 


TFM 


•♦33 


•MASK F 






09134 


16 


09169 


-5413 


03190 




A 


• ♦23 


•CHAR 2 






09146 


21 


09169 


06708 


03200 




TF 


TERM 


» 


• 6 




09158 


26 


0676N 


OOOOO 


03210 


WEFOEC 


TFN 


DPT 


• 03 


• 610 




05170 


16 


0713P 


000-3 


03220 




TFM 


LAST 


• 00 


• 610 




09182 


16 


09730 


000-0 


03230 




8 


BSWF 








09194 


49 


09826 


OOOOO 


03240 




OORG 


»-% 








05201 








03290 


ERF8E 


TR 


QUO H*21.FIIERS-3T 






09202 


31 


02628 


06270 


03260 




TR 


GAM*1 


• MASK 


. t 


MOVES E*00 ALPHAMERIC ALLY 09214 


31 


02996 


05401 


03270 




TO 


6AM+6 


• FAX 






09226 


29 


02963 


02492 


03260 




TO 


GAM* 6 


•FAC-l 






05138 


29 


02961 


02491 


03290 




TFN 


GAM* 3 


.431 


,9 




09250 


16 


02996 


00M91 


03300 




8NF 


•♦24 


• FAC 






09262 


44 


09286 


02492 



618 
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03)10 
01)20 
0)))0 
03)40 
03)50 
0)140 
03310 
03340 
03390 
03400 
03410 
03420 
03430 
03440 

03450 
03460 



ERCON 



»••••• 

MASK 



MASKEP 
MASKF 



• 10 

• 10 



TOM GAM*) «2 
TR OUO HM3»ftJUM2P 
TP OUO HM2»DUD M*14 
TFM OUO H*14,03 
CM 0AT!NH*2 »0R 
TFM EIt2 
BL ER COM 2 
TF 0ATDU042 •DATINH*2 
TFM IORT ••♦23 
ft I OFT .OATOUO-4 .7 

B ERC0M2 

OORG t-4 _. 

MASKS 

OSC 10 
4510T0T00 
OS ,MA$K*1 

OAC 31 • 000000000000000000000000000000 
000000000000000000000000000000 • 



SETS ERROR F B ERASES REC NARK 



•451070700* 







OS 




.MAtKf «14 

• #Hr ▼ 3 » 






034B0 


I C0N6 


B 


_ _ 

tr ALPH 


• 


• t 


















0)50^ 


1 C0N5 


g 


EFRO 2 


• 


.1 








OORG 
















WRT 12 


• 


a 








OORG 


•—3 










WATY 1 


TFM 




• 0687 


• a 




0)550 




B 


WRTALP 












OORG 


•— 1 








0)5 70 


WAPT 1 


TFM 


MAX 


• 0BB7 


• 8 




03580 




B 


WRTALP 








03590 




OORG 


•-3 








03600 


WACD1 


TFM 


MAX 


.1080 


• a 




03610 


WRTALP 


TOM 


RWEFSW 




» • 


COMMON FOR EACH WRITE 


03620 


RWA 


TF 


DATINH*2 


•MAX-2 


• * 


INITIALIZATION FOR EACH RD OR MR] 


03630 




SF 


MAX-l 








03640 


REPSW 


OS 


2 


• •-) 






03650 


MATSW 


OS 


1 


• •-2 


t • 


SET TO 1 WHEN MATRIX HAS CONTROL 


03660 


REPSM3 


OS 


2 


• • 






03670 




TFM 


•-1 


•00000 


.711 




03680 




TOM 


SWLU 


.2 






03690 


LOCO 


OS 


2 


.•-1 


• LOC 


OF OECIMAL AS SPEC BV FORMAT 


0 3700 


L0CD2 


OS 


2 


• •-) 


• 


TWICE LOC D 


03710 




TFM 


MESERR+8 


• 679 


,9 




03720 




TFM 


MAX2 


• INH 






03730 




A 


MAX2 


• MAX 






03740 




A 


MAX 2 


• MAX 






03750 








CONTINUATI 


ON OF 


RWA. ALSO USED AFTER EACH OUTPUT 


03760 








RECORD NOT TERMINATED BY COMPLT MACRO 


03770 




TFM 


LAST 


• INH 






03780 


RWA2 


TOM 


COMPSW 


• -1 






03790 


COMPSW 


OS 




• •-) 


»-l 


PROHIBITS. 0 REQUIRES OUTPUT 


03800 




TR 


INH- 1 


•STZERO+1 






03810 




TR 


INH*B6 


•STZERO 






03820 




CM 


MAX-2 


• 06 


• 10 




03830 


WIDTH 


OS 


3 


• •-2 


» 


NO. OF EFF. DIGITS IN FIELO 


03840 




BNE 


• ♦24 









09274 


19 


02598 


00002 


0)284 


11 


02420 


09520 


09298 


24 


02419 


02621 


09310 


14 


02421 


000- ) 


09322 


14 


04099 


000- B 


09334 


14 


02417 


07B00 


09344 


47 


07078 


01300 


0939B 


24 


04091 


06099 


09370 


14 


00949 


-9393 


093B2 


49 


00932 


-6045 


09394 


49 


07078 


00000 


09401 








09401 




10 




05402 




0 




0541) 




31 


X 2 


05452 




0 




05474 


4R 


09254 


00000 


05482 








05482 


4R 


08674 


00000 


05490 








05490 


4R 


10290 


00000 


05498 








05498 


16 


05924 


0-687 


05510 


49 


05550 


00000 


05518 








05518 


16 


05924 


0-887 


055)0 


49 


05550 


00000 


055)8 








055)8 


16 


05924 


0J080 


05550 


15 


05953 


00001 


05542 


26 


06059 


05922 


05574 


32 


05923 


00000 


05582 




2 




0558) 




1 




05585 




2 




05586 


16 


05585 


-000- 


05598 


15 


05935 


00002 


05608 




2 




05606 




2 




05610 


16 


02615 


00079 


05622 


16 


06037 


-6063 


05634 


21 


06037 


05924 


05646 


21 


06037 


05924 


05658 


16 


05736 


-6063 


05670 


15 


05678 


OOOOJ 


05678 




0 




05682 


31 


06062 


06240 


05694 


31 


06149 


06239 


05706 


14 


05922 


000-6 


05715 




3 




05718 


47 


05742 


01200 



619 
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03850 




RCTY 










05730 


34 


00000 


00102 


03860 


LAST 


OS 


5 


• •-5 


, AOR OF RM AT ENO OF VARIABLE OUT REC 


05736 




5 




03870 




BO 


BSWF 


,RWEFSW 






05742 


43 


05826 


05953 


03880 


RAOOIT 


TFM 


IORT 


• •♦23 






05754 


16 


00565 


-5777 


03890 




B 


IOGT 


f DA T I NH- 


4 .7 




05766 


49 


00566 


-6053 


03900 




CM 


MAX-2 


,06 


• 10 




05778 


14 


05922 


000-6 


03910 




BNE 


•♦24 




• . 


ALLOWS GOOF SWITCH FOR RATY 


05790 


47 


05814 


01200 


03920 




BC4 


•-72 








05802 


46 


057)0 


00400 


03930 




TDM 


FLT END- 


-5,2 






05814 


15 


0)805 


00002 


03940 


•••••• 






CONTROLS 


POSITION IN FORMAT SPECS 










03950 


BSWF 


AM 


SWF 


.5 






05826 


11 


05861 


-0005 


03960 




TF 


• ♦18 


• SWF 


,11 




05838 


26 


05856 


0586J 


03970 




B 


SWF 


. 


• 6, 


BR TO ADR INDICATED BY FORMAT SPEC. 


05850 


49 


0586J 


00000 


03980 


SWF 


OS 


5 


• • 






05861 




5 




03990 


RATVl 


TFM 


MAX 


• 0687 


• 8 




05862 


16 


05924 


0-687 


04000 




B 


ROALP 








05874 


49 


05914 


00000 


04010 




DORG 


•-3 








058B2 








04020 


RAPT 1 


TFM 


MAX 


,0887 


,8 




05882 


16 


05924 


0-887 


04030 




B 


ROALP 








05894 


49 


05914 


00000 


04040 




OORG 


•-3 








05902 








04050 


RAC01 


TFM 


MAX 


.1080 


,8 




05902 


16 


05924 


0J080 


04060 


ROALP 


TOM 


RWEFSW 


.0 






05914 


15 


05953 


00000 


04070 


MAX 


OS 


4 


• •-I 






05924 




4 




04080 




8 


RWA 








05926 


49 


05562 


00000 


04090 




OORG 


•-4 








05933 








04100 


•••••• 


SWL IS A TRINARY SWITCH 


USEO TO BRANCH TO THE PROPER SOURCE 










04UO 


••••«• 


TO OBTAIN 


THE LOCATION THAT GOES WITH THE FORMAT MACRO 










04120 




BEING PERFORMED 




BB FOR OBJECT PROGRAM 










04130 












NOP FOR REDO CONTROL 










04140 












B FOR MATRIX CONTROL 










04150 


SWL 


NOP 


MATRX 2 








05934 


41 


06418 


00000 


04160 


IMPLUS 


OS 


5 


• • 




WORKING POSITION OF I/O RECORD 


05945 




5 




04170 




TDM 


SWLH 


.9 




MATRIX CONTROL SETS SWL TO 49 


05944 


15 


05935 


00009 


04180 


RWEFSW 


OS 


1 


• •-4 


• 1 


FOR WRT. 0 FOR RD. FLAG FOR E 


05953 




1 




04190 


W1DTH2 


OS 


3 


• •-1 _ 






05954 




3 




04200 




BO 


SWCH2 


•MATSW 






059SB 


43 


05994 


05583 


04210 




NOP 










05970 


41 


00000 


00000 


04220 


OPG 


OS 


5 


• •-9 




TEMP AOR OF DEC FT IN GANNA 


05974 




5 




04230 


LOC 


OS 


5 


• • 


• • 


CORE LOCATION TO BE USED 


059B1 




5 




04240 


•••••• 






AFTER LOC 


i AOR 


OBTAINED BR TO PROPER MACRO 










04250 


swc 


TOM 


SWL*l 


• 2 






05982 


15 


05935 


00002 


04260 




BO 


•♦20 


•RWEFSW 


• • 


BR IF WRITING 


05994 


43 


04014 


05953 


04270 




B 


SWC AD J 


• - 


•4 




04004 


49 


0404N 


00000 


04280 




OORG 


•-4 








04013 








04290 




TOM 


COMPSW 


• 0 


• • 


SET TO REQUIRE OUTPUT 


04014 


15 


05478 


00000 


04300 




CF 


LOC 








04024 


)) 


05981 


00000 


04310 MAX 2 


OS 


9 




— A . 


TWICE MAXIMUM CHAR FOR OUTPUT 


04037 




9 




04320 




a 










0403B 


49 


00000 


00000 


04330 


SWCAOJ 


OS 




tP-f 


*• 


RETURN ADO Of MACRO IN CONTROL 


04044 




0 




04340 




OORG 


•-4 








0*049 








04350 


OATOUO 


OSA 


OUDN 








04049 




9 


X 1 
















04049 




-1407 




04340 




OC 


3 


• 00« " 






04092 




3 








-0* 


















04370 OAT INH 


OSA 


INN 








04057 




9 


X 1 



• 2(1 . 
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10 









■ 






06057 




-6063 




04310 




OC 


3 


• 00' 




06060 




3 




04390 




oc 

" 


1 


• 0 




06061 




I 




04400 


ENDFOR 


OAC 


1.0 






06063 




1 


X 2 


04410 


INM 


0 

OS 




•ENDFOR 




06063 




0 




04420 




OS 


174 






06237 




174 




04430 


IN 


OS 


176 


•INH*i74 




06237 




176 




04440 


STZERO 


DC 
-0 


2 


tOO 




06239 




2 




04450 




00 




t 


•0246810 


06240 


-o 


-0-0- 


0-0-0 


04460 




00 






•0246810 


06252 


-0 


-o-o- 


0-0-0 


04470 




00 




» 


,0246810 


06264 


-0 


-0-0- 


0-0-0 


04480 




00 




• 


•0246810 


06276 


-0 


-0-0- 


0-0-0 


04490 




00 




• 


•0246810 


06288 


-0 


-0-0- 


0-0-0 


04900 




00 




• 


•0246810 


06300 


-0 


-0-0- 


0-0-0 


04510 




00 






•0246810 


06312 


-0 


-0-0- 


0-0-0 


04520 




oc 


2 


!oo 




06325 




2 




04530 


FLZERS 


-0 
DC 
- • 


2 


• 0« 




06327 




2 




04540 




OS 


5 






06332 




5 




04550 


MATRIX 


TOH 


MATSW 


• 1 


•• MACRO TO PROCESS MATRICIES 


06334 


15 


05583 


00001 


04560 




TON 


SWL*l 


• 9 




06346 


15 


05935 


00009 


04570 




TF 


LOCADJ 


• FP2 




06358 


26 


06390 


03605 


04580 




8NF 


NATRX2-12.MATRIX-1 




06370 


44 


06406 


06333 


04590 




TFN 


LOCADJ 


,00 


.10 


06382 


16 


06390 


000-0 


04600 


LOCADJ 


OS 


2 


• •-3 


•• ADJUST IOC FOR MATRIX 


06 3V0 




2 




04610 




S 


LOCAOJ 


• K 




<H- *94 


?2 


06390 


02221 


04620 




s 


MATRIX-1 


•LOCAOJ 




i)t>406 


22 


06331 


0o390 


04630 


MATRX2 


A 


MATRIX-1 


• LOCADJ 


. i RETURN FROM SWL. EACH MATRIX ELEMENT 


06418 


21 


06333 


06390 


04640 




TF 


LOC 


. MATRIX-l 


MOVE AOJUSTEO LOCATION 


064 30 


26 


05981 


06333 


04650 




SM 


PAR 


.1 


.10 


0644? 


12 


03378 


GOO-l 


04660 




BNE 


• ♦24 






06454 


47 


06478 


01200 


04670 




TDM 


MATSW 


• 0 




06466 


15 


i ^583 


00000 


04680 




BNL 


SWC*12 






06*78 


46 


05994 


01300 


04690 




BB 








06490 


42 


00000 


00000 


04700 




OORG 


• -9 






06492 








04710 




MACRO FOR 


AN I/O CARRIAGE Rf T URN DURING A FORMAT STATEMENT 










04720 


SLASH 


TOM 


f.OMEND+1 


,9 




06492 


15 


06657 


00009 


04730 




80 


SLASH? 


,RWEFSW 


•• BR IF WRITING 


06504 


43 


06524 


05953 


04740 




8 


COMENO 






06516 


49 


06656 


00000 


04750 




OORG 


• -4 






06523 








04760 


SLASH2 


80 


IOCR 


•COMP SW 


•• BR TO 10 CR IF OUTPUT RECORD BLANK 


06 524 


43 


06664 


05678 


04770 




CM 


OAT I NH-* 2 


• 06 


• 10 


06536 


14 


06059 


000-6 


04780 




BH 


WRl TE 




•• BR IF NOT TYPEWRITER OUTPUT 


06548 


46 


06632 


01 100 


04790 




TF 


I 4ST 


•FLZERS 


.6 


06560 


26 


05730 


06327 


04800 




SM 


LAS( 


.02 


,10, ERASE BLANKS FROM END OF I/O RECORD 


06572 


12 


05736 


000-2 


04810 




CM 


LAST 


• 00 


,610 


065d4 


14 


05730 


000-0 


04820 




BE 


• -36 






06596 


46 


06560 


01200 


04830 




CM 


LAST 


• INH 




06608 


14 


05736 


-6063 


04840 




BL 


COM END 






06620 


47 


06656 


01300 


04850 


WRITE 


TFM 


IORT 


• •♦23 




06632 


16 


00565 


-6655 


04860 




8 


I OPT 


•0ATINH-4 


,7 


06644 


49 


005 32 


-6053 
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04870 


COMENO 


B 


RWA2-12 






06656 


49 


05658 


00000 


04880 




DORG 


• -4 






06663 








04890 


IUCR 


CM 


MAX-2 


• 08 


.10 


06664 


14 


05922 


000-8 


04900 


CKW 


OS 


3 


,•-2 


, DEC SPEC PLUS CHAR OF ARG 


06673 




3 




04910 




BNL 


WRITE 






06676 


46 


06632 


01300 


04920 




B 


COMENO 






06688 


49 


06656 


00000 


04930 




DORG 


»~4 






06695 








04940 








MACRO TERMINATING I/O CONTROL 










04950 




DS 


3 






06697 




3 




04960 


COMPLT 


TDM 


COMENDM 


,2 




06698 


15 


06657 


00002 


04970 


CHAR2 


DS 


3 


• •-I 


, TWICE MODIFIED CHARACTERISTIC 


06708 




3 




04980 




B 


SLASH+12 






06710 


49 


06504 


00000 


04990 




DORG 


*-4 






06717 








05000 


REDO 


BO 


REDO A+24,MAT SW 




06718 


43 


06786 


05583 


05010 




TO 


RED0A*23 


•COMPSW 




06 730 


25 


06785 


05678 


05020 




TFM 


SWC AOJ 


•REDO A 


,, MACRO PERMITS REDOING BACK TO ( 


06 742 


16 


06044 


-6762 


05030 




B 


SWL 






06 754 


49 


05934 


00000 


05040 




DORG 


• -4 






06761 








05050 


REDOA 


TDM 


SWL+1 


,1 


,, RETURN FROM SWL IF MORE DATA 


06 762 


15 


05935 


0000 1 


05060 




TDM 


COMPSW 




, , VOID REOO USING SWC EFFECT ON COMPSW 


06 774 


15 


05678 


00000 


05070 


TERM 


OS 


5 


» * 


, REFERENCE AOR IN I/O RECORD 


06785 




5 




05080 




AM 


SWF 


,5 




06786 


U 


05861 


-0005 


05090 




TF 


SWF 


» SWF 


,11 


06798 


26 


05861 


0586J 


05100 




B 


SLASH 






06810 


49 


06492 


00000 


05U0 




DORG 


»»4 






06817 








05120 






MACRO TO REPEAT FORMAT SPECS A SPECIFIC NO OF TIMES 










05130 








SUB FROM REP SW, INITIALLY SET TO ZERO 










05140 








IF REPSW 


NEG , SET TOREPS REQO AND REPEAT FORMAT 










05150 








IF REPSW 


ZERO, LAST FORMAT REPETITION IS COMPLETE 










05160 








IF REPSW 


PLUS, STEP DOWN ANO REPEAT FORMAT SPEC 










05170 


REP 


AM 


SWF 


.7 




06818 


11 


09661 


-0007 


05180 




SM 


REP SW 


• 1 


,10, CONTROL REPETITION OF FIELOS 


06830 


12 


09582 


000-1 


05190 




BH 


REP 2 






06842 


46 


06890 


01100 


05200 




BE 


8SWF 






06854 


46 


05826 


01200 


05210 




A 


REP SW 


• SWF 


til 


06866 


21 


05582 


0586J 


05220 




BNH 


BSWF 






06676 


47 


05826 


ouoo 


05230 


REP2 


SM 


SWF 


• 2 




06890 


12 


05861 


-0002 


05240 




TF 


SWF 


• SWF 


• It 


06902 


26 


05861 


0586J 


05250 




8 


SWF-23 






06914 


49 


09838 


00000 


05260 




DORG 


•-4 






06921 








05270 


REP3 


SF 


REPSW3-1 






06922 


32 


03984 


00000 


05260 


WA 


OS 


5 


»• 


• WORKING AREA AOR REF TO FAC OR GAM 


06933 




9 




05290 




AM 


SWF 


• 7 


• 10 


06934 


11 


09861 


000-7 


05300 




SM 


REPSW 3 


• 1 


.10 


06946 


12 


09989 


000- 1 


05310 




BH 


REP 2 






06958 


46 


06890 


01100 


05320 




BE 


BSWF 






06970 


46 


09826 


01200 


05330 




A 


REPSW 3 


• SWF 


• 11 


06982 


21 


09989 


0586J 


03340 




B 


REP 2-12 






06994 


49 


06878 


00000 


05330 




DORG 


•-4 






07001 








05360 


ERF9 


TFM 


SWC AOJ 


•ER COM 


2 ,, MACRO FOR ERROR F9 WHEN WRITING 


07002 


16 


06044 


-7078 


05370 




TF 


LAST 


• MAX 2 




07014 


26 


09736 


06037 


05380 




TFM 


EI 


• 679 


.9 


07026 


U 


02619 


00079 


05390 




B 


SWL 






07038 


49 


05934 


00000 


05400 




OORG 


•-4 






07049 








05410 


XTVPE 


AN 


SWF 


• 3 


•• MACRO FOB SKIPPING FIELOS 


07046 


11 


09861 


-0003 


03420 




A 


LAST 


• SWF 


,11 


07058 


21 


09736 


0566J 



622 
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bswf 








07070 


49 


09926 


00000 


09440 




Q0RG 


•-4 








07077 








09490 


f RC0M2 


RC TV 












94 


nnnoo 


00102 


09440 


MA2 


DS 


c. 


• •-» 


• 


HUHA|Hv ARC A AUK Mr IU rAb IIH »»R 


B »1*»9 




9 




aba In 




of Iw 


DUOH 








07000 






00100 






RCTV 










07102 




nnnnn 


001 02 




CMRR 


rf 


* 


••-s 


• 


MODIFIED in AK At Unlll I L 


07108 








n t k n n 

05500 




TR 


6 I ♦* 


•PL2ERS-1 


• • 


RESTORES RECORD PJARR 


071 14 


3 1 


026 16 


06326 


nttin 




8 


BSWP-12 








21! «t 


49 


05R14 




09920 


OP T 


OS 


9 


#• 


• 


TERR LOC OF DEC PT IN OUTPUT RECORD 


07197 








09930 


Ef-CON 


AW 


swf 


• 9 






07 1 38 


1 1 


0986 1 




095* n 




TF 


WIDTH 


• SWF 


■ 11 




07 1 50 


26 


05 71 5 




09550 




AW 


SWF 


• 2 




07162 


1 1 


05861 


- 0002 


05540 




TF 


LOC 0 


• SWF 


til 




071 74 


26 


? S9^5 




055 70 




TF 


1 NFL US 


• LAST 






071 86 


2 6 






05*180 




TF 


WIDTH 2 


t WIDTH 






07198 






05719 


05590 




A 


WIDTH 2 


•WIDTH 






072 10 


21 




05 715 


05400 




A 


LAST 


•WIDTH2 






07222 


2 1 




05956 


0*»6 10 




C 


LAST 


.MAX 2 






072 94 






06037 


05620 




BH 


ER F9 








0 7246 


46 


nil n> 




056 3 I 




TF 


TERM 


• LAST 






0 7258 


26 






()5ft<- \i 




SM 


TFRM 


• 2 






07270 


12 






05*50 




TF 


CHAR 


•WIDTH 






07282 


26 


0 OR 


0^ 7 1 5 


0'>660 




TF 


MA 


• FNH 






07294 


26 


06933 


03313 


056 70 




TOM 


97 


• 0 






07304 


1 5 


'*009 7 


00000 


05680 




TF* 


99 


• 00 


,10 




07318 


16 


000 ^9 


000-0 


os^ou 




80 


EF WRT 


•RWEFSW 






07330 


43 


0 7* 1 4 


05953 


05700 




TF 


FAC 


•FL2ALP 


• u 




07342 


26 


0?49J? 


03 340 


OS 710 




IFN 


EFTERM*18,EF TYFE 






07354 


16 


0 M 2 40 


- 7 702 


05720 




TFM 


SWCAOJ 


• READ EF 






07366 


16 


06044 


- 4468 


05710 


ROFCM 


CM 


I NFL US 


,00 


• 410« 


ELIMINATE LEADING BLANKS 


07378 


14 


0594N 


000-0 


05740 




BNE 


FCH NB 








07390 


47 


0 74 58 


0 1 200 


05750 




SM 


CHAR 


,1 


• 10 




07402 


12 


071 OB 


000- 1 


05 760 




AM 


INPLUS 


• 2 






07M * 


1 1 


05945 


- 0002 


05770 




C 


INPLUS 


• LAST 






07*26 


24 


;,"»Q45 


05 736 


05780 




BL 


RO FCH 








07438 


47 


07178 


01300 


05790 




B 


EFEND* 12 








07^50 


49 


PS258 


00000 


05800 




DORG 


•-4 








07457 








05810 


FCHN8 


CM 


INPLUS 


• 20 


• 610, 


PROCESS FIRST NON BLANK CHARACTER 


0745B 


14 


O^^^N 


OOOKO 


05820 




86 


EF MIN 








07470 


♦ 6 


07678 


01200 


05830 




CM 


INPLUS 


,10 


• 410 




07482 


14 


0594N 


OOOJO 


058*0 




BE 


EF PLUS 








07494 


46 


07690 


01200 


05850 




B 


FFTVPE06 






07506 


♦ 9 


07738 


00000 


05860 




OORG 


•-4 








07513 








05870 


FFWRT 


C 


LOC 0 


iF 






07514 


24 


05608 


02219 


05880 




BNH 


•♦24 








07526 


47 


07550 


01 1 00 








LOC 0 


• F 






07538 


26 


05608 


022 19 


05900 




TF 


LOCO 2 


,LOC 0 






07550 


26 


05606 


05608 


05910 




A 


LOCO 2 


• LOC D 






07562 


21 


05606 


05608 


05920 




TR 


GAM-59 


•MASK F-l 






07574 


31 


02496 


05412 


05930 




TFM 


WA 


• GAM 






07586 


16 


06933 


-2555 


05940 




TFM 


WA2 


•FAC-1 






07598 


16 


07084 


-2491 


05950 




TFM 


SWCAOJ 


• EFMW 






07610 


16 


06044 


-4490 


05960 




SM 


WIDTH 


• 2 


,10 




07622 


12 


05715 


000-2 


05970 




BNF 


SWL 


, RWEFSW 






07634 


44 


05934 


05953 


05980 




SM 


TERM 


• a 






07646 


12 


06785 


-0008 
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05990 




SM 


WIDTH 


,4 


.10 


06000 




8 


SWL 






06010 




DORG 


• -4 






06020 


EFMIN 


SF 


99 






06030 


EFPLUS 


SM 


CHAR 


• 1 


• 10 


06040 


EF TYPE 


AM 


INPLUS 


.2 




06050 




CM 


INPLUS 


,00 


• 410 


06060 




BE 


LOG OIG 






06070 




CM 


INPLUS 


,70 


• 410 


06080 




BH 


EF DIG 






06090 




BE 


LOG DIG 






06100 




CM 


INPLUS 


• 03 


.610 


06110 




BE 


EF DEC 






06120 




BNF 


ERRF7 E 


, RWEFSW 




06130 




TFM 


EXP 


•000 


.9 


06140 




TOM 


E EXPAD* 1 


•1 




06150 


EXP 


DS 


3 


• •-2 




06160 




CM 


INPLUS 


.49 


UlO 


06170 




BE 


E EXP 






06180 


EEXP2 


CM 


INPLUS 


• 20 


• 410 


06190 




BE 


E EXP M 






06200 




CM 


INPLUS 


• 10 


• 610 


06210 




BE 


E EXP 






06220 


EEXP22 


BO 


• ♦24 


• 97 




06230 




SM 


CHAR 


• 1 


.9 


06240 




C 


INPLUS 


• TERM 




06290 




BNL 


EEXPAO-12 




06240 




TD 


EXP-1 


•INPLUS 


• 11 


06270 




AM 


INPLUS 


• 2 




06280 




B 


EEXP22M2 




06290 




DORG 


•-4 






06300 


EEXPM 


TDM 


E EXPADM 


.2 




06310 


EEXP 


AM 


INPLUS 


• 2 




06320 




SM 


CHAR 


• 1 


• 10 


06330 




B 


E EXP 2 






04340 




DORG 


•-4 






04390 




TO 


EXP 


•INPLUS 


• M 


04340 


EEXPAO 


A 


CHAR 


• EXP 




04370 




0 


EF END 






04390 




OORG 


•-4 






04390 


LDGDIG 


BNF 


IF DIG 


• 98 




04400 




SM 


CHAR 


.1 


• 10 


04410 




8 


EF Tf RN 






04420 




OORG 


•-4 






04430 


EFDEC 


8D 


ERRF7 C 


.97 




04440 




TFM 


LOC D 


•00 


tlO 


04490 




TFM 


EPTf RN+lf f ff . PJJLU . 




04440 




TOM 


97 


•«*1 




06470 




SM 


CHAR 


.1 


■ 10 


04480 




• 


EF TERM 






04490 




OORG 


•-4 






04900 


EP01C 


CF 


98 






08S10 


DPTR2 


DS 


» 


»t 


.4. .. 


06920 




CM 


WA 


•FAC-1 




04930 




•ML 


•♦94 




»t 


06940 




TO 


WA 


•INPLUS 


t*ti 



VALUE OF CALC CHAR FOR OUTPUT 



IMP AM OP OK PT 1* I/GMC. -I 
TRUNCATES LOW ORDER DIGITS ' 



07658 


12 


05715 


000-4 


07670 


49 


059 34 


00000 


07677 








07678 


32 


00099 


00000 


07690 


12 


07108 


000-1 


07702 


11 


05945 


-0002 


07714 


14 


0594N 


000-0 


07726 


46 


08062 


01200 


07738 


14 


0594N 


OOOPO 


07750 


46 


08162 


01100 


07762 


46 


08062 


01200 


07774 


14 


0594N 


000-3 


07786 


46 


08094 


01200 


07798 


44 


08370 


05953 


07810 


16 


07831 


00-00 


07822 


15 


08043 


00001 


07831 




3 




07B34 


14 


0594N 


0OOM5 


07844 


46 


07998 


01200 


07858 


14 


0594N 


OOOKO 


07870 


46 


07986 


01200 


07882 


14 


0594N 


OOOJO 


07894 


46 


0 7998 


01200 


07906 


43 


07930 


00097 


07918 


12 


07108 


00-01 


07930 


24 


09945 


06785 


07942 


46 


08030 


01300 


07994 


25 


07830 


0594N 


07944 


U 


05945 


-0002 


07978 


*<» 


071! 8 


00000 


07989 








079B4 


19 


08043 


00002 


07998 


11 


05949 


-0002 


08010 


12 


07109 


000- 1 


08022 


44 


07858 


00000 


08029 








09030 


29 


07831 


0594N 


08042 


21 


07108 


07831 


08094 


49 


08246 


00000 


08041 








08042 


44 


08162 


00098 


08074 


12 


07108 


000- 1 


08084 


49 


08222 


00000 


0809J 








08094 


43 


08370 


00097 


09104 


14 


09409 


000-0 


09118 


14 


04240 


-7690 


08110 


19 


00097 


OOOOJ 


09142 


12 


07108 


000-1 


08194 


49 


08222 


00000 


09141 








09142 


33 


00099 


00000 


08171 




S 




00174 


14 


04913 


-2441 


08194 


44 


04222 


01300 


08198 


29 


069 3t 


0994N 



G£4 
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06)90 


AN 


MA 


1 1 




08210 


it 


04933 


-0001 


06940 fFTIif 


c 


INPLUS 


• TERN 




08222 


26 


05945 


06765 


06570 


81 


EFTVFE 




08214 


4? 


07702 


01300 


06580 f FENO 


(BNF 


EFEN02 


• FNH 


•lit ZERO CHECK 


08246 


44 


06278 


03311 


06590 


TFM 


FAC 


if 9 


• 1011 


06258 


16 


02492 


OOORR 


04600 


B 


SWL 






08270 


49 


05934 


00000 


06610 


OORG 


•-3 






08278 








06620 EFEND2 


S 


Char 


• L OC 0 




06278 


22 


07106 


05606 


06630 


80 


ERR F7E 


t CHAR- 2 




08290 


43 


06370 


07106 


06640 


SF 


CHAR-1 




06302 


32 


07107 


00000 


06650 


TF 


FAC 


• CHAR 




08314 


26 


02492 


07106 


06660 


SF 


FNM 


• 


•* 


08326 


32 


03311 


00000 


06670 


BNF 


SW1 


#99 




08338 


44 


05934 


00099 


06680 


SF 


FAC- 2 






08350 


32 


02490 


00000 


06690 


8 


SWL 






06362 


49 


05934 


00000 


06700 


OORG 


•-4 






08369 








06710 ERRF7E 


TF 


FAC 


f FLZALP 


•11* F PLUS 2 ZEROS TO FAC 


08370 


26 


02492 


0334Q 


06720 


TOM 


EI 




• Hi SET ER FT INDICATION SWITCH 


08382 


15 


02615 


OOOOP 


06710 


B 


EFENO 






08394 


49 


08246 


00000 


06740 


OORG 


•-4 






08401 








06750 •••• 


MACRO FOR HOLLERITH TYPE READ AND WRITE 










06760 HTYPE1 


: TF' 


WIDTH2 


• SWF 


• U 


08402 


26 


05956 


0586J 


06770 


TF 


INPLUS 


• LAST 




08414 


26 


05945 


05736 


06780 


A 


LAST 


t WIDTH2 




08426 


21 


05736 


05956 


06790 


C 


LAST 


• MAX? 




08438 


24 


05736 


06037 


06800 


BNH 


•♦32 




08450 


47 


08482 


01100 


06810 


A 


SWF 


•MI0TH2 




08462 


21 


05861 


05956 


06820 


B 


ER COM 2 






08474 


49 


07078 


00000 


06830 


OORG 


•-4 






08461 








06840 


80 


HWRT 


.RWEFSW 




08482 


43 


08562 


05953 


06850 HRO 


SM 


WIOTH 2 


• 2 


,10, READ H FROM 10 REC TO FORMAT RECORD 


08494 


12 


05956 


000-2 


06860 


BL 


BSWF 






08506 


47 


05826 


01300 


06870 


AM 


SWF 


•2 




08518 


11 


05861 


-0002 


06880 


TF 


SWF 


•INPLUS 


,611 


08530 


26 


0586J 


0594N 


06890 


AM 


INPLUS 


,2 




08542 


11 


05945 


-0002 


06900 


B 


HRO 






08554 


49 


08494 


00000 


06910 


OORG 


•-4 






08561 








06920 HURT 


SM 


WIDTH 2 


• 2 


,10, WRITE H TO I/O REC FROM FORMAT REC 


08562 


12 


05956 


000-2 


06930 


TOM 


COMPSW 


.0 




08574 


15 


05678 


00000 


06940 


BL 


BSWF 






08586 


47 


05826 


01300 


06950 


AM 


SWF 


.2 




08598 


11 


05861 


-0002 


06960 


TF 


INPLUS 


,SWF 


,611 


06610 


26 


0594N 


0566J 


06970 


AM 


INPLUS 


.2 




08622 


11 


05945 


-0002 


06980 


B 


H WRT 






08634 


49 


08562 


00000 


06990 


OORG 


• -4 






08641 








07000 EFR01 


CF 


IOC 






08642 


33 


05981 


00000 


07010 


TF 


FIXEN0*6 


,1 CON 5*6 


08654 


26 


03766 


05488 


07020 


B 


FIX 






08666 


49 


03854 


00000 


07030 


OORG 


• -4 






08673 








07040 EFRD2 


TOM 


F I XEND* I 


• 2 




08674 


15 


03761 


00002 


07050 


TF 


LOC 


,FAC 


»6 


0B686 


26 


0598J 


02492 


07060 


SM 


LOC 


.2 




08698 


12 


05981 


-0002 


07070 


TF 


LOC 


.FAC-2 


• 6 


08710 


26 


0598J 


02490 


07080 


B 


ER F7 






08722 


49 


10170 


00000 


07090 


DORG 


•-4 






08729 









07100 •••••• MACRO FOR A TYPE READ AND WRITE 



625 
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07110 


ATVPEl 


TF 


WIDTH2 


tSWF ,11 


08 730 


26 


05956 


0586J 


07120 




TF 


INPLUS 


.LAST 


08742 


26 


05945 


05736 


07130 




A 


LAST 


•WIOTH 2 


08754 


21 


05736 


05956 


07140 




C 


LAST 


,MAX 2 


08766 


24 


05736 


06037 


07150 




BH 


ER F9 




08778 


46 


07002 


01100 


07160 




TF 


TERM 


• LAST 


08790 


26 


06785 


05736 


07170 




SM 


TERM 


.2 


08602 


12 


06765 


-0002 


07180 




TFM 


SWC ADJ 


, WRITE A 


08814 


16 


06044 


-9074 


07190 




BD 


SWL 


,RW EF SW 


08826 


43 


05934 


05953 


07200 




TFM 


SWC ADJ 


•READ A 


08838 


16 


06044 


-8858 


07210 




B 


SWL 




08850 


49 


05934 


00000 


07220 




DORG 


•-4 




08857 








07230 


RE ADA 


CF 


INPLUS 


,6 


08858 


33 


0594N 


00000 


07240 




AM 


INPLUS 


• 1 ,10 


08870 


11 


05945 


000- 1 


07250 




C 


INPLUS 


• TERM 


08882 


24 


0S94S 


06785 


07260 




BL 


READ A 




08894 


47 


08658 


01300 


07270 




BNF 


ROAFL 


• LOC 


08906 


44 


09018 


05981 


07280 




CF 


LOC 




08918 


13 


05961 


00000 


07290 




TF 


LOC 


»FXZ «6 


08930 


26 


0598J 


02815 


07300 




S 


WIDTH 2 


• K 


08942 


22 


05956 


02221 


07310 


ROA 


BH 


ERF7A 




08954 


46 


08998 


01100 


07320 




A 


LOC 


•WIOTH 2 


08966 


21 


05981 


05956 


07330 




TF 


LOC 


» TERM ,611 


08978 


26 


0598J 


0678N 


07340 




B 


ER F7 




06990 


49 


10170 


00000 


07350 




DORG 


•-4 




08997 








07360 


ERF7A 


TDM 


EI 


•7 ,11, SET ER F7 ERROR I NO ANO SWITCH 


08998 


15 


02615 


OOOOP 


07370 




8 


ER F7 




09010 


49 


10170 


00000 


07380 




DORG 






09017 








07390 


RDAFL 


TFM 


LOC 


•00 ,610 


09016 


16 


0598J 


000-0 


07400 




SM 


LOC 


• 2 ,10 


09030 


12 


05981 


000-2 


07410 




TF 


LOC 


•FLZ ,611 


09042 


26 


0S96J 


0335L 


07420 




S 


WIDTH 2 


• F 


09054 


22 


05956 


02219 


07430 




8 . 


RD A 




09066 


49 


06954 


00000 


07440 




OORG 


• -4 




09073 








07450 


WRITER 


TF 


FAC 


•LOC ,11 


09074 


26 


02492 


0598J 


07460 




BNF 


WA FX 


•FAC-l 


09086 


44 


09166 


02491 


07470 




SM 


LOC 


• 2 


09098 


12 


05961 


-0002 


07480 




S 


WIDTH 2 


• F 


09110 


22 


05956 


02219 


07490 


WRTA 


BH 


WRTA 2 




09122 


46 


09166 


01100 


07500 




A 


LOC 


•WIDTH 2 


09134 


21 


05961 


05956 


07510 




TF 


TERM 


•LOC »6ll 


09146 


26 


0676N 


0596J 


07520 




B 


BSWF 


09158 


49 


05626 


00000 


07530 




OORG 


•-4 




09165 








07340 


WRTA2 


SM 


WIDTH 2 


•02 ,10 


09166 


12 


05956 


000-2 


07550 




B 


WRTA 




09178 


49 


09122 


00000 


0 7540 




OORG 


•-4 




09165 








07570 


NAFX 


S 


WIOTH 2 


• K 


09166 


22 


09956 


02221 


07580 




B 


WRT A 




09191 


49 


09122 


00000 


07590 




DORG 


•-4 




09205 








07600 


•••••• 






E ANO F TYPE MANTISSA WRITING. FLOAT ARC IF REQ. 










07610 








COMPUTE OfC FT IN GAM ANO OUTPUT RECORD. MOVE 










07620 








MANTISSA DIGIT BY DIGIT. RIGHT TO LEFT, FROM FAC 










07630 








TO GAM. INSERT SIGN* CHECK WIOTH, ANO ZERO. 










07640 


•••••• 






8R TO WRT f FOR F TYPE CONTINUATION 










07650 


EFMWl 


TP 


FAC 


•LOC .11 


09206 


26 


02492 


0998J 


07660 




BNF 


FLOAT 


•FAC-l 


09218 


44 


04042 


0249 1 
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07*70 




SM 


IOC 


,2 




09230 


12 


03981 


-0002 


07*10 




TP 


PAC-2 


tLOC 


All 


092*2 


2* 


02*90 


0598J 


07**0 


EFAIPH 


TOM 


PLTEND-3 


,2 


092 S* 


IS 


03809 


00002 


07700 




TF 


OPT 


tTift* 




092** 


2* 


07137 


0*785 


07710 




s 


OPT 


•LOC 0 2 




09271 


22 


07137 


0960* 


07720 




TFM 


DP6 


.SAM 




09290 


1* 


05976 


-2555 


07730 




S 


OPG 


ttOC 0 2 




09302 


22 


05976 


03*06 


077*0 




TE 


0PTM2 


• OPT 




0931* 


26 


08173 


07137 


07730 




SM 


0PTM2 


,2 




0932* 


12 


08173 


-0002 


077*0 


EF ALP 


SM 


MA 2 


,1 




09336 


12 


07084 


-0001 


07770 




TO 


MA 


,MA2 


•*u 


093S0 


25 


0693L 


0708M 


077S0 




CE 


MA 






093*2 


33 


0693L 


00000 


07790 




SM 


MA 


\ z 




0937* 


12 


06933 


-0002 


07800 




c 


MA2 


t EMI MF 




0938* 


24 


07084 


03313 


07810 




8H 


EE ALP 






09398 


46 


09338 


01100 


07820 




TFM 


MA 


iOO 


i*10 


09410 


16 


0693L 


000-0 


07830 




ONE 


EE CHKS 


tFAC-2 




09422 


44 


09446 


02490 


07840 




TEM 


MA 


,20 


tkUL 


0943* 


16 


0693L 


OOOKO 


07850 


EFCHKS 


TFM 


CKW 


,000 


,9 


09446 


16 


06673 


00-00 


07860 




A 


CKW 


• LOCO 




09458 


21 


06673 


05608 


07870 




A 


CKM 


,EAC 




09470 


21 


06673 


02492 


07880 




TF 


CHAR 


• CKW 




09482 


26 


07108 


06673 


07890 




s 


CHAR 


»E 




09494 


22 


07108 


02219 


07900 




c 


MIOTH 


.LOC 0 




09506 


24 


05715 


05608 


07910 




8L 


ER E8 E 






09518 


47 


05202 


01300 


07920 




BO 


• ♦36 


• ENH 


til 


09530 


43 


09566 


0331L 


0 7930 




TOM 


FLTEND-4 


.-I 




09542 


15 


03806 


OOOOJ 


0 79*0 




TEM 


CHAR 


t-099 


t9 


09554 


16 


07108 


00-9R 


07950 




BNF 


MRTF 


»RWEESW 




09566 


44 


04702 


05953 


07960 








WRITE £ TYLPX* ASSEMBLE EXP IN GAM USING A MASK, 










07970 








THE CHAR ANO SIGN. MOVE LEFT GAM AND RIGHT GAM TO 










0 7980 








OUTPUT. THEN GO TO INSERT DECIMAL POINT 










07990 


WRTE 


s 


WIDTH 


• F 




095 78 


22 


05715 


02219 


08000 




BNL 


MRT E2 




•i 8R IF F NOT LARGER THAN EFF WIDTH 


09590 


46 


04598 


01300 


08010 




80 


• ♦36 


IeLTENO-4 




09602 


43 


09638 


03806 


08020 




s 


CHAR 


•WIDTH 




09614 


22 


07108 


05715 


08030 




BD 


ERF BE 


.CHAR-2 




09626 


43 


05202 


07106 


08040 




TFM 


• ♦47 


• GAM 




09638 


16 


09685 


-2555 


08050 




A 


• ♦35 


•WIOTH 




09650 


21 


09685 


05715 


08060 




A 


• ♦23 


•WIOTH 




09662 


21 


09685 


05715 


08070 




jf 


GAM 






09674 


26 


02555 


00000 


08080 




B 


WRTE 2 






09686 


49 


04598 


00000 


08090 




OORG 


•~-4 






09693 








08 100 








MACRO FOR 


I TYPE READ ANO WRITE 










081 10 


ITVPE1 


XF 


WIDTH2 


• SWF 


,11 


09694 


26 


05956 


0586J 


08120 




A 


LAST 


.WI0TH2 




09706 


21 


05736 


05956 


08130 




c 


LAST 


, MAX2 




09718 


24 


05736 


06037 


08140 




BH 


ER E9 






09730 


46 


07002 


01100 


08150 




TF 


1NPLUS 


• LAST 




09742 


26 


05945 


05736 


08160 




TFM 


IR DIG+6 


. ,FAC 




09754 


16 


09984 


-2492 


08170 




TFM 


SMC AOJ 


, WRITE I 




09766 


1* 


06044 


-4446 


08180 




BO 


SWL 


•RWEFSW 




09778 


43 


05934 


05953 


08190 




TF 


TERM 


•FP1MK 




09790 


26 


06785 


03283 


08200 




TF 


EAC 


• FXZ 




09802 


26 


02492 


02815 


08210 




TFM 


SMC AOJ 


,REAOI 




09814 


16 


06044 


J0086 


08220 




CHAR BY CHAR IS MOVED INTO EACtRIGHT JUSTIFIED, UNT IL SIGN 
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08230 •••••• OR W CHAR ARE EXAMINED. 

08240 •••••• ERROR F7 WILL OCCUR IF MORE THAN K CHAR ARE AVAIL TO READ 



08250 


IREAO 


SM 


WI0TH2 


• 2 


• 10 


09826 


12 


05956 


000-2 


08260 




BL 


SML 






09838 


47 


05934 


01300 


08270 




SM 


INPLUS 


• 2 




09850 


12 


05945 


-0002 


08280 




CM 


INPLUS 


• 70 


• 610 


09862 


14 


0594N 


OOOPO 


08290 




BH 


IR OIG 






0987* 


46 


09978 


01100 


08300 




BE 


IR BLNK 






09886 


46 


10014 


01200 


08310 




CM 


INPLUS 


,00 


• 610 


09898 


14 


0594N 


000-0 


08320 




BE 


IR BLNK 






09910 


46 


10014 


01200 


08330 




CM 


INPLUS 


,20 


.610 


09922 


14 


0594N 


OOOKO 


06340 




BE 


I MINUS 






09934 


46 


10034 


01200 


08350 




CM 


INPLUS 


• 10 


• 610 


09946 


14 


0594N 


OOOJO 


08360 




BE 


SML 






09958 


46 


05934 


01200 


08370 




B 


ERR F7I 






09970 


49 


10054 


00000 


08380 




OORG 


•-4 






09977 








08390 


IRDIG 


TO 




i INPLUS 


ill 


09978 


25 


00000 


0594N 


08400 




C 


•-6 


• TERM 


09990 


24 


09984 


06785 


08410 




BL 


ERR F7 I 






10002 


47 


10054 


01300 


08420 


IRBLNK 


SM 


IR DIG^6 


.1 




10014 


12 


09984 


-0001 


08430 




B 


I READ 






10026 


49 


09826 


00000 


08440 




OORG 


•-4 






10033 








08450 


IMINUS 


SF 


EAC 






10034 


32 


02492 


00000 


08460 




B 


SML 






10046 


49 


05934 


00000 


08470 




DORG 


•-4 






10053 








08480 


ERRF7I 


TF 


FAC 


• FXZ 


•• SET FIXEO ZERO INTO FAC 


1005* 


26 


02492 


02815 


08490 




TFM 


EI 


,677 


•911, SET ERROR F7 INDICATION 


10066 


16 


02615 


0007P 


08500 




B 


SML 






10078 


49 


05934 


00000 


0B510 




DORG 


•-4 






10085 








08520 


READI 


SF 


FPIMK 




• * 


10086 


32 


0328L 


00000 


08530 




TF 


FLT ENO 


I ICON 2** 




10098 


26 


03810 


10208 


08540 




BNF 


FLOAT 


• LOC 




10110 


44 


04042 


05981 


08550 




CF 


LOC 






10122 


33 


05981 


00000 


08560 


READIF 


TF 


LOC 


• FAC 


f* 


1013* 


26 


0598J 


02492 


08570 




SM 


LOC 


xl. . 




1014* 


12 


05981 


-0002 


08560 




TF 


LOC 


•FAC-2 


»* 


10156 


26 


0598J 


02490 


08590 


ERF7 


BNF 


BSWF-12 


•EI 


it IR IF NOT fRROR TYPE FT 


10170 


44 


05814 


02615 


08600 




CF 


El 


t 


tt ERASE ERROR F7 INDICATION 


10182 


33 


02615 


00000 


08*10 




6 


ER COM 2 






1019* 


49 


07078 


00000 


06620 




DORG 


•-4 






10201 








08630 


IC0N2 


B 


READ IF 


t _.. 


Ml 


10202 


4R 


10134 


00000 


08640 




DORG 


•-4 






10209 








08*50 






Rf TURN FROM 


SML VIA SMC IF WRITING I TYPE 










08**0 


•••••• 




VALUE PUT IN PAC IN I PORM.f XPANOEO TO ALPHA IN 










08670 


•••••• 




GAMMA RIGHT 


TO LIFT* HO CONTAINS ADR OP HIGH OROER 










08680 


•••••• 




DIGIT IN GAI 


I. AFTER VALUE IN GAM IS S I GNEOt CHECKED 










06*90 


•••••• 




PQijmukua 


V»U JfliWIFWI RfCJKO, 










08700 


•••••• 




ERPS! RESULTS IP VALUE TOO LARGE FOR FORMAT SPECS. 










06710 


WRITI1 


TFM 


MA 2 


•PACtl 




10210 


16 


07084 


-2493 


08720 




TF 


PAC 


• LOC 


Vii 


10222 


26 


02492 


0998J 


08730 




MP 


MRTI2+12. 


•PAC-1 . 




1023* 


4* 


10302 


•2491 


06740 


IFWRT 


SM 


LOC 


• 2 




102** 


12 


09981 


-0002 


08730 




TP 


PAC-2 


•LOC . ... 


• u 


10211 


2* 


02490 


0996J 


087*0 




TF 


PIXCNO** 


•IC0N3** 




10270 


2* 


03766 


05496 


08770 




8 


FIX 






10262 


49 


03894 


00000 


08780 




OORG 








10269 
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PAGE IS 



08790 


MRTI2 


TDK 


MXCN0*1 


• 2 






10290 


IS 


03761 


00002 


ossoo 




TR 


GAM- 19 


•MASK I 






10102 


II 


02S36 


05452 


OHIO 




TFM 


HO 


•6AM*1 






10314 


16 


1040S 


-2536 


OHIO 


MRTI 


SM 


MA 2 


tl 






10326 


12 


0*064 


-0001 


08830 




SM 


MA 


.2 






10338 


12 


06933 


-0002 


01140 




TO 


MA 


• MA 2 


•611 




10390 


2S 


06931 


070SM 


01050 




80 


I DIG 


• MA 2 


• 11 




10362 


43 


10382 


0708M 


onto 




8 


I DIG^L2 








10374 


49 


10394 


00000 


08870 




OORG 


•-4 








10361 








08880 


IOIG 


TF 


HO 


• MA 






10362 


26 


1 0405 


06933 


08890 




CF 


GAM 


• 


• • 


PREVENTS PREMATURE TERM .FUR NEG ARG 


10394 


33 


02555 


00000 


08900 


HO 


OS 


5 


• • 




ADR OP HI ORDER NON ZERO DIGIT 


10405 




5 




08910 




BNF 


MRTI 


• MA 


,11 




10406 


44 


10326 


0693L 


08920 




CM 


HO 


• GAM+1 






10416 


14 


10405 


-2556 


08930 




6NE 


MRT SON 








10430 


47 


10462 


01200 


08940 




TFM 


LAST 


• 7000 


,68 




10442 


16 


05730 


OPOOO 


08990 




B 


BSMF 






10454 


49 


05826 


00000 


08980 




OORG 


•-4 








10461 








08970 


MRTSGN 


BNF 


MRT 13 


• FAC 






10462 


44 


10496 


02492 


08980 




SM 


HO 


.2 






10474 


12 


10405 


-0002 


08990 




TFM 


HO 


• 20 


• 610 




10466 


16 


1040N 


oooxo 


09000 


WRTI3 


SM 


HO 


• 1 






10498 


12 


10405 


-0001 


09010 




TFM 


OUT 


• GAM 






10510 


16 


10569 


-2555 


09020 




S 


OUT 


• HO 






10522 


22 


10569 


10405 


09030 




C 


OUT 


• MIOTH 2 






10534 


24 


10569 


05956 


09040 




BH 


ER F8 I 








10546 


46 


10626 


01100 


09050 




SF 


OUT 








10558 


32 


10569 


00000 


09060 


OUT 


OS 


5 


»• 


» HI 


OROER MKG ADR IN I/O RECORD, I TYPE 


10569 




5 




09070 




A 


OUT 


• LAST 






10570 


21 


10569 


05736 


09080 




SM 


OUT 


• 2 






10582 


12 


10569 


-0002 


09090 




TR 


OUT 


,H0 


• 611 




10594 


31 


1056R 


1040N 


09100 




TFM 


LAST 


• 00 


• 610 




10606 


16 


05 730 


000-0 


09110 




B 


BSMF 








10618 


49 


05826 


00000 


09120 




OORG 


• -4 








10625 








09130 


ERF8I 


TR 


DUO H*il,FLZERS-< 


67 




10626 


31 


02618 


06260 


09140 




TR 


DUD H*M 


• HO 


• 11 




10638 


31 


02618 


1040N 


09150 




B 


ERCOM 








10650 


49 


I 1322 


00000 


09160 




OORG 


•-4 








10657 








09170 
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09180 


FIX1 


BP 


• ♦32 




• • 


YES 


10658 


46 


10690 


01100 


09190 




TF 


F AC 


Ifxz 


• • 


NO 


10670 


26 


02492 


02815 


09200 




B 


FIX6ND 








10682 


49 


03760 


00000 


09210 




DORG 


• -3 








10690 








09220 




TO 


MU-l 


.FAC-2 


• • 


STORE SIGN 


10690 


25 


03711 


02490 


09230 




C 


F AC 


• X 


» » 


IS CHAR GREATER THAN K 


10702 


24 


02492 


02221 


09240 




BNH 


• ♦44 








10714 


47 


10758 


01100 


09250 




TOM 


FXERR+25 


• 1 


» • 


SET ERR TYPE 


10726 


15 


03701 


00001 


09260 




TFM 


EI 


• 579 


• 9, 


SET ER E9, OVFL IN FIX 


10738 


16 


02615 


00N79 


09270 




B 


FXNINE*12. 


• • 


YES, FAC - FX9 


10750 


49 


U004 


00000 


09280 




DORG 


• -3 








10758 








09290 




CF 


FAC-2 








10758 


33 


02490 


00000 


09300 




TF 


BETA 


.ZERO-51 


• • 


CLEAR ADD AREA 


10770 


26 


02403 


02716 


09310 




TF 


IMSA 


• FX2 






10782 


26 


02575 


02815 


09320 




TF 


• ♦30 


•IMSAPF 


» • 


ALIGN DECIMAL POINTS 


10794 


26 


10824 


03298 


09330 




S 


• ♦18 


• FAC 






10806 


22 


10824 


02492 


09340 




A 


DUMMY 


.FAC-2 






10818 


21 


99999 


02490 



1620 FORTRAN II-D SUBROUTINES SET 2 PAGE 19 



09350 




TF 


FAC 


• IMSA 






10830 


26 


02492 


02575 


09360 




B 


MU 








10842 


49 


03712 


00000 


09370 




DORG 


• -4 








10849 








09380 


FXA1 


BV 


• ♦12 








10850 


46 


10862 


01400 


09390 




88 










10862 


42 


00000 


00000 


09400 




DORG 


•-9 








10864 








09410 


FXSR1 


CF 


FAC 








10864 


33 


02492 


00000 


09420 




TF 


FXA-1 


•FXSR-1 


• • 


SET UP AOO 


10876 


26 


03877 


03925 


09430 




B 


FXA 




• • 


BRANCH TO FIXED POINT ADD 


10888 


49 


03878 


00000 


09440 




DORG 


•-3 








10896 








09450 




SF 


FAC 








10896 


32 


02492 


00000 


09460 




B 


FXSR1+12 








10908 


49 


10876 


00000 


09470 




DORG 


• -3 








10916 








09480 


FXM1 


SF 


100MK 


» 


• 6 




10916 


32 


0329L 


00000 


09490 




TF 


FAC 


,99 






10928 


26 


02492 


00099 


09500 




BB 










10940 


42 


00000 


00000 


09510 




DORG 


•-9 








10942 








09520 


FX01 


D 


lOOMK 


•FXD-l 


• 611 




10942 


29 


0329L 


0397L 


09530 




BV 


• ♦26 








10954 


46 


10980 


01400 


09540 




TF 


FAC 


• 99MX 


• 11 




10966 


26 


02492 


03280 


09550 




BB 










10978 


42 


00000 


00000 


09560 




DORG 


• -9 








10980 








09570 




TFM 


EI 


• 578 


• 9, 


ERROR E8 


10980 


16 


02615 


OON78 


09580 


FXNINE 


TFM 


FXERROO 


•FIXEND-ia 


t » 


SET UP ERROR EXIT 


10992 


16 


03706 


-3748 


09590 




TF 


FAC 


»FX9 


• » 


FAC » FX9 


11004 


26 


02492 


02805 


09600 




B 


FXERR 








11016 


49 


03676 


00000 


09610 




OORG 


•-3 








11024 








09620 


FXDR1 


0 


100MK 


• FAC 


•6 




11024 


29 


0329L 


02492 


09630 




B 


Fxomt 








11036 


49 


10954 


00000 


09640 




OORG 


•-4 








11043 








09650 


RSGN1 


BNF 


• ♦26 


•FAC-2 


• • 


FLOATING POINT NUMBER 


11044 


44 


11070 


02490 


09660 




CF 


FAC-2 








11056 


33 


02490 


00000 


09670 




BB 










11066 


42 


00000 


00000 


09680 




OORG 


•-9 








11070 








09690 




SF 


FAC-2 








11070 


32 


02490 


00000 


09700 




BB 










11082 


42 


00000 


ooooo 


09710 




OORG 


•-9 








11084 








09720 




BNF 


•♦26 


• FAC 


• • 


FIXED POINT NUMBER 


11084 


44 


11110 


02492 


09730 




CF 


FAC 








11096 


33 


02492 


OOOOO 


09740 




BB 










11108 


42 


00000 


OOOOO 


09750 




DORG 


•-9 








11110 








09760 




SF 


FAC 








11110 


32 


02492 


OOOOO 


09770 




BB 










11122 


42 


00000 


OOOOO 


09780 




OORG 


•-9 








11124 








09790 


FLOATl 


BZ 


ZERFAC 




• • 


YES 


11124 


46 


03584 


01200 


09800 




TO 


99 


• FAC 


» • 


STORE SIGN 


11136 


25 


00099 


02492 


09810 




CF 


FAC 








11146 


33 


02492 


OOOOO 


09820 




TR 


6ETA-9 


• FXH 


• 11 




11160 


31 


02S94 


0328L 


09830 




TF 


FAC-2 


•9SFF-1 


• • 


CLEAr FAC 


11172 


24 


02490 


02653 


09840 




TF 


SAVE 


• K 


» • 


CHAR • X 


11164 


26 


02965 


02221 


09850 




TFM 


• ♦23 


•BETA-9 






11196 


16 


11219 


-2594 


09860 




80 


•♦44 


• 


• f 


FINO HI ORO DIGIT 


11208 


41 


11292 


OOOOO 


09870 




SM 


SAVE 


• 1 


• 10. 


ADJUST CHAR 


11220 


12 


02565 


000-1 


09880 




AM 


•-13 


tl 






11212 


It 


11219 


-0001 


09890 




B 


•-36 








11244 


49 


11208 


OOOOO 


09900 




DORG 


•-3 








11292 
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0*910 




7R 


PNN 


#•-11 


• 411 




11252 


11 


0311L 


U21R 


04920 




TP 


•♦15 


.PNH 




PINO AND CLEAR RECOAO NARK 


11244 


24 


11299 


03111 


09*10 




AN 


• ♦21 


f I 






11274 


It 


11799 


-0001 


09*40 




SNA 


•-12 








11288 


45 


11276 


ooooo 


09990 




TOM 


•-1 


• 0 


,4 




11100 


15 


U79R 


00000 


099*0 




TO 


PAC*l 


.RICH* 




REPLACE RECORO MARK 


11112 


25 


02493 


02401 


09970 




TP 


•ETA 


•ZER0-T4 


| * 


CLEAR BETA 


11324 


26 


02603 


02693 


09910 




B 


MQRM+60 








11114 


49 


1 1 760 


OOOOO 


09990 




DOAG 


•-4 








11141 








10000 


FSB1 


TP 


PAD-l 


•PSR-l 






11144 


24 


04 069 


04065 


10010 




6 


PAOt 








11354 


49 


11344 


OOOOO 


10020 




D0A6 


•-3 








11144 








10010 


r A01 


TP 


•CTA 


•PAO-1 


• u» 


MOVE EXPONENT 


11144 


24 


0760) 


0408R 


10040 




SH 


PAO-l 


,2 


• 10 




11174 


12 


04089 


000-2 


10090 




TP 


BETA-2 


i9SPP 




CLEAR BETA-2 TO F*l ZEROS* 


11188 


26 


02601 


02854 


10060 




A 


BETA-2 


•FAO-1 


• lli 


AOD OR SUBT .MANTISSA 


11400 


21 


02601 


0406R 


100T0 




TF 


SAVE 


• PAC 


* * 


MOVE EXPONENT* 


11412 


26 


0256S 


02492 


10000 




TP 


PAC-l 


•FAC-2 




RIGHT SHIFT ONE DIGIT* 


11424 


26 


02491 


02490 


10090 




CP 


PN 




»6» 


CLEAR FLAG ON HIGH ORDER DIGIT* 


11414 


33 


03100 


OOOOO 


L0100 




TDM 


PNH 


• 0 


•411* 


SET NEXT HIGH DIGIT TO FLAG ZERO* 


1 14*8 


15 


0331L 


0000* 


101 10 




c 


BETA 


• SAVE 


' * 


COMPARE EXPONENTS* 


11460 


24 


02603 


02965 


L0170 




BNM 


• ♦84 




' * 


BRANCH IF NO EXCHAMdf OF OPERANDS 


11472 


41 


1 1 5*6 


01 100 


101 30 




TF 


SAVE-2 


•FAC-l 


* * 


EXCHANGE MANTISSAS* 


1 1484 


76 


02S63 


02491 


101 40 




TF 


PAC-l 


, BJTA-2 


* * 




11496 


74 


02491 


02601 


1 01 so 




TF 


BETA-2 


• SAVE-2 






1 1508 


26 


02601 


02563 


10160 




TF 


PA0*B 


• SAVE 




EXCHANGE EXPONENTS* 


11520 


26 


04096 


02565 


101 70 




TF 


SAVE 


• iff A 






1 1 512 


24 


02565 


02603 


J Ot BO 




TF 


BETA 


,PA0+8 






11544 


26 


02r>03 


04098 


101 90 




TFH 


ADD* 1 I 


t BETA-2 




SET UP AOORESS 


11556 


V h 


1 1663 


-2601 


10?00 




s 


BETA 


• Save 


* ' 


SUBTRACT EXPONENTS 


11568 


22 


02603 


02565 


10210 




BV 


NOAOO 






NO OPERATION IF OVERFLOW* 


11560 


46 


1 1852 


01400 


10220 




A 


ADD* I I 


• BETA 


• * 


MODIFY AnOB.F$S POI SHIFT, 
nuv in ^vU"t * J run * ™ 1 » I * 


1 1592 


2 1 


1 1663 


02603 


102)0 




A 


BETA 


• F 


* * 


AOO F TO BETA 


11604 


21 


02603 


02219 


10240 




BNM 


NOAOO 




* * 


NO OP IF EX DIF NOT LESS THAN F 


1 1616 


47 


1 1 8*2 


01 100 


10250 




BNP 


AOD 


! BETA-2 


* * 




1 1626 


44 


1 1652 


02601 


10260 




SF 


ADD* 1 1 


• 


• •» 


C FT ^IfiN OF OPFAAMO. 


' 1 1 640 


3? 


1 1 66L 




10270 


A 00 




PAC-l 


t 


• • 




11652 


? 1 


02491 


VVUUv 


10280 




BZ 


ZERFAC*l2t 




IIRANrH IF 7 FRO RFtlJI T 


1 1664 


46 


03596 


01200 


10290 




TOM 


UNFLOM-1 


• 2 






11676 


15 


11619 


00002 


10300 




TOM 


OVFLOM-l 


• 1 






11688 


13 


0365 1 


00001 


103 10 


NORM 


TO 


99 


•FAC-l 


• • 


< TDRF SICM OF AFS1II T 
J IURC Jl«1 Ur HOULI 


11700 


25 


00099 


02491 


10320 




CF 


PAC-l 








11712 


31 


02491 


oooon 


10330 




BO 


LV1 


• FNH 


• 1 1 • 




1 1724 


43 


03616 


03311 


10340 




TR 


FNH 


• PH 


• 41 1« 


LEFT SHIFT ONCE 


1 1 736 


31 


033 IL 


0330Q 


10350 




TOM 


PAC-l 


• 0 




tcr i act digit to 7Fan. 


1 1748 


15 


02491 


OOOOO 


10360 




SF 


PNH 


» 


• 4* 




1 1 760 


32 


0331L 


OOOOO 


10370 




BD 


FINISH 


t FNH 


• 61 It 


TFiT 1 F AO IMC IFRO 


11772 


43 


0380L 


0331L 


10380 




SM 


SAVE 


• 1 


.10, 


SUBT ONE PROM EXPONENT* 


11784 


12 


02565 


000- 1 


10390 




BNV 


N0RMO6 








11796 


47 


11736 


01400 


10400 




TFM 


El 


• 572 


.9, 


SET UP ERROR CODE E2. 


11808 


16 


0261S 


00N72 


10410 


UNFLOW 


TFH 


PAC 


• -99 


• 10, 




11820 


16 


02492 


OOORR 


10420 




TF 


PAC-2 


•9SPF-1 


• • 


SET RESULT TO ZERO. 


11832 


26 


02490 


02653 


10430 




B 


ERROR 








11844 


49 


01676 


OOOOO 


10440 




OORG 


•-4 








11851 








10450 


NOAOO 


SF 


PH 
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15044 




9 






016840100 
















12510 


OSA 


START* 3 








15057 




5 


X 1 














15057 




-3854 




12520 


TRA 










15058 


36 


00000 


00500 














15070 


49 


00000 


00000 


12530 


TCD 


15000 








15000 









12540 OENO 00000 



1620 FORTRAN II-D SUBROUTINES SET 2 PAGE 25 



ATYPEl 


08730 


I TYPE I 


09694 


EFWRT 


07514 


FXDR 


03998 


MATSW 


05583 


CLR70S 


05134 


LDGDIG 


08062 


EI 


02615 


FXD 


03974 


MAX2 


06037 


COMAOD 


02231 


LOCAOJ 


06390 


ENDD 


03768 


FXERR 


03676 


MAX 


05924 


COMEND 


06656 


MASKEP 


05402 


ENTLN 


02248 


FXH 


03283 


MF 


03473 


COMPLT 


06698 


MATRIX 


06334 


ERCOM 


05322 


FXM1 


10916 


MU 


03712 


COMPSW 


05678 


MATRX2 


.06418 


ERF7A 


08998 


FXM 


03950 


HI 


02233 


DATDUD 


06049 


MESERR 


. 02607 


ERF7 


10170 


FXSR1 


10864 


N2 


02238 


DAT I NH 


06057 


MONCAL 


00796 


ERF8E 


05202 


FXSR 


03926 


NOADO 


11852 


OIOODA 


03387 


OOOREV 


12604 


ERF8I 


10626 


FXS 


0 3902 


NODI V 


13194 


DKBUFF 


02404 


QNEFA& 


12848 


ERF9 


07002 


FX2 


02815 


NORM 


11700 


DKDATA 


03379 


OVFLClk. 


.JM652 


ERRET 


00602 


FZERO 


04950 


OLWR 


13734 


EEXP22 


07906 


PROBST' 


02226 


ERROR 


03676 


GAM 


02555 


ONE I 


03038 


EEXPAO 


08042 


« 


05754 


ETYPE 


04556 


GEHT 


13478 


OUT 


10569 


EFALPH 


09254 




04468 


EXP 


07831 


GM2F 


0 3735 


PAR 


03378 


EFCHKS 


09446 


REAOJF 


10134 


F2 


03661 


HNO 


03338 


POT 


03333 


EFEN02 


08278 


REPSW3 


05585 


FAC 


02492 


HO 


10405 


PI0V2 


03163 


EFPLUS 


07690 


AWEFSW 


05953 


FAD1 


11364 


HRD 


08494 


PI0V4 


03191 


EFTERM 


08222 


100NK 


03293 


FAD 


04090 


HTYPE 


04578 


PI 


03133 


EFTYPE 


07702 


102MF 


03343 


FAX81 


13486 


HWRT 


08562 


PSI 


12500 


ENOFOR 


06063 


2FMI 


03429 


FAXB 


04258 


IC0N2 


10202 


RACD1 


05902 


ENTABS 


02323 


96MF 


03318 


FAXU 


12824 


IC0N3 


05490 


RACD 


04402 


ENTATN 


02313 


97M2F 


03363 


FAXI 


04234 


IC0N5 


05482 


RAPT1 


05882 


ENTCOS 


02303 


97MF 


03323 


FCHNB 


07458 


IC0N6 


05474 


RAPT 


04378 


ENTOEO 


02298 


98MF 


03328 


FDl 


12102 


IDIG 


10382 


RATVl 


05862 


enjtojir 


02293 


99MK 


03288 


FD 


04162 


IF WAT 


10246 


RATY 


04354 


ENTTXP 


02253 


9SCPF 


02795 


P0VA1 


12*14 


IMSA 


02575 


ROAFL 


09016 


ENTFET 


02283 


9SPF 


02854 


FOVR 


04166 


INH 


06063 


RDALP 


05914 


ENTF10 


02273 


ADD 


11652 


FH 


03308 


IN 


06237 


RDA 


08954 


ENTREC 


02278 


ATYPE 


04512 


FIX1 


10658 


IOCAL 


00716 


RDFCH 


07378 


ENTSCl 


02258 


AXJ 


12986 


FIXU 


12394 


IOCR 


06664 


READA 


08858 


ENTSC2 


02263 


83 


15044 


FIX! 


04210 


IOGT 


00566 


READI 


10086 


ENTSC3 


02268 


BETA 


02603 


FIX 


03834 


I OPT 


00532 


RECLG 


02243 


ENTSIN 


02308 


8 SWF 


05826 


FX 000 


03427 


IORBC 


00520 


RECMK 


02403 


ENTSQT 


02318 


CHAR2 


06708 


FLOAT 


04042 


IORT 


00565 


REOOA 


06762 


ENTSWO 


02288 


CHAR 


07108 


PL I 


03353 


IOSK 


00554 


REDO 


06718 


ERC0M2 


07078 


CKW 


06673 


FM1MF 


03313 


IRDIG 


09978 


REP2 


06890 


ERRF7E 


08370 


010 


00816 


FMl 


03625 


I READ 


09826 


REP3 


06922 


ERRF7I 


10054 


QPG 


05976 


FMFAC 


03452 


ITVPE 


04424 


REP 


06818 


EXPENT 


03373 


0PTM2 


08173 


FMPl 


11942 


K2 


03648 


REPSW 


05582 


FINDIN 


03583 


DPT 


07137 


FMP 


04136 


X 


02221 


RSGN1 


11044 


FINISH 


03803 


ojum_ 


02607 


FNHM1 


03358 


LAST 


05736 


RSGN 


04020 


FIXENO 


03760 


DUO 


02687 


FNH 


03313 


LN10 


02980 


RWA2 


05670 


FL0AT1 


11124 


BUANy. 


99999 


FP1MK 


03283 


LN2 


02887 


RWA 


05562 


FLTENO 


03810 


EEXP2 


07858 


FP2 


03605 


LN* 


02918 


SAVE 


02565 


FL2ALP 


033*8 


IEXPN 


.$7996 


F 


02219 


LNB 


02949 


SE 


12222 


FLIERS 


06327 


EEXP 


07998 


FSB1 


11344 


LNENT 


03368 


SIX 


03219 


FMFAXI 


12026 


EFAtf 


09111 


FSBRl 


11890 


L0C02 


05606 


SLASH 


06492 


FNCNEZ 


04906 


EFCOM 


07 1 38 


FSBR 


04U4 
0*6*6 


LOCO 


05608 


SOS 


13342 


FXNINE 


10992 


EFDEC 


08094 


FSB 


LOC 


05981 


START 


03891 


6M1M2F 


03526 


EFOIG 


0B162 


FTVPE 


0*53* 


LOGE 


03010 


STOP 


02395 


NTVPE1 


08402 


EPENO 


06246 


FXl 


02BI9 


LV1 


03616 


SWC 


059B2 


IMINUS 


1003* 


EPWIN 


07678 


FX9 


02605 


Ml* 


13194 


SWF 


05861 


IMSAPF 


03298 


EFNM1 


09206 


FXA1 


10090 


MANTP 


13970 


SWL 


05934 


INPLUS 


03945 


EFMW 


04490 


FXA 


03078 


NASKF 


05419 


TAFE 


02535 


IRBLNK 


1001* 


EFR01 


08642 


FX01 


109*2 


MASK! 


09452 


TAN6 


03246 


ISPFMl 


03303 


EFRD2 


06674 


FXDRl 


1102* 


MASK 


05401 


TEN34 


03278 



1*20 FOR THAN 1 1 — 0 SUBAOUT I NES 



SIT 2 



TEAM 



TWO I 
MA 2 
WA3 



06799 


WACO 


0*330 


WATA2 


0*1** 


XTVPE 


070** 


WRI TE I 


04446 


03*00 


WAFX 


09 IB* 


WATA 


09122 


ZERO 


027*7 


MR I Til 


10210 


03*96 


wapti 


09111 


WATE2 


049*1 


SLASH2 


0*92* 


WRTAIP 


09990 


0396* 


WAFT 


0*10* 


WATE 


0997a 


ST2EA0 


0*239 


WRTFPC 


0902* 


03109 


MA 


0*t33 


WATF 


04702 


SWCAOJ 


0*0** 


WRTFPE 


0499* 


03073 


HATY1 


09**1 


WAT 12 


10290 


ONFLOW 


11*20 


WRTSGN 


10462 


07014 


WATV 


0*212 


WATI3 


10490 


WEFDEC 


03170 


I ERF AC 


0398* 


049*7 


WiOTH 


097X9 


WAT I 


1032* 


WI0TH2 


0999* 






05938 


WAITf 


0**32 


W 


022*0 


WRITE* 


0907* 







END OF ONE ASSEMBLY. 
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1620 FORTRAN II-D SUBROUTINES SET 3 



638 



1620 FORTRAN 1 1-0 SUBROUTINES SIT 3 



PAGE 



00010 




1620 


FORTRAN 


n-o 


SUBROUTINES WITH FLOATING POINT HARDWARE 






00020 


••••• 


IORT 


ENTRY POINTS AND CONSTANTS 






00030 


I0RBC 


OS 




» 


520 






00520 


o 


00040 


IOPT 


OS 




t 


532 






00532 


o 


OOOSO 


I0SK 


OS 




♦ 


554 






00554 


o 


00060 


I OGT 


OS 




* 


566 






00566 


o 




ERRET 


OS 




t 


602 






rtnt&i 


o 


00080 




OS 




• 


565 








o 


00090 


I OCAL 


OS 




t 


716 






rtOTI A 


o 


001 00 


MONCAL 


OS 




♦ 


796 






AAYOJk 

™' : 




001 10 


010 


OS 






816 






00816 


0 


001 20 




1620 


FORTRAN 


i II-D IN CORE AREAS 






001 30 


• •• 


COMMUNICATION AREA 










00140 




DORG 


2218 








02218 




00150 


F 


OS 


2.. 


FLOATING POINT 


WORD LENGTH 


02219 


2 


00160 


K 


OS 


2., 


FIXED 


POINT WORO 


LENGTH 


0222 1 


2 


001 70 


PROGST 


OS 


5., 


STARTING AOORESS 


OF MAINLINE PROGRAM 


02226 




00180 


CONAOD 


OS 


5,, 


STARTING AOORESS 


OF COMMON AREA 


02231 


5 


001 90 


N 1 


OS 


2., 


NUMBER 


OF WOROS IN LOGICAL RECORD 


02233 


2 


00200 


V? 


OS 




NUMBER 


OF LOGICAL RECORDS 


02238 


5 


002 1 0 


H 


OS 


2»t 


WORD LENGTH 










00220 


RECL G 


DS 


1». 


RECORD 


i LENGTH 






02243 




00230 


ENTIN 


OS 


5., 


ENTRY 


AOORESS 


TO 


LOG SUBROUTINE 


02248 


* 


00240 


ENTE XP 


OS 


5,, 


ENTRY 


AOORESS 


TO 


EXPONENTIAL SUBROUTINE 


02253 




00250 


ENTSC1 


OS 


*.» 


ENTRY 


AOORESS 


TO 


SINGLE SUBSCRIPT SUBROUTINE 


02258 




00260 


ENTSC2 


OS 


5 i i 


ENTRY 


ADDRESS 


TO 


DOUBLE SUBSCRIPT SUBROUTINE 


02263 




002 70 


ENTSC3 


DS 


5,, 


ENTRY 


AOORESS 


TO 


TRIPLE SUBSCRIPT SUBROUTINE 


02268 




00280 


ENTF I 0 


OS 


5, , 


ENTRY 


ADDRESS 


TO 


FIND SUBROUTINE 


02273 


5 


00290 


ENTREC 


DS 


S,» 


ENTRY 


AOORESS 


TO 


RECORO SUBROUTINE 


02278 




00300 


ENTFE T 


DS 


5»i 


ENTRY 


AOORESS 


TO 


FETCH SUBROUTINE 


02283 




00310 


6NTSW0 


DS 


5,i 


ENTRY 


ADDRESS 


TO 


SWITCH 0 SUBROUTINE 


02288 




00320 


ENTORR 


DS 


5,, 


ENTRY 


AOORESS 


TO 


ARRAY SUBROUTINE 


02293 


5 


00330 


ENTOEO 


DS 


5,, 


ENTRY 


AOORESS 


TO 


DISK END SUBROUTINE *■ 


02298 


5 


00340 


ENTCOS 


OS 


5.. 


ENTRY 


AOORESS 


TO 


COSINE SUBROUTINE 


02 30 3 


5 


00350 


ENTSIN 


OS 




ENTRY 


AOORESS 


TO 


SINE SUBROUTINE 


02308 


5 


00360 


ENTATN 


DS 


5,, 


ENTRY 


ADDRESS 


TO 


ARCTANGENT SUBROUTINE 


0231 3 


5 


00370 


ENTSQT 


DS 


5. , 


ENTRY 


ADDRESS 


TO 


SQUARE ROOT SUBROUTINE 


02318 


5 


00380 


ENTABS 


DS 


5#» 


ENTRY 


ADDRESS 


TO 


ABSOLUTE SUBROUTINE 


02323 


5 


00390 




OS 


70, 


(RESERVED FOR ENTRIES TO ADDED SUBROUTINES 


02 393 


70 


00400 




COMMON WORKING AREAS 








00410 


STOP 


OAC 


5, STOP* 








02395 








STOP 


i 














00420 


RECMK 


OS 






ST0P*8 






02403 


0 


00430 


DK8UFF 


OSS 


29 










02404 


29 


00440 


FAC 


OS 


60 










02492 


60 


00450 




DC 


L 




t 






02493 


1 


00460 


SAVE 


DS 


72 














00470 


BETA 


DS 


38 










02603 


38 


00480 




OGM 












02604 


1 


00490 


GAM 


DS 






SAVE-10 






02555 


0 


00500 


TAFE 


DS 






SAVE -30 




02535 


0 


00510 


IMSA 


DS 




i 


BETA -28 




02575 


0 


00520 


MESERR 


DAC 
ER E 


6.ER E « 








02607 


6 


00530 


OUDH 


OS 






MESERR 






02607 


0 
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1620 FORTRAN 1 1 -0 SUBROUTINES 



SET 3 



00540 
00550 
00560 
00570 

00580 

00590 
00600 

00610 
00620 

00630 

00640 

00650 
00660 

00670 
00680 

00690 

00700 

00710 

00720 

00730 

00740 
00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 
00B50 
00860 



EI 
DUO 
• ••»• 



ZERO 
9SCPF 



FX9 



FX2 
FX1 



9SPF 
LN2 

LN4 

LN8 

LN10 

LOGE 

ONEZ 

TWOZ 
TWOPI 
PI 

PI0V2 

PI OVA 

SIX 

TANA 

TEN34 

••••• 
••••• 

FXH 



DS ,»-2 
DS 70 

1620 FORTRAN II-D FLOATING POINT CONTANTS 
DC 40 ,0 

-000000000000000000000000000000000000000 
DSC 40 ,0 

0000000000000000000000000000000000000000 
OS ,• 

DC 28 ,9999999999999999999999999999 
R999999999999999999999999999 

1620 FORTRAN 11-0 FIXED POINT CONTANTS 
OC 10 ,9999999999 
R999999999 

DC 10 ,0000000000 
-000000000 

DC 10 ,0000000001 
-00000000 I 

CONSTANTS FOR RELOCATABLE SUBROUTINES 
DC 31 ,0 

-000000000000000000000000000000 
OS ,»-2 

DC 31 ,0693147180559945309417232121458 

-693147180559945309417232121458 

OC 31 • 1386294361119890618834464242916 

J3862943611 19890618834464242916 

DC 31 ,2079441541679835928251696364375 

K079441 5416 79835928251696364375 

OC 31 ,2302585092994045684017991454684 

K30258509299404568401 7991454664 

DC 30 ,434294481903251827651128918917 

M3429448 190325 182 7651 12891891 7 

OC 32 ,10000000000000000000000000000000 
JOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
OS ,»-4 
OC 2 ,01 

-1 

DC 29 ,20000000000000000000000000000 

KOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

OC 30 ,628318530717958647692528676656 

028318530717958647692328676656 

OC 30 ,314159265358979323846264338328 

L14159265358979323846264338328 

OC 30 ,157079632679469661923132169164 

J57079632679489661923132169164 

OC 28 ,7893981633974483096156608498 

P6S396163397446309615660B4S9 

OC 26 ,6000000000000000000000000000 

oooooooooooooooooooooooooooo 

OC 29 ,94041950021098415544357636461 

N4041950027058415544337834441 

OC 30 ,218776162394999296222611491636 

K187761623949992562226I1491639 

1620 FORTRAN 11-0 INOIRICT AOORESS BOXES ANO NOOIPIED 
CONSTANTS (USING K AND F) 

OSA FAC+1 



02615 
02687 



02727 
02728 



02 767 
02795 



02805 
02815 
02825 

02856 

02854 
02687 

02918 

02949 

02980 

03010 

03042 

03038 
03044 

03073 

03103 

03133 

03143 

03191 

03219 

03248 

03278 



0 
70 



40 
40 



0 
28 



10 
10 
10 



0 
31 

31 

31 

31 

30 

32 

0 
2 

29 

30 

30 

30 

28 

28 

29 

30 



640 



1620 FORTRAN H-D SUBROUTINES SETS 



PAGE 3 













03283 


-2493 






00170 


PP IMK 


OS 


,PXM 




03283 


0 






OORRO 


99NK 


OC 5 


>99 




03288 


5 










-0099 














00890 


100MK 


OC 5 


,100 




03293 


5 










-0100 














00900 


JNSAPF 


DSA I MSA 






03298 


5 


X 


1 












03298 


-2575 






00910 


ISPFN1 


DSA I MSA- I 






03303 


5 


X 


1 












03303 


-2574 






00920 


FH 


OS A FAC 






03308 


5 


x 


1 












03308 


-2492 






00930 


FNH 


DSA FAC- I 






03313 


5 


X 


1 












03313 


-2491 






00940 


FM1MF 


OS 


t FNH 




03313 


o 






00950 


96MF 


OC 5 


1 96 




03318 


5 










•0096 














00960 


97MF 


OC 5 


• 97 




03323 


5 










-0097 














00970 


98MF 


OC 5 


• 98 




03328 


5 










-0098 














00980 


POT 


OC 5 


,99 




03333 


5 










-0099 














00990 


MNO 


OC 5 


• 100 




03338 


5 










-0100 














01000 


102MF 


OC 5 


,102 




03343 












-0102 














01010 


FLZALP 


OSA ZER0-78 






03348 


5 


x 


I 












03348 


-2689 






01020 


FLZ 


DSA ZERO-80 






03353 


5 


x 


I 












03353 


-2687 






01030 


FNHM1 


DSA FAC-2 






03358 


5 




I 












03358 


-2490 






01040 


97M2F 


DC 5 


,97 




03363 


5 










-0097 














01050 


LNENT 


DC 5 


.56 




03368 


5 










-0056 














01060 


EXPENT 


DC 5 


• 12 




03373 


5 










-0012 














01070 


PAR 


DS 5 


• •♦5 




NO OF ELEMENTS IN MATRIX TO PROCESS 03378 


5 






01080 




OS 5 






03378 


5 






01090 


DKDAT A 


DSC 2 


• 00 




03379 


2 










00 














01100 




DSA DIQODA 






03385 


5 


X 


I 












03385 


-3387 






OHIO 




DC I 


• • 




03386 


1 






01120 


OIOOOA 


DSC I 


,0 




03387 


1 







6 4 J 



1620 FORTRAN Il-D SUBROUTINES 



01130 




OC 


5 


,00000 








-0000 






01140 




OC 


3 


,000 








-00 








01150 




DSA 


DKBUFF 






01160 




DC 


1 






01170 




1620 FORTRAN II-D 


IN CORE 


01180 




DS 


5 






01190 


TOFAC 


TFL 


FAC 


.TOFAC-l 


• U 


01200 




88 








01210 




DORG 


•-9 






01220 


ZERFAC 


TFL 


FAC 


,FLZER 




01230 




8 


FINISM+1 


•ZERO-94 




01240 


ZERO* 


OS 


5 


• • 


• 


01250 




OS 


5 






01260 


FMFAC 


TFL 


FMFAC- 1 


.FAC 


,6 


01270 




88 








01280 




DORG 


•-9 






01290 


UNFLO 


TFL 


FAC 


,FLZER 


• • 


01300 




8 


Eft XV* 12 


.FAC-3 


• • 


01310 


FNHM2 


OS 


5 


• • 


• 


01320 




OS 


5 






01330 


TRACE 


TFL 


TRACE- 1 


.FAC 


• 6 


01340 




BNC4 


FMFAC* 12 






01350 




RCTY 


GAM- 1 


• 


• 2 


01360 


FINDIN 


OC 


1 


• I 


• •-4 


01370 


GM1M2F 


J 

OS 




• •-5 


• 


01380 




BNP 


TRFX 


•FAC-1 


• • 


01390 




WNTY 


FNH 


• 


• 6, 


01400 




88 








01410 




OORG 


•-9 






01420 


TRFX 


WNTV 


FXH 




• 6, 


01430 




88 








01440 




OORG 


•-9 






01450 


OVFLOM 


TFM 


FAC 


,0199 


,8910 


01460 


2FM1 


OS 


2 


,•-2 




01470 


FKODO 


OS 


I 


,•-4 




01480 




TF 


FAC-2 


.9SCPF 


• f 


01490 


ERROR 


RCTY 


FINISH 


» 


,6 


01500 




WATY 


MESERR 






01510 




8 


EN0D*12 






01520 


MU 


8NF 


•♦24 


,MU-l 


• • 


01530 




SF 


FAC 


• GAM 




01540 


6N2F 


OS 




»• 


• 


01550 




TOM 


FXERR*25 


•02009 


• 79, 


01540 


MF 


OS 


2 


• •-I 


• 


01570 


FP2 


OS 


2 


• •-3 


• 


01580 




TFM 


FXERROO 


•END0*12 




01590 


FIXENO 


88 








01600 




OORG 


•-3 






01410 


FX ERR 


OS 




•ERROR 




01620 


END© 


TF 


FAC 


• SAVE 


• • 



SUBROUTINES 



ZERO MINUS 94 PLUS TWO TIMES F 



ERR FS UNFL IN FEXP 

FAC IS FL PT ZERO 
FAC MINUS 3 MINUS F 
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BNZ 


• ♦2* 


06160 




TF 


FAC 


06170 




BB 




06180 




OORG 


•-9 


06190 




AM 


FAC 


06200 




BNZ 


• ♦** 


06210 




BNF 


•-2* 


06220 




TFM 


EI 


06230 




B 


FXNINE 


062*0 




DORG 


•-3 


06250 




TDM 


ODOREVU 


06260 


PSI 


CF 


NU-1 


0*270 




SF 


IMSA-i 


0*280 




MM 


IMSA 


0*290 




CF 


IMSA-1 


0*300 




BO 


• ♦20 


0*310 




B 


• ♦32 


0*320 




DORG 


•-3 


0*330 




BNF 


• ♦36 


0*3*0 




SF 


MU-1 


0*350 




CF 


FAC 


0*3*0 


ODOREV 


NOP 


AXJ 


0*370 




C 


FAC 


0*380 




BE 


MU 


0*390 




BNF 


•♦56 


0**00 




TFM 


EI 


0**10 




TF 


FAC 


0**20 




TFM 


PXEAAOO 


0**30 
0***0 




B 

DORG 


FXERR 
•-3 


0**50 




TF 


BETA 


0***0 




SM 


IMSA 


0**70 




BZ 


MU 


0**80 




M 


FAC 


0**90 




SF 


100MK 


0*900 




TF 


FAC 


0*510 




AN 


99MK 


0*920 




BZ 


•-72 


0*530 




TFM 


II 



•ZEROM 
•FMP-l 



, ZEROM 

• FD-l 

.7 

•9SCPF 

• 99 



•FDVR-1 
• SAVE 



• 00 

!fxi 



• IMSA 
.771 



• 05 
.99 



.11, CLEAR MULTIPLY AREA 
.11 



,11, CLEAR MULTIPLY AREA 
.11 



• FAC 



• FX1 



•IMSA .« 
.772 .9, 
•FXZ ti 
•FIXEND-12., 



• FAC 

• 01 



• BETA 



• 10, 



IS I ■ ZERO 
NO* CONTINUE 
YES. J*«I * ONE 



IS J - ZERO 

NO, CONTINUE 

YES, THEN IS I POSITIVE 

NO, ER Gl, 0 TO MINUS I POWER 



SET SIGN POSITIVE 



I EVEN 



I 000 

J NEG, SET SIGN NEGATIVE 



J •♦ OR - ONE 
IS I POSITIVE 

NO, ERR 62, J TO MINUS I POWER 

FAC - FXZ 

SET UP ERROR EXIT 



STORE J 



.99 
• 00 



• ITS 



•*10. TEST OVFL 

•9, ERR OS* OVFL IN FIX! 



05*36 


26 


00079 


0 344N 


05**8 


03 


02492 


0*13P 


05*60 


49 


05364 


00000 


05467 








05468 


26 


00079 


03*4N 


05480 


09 


02492 


0416J 


05492 


47 


05364 


01400 


0550* 


15 


02615 


00007 


05516 


26 


02490 


02795 


05528 


16 


02492 


000R9 


055*0 


49 


03786 


00000 


055*7 








055*8 


06 


02492 


0418N 


05560 


16 


04161 


-2565 


05572 


49 


04162 


00000 


05579 








05580 


11 


02575 


000-0 


05592 


47 


05618 


01200 


0560* 


26 


02492 


02825 


05616 


42 


00000 


00000 


05618 








05618 


11 


02492 


000-0 


05630 


47 


0567* 


01200 


056*2 


** 


05616 


02575 


0565* 


16 


02615 


00P71 


05666 


*9 


0*932 


00000 


0567* 








0567* 


15 


05791 


00001 


05686 


33 


03631 


00000 


05698 


32 


0257* 


00000 


05710 


13 


02575 


000-5 


05722 


33 


0257* 


00000 


0573* 


43 


0575* 


00099 


057*6 


49 


05778 


00000 


0575* 








0575* 


4* 


05790 


02*92 


057** 


32 


03631 


OOOQO 


0577B 


33 


02*92 


00000 


05790 


*1 


0*172 


00000 


05B02 


2* 


02*92 


02825 


05B1* 


** 


03*32 


01200 


0582* 


** 


05882 


02575 


05B38 


I* 


02615 


00P72 


OSBSO 


2* 


02*92 


02815 


058*2 


I* 


03626 


-3668 


0SB7* 


*9 


03396 


00000 


05BB2 








05BB2 


2* 


02*03 


02*92 


09B9* 


12 


02375 


000-1 


0590* 


** 


03*32 


01200 


0591B 


23 


02*92 


02603 


05930 


32 


0329L 


00000 


059*2 


2* 


02*92 


00099 


0599* 


It 


03280 


000-0 


0596* 


** 


0389* 


01200 


0597B 


1* 


02*15 


00P73 
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06540 




TON 


FXERR*25 


• I 


• t 


SET UP SIGN 


05990 


IS 


03621 


00001 


06550 




8 


PXNINE 






06002 


49 


04932 


00000 


06560 




OORG 


•-4 








06009 








06570 


FAXU 


AN 


1NSA 


.00 


• 10. 


IS I ZERO 


06010 


11 


02575 


000-0 


06510 




BNZ 


•♦31 


t 


M 


NO. CONTINUE 


06022 


47 


06060 


01200 


06590 


ONE FAC 


TFN 


FAC 


.01 


• 10, 


YES 


06036 


16 


02492 


000- 1 


06600 




TF 


FAC-2 


• ONEZ 


• • 


FAC • FLT PT ONE 


06046 


26 


02490 


03038 


06610 




88 










06058 


42 


00000 


00000 


06620 




OORG 


•-9 








06060 








06630 




BO 


• ♦44 


.FNH 


♦ 111 


IS A ZERO 


06060 


61 


06104 


0331L 


06640 




BNF 


•-14 




• • 


YES* IS I NEGATIVE 


06072 


44 


060ft 


07575 


06650 




TFN 


EI 


.774 


• 9. 


YES* ER G4, ZERO TO MINUS I 


06084 


16 


02615 


00P74 


06660 




8 


OVFLO 








06096 


49 


; Off 16 


00000 


06670 




OORG 


•-3 








06104 








06680 




TF 


SAVE 


.FAC 


t f 


STORE CHAR 


06104 


26 


02565 


02492 


06690 




TO 


FAC 


•FAC-2 


t f 


CONVERT A TO F+2 FORM 


06116 


25 


02492 


02490 


06700 




CF 


FAC-2 








06128 


11 


02490 


00000 


06710 




TON 


FAC-1 


.0 






06140 


If 


02491 


00000 


06720 




TON 


000REV*1 


• 9 




SET UP RETURN 


06152 


IS 


05791 


00009 


06730 




8 


PSI 






SET UP SIGN AT NU-l . 


06164 


49 


06666 


00000 


06740 




OORG 


•-3 








06172 








06750 


AXJ 


TF 


FAC 


• SAVE 






06172 


26 


02492 


02165 


06760 




FSL 


FNHN2 


•FAC-2 


• 6 




06184 


Of 


0146R 


02490 


06770 




TFN 


EI 


• 775 


.9* 


SET UP ERR GS COOE 


06196 


16 


02611 


00P75 


06780 




BNF 


NO OIV 


• INSA 






06206 


64 


06126 


02175 


06790 




CF 


INSA 








06220 


11 


02571 


00000 


06800 


RECIP 


TF 


79 


• 2ER0N 


,11, 


CLEAR MULTIPLY AREA 


06232 


26 


00079 


0344N 


06810 




TFL 


SAVE 


• FAC 






06244 


06 


02561 


02492 


06820 




TF 


FAC-2 


•QNEZ»2 






06256 


26 


02490 


01040 


06830 




TFM 


FAC 


• 01 


• 10 




06266 


16 


0249? 


OOs'- i 


06840 




FOIV 


FAC 


• SAVE 






06280 


09 


u«?v>? 




06850 




8NXV 


NOD IV 








06292 


47 


06324 


oi son 


06860 




TF 


FAC-2 


•FAC-4 






06304 


26 


02490 


02488 


06870 




B 


ERXV 








06316 


49 


0)762 


OOQlKl 


06880 




OORG 


•-3 








06324 








06890 


NODI V 


TFL 


GAN 


• FAC 






06324 


06 


i ■ '555 


02492 


06900 




SN 


INSA 


• 01 


.10 




06316 


12 


025 75 


000-1 


06910 




BZ 


• ♦68 








06346 


46 


06416 


01200 


06920 




TF 


79 


•ZERQN 


tilt 


CLEAR NULTIPLY AREA 


06360 


26 


00079 


0344N 


06930 




FNUL 


FAC 


• GAN 






06372 


03 


07492 


025S5 


06940 




BNXV 


NODIV+12 








06384 


47 


06336 


01500 


06950 




TF 


FAC-2 


•FAC-4 






06396 


26 


02490 


02488 


06960 




B 


ERXV 








06406 


69 


03762 


ooooo 


06970 




OORG 


•-3 








06416 








06980 




TF 


FAC-2 


•FAC-4 






06416 


26 


02490 


02468 


06990 




BNF 


E NOD 4-36 


• NU-1 






06428 


44 


03724 


03631 


07000 




B 


ENDO+24 








06440 


49 


03712 


ooooo 


07010 




OORG 


• -4 








06447 








07020 


FAXB1 


AN 


TAFE-2 


.00 


• 10. 


IS 8 ZERO 


06448 


11 


02533 


000-0 


07030 




82 


ONEFAC 




. • 


VES 


06460 


46 


06034 


01200 


07040 




80 


• ♦44 


Ifnh 


• 11. 


NO. IS A ZERO 


06472 


43 


06516 


0331L 


07050 




BNF 


FINISHM 


•TAFE-2 


t . 


NO, IS 8 NEGATIVE 


06484 


44 


03724 


02533 


07060 




TFN 


EI 


• 777 


t9, 


YES. ER G7. ZERO TO MINUS 8 


06496 


16 


02615 


00PF7 


07070 




B 


0VF12 








06506 


49 


05516 


OOQOO 


07080 




OORG 


•-3 








06516 








07090 




TON 


QLWR*1 


.9 


1 1 


SET UP NO ERR TYPE 


06516 


15 


06673 


00009 



«53 



I 
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07100 




BNF 


• ♦36 


•FAC-2 


1 1 


IS A NEGATIVE 


06528 


44 


06564 


02490 


07110 




TON 


OLWRM 


.1 


. t 


YES. SET UP ERR TYPE 


06540 


15 


06673 


00001 


07120 




CF 


FAC-2 








06552 


33 


02490 


OOOOO 


07130 




TON 


FINISH+2 


.9 






06564 


15 


03725 


00009 


07140 




TFN 


FINISH^7 


• •♦20 






06576 


16 


03730 


-6596 


07150 




B 


LNENT 


• 


• 6» 


FINO LN OF A 


06588 


49 


03360 


OOOOO 


07160 




OORG 


• -3 








06596 








07170 




TON 


FINISH^ 


.2 






06596 


15 


03725 


00002 


07180 




TFM 


FNP-1 


• TAFE 


1 1 


SET UP MULTIPLICATION 


06608 


16 


04137 


-2133 


07190 




TFM 


ERXVOO 


• •♦20 






06620 


16 


03792 


-6640 


07200 




B 


FMP 


» 


1 1 


NULTIPLY B TIMES LNA 


06632 


49 


04138 


OOOOO 


07210 




OORG 


»-3 








06640 








07220 




TFM 


ERXVOO 


#•♦20 






06640 


16 


03792 


-6660 


07230 




6 


EXPENT 


8 


• 6, 


FIND A*«B - E*«BLN( A) 


06652 


49 


0337L 


OOOOO 


07240 




OORG 


• -3 








06660 








07250 




TFM 


ERXVOO 


• FNFACM2 




06660 


16 


03792 


-3464 


07260 


OLWR 


NOP 


FINISH^! 








06672 


41 


03724 


OOOOO 


07270 




TFM 


EI 


.676 


.9. 


ERR F6t -A TO 8 


06664 


16 


02615 


00076 


07280 




TOM . 


99 


.0 






06696 


15 


00099 


OOOOO 


07290 




8 


ERROR 








06706 


49 


03596 


OOOOO 


07300 




OORG 


•-4 








06715 








07310 




OORG 


08000 








06000 








07320 




34 


Al 


•00701 


• » 


FIRST TIME ONLY 


06000 


34 


08068 


00701 


07330 




38 


Al 


•00702 






06012 


36 


06068 


00702 


07340 




36 


Al 


•00703 






08024 


36 


06068 


00703 


07350 




TO 


15999 


• 400 


* t 


FIRST TIME ONLY 


01016 


25 


11999 


00400 


07360 




FR 


STARTO 


•12000 






06048 


31 


03814 


12000 


07370 




8 


• ♦22 








08060 


49 


08082 


OOOOO 


07380 




OORG 


•-3 








06066 








07390 


Al 


DSC 


9 


•019400013 




06061 




9 








019400033 
















07400 




OSA 


FIX 








08061 




5 


X I 
















08081 




-3854 




07410 




TRA 










06062 


36 


OOOOO 


00500 
















06094 


49 


OOOOO 


OOOOO 


07420 




TCD 


08000 








06000 








07430 
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FORMAT 












07440 




1620 FORTRAN II-O 


FORMAT 


- SECONDARY LINKAGE 










07450 




OORG 


START 








03851 








07460 




OS 


3 








03651 




3 




07470 




TFN 


FN0NM1 


••-START 






01114 


16 


07165 


-0003 


07480 




OC 
-1 


2 


• 1 


• •-1 




01662 




2 




07490 




8 


FNON 








01666 


49 


07154 


OOOOO 


07500 




TFN 


FMON+Il 


••-START 






01176 


16 


07165 


-0027 


07510 




OC 
-I 


2 


• 1 


t»-S 




03666 




2 




07520 




6 


FNON 








03690 


49 


07154 


OOOOO 


07530 




TFN 


PMON+1 1 


••-START 






01902 


16 


07161 


-0011 


07540 




OC 

-1 


2 


tl 


• •-1 




01910 




2 




07550 




8 


PMON 








01916 


49 


07114 


OOOOO 


07560 




TFM 


FNON* 11 


••-START 






01926 


16 


07161 


-0071 


07570 




OC 


2 


tl 


#•-1 




01914 




2 
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07510 


B 


FMON 


07590 


TEN 


FM0N*1 t 


07600 


OC 


2 




-1 




07610 


6 


FMON 


07620 


TFM 


FMON* 1 1 


07630 


DC 


2 




. 1 




07640 


B 


FMON 


07650 


TFM 


FMON* 11 


07660 


DC 


2 


07670 


- 1 

B 


FMON 


07680 


DORG 


»- 1 


07690 


TFM 


FMON* 1 1 


07700 


DC 


2 


077 10 


-I 
g 


FMON 


0 7720 


DO AG 


ft_ I 


077 BO 


AM 


FAC 




g 


I FLOAT 


07750 


TFM 


FMON* 1 1 


0 7 760 


DC 


2 


077 70 


_ | 


FMON 


07780 


TFM 


FMON+1 1 


07790 


DC 






_ ^ 




07800 


g 


FMON 


07810 


TFM 


FMON+1 1 




DC 


2 




- 1 




07830 


8 


FMON 


07840 


TFM 


FMON* 1 1 


07850 




2 




-I 




07860 


8 


FMON 




TFM 


FM0N*1 1 


07880 


DC 


2 


07AQ0 


~ 


FMON 




TFM 


FMON* 1 1 


07910 




2 


07920 


-1 
B 


FMON 




nr* 


F MON* 1 1 






2 




1 




0 7950 


B 


FMON 


07960 


TFM 


FMON* 11 


07970 


DC 


2 


07980 


-1 
B 


FMON 


07990 


TFM 


FMON* 11 


08000 


DC 


2 




-I 





•-START 
1 • 



•-START 

I ••-! 



•-START 
1 



•-START 

1 ,«-3 



.8 

,10, IS FAC ZERO 



•-START 

1 , — * 



•-START 



•-START 

1 ,»-3 



•-START 

1 i»-3 



•-START 

I .»-3 



•-START 

1 ,-3 



•-START 



•-START 

1 ,«-3 



•-START 

1 ,«-3 



03931 


49 


07154 


00000 


039S0 


16 


07165 


-0099 


03956 




2 




03962 


49 


07134 


00000 


03974 


14 


07165 


-0123 


039B2 




2 




039S6 


49 


07154 


00000 


03998 


16 


07165 


-0147 


04006 




2 




04010 


49 


07154 


00000 


04020 








04020 


16 


07165 


-0169 


04028 




2 




04032 


49 


07154 


0-000 


04042 








04042 


11 


02492 


000-0 


04054 


49 


05082 


00000 


04066 


16 


07165 


-0215 


04074 




2 




04078 


49 


07154 


00000 


04090 


16 


07165 


-0239 


0409B 




2 




04102 


49 


07154 


00000 


041 14 


16 


07165 


-0263 


04 122 




2 




04126 


49 


07154 


00000 


04 1 38 


16 


07165 


-0287 


04146 




2 




04150 


49 


07154 


00000 


04162 


16 


07165 


-031 1 


04 1 70 




2 




04174 


49 


07154 


00000 


04186 


16 


07165 


-0335 


04 194 




2 




04198 


49 


07154 


00000 




16 




—0359 


042 1 8 




2 




04222 


49 


07154 


00000 


04234 


16 


07165 


-0383 


04242 




2 




04246 


49 


07154 


00000 


04258 


16 


07165 


-0407 


04266 




2 





655 



08010 




B 


FMON 






042 70 


49 


07154 


00000 


08020 








WRITE ALPHAMERIC 










08030 


WATY 


TF 


SWF 


,WATV-1 




04262 


26 


05861 


04281 


08040 




8 


WATV1 






04294 


49 


05498 


00000 


08050 


WAPT 


TF 


SWF 


,WAPT-1 




04306 


26 


05861 


04305 


08060 




B 


WAPT1 






04316 


49 


05518 


00000 


08070 


WACO 


TF 


SWF 


,WACD-1 




04330 


26 


05861 


04329 


08080 




B 


WACD1 






04342 


49 


05538 


00000 


08090 








READ ALPHAMERIC 










08100 


RATV 


TF 


SWF 


, RATY-1 




04354 


26 


05861 


04353 


08110 




B 


RATVi 






04366 


49 


05862 


00000 


08120 


RAPT 


TF 


SWF 


.RAPT-i 




04378 


26 


05861 


04377 


08130 




B 


RAPTl 






04390 


49 


05882 


00000 


08140 


RACO 


TF 


SWF 


.RACD-l 




04402 


26 


05861 


04401 


08150 




B 


RACD1 


t 


,8 


04414 


49 


05902 


0-000 


08160 




DORG 


•-1 






04424 








08170 


I TYPE 


AM 


SWF 


.3 




04424 


11 


05861 


-0003 


08180 




B 


ITYPE1 


• 


,8 


04436 


49 


04598 


0-000 


08190 




DORG 


•-1 






04446 








08200 




TFM 


FMON+U 


.•-START 




04446 


16 


07165 


-0595 


08210 




DC 


2 


.4 


,•-3 


04454 




2 




06220 




-4 
8 


FMON 


• 


• 8 


04458 


49 


07154 


0-000 


08230 




DORG 


• -1 






04468 








08240 




TFM 


FMON* 11 


.•-START 




04468 


16 


07165 


-0617 


08250 




OC 


2 


t7 


• •-3 


04476 




2 




08260 




-7 
6 


FMON 


t 


.8 


04480 


49 


07154 


0-000 


08270 




DORG 


•-1 






04490 








08280 




TFM 


FMON* 11 


.•-START 




04490 


16 


07165 


-0639 


08290 




DC 


2 


,8 


• •-3 


04498 




2 




06300 




-8 
B 


FMON 




•a 


04502 


49 


07154 


0-000 


08310 




DORG 


•-1 






04512 








08320 




TFM 


FMON* 11 


.•-START 




04512 


16 


07165 


-0661 


08330 




DC 


2 


t7 


• •-3 


04520 




2 




08340 




-7 
6 


FMON 


t 


• 8 


04524 


49 


07154 


0-000 


08350 




DORG 


•-1 






04534 








08360 




TFM 


FMON* 11 


.•-START 




04534 


16 


07165 


-0683 


06370 




OC 


2 


.5 


• •-3 


04542 




2 




08380 




-5 
6 


FMON 


t 


• 6 


04544 


49 


07154 


0-000 


08390 




DORG 


•-1 






04556 








08400 




TFM 


FMON* 11 


.•-START 




04554 


16 


07165 


-0705 


08410 




DC 


2 


• 5 


• •-3 


04544 




2 




08420 




-5 
B 


FMON 


• 


• • 


04546 


49 


07154 


0-000 


08430 




DORG 


•-1 






04578 








08440 




TFM 


FMON* 11 


••-START 




04576 


16 


07145 


-0727 


08450 




DC 


2 


tS 


• •-3 


04564 




2 




06460 




-5 
6 


FMON 






04590 


49 


07154 


00000 


06470 




OORG 


•-4 






04597 








06480 
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1 TYPE 1 


jf 


MIDTH2 


t mmr 


.11 
»♦» 




04598 


26 


05956 


0586J 


08510 






LAST 






04610 


2 1 


05736 


05956 






Q 


LAST 


, MAX 2 






04622 


24 


05736 


06037 








ER P9 








04634 


46 


07002 


01 100 


08540 




TP 


INPLUS 


- 1 ACT 






04646 


26 


05945 


05736 


08550 




TFM 


IR DIG*6 


,PAC 






04658 


16 


04688 


-2492 


08560 




TFM 


SMC AOJ 


f MR1TE I 






04670 


16 


06044 


-4446 






BO 


SWL 


•RMEPSW 






04662 


4) 


05934 


05953 


085110 




TP 


TERM 


tPPIMK 






04694 


26 


06785 


03283 


08590 




TP 


FAC 


,FX2 










02492 


02815 


08600 




TFM 


SMC ADJ 


MkSU 






04718 


16 


06044 


-4990 


08610 




CHAR BY CHAR IS MOVED INTO 


rAL.RlwH! JUST J r 1 60 1 UNT IL stun 










08620 




OR M CHAR ARE EXAMINED. 












08630 


****** 


ERROR FT WILL OCCUR 


IP MORE 


IflAN R tnAn ARC AVAIL lU RCAU 










08640 


I READ 


SM 


MI0TH2 


• 2 


• 10 




nlrf o 


1 2 


05956 


000-2 


08650 




BL 


SWL 














01 300 


08660 




SM 


INPLUS 


m2 










n«QA« 


— 0002 


08670 




CM 


INPLUS 


t70 


• 610 




04 766 


1 1 
1 4 


w 


ooopo 


08680 




BH 


IR DIG 








0477B 




nAAA9 




08690 




BE 


IR BLNK 








04790 


46 


AAOI A 


m ?nn 


08700 




CM 


INPLUS 


tOO 


• 610 






1 4 


HSQAM 


nnn-n 


08710 




BE 


IR BLNK 












04918 


01200 


08720 




CM 


INPLUS 


• 20 


• 610 






1 4 


0594N 


OOOKO 


08730 




BE 


I MINUS 










46 


04938 


0 1 200 


08740 




CM 


INPLUS 


• 10 


• 610 




n 


1a 






08750 




BE 


SML 








aaaa? 




05934 


01200 


08760 




B 


ERR F7I 








aaata 




04958 


nnnnn 


08770 




DORG 


•-4 
















08780 


IROIG 


TD 




• INPLUS 


.11 




of 




uuuuu 


n*.7A«! 


08790 




C 


•-6 


.TERM 








f 1 




ni Inn 


08800 




BL 


ERR F7 I 








rvLa i a 




OA9SA 




08810 


I RBLNK 


SM 


IR DIG+6 


1 1 








17 
Iq 


D A A A R 

nlrin 


-0001 


08820 




8 


I READ 














nnnnn 
uuuuu 


08830 




OORG 


•-4 
















08840 


1MINUS 


SF 


FAC 












n^oal 


uuuuu 


08850 




8 


SWL 










1Q 




nnnnn 
uuuuu 


08860 




OORG 


• -4 








n^ II 








08870 


ERRF7I 


TF 


FAC 


,FXZ 




bci rlXcD ZERO INIU PAL 




26 


? 


0281 5 


08880 




TFM 


EI 


.677 




ccr coo no c*r tunrriTtnu 
at 1 cRRUR rr INUILAIIUN 


n o?n 
nl 3 


1 6 


n«a^A 




08890 




8 


SWL 










%9 




nnnnn 

UUUUU 


08900 




OORG 


• -4 








04989 








08910 


READI 


SF 


FP1MK 




.6 




04990 






nnnnn 
UUUUU 


08920 




TF 


FLT END 


!lC0N2«6 






ncn?A 


f A 


n*7 *n 
" ' j 




08930 




BNF 


FLOAT 


.LOC 












05981 


08940 




CF 


LOC 












n«OA i 


UUUUU 


08950 


REAOIF 


TFL 


LOC 


.FAC 


.6 




05038 


06 


0598 J 


02492 


08960 


ERF7 


BNF 


BSWF-12 


.EI 


t • 


OO IC iinr CABntt tunc CT 

BK ir NO' ERROR iTPfc rf 


nitwit* 


tt 


J* 


026 1 5 


08970 




CF 


EI 


♦ 


• t 


fcKASfc ERROR r r IND1LAI HJN 






02615 


UUUUU 


08980 




B 


ERCQM2 








05074 


AO 

49 


07078 


nnnn n 
UUUUU 






OORG 


•-4 








05081 








09000 


I FLOAT 


BZ 


2ERFAC 




1 1 


YES 


05082 


46 


03422 


01200 


09010 




TO 


99 


!fac 


• t 


STORE SIGN 


05094 


25 


00099 


02492 


09020 




CF 


FAC 








05106 


33 


02492 


00000 


09030 




TR 


BETA-9 


.FXH 


• U 




05118 


31 


02594 


0328L 


09040 




TF 


FAC-2 


.9SPF-1 


• • 


CLEAR FAC 


05130 


26 


02490 


02853 


09050 




TF 


SAVE 


• K 


• • 


CHAR • K 


05142 


26 


02565 


02221 
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09060 




TFM 


• ♦23 


.BETA-9 






05154 


16 


05177 


-2594 


09070 




BO 


• ♦44 


. 




FIND HI ORO DIGIT 


05166 


43 


05210 


00000 


09080 




SM 


SAVE 


.01 


.10. 


ADJUST CHAR 


05178 


12 


02565 


000-1 


09090 




AM 


• -13 


.01 






05190 


11 


05177 


-0001 


09100 




B 


•-36 








05202 


49 


05166 


00000 


09110 




OORG 


•-3 








05210 








09120 




TR 


FNH 


, — 33 


,611 




05210 


31 


0331L 


0517P 


09130 




TF 


• ♦35 


.FNH 




FIND ANO CLEAR RECORD MARK 


05222 


26 


05257 


03313 


09140 




AM 


• ♦23 


.01 






05234 


11 


05257 


-0001 


09150 




BNR 


•-12 








05246 


45 


05234 


00000 


09160 




TOM 


«-l 


.0 


.6 




05258 


15 


0525P 


00000 


09170 




TD 


FACn 


•RECMK 


. • 


REPLACE RECORO MARK 


05270 


25 


02493 


02403 


09180 




TF 


BETA 


.ZERO- 74 




CLEAR BETA 


05282 


26 


02603 


02693 


09190 




8 


IN0R60 








05294 


*9 


05326 


00000 


09200 




OORG 


•-3 








05302 








09210 


IN0R36 


TR 


FNH 


• FH 


• 611. 


LEFT SHIFT ONCE 


05302 


31 


0331L 


0330Q 


09220 




TOM 


FAC- 1 


.0 


• . 


SET LAST DIGIT TO ZERO. 


05314 


15 


02491 


00000 


09230 


IN0R60 


SF 


FNH 




• 6 




05326 


32 


0331L 


00000 


09240 




BO 


FINISH 


I FNH 


• 611, 


TEST LEAOING ZERO 


05338 


43 


03721 


03311 


09250 




SM 


SAVE 


.1 


.10, 


SUBT ONE FROM EXPONENT • 


05350 


12 


02565 


000-1 


09260 




B 


I NOR 36 








05362 


49 


05302 


00000 


09270 




OORG 


•-4 








05369 








09280 


IC0N2 


S 


READ IF 


. 


,1 




05370 


4R 


05038 


00000 


09290 




OORG 


•-4 








05377 








09300 
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09310 




OORG 


STARTS 1647 






05498 








09320 


WATV1 


TFM 


MAX 


• 0687 


,8 




05498 


16 


05924 


0-687 


09330 




B 


WRTALP 








05510 


49 


05550 


00000 


09340 




OORG 


•-3 








05518 








09350 


WAPT1 


TFM 


MAX 


• 0867 


,8 




05518 


16 


05924 


0-887 


09360 




B 


WRTALP 








05530 


49 


05550 


00000 


09370 




OORG 


•-3 








05538 








09380 


WAC01 


TFM 


MAX 


• 1080 


• 8 




05538 


16 


05924 


0J080 


09390 


WRTALP 


TOM 


RWEFSW 


.1 


• • 


COMMON FOR EACH WRITE 


05550 


15 


05953 


00001 


09400 


RWA 


TF 


DATINH+2 


•MAX-2 




INITIALIZATION FOR EACH RD OR WRITE 


05562 


26 


06059 


05922 


09410 




SF 


MAX-1 








05574 


32 


05923 


00000 


09420 


REPSW 


OS 


2 


.•-3 






05582 




2 




09430 


MATSW 


OS 


1 


• •-2 


* . 


SET TO 1 WHEN MATRIX HAS CONTROL 


05583 




1 




09440 


REPSW3 


OS 


2 


• • 






05585 




2 




09450 




TFM 


•-1 


• 00000 


• 711 




05586 


16 


05585 


-000- 


09460 




TDM 


SWIM 


.2 






05598 


15 


05935 


00002 


09470 


LOCD 


OS 


2 


• •-l 


• LOC 


OP DECIMAL AS SPEC BY FORMAT 


05606 




2 




09480 


L0CD2 


OS 


2 


• •-J 


• 


TWICE LOC 0 


05606 




2 




09490 




TFM 


MESERR+8 


.679 


.9 




05610 


16 


02615 


00079 


09500 




TFM 


MAX2 


• INH 






05622 


16 


06037 


-6063 


09510 




A 


MAX2 


• MAX 






05634 


21 


06037 


05924 


09520 




A 


MAX 2 


• MAX 






05646 


21 


06037 


05924 


09530 






CONTINUATION OP 


RMA, ALSO US 10 AFTER EACH OUTPUT 










09540 








RECORD NOT TERMINATED SY COMPLT MACRO 










09550 




TFM 


LAST 


• INN 






05658 


16 


05736 


-6063 


09560 


RMA2 


TDM 


COMPSW 


t-1 






05670 


15 


05678 


OOOOJ 


09570 


COMPSM 


OS 




• •-1 


•»l PROHIIITS.O REQUIRES OUT 


05676 




0 




09580 




TR 


INH-l 


• ST2ER0M 






05682 


31 


06062 


06240 


09590 




TR 


INH486 


• ST2JH0 






05694 


31 


06149 


06239 


09600 




CM 


MAX-2 


• 06 


• 10 




05706 


14 


05922 


000-6 


09610 


MIDTH 


OS 


3 


• •-2 


• 


NO. OP EPF. OIGITS IN PIILO 


05715 




3 
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09420 




ONI 


• ♦24 






09719 


47 


05742 


01200 


09410 












09790 


34 


00000 


00102 


09440 LAST 


OS 


9 


#•-9 


, 409 OP M AT ENO OF VARIA9LE OUT REC 


09794 




9 




09490 




90 


9SMF 


.RWEFSW 


09742 


43 


05926 


05993 


09440 


MOO IT 


TFM 


IORT 


• •♦21 




09794 






-9777 


09470 




9 


IOGT 


•DATINH-4 


.7 


09744 


49 


00944 


—4093 


09490 




CM 


MAX-2 


• 04 


tlO 


09774 


14 


05922 


000—6 


09490 




ONE 


•♦2* 


• 


•• ALLOWS GOOF SWITCH FOR RATV 


09790 


47 


05914 


01200 


09700 




9C4 


•-72 






09902 


44 


05730 


00400 


09710 




TOW 


FIT END-5.2 




09914 


15 


03725 


00002 


09720 


•••••• 






CONTROLS POSITION IN FORMAT SPECS 










09730 


8 SWF 


AM 


SWF 


• 9 




09924 


1 1 


05941 


-0005 


09740 




TF 


• ♦19 


tSWF 


.11 


05939 


24 


05956 


0546 J 


09750 




8 


SWF 


» 


,6. 9R TO ADR INDICATED BY FORMAT SPEC. 


05950 


49 


0586J 


A AAA A 
OOOOO 


09760 


SWF 


DS 


5 


»• 




05861 








09770 


RATV1 


TFM 


MAX 


• 0697 


• 9 


05862 


14 


05924 


0-687 


09790 




9 


RDALP 






05874 


49 


05914 


A AA AA 
00000 


09790 




DORG 


•-3 






05992 








09800 




TFM 


MAX 


• 0987 


.9 


05882 


16 


05924 


0-887 


09810 




8 


ROALP 






05994 


49 


05914 


A A AAA 
OOOOO 


09820 




OORG 


•-3 






05902 








098 30 


RAC01 


TFM 


MAX 


,1090 


• 9 


05902 


16 


05924 


0J080 


09840 


RDALP 


TDM 


RWEFSW 


«0 




05914 


15 


05953 


A AAAA 
OOOOO 


098*0 


MAX 


DS 


4 


• •-1 




05924 




4 




09860 




B 


RWA 






05926 


49 


05562 


OOOOO 


098 70 




DORG 


•-4 






05933 








09880 


•••••• 


SMI !S A TRINARY SNITCH USED TO BRANCH TO THE PROPER SOURCE 










09890 


•••••• 


TO OBTAIN 


THE LOCATION THAT GOES WITH THE FORMAT MACRO 










09900 




BEING PERFORMED 


99 FOR Q9JECT PROGRAM 










09910 


•••••• 








NOP FOR REDO CONTROL 










09920 










9 FOR MATRIX CONTROL 










099 30 


SWL 


NOP 


MATRX 2 






05934 


41 


06418 


OOOOO 


09940 


INPLUS 


OS 


5 


• • 


, WORKING POSITION OF I/O RECORD 


05945 




5 




09950 




TDM 


SWt>l 


• 9 


• • MATRIX CONTROL SETS SWL TO 49 


05946 


15 


05935 


00009 


09960 


RMEFSM 


DS 


1 


• •-4 


. 1 FOR WRT. 0 FOR RD. FLAG FOR E 


05953 




1 




09970 


UI0TH2 


DS 


3 


• •-I 




05956 




3 




09980 




BO 


SWCM2 


• MATSW 




05959 


43 


05994 


05583 


09990 




NOP 








05970 


41 


00000 


OOOOO 


10000 


OPG 


DS 


5 


• •-5 


• TEMP ADR QF DEC PT IN GAMMA 


05976 




5 




10010 


LOC 


OS 


5 


• • 


CORE LOCATION TO 9E USED 


05981 




5 




10020 








AFTER LOC 


AOR 09TAINE0 9R TO PROPER MACRO 










10030 


SWC 


TDM 


SWL*1 


• 2 




05982 


15 


05935 


00002 


10040 




BO 


• ♦20 


• RWEFSW 


9R IF WRITING 


05994 


43 


06014 


05953 


10050 




B 


SWC AOJ 


• 


• 6 


06006 


49 


0604M 


OOOOO 


10060 




DORG 


• -4 






06013 








100 70 




TDM 


COMPSW 


• 0 


, , SET TO REQUIRE OUTPUT 


06014 


15 


05678 


OOOOO 


10080 




CF 


LOC 






06026 


33 




AAAA A 

uuuuu 


10090 


MAX2 


DS 


5 


»• 


, TWICE MAXIMUM CHAR FOR OUTPUT 


06037 




5 




10100 




B 








06038 


49 


00000 


OOOOO 


10110 


SWCAOJ 


OS 




t»-5 


,, RETURN AOO OF MACRO IN CONTROL 


06044 




0 




10120 




OORG 


• -4 






06045 








10130 


DATDUO 


DSA 


DUDH 






06049 




5 


X I 














06049 




-2607 




10140 




DC 


3 


• 00* 




06052 




3 





659 
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10150 


OA T I NH 


DSA 


INH 












06057 




5 


X 1 




















06057 




-6063 




10160 




DC 
-0' 


3 


,00* 










06060 




3 




10170 




OC 


1 


• 0 










06061 




1 




10180 


ENOFOR 


DAC 


1.0 












06063 




1 


X 2 


10190 


INH 


0 

DS 




.ENDFOR 










06063 




0 




10200 




DS 


174 












06237 




174 




10210 


IN 


DS 


176 


• INHU74 










06237 




176 




10220 


ST2ER0 


DC 
-0 


2 


• 00 










06239 




2 




10230 




00 




» 


•0246810 






06240 


-0 


-0-0- 


0-0-0 


10240 




00 




• 


•0246810 






06252 


-0 


-0-0- 


0-0-0 


10250 




00 




» 


•0246910 






06264 


-0 


-0-0- 


0-0-0 


10260 




00 




• 


•0246910 






06276 


-0 


-0-0- 


0-0-0 


10270 




00 




• 


•0244910 






06288 


-0 


-0-0- 


0-0-0 


10280 




00 




• 


.0244910 






06300 


-0 


-0-0- 


0-0-0 


10290 




00 






,0246910 






06312 


-0 


-0-0- 


0-0-0 


10300 




DC 
-0 


2 


loo 










06325 




2 




10310 


FLZERS 


OC 


2 


.0* 










06327 




2 




10320 




OS 


5 












06332 




5 




10330 


MATRIX 


TOM 


MATSW 


• 1 


• ♦ 


MACRO 


TO PROCESS MATRICIES 


06334 


15 


05583 


00001 


10340 




TOM 


SWL+1 


.9 










06346 


15 


05935 


00009 


10350 




TF 


LOCAOJ 


• FP2 










06356 


26 


06390 


03664 


10360 




BNF 


MATRX2-12 


!, MATRIX-1 










06370 


44 


06406 


06333 


10370 




TFM 


LOCAOJ 


• 00 


• 10 








06382 


16 


06390 


000-0 


10380 


LOCADJ 


DS 


2 


• •-3 


. • 


AOJUST LOC FOR MATRIX 




06390 




2 




10390 




S 


LOCADJ 


• K 










06394 


22 


06390 


02221 


10400 




s 


MATRIX-1 


•LOCAOJ 










06406 


22 


06333 


06390 


10410 


MATRX2 


A 


MATRIX-1 


•LOCAOJ 


•• RETURN FROM SWL* EACH MATRIX ELEMENT 


06419 


21 


06333 


06390 


10420 




TF 


LOC 


, MATRIX-1 


• • 


MOVE ADJUSTED LOCATION 


06430 


26 


05981 


06333 


10430 




SM 


PAR 


• 1 


• 10 








06442 


12 


03378 


000-1 


10440 




BNE 


• ♦24 












06494 


47 


06478 


01200 


10450 




TOM 


MATSW 


• 0 










06464 


15 


05563 


OOOOO 


10460 




BNL 


SWCM2 












06474 


44 


05994 


01300 


10470 




89 














06490 


42 


OOOOO 


OOOOO 


10480 




DORG 


•-9 












06492 








10490 


•••••• 


MACRO FOR AN I/O CARRIAGE 


RETURN 


DURING A FORMAT 


STATEMENT 










10500 


SLASH 


TOM 


COMENOU 


• 9 










04492 


15 


06657 


00009 


10510 




90 


SLASH2 


•RWEFSW 


• • 


4R IF 


WRITING 




04904 


43 


06524 


05953 


10520 




9 


COME NO 












04914 


49 


06656 


OOOOO 


10530 




OORG 


•-4 












04923 








10540 


SLASH2 


40 


I OCR 


•CONF 1M. 


41 


IR TO 


10 CA IF OUTPUT 


RECORO 9LANX 


04924 


43 


06444 


05679 


10550 




CM 


DATINH^I 


• 04 


• 10 








04994 


14 


04059 


000-6 


10560 




9H 


WRITE 




• • 


9R IF 


NOT. TYPEWRITER OUTPUT 


04944 


44 


04492 


01100 


10570 




TF 


LAST 


•fliers 


• 4 








04940 


24 


05730 


06927 


10590 




SN 


LAST 


• 02 


.10. 


ERASE 


BLANKS FROM ENO 


OF I/O RECORO 


04972 


12 


09734 


000-2 


10990 




CM 


LAST 


•00 


• 410 








04994 


14 


09790 


000-0 


10600 




9E 


•-34 












04994 


44 


04940 


01200 


10610 




CN 


LAST 


• INH 










04401 


14 


09734 


-6063 


10620 




9L 


CON ENO 












04420 


47 


04494 


01900 



1*20 FORTRAN II -0 SUBROUTINES SET 3 



PAGE 23 



10690 


WRITE 


TM 


10RT 


• •♦23 




10640 




B 


IOPT 


,0AT!MH-4 


.7 


10650 


CONENO 


B 


RWA2-12 




10660 




OORG 


•-4 






10670 


IOCR 


CM 


MAX- 2 


• Of 


.10 


10680 


CKW 


OS 


3 


• »-2 


• 


10690 




BNL 


WRITE 






10700 




B 


COME NO 






10710 




OORG 


•-4 






10720 






MACRO TERM! NAT II 


10730 




OS 


3 






10740 


CQMPLT 


TDM 


C0MEND*1 


.2 




10750 


CHAR 2 


OS 


3 


• •-1 


» 


10760 




8 


SLASH+12 






10770 




OORG 


•-4 






10780 


REOO 


BO 


REDO A*24 


•MAT SW 




10790 




TO 


REOOA* 23 


•COMPSW 




10800 




TFM 


SWC ADJ 


•REOO A 


» • 


10810 




B 


SMI 






10820 




OORG 


•-4 






10830 


REDOA 


TOW 


SWL*1 


.1 


• • 


10840 




TOM 


COMPSW 


t 


• • VI 


10850 


TERM 


OS 


5 


• • 


• 


10860 




AM 


SWF 


• 5 




10870 




TF 


SWF 


• SWF 


• 11 


10880 




B 


SLASH 






10890 




OORG 


• -4 







10900 
10910 
10920 
10930 
10940 



DEC SPEC PIUS CHAR OF ARG 



TWICE MODIFIED CHARACTERISTIC 



MACRO PERMITS REDOING BACK TO ( 



RETURN FROM SWL IF MORE DATA 
ID REOO USING SWC EFFECT ON CO 
REFERENCE ADR IN 1/0 RECORD 



MACRO TO REPEAT FORMAT SPECS A SPECIFIC NO OF TIMES 
SUB FROM REP SW. INITIALLY SET TO ZERO 
IF REPSW NEG , SET TOREPS REOO AND REPEAT FORMAT 
IF REPSW ZERO, LAST FORMAT REPETITION IS COMPLETE 
IF REPSW PLUSt STEP DOWN ANO REPEAT FORMAT SPEC 



06632 


16 


00565 


-6655 


06644 


49 


00532 


-6053 


06656 


49 


05658 


00000 


06663 








06664 


1 4 


05922 


000 - 8 


06673 




" 3 




06676 


46 


06632 


01300 


06688 


49 


UP030 


00 000 


06695 








06697 










1 J: 


□6657 


00002 










06710 
* 




06504 


uuuuu 


06717 










*f 




05583 






0678/5 




06742 


16 




^6762 


06754 


49 


05934 




06761 








06762 


15 


05935 


00001 


06774 


15 


05678 


ooooo 


06785 




5 




06786 


II 


05861 


-0005 


06798 


26 


05861 


0586J 


06810 


49 


06492 


OOOOO 


06817 









10950 


REP 


AM 


SWF 


.7 






06818 


11 


05661 


-0007 


10960 




SM 


REP SW 


,1 


.10, 


CONTROL REPETITION OF FIELDS 


06B30 


12 


05582 


000-1 


10970 




BH 


REP 2 








06842 


46 


06890 


01100 


10980 




BE 


BSWF 








06854 


46 


05826 


01200 


10990 




A 


REP SW 


• SWF 


• 11 




06866 


21 


05582 


0586J 


11000 




6NH 


BSWF 








06878 


47 


05826 


01100 


11010 


REP2 


SM 


SWF 


• 2 






06890 


12 


05861 


-0002 


11020 




TF 


SWF 


,SWF 


• 11 




06902 


26 


05861 


0586J 


11030 




B 


SWF-23 








06914 


49 


05838 


OOOOO 


U040 




OORG 


•-4 








06921 








11050 


REP3 


SF 


REPSW3-1 








06922 


32 


05584 


OOOOO 


11060 


WA 


OS 


5 


• • 


» 


WORKING AREA ADR REF TO FAC OR GAM 


06933 




5 




11070 




AM 


SWF 


• 7 


• 10 




06934 


11 


05861 


000-7 


11080 




SM 


REPSW 3 


.1 


.10 




06946 


12 


05585 


000-1 


11090 




BH 


REP 2 








06958 


46 


06890 


01100 


11100 




BE 


BSWF 








06970 


46 


05826 


01200 


111 10 




A 


REPSW 3 


• SWF 






06962 


21 


05585 


0586J 


11120 




B 


REP 2-12 








06994 


49 


06878 


OOOOO 


11130 




OORG 


•-4 








07001 






11140 


ERF9 


TFM 


SWC AOJ 


»ER COM 2 


» » 


MACRO FOR ERROR F9 WHEN WRITING 


07002 


16 


06044 


-7078 


11150 




TF 


LAST 


• MAX 2 






07014 


26 


05736 


06037 


11160 




TFM 


EI 


• 679 


.9 




07026 


16 


02615 


00079 


11170 




B 


SWL 








07038 


49 


05934 


OOOOO 


11180 




OORG 


•-4 








07045 









661 



11190 


XTYPE 


AM 


SWF 


• 3 , , 


11200 




A 


LAST 


• SWF ,11 


11210 




B 


BSWF 




11220 




OORG 


•-4 




11230 


ERC0M2 


RCTV 






11240 


WA2 


OS 




• •-5 


11250 




WATV 


OUOH 




11260 




RC TV 






11270 


CHAR 


OS 


5 


• — 5 


11280 




TR 


El*l 


,FL2ERS-1 


11290 




B 


8SWF-12 


11300 


DPT 


OS 


5 


• • • 


11310 


0PTM2 


OS 


5 


• •♦5 , 


11320 




OS 


5 




11330 




OORG 


08000 




11340 




38 


A3 


,00702 


11350 




36 


A3 


,00703 


11360 




B 


•♦22 




11370 




OORG 


•-3 




11380 


A3 


DSC 


9 


,019433033 






019433033 




11390 




OSA 


FIX 




11400 




TRA 






11410 




TCO 


08000 





1620 Fortran n-o subroutines set 3 

MACRO FOR SKIPPING FIELDS 



WORKING AREA AOR REF TO FAC OR GAM 



MODIFIED CHARACTERISTIC 
RESTORES RECORO MARK 



TEMP LOC OF OEC PT 
TEMP AOR OF DEC PT 



IN OUTPUT RECORD 
IN I/O REC, -2 



11420 
11430 
11440 
11450 
11460 
11470 
11480 
11490 

11500 
11510 
11520 

11530 
11540 
11550 

11560 
11570 
11580 

11590 
11600 
11610 

11620 
11630 
11640 



1620 FORTRAN II-O I WA FORMAT 
1620 FORTRAN II-D I WA FORMAT 



DORG 


START 






OS 


3 






CM 


FAC 


,00 


• 10, 


8 


IFIX 






TFM 


FMON*U 


.•-START 




DC 


2 


.1 


.•-3 


-I 








B 


FMON 






TFM 


FMON* 11 


••-START 




OC 


2 


.1 


• •-3 


-1 








B 


FMON 






TFM 


FMON* 1 1 


••-START 




DC 


2 


.1 


• •-3 


-I 








B 


FMON 






TFM 


FMON* 11 


• •-START 




DC 


2 


.1 


• •-3 


-1 








B 


FMON 






TFM 


FMON* 11 


••-START 




DC 


2 


• X 


• •-3 


-1 








B 


FMON 






TFM 


FMON* U 


••-START 




OC 


2 


• 1 


• •-3 


-I 









SECONDARY LINKAGE 
IS CHAR POSITIVE 



07046 


11 


05861 


-0003 


07058 


21 


05736 


0586J 


07070 


49 


05826 


OOOOO 


07077 








07078 


34 


OOOOO 


00102 


07084 




0 




07090 


39 


02607 


00100 


07102 


34 


OOOOO 


00102 


07108 




5 




07114 


31 


02616 


06326 


07126 


49 


05814 


ooooo 


07137 




5 




07142 




5 




07142 




5 




08000 








08000 


38 


08032 


00702 


08012 


36 


08032 


00703 


08024 


49 


08046 


OOOOO 


06032 








08032 




9 




08045 




5 


X 1 


08045 




-3854 




08046 


36 


OOOOO 


00500 


0805B 


49 


OOOOO 


OOOOO 


08000 








03851 








03853 




3 




03854 


14 


02492 


000-0 


03866 


49 


05094 


OOOOO 


03878 


16 


07165 


-0027 


03686 




2 




03890 


49 


07154 


OOOOO 


03902 


16 


07165 


-0051 


03910 




2 




03914 


49 


07154 


OOOOO 


03926 


16 


07165 


-0075 


03934 




2 




03938 


49 


07154 


OOOOO 


03950 


16 


07165 


-0099 


03958 




2 




03962 


49 


07154 


OOOOO 


03974 


16 


07165 


-0123 


03982 




2 




03986 


49 


07134 


OOOOO 


03998 


16 


07165 


-0147 


04006 




2 





662 



1620 FORTRAN I 1-0 



SUBROUTINES 



SET 3 



PAGE 25 



11650 


8 


FMON 




04010 


49 


07154 


00000 


11660 


OORG 


• -1 




04020 








1 1670 


TFM 


FMON* I 1 


t •-START 


04020 


14 


07165 


-0169 


11680 


DC 


2 


tl 


04021 




2 




11690 


-1 
B 


FMON 


t tl 


04032 


49 


07154 


0-000 


1 1 700 


OORG 


•— 1 




04042 








11710 


TFM 


FMON* 11 


••-START 


04042 


16 


07165 


-0191 


11720 


DC 


2 


tl t*-3 


04050 




2 




1 1 7)0 


-I 
g 


FMON 




04054 


49 


071 54 


00000 


11740 


TFM 


FMON* 1 1 


.•-START 


04066 


16 


07165 


-0215 


11750 


DC 


2 


t 1 t 


04074 




2 






-I 


FMON 










nnnnn 
uuuuu 


11770 


TFM 


FMON* 1 1 


••-START 


04090 


16 


07165 


-0239 


11780 


DC 


2 


tl i»-3 


04098 




2 




1 1 790 


-1 


FMON 












11800 


TFM 


FMON* 11 


••-START 


04114 


16 


07165 


-0263 


1 1810 


i)C 


2 


.1 ••-3 


04122 




2 






- 1 












nnnnn 


118 30 


TFM 


FMON* 11 


♦•-START 


04138 


16 


07165 


-0287 


11840 


oc 


2 


•1 t»-J 


04146 




2 






-1 

8 












nnnnn 

uuuuu 


11860 


TFM 


FMON* 1 1 


••-START 


04162 


16 


07165 


-0311 


11870 


DC 


2 


tl .•-3 


04170 




2 




1 1 880 


-1 
B 






04 1 74 


49 


071 94 


00000 


11890 


TFM 


FMON* 11 


••-START 


04 166 


16 


07165 


-0335 


11900 


OC 


2 


.1 »»-3 


04194 




2 




11910 


-1 
8 


FMON 




04 198 


49 


071 54 


00000 


11920 


TFM 


FMON* 11 


••-START 


04210 


16 


07165 


-0359 


11930 


DC 


2 


.1 ••-3 


04218 




2 




1 1940 


-I 
8 


FMON 




04222 


49 


07154 


00000 


11950 


Tfm 


FMON* 1 1 


••-START 


04234 


16 


07165 


-0383 


11960 


DC 


2 


•1 t»-3 


04242 




2 




11970 


-1 
B 


FMON 




04246 


49 


07154 


00000 


11980 


TFM 


FMON* 11 


••-START 


04258 


16 


07165 


-0407 


11990 


DC 


2 


tl t»-3 


04266 




2 




12000 


-I 
B 


FMON 




04270 


49 


07154 


00000 


12010 






WRITE ALPHAMERIC 










12020 


TF 


SWF 


.WATY-l 


04282 


26 


05861 


04281 


12030 


B 


WATY1 




04294 


49 


05*98 


00000 


12040 


TF 


SWF 


•WAPT-l 


04306 


26 


05861 


04305 


12050 


B 


WAPT1 




04318 


49 


05518 


00000 


12060 


TF 


SWF 


• WACD-1 


04330 


26 


05861 


04329 


12070 


B 


WACD1 




04342 


49 


05538 


00000 


12080 • ♦•• 






READ ALPHAMERIC 










12090 


TF 


SWF 


•RATY-1 


04354 


26 


05861 


04353 



1620 FORTRAN II-D SUBROUTINES 



12100 


B 


RATY1 






04366 


49 


05862 


00000 


12110 


TF 


SWF 


•RAPT-l 




04378 


26 


05861 


04377 


12120 


8 


RAPT1 






04390 


49 


05882 


00000 


12130 


TF 


SWF 


•RACO-1 




04402 


26 


05861 


04401 


12140 


B 


RACD1 






04414 


49 


05902 


0-000 


12150 


DORG 


•-1 






04424 








12160 


TFM 


FMON* 11 


••-START 




04424 


16 


07165 


-0573 


12170 


DC 


2 


.3 


• •-3 


04432 




2 




12180 


-3 
B 


FMON 




.8 


04436 


49 


07154 


0-000 


12190 


DORG 


•— 1 






04446 








12200 WRITEI 


TFM 


WA 


•GAM*2 




04446 


16 


06933 


-2557 


12210 


B 


WRITIl 




• 8 


04458 


49 


04598 


0-000 


12220 


DORG 


•-1 






04468 








12230 


TFM 


FMON* 11 


••-START 




04468 


16 


07165 


-0617 


12240 


OC 
-7 


2 


• 7 


• •-3 


04476 




2 




12250 


B 


FMON 




• 6 


04480 


49 


07154 


0-000 


12260 


OORG 


• -1 






04490 








12270 


TFM 


FMON* 11 


••-START 




04490 


16 


07165 


-0639 


12280 


DC 


2 


• s 


• •-3 


04498 




2 




12290 


-8 
8 


FMON 




»8 


04502 


49 


07154 


0-000 


12300 


OORG 


•-1 






04512 








12310 


TFM 


FMON* 11 


••-START 




04512 


16 


07165 


-0661 


12320 


OC 
-7 


2 


• 7 


• •-3 


04520 




2 




12330 


B 


FMON 




tl 


04524 


49 


07154 


0-000 


12340 


OORG 


•-1 






04534 








12350 


TFM 


FMON* 11 


••-START 




04534 


16 


07165 


-0683 


12360 


DC 
-5 


2 


• 5 


• •-3 


04542 




2 




12370 


B 


FMON 




tl 


04546 


49 


07154 


0-000 


12380 


OORG 


•-1 






04554 








12390 


TFM 


FMON* 11 


••-START 




04556 


16 


07165 


-0705 


12400 


OC 
-5 


2 


• 5 


t»-3 


04564 




2 




12410 


B 


FMON 




.8 


04561 


49 


07154 


0-000 


12420 


DORG 


•-1 






04578 








12430 


TFM 


FMON* 11 


••-START 




04571 


16 


07165 


-0727 


12440 


DC 


2 


,5 


t«»-3 


0451* 




2 




12450 


-5 
B 


FMON 






04590 


49 


07154 


00000 


12460 


OORG 


•-4 






04597 









12470 
12480 •• 
12490 •• 
12500 •• 
12510 •• 
12520 •• 
12530 •• 



1620 FORTRAN II-D I WA FORMAT - SUBROUTINES 

RETURN FROM SMI VIA SMC IF WRITING I TYPE 
VALUE PUT IN FAC IN I FORM* EXPANDED TO ALPHA IN 
GAMMA RIGHT TO LEFT* HO CONTAINS ADR OF HIGH ORDER 
DIGIT IN GAM. AFTER VALUE IN GAM IS SIGNED* CHECKED 
FOR WIDTH. MOVE TO OUTPUT RECORD* 

SRPII RESULTS IF VALUE TOO LARGE FOR FORMAT SPECS. 



12540 


MR ITU TFM 


MA2 


•PAC*l 


04598 


14 


07084 


-2493 


12550 


TFL 


FAC 


tLOC til 


04610 


04 


02492 


0596J 


12540 


BNF 


WRTI2*12 


tPAC-1 


04622 


44 


04444 


02491 


12570 


TF 


P!XEND*6 


•ICONS* 6 


04434 


24 


03414 


05304 


12510 


I 


FIX 




04444 


49 


03854 


00000 



664 



1620 FORTRAN U-D SU9A0UTINES SfT 9 



RAGE 27 



12590 




DORG 


•-4 








06653 








12*00 


MRTI2 


TON 


FIXE NOW 


.2 






06656 


15 


03681 


00002 


12610 




m 


GAM- 19 


•MASK 1-1 






06666 


31 


02536 


05306 


12620 




TFM 


HO 


•6AN+1 






06671 


16 


04769 


-2556 


12630 


WAT I 


SH 


MA 2 


,1 






06690 


12 


07064 


-0001 


12660 




SN 


MA 


.2 






06702 


12 


06933 


-0002 


12690 




TO 


MA 


• MA 2 


•All 




04714 


25 


0693L 


Q708M 


12660 




BO 


I 016 


• MA 2 


• M 




04726 


43 


04746 


0706M 


12670 




8 


I 0IG*12 






04738 


49 


04756 


00000 


12680 




OORG 


•-4 








04745 








12690 


IOIG 


TF 


HQ 


• MA 






04766 


26 


04769 


06933 


12700 




CF 


GAM 




• • 


PREVENTS PREMATURE TERM. FOR NEC ARC 


04756 


33 


02555 


00000 


12710 


HO 


OS 


5 


»• 




A OR Of HI ORDER NON ZERO 01 GIT 


04769 




5 




12720 




BNF 


MRTI 


• MA 


• 11 




04770 


44 


04690 


0693L 


12730 




CM 


HO 


•GANtl 






04782 


14 


04769 


-2556 


12760 




BNE 


WRT SGN 






04794 


47 


04626 


01200 


12750 




TFM 


LAST 


• 7000 


.68 




04806 


16 


05730 


OPOOO 


12760 




6 


BSMF 








0481© 


49 


05826 


00000 


12770 




DORG 


•-4 








04825 








12780 


MR TSGN BNF 


WRT 13 


• FAC 






04626 


44 


04862 


02492 


12790 




SN 


HO 


• 2 






04838 


12 


04769 


-0002 


12800 




TFM 


HO 


•20 


• 610 




04650 


16 


0476R 


OOOKO 


12810 


NRTI 3 


SM 


HO 


• I 




04862 


12 


04769 


-0001 


12820 




TFM 


OUT 


• GAM 






04674 


16 


04933 


-2555 


12830 




S 


OUT 


• HO 






04866 


22 


04933 


04769 


1 2860 




c 


OUT 


• WIDTH 2 






04896 


24 


04933 


05956 


12850 




BM 


ER F8 I 








04910 


46 


0499Q 


01100 


12860 




SF 


OUT 








04922 


32 


04933 


00000 


12870 


OUT 


OS 


5 


f • 


• HI OR OCR MUG AO* IN I/O RECORD, I TYPE 


04933 




5 




12880 




A 


OUT 


• LAST 






049 3* 


21 


04933 


OS ?36 


12890 






OUT 


• 2 






04946 


12 


04933 


-0002 


12900 




TR 


OUT 


• HO 


.611 




04958 


31 


0*931 


0476R 


12910 




TFH 


LAST 


.00 


.610 




04970 


16 


05730 


000-0 


12920 




8 


BSMF 








04982 


49 


05826 


00000 


12930 




OORG 


•-4 








04989 








12940 


ERF 8 1 


TR 


OUO H+ll 


•FLZERS-67 




04990 


31 


02618 


06260 


12950 




TR 


DUO H+ll 


• HQ 


.11 




05002 


31 


02618 


04 76R 


12960 




CM 


0ATINH*2 


• 08 


• 10 




05014 


14 


06059 


000-8 


12970 




TFM 


EI*2 


•67800 


. . 


SETS ERROR F8 AND ERASES REC MARK 


05026 


16 


02617 


07800 


12980 




BL 


ER COM 2 








05038 


67 


07078 


01300 


12990 




TF 


0ATDU0*2 


»DATIMHt2 






05050 


26 


0605 1 


06059 


1 3000 




TFM 


IORT 


• •♦23 






05062 


16 


00565 


-5085 


13010 




B 


IOPT 


•0ATDU0-4 


.7 




05074 


49 


00532 


-6045 


13020 




B 


ER COM 2 






05086 


49 


07076 


00000 


13030 




OORG 


• -4 








05093 








13040 


IFIX 


BP 


• ♦32 




. . 


YES 


05094 


46 
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15470 




OORG 


•-1 


••-START 








04578 








15460 




TFM 


FMON^li 








04578 


16 


07165 


-0727 


15490 




DC 
-5 


2 


v's 








04586 




2 




15500 




8 


FMON 










06590 


49 


07154 


00000 


15510 




DORG 


•-1 










04600 








15520 




TFM 


MBASE*5 


•FIX 








04600 


16 


07398 


-3654 


15530 




TFM 


EFTERM+18.EF lift 








04612 


16 


05194 


-4656 


15540 




B 


EF2SW 


t 


•4 






04424 


4* 


04404 


00000 


15550 




DORG 


•-4 










04411 
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15560 


EFMIN 


SF 






15570 


EFPIUS 


SM 


CHAR 


• 1 


15560 


EF TYPE 


*JJ 


1 2«h He 


f 2 


1 5590 




** 


I NPLUS 


• 00 


15600 




BE 


LOG DIG 




1 56 10 




CM 


INPLUS 


.70 


15620 




BM 


EF DIG 




1 5630 




BE 


LOG DIG 




156*0 




CM 


INPLUS 


• 03 


1 5650 




BE 


EF DEC 




1 5660 




BNF 


ERRF7 E 


•RMEFSW 


15670 




TFM 


EXP 


• 000 


15660 




TOM 


£ E XPAD* 1 


• I 


15690 


EXP 


DS 


3 


• •-2 


15700 




CM 


INPLUS 


»45 


15710 




BE 


E EXP 




15720 


EEXP2 


CM 


INPLUS 


• 20 


15730 




BE 


E EXP M 




15740 




CM 


INPLUS 


• 10 


157*0 




BE 


E EXP 




15760 


EE XP22 


BO 


• ♦24 


• 97 


15770 




SM 


CHAR 


• I 


15780 




C 


INPLUS 


• TERM 


15790 




BNL 


EEXPAO-12 




15800 




TO 


EXP-l 


•INPLUS 


15810 




AM 


INPLUS 


• 2 


15820 




B 


EEXP22+12 




15830 




OORG 


• -4 




15860 


EEXPM 


TOM 


E EXPAD^l 


• 2 


15850 


EEXP 


AM 


INPLUS 


• 2 


15860 




SM 


CHAR 


• 1 


15870 




6 


E EXP 2 




15880 




OORG 


•-4 




15890 




TO 


EXP 


• INPLUS 


15900 


EEXPAO 


A 


CHAR 


• EXP 


15910 




B 


EF ENO 




15920 




OORG 


•-4 




15930 


LOGDIG 


BNF 


EF DIG 


• 98 


15940 




SM 


CHAR 


• 1 


15950 




B 


EF TERM 




15960 




OORG 


•-4 




15970 


EFOEC 


BD 


ERRF7 E 


• 97 


15980 




TFM 


LOC D 


• 00 


15990 




TFM 


EFTERM+18 


,EF PLUS 


16000 




TDM 


97 


i-l 


16010 




SM 


CHAR 


• 1 


16020 




B 


EF TERM 




16030 




OORG 


•—4 




16040 


EFOIG 


CF 


98 




16050 




CM 


MA 


•FAC-l 


16060 




BNL 


• ♦36 




16070 




TD 


WA 


llNPLUS 


16080 




AM 


MA 


.1 


16090 


EF TERM 


C 


INPLUS 


• TERM 


16100 




BL 


EFTVPE 




16110 


EFEND 


BNF 


EFEN02 


t FNH 



• 10 



• 610 



.610 

• 610 

• 610 



.11 



VALUE OF CALC CHAR FOR OUTPUT 



TRUNCATES LOW ORDER DIGITS 



ZERO CHECK 



04632 


32 


00099 


00000 




1 c 


07108 


000~ I 


04656 


1 1 


05945 


-0002 


04668 


16 






04680 


46 


05016 


01200 


04692 


14 


0594N 


Anna a 


04704 


46 


051 16 


01 100 


04716 


46 


05016 


0 1200 


04728 


14 


0594N 


000-3 


04740 


46 


05048 


0 1 200 


04752 


44 


05324 


05953 


04764 


16 


04785 


00-00 


04776 


15 


04997 


00001 


04785 




3 




04 78B 


14 


0594N 


00OM5 


04800 


46 


04952 


01200 


04812 


14 


0594N 


OOOKO 


04824 


46 


04940 


01200 


04836 


14 


0594N 


OOOJO 


04848 


46 


04952 


01200 


04860 


43 


04884 


00097 


04872 


12 


07108 


00-01 


04884 


24 


05945 


06785 


04896 


46 


04984 


01300 


04906 


25 


04784 


0594N 


04920 


1 1 


05945 


-0002 


04932 


49 


04872 


00000 


04939 








04940 


15 


04997 


00002 


04952 


11 


05945 


-0002 


04964 


12 


07108 


000- 1 


04976 


49 


04812 


00000 


04983 








04984 


25 


04785 


0594N 


04996 


21 


07108 


04785 


05008 


49 


05200 


00000 


05015 








05016 


44 


05116 


00098 


05028 


12 


07108 


000- 1 


05040 


49 


05176 


00000 


05047 








05048 


43 


05324 


00097 


05060 


16 


05608 


000-0 


05072 


16 


05194 


-4644 


05084 


15 


00097 


OOOOJ 


05096 


12 


07108 


000-1 


05108 


49 


05176 


00000 


051 15 








05116 


33 


00098 


00000 


05126 


14 


06933 


-2491 


05140 


46 


05176 


01300 


05152 


25 


0693L 


0594N 


05164 


11 


06933 


-0001 


05176 


24 


05945 


06785 


05188 


47 


04656 


01300 


05200 


44 


05232 


0331L 



67 1 
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16120 




TFM 


FAC 


.99 


• 1011 






05212 


16 


02492 


OOORR 


16130 




B 


SWL 










05224 


49 


05934 


00000 


16140 




DORG 


•-3 










05232 








16150 


EFEND2 


S 


CHAR 


• LOC 0 








05232 


22 


07108 


05608 


16160 




BO 


ERR F7E 


•CHAR-2 








05244 


43 


05324 


07106 


16170 




SF 


CHAR-l 










05256 


32 


07107 


00000 


16180 




TF 


FAC 


• CHAR 








05268 


26 


02492 


07108 


16190 




SF 


FNH 


» 


• 6 






05280 


32 


0331L 


00000 


16200 




BNF 


SWL 


.99 








05292 


44 


05934 


00099 


16210 




SF 


FAC-2 










05304 


32 


02490 


00000 


16220 




B 


SWL 










05316 


49 


05934 


00000 


16230 




OORG 


•-4 










05323 








16240 


ERRF7E 


TF 


FAC 


•FLZALP 


• 11. 


F PLUS 


2 ZEROS TO FAC 


05 324 


26 


02492 


0334Q 


16250 




TDM 


EI 


.7 


.11. 


SET ER 


F7 INDICATION SWITCH 


05336 


15 


02615 


OOOOP 


16260 




B 


EFENO 










05348 


49 


05200 


00000 


16270 




OORG 


• -4 










05355 








16280 


HRD 


SM 


WIOTH 2 


• 2 


• 10, 


READ H 


FROM 10 REC TO FORMAT RECORD 


05356 


12 


05956 


000-2 


16290 




BL 


BSWF 










05368 


47 


05826 


01300 


16300 




AM 


SMF 


• 2 








05380 


11 


05861 


-0002 


16310 




TF 


SWF 


•INPLUS 


• 611 






05392 


26 


05B6J 


0594N 


16320 




AM 


INPLUS 


.2 








05404 


11 


05945 


-0002 


16330 




B 


HRD 










05416 


49 


05356 


00000 


16340 




OORG 


•-4 










05423 








16350 




OORG 


08000 










08000 








16360 




38 


A7 


•00702 








08000 


38 


080 32 


00702 


16370 




36 


A7 


•00703 








08012 


36 


08032 


00703 


16380 




B 


• ♦22 










08024 


49 


08046 


00000 


16390 




DORG 


•-3 










08032 








16400 


A7 


OSC 


9 


•019499009 






08032 




9 








019499009 


















16410 




OSA 


FTYPE 










08045 




5 


X 1 


















08045 




-4534 




16420 




TRA 












06046 


36 


00000 


00500 


















08056 


49 


00000 


00000 


16430 




TCO 


08000 










08000 











1620 FORTRAN II-D RAEF-ATYPE 


FORMAT 










16450 • •»•• 


1620 FORTRAN II-D RAEF-ATYPE 


FORMAT - SECONOARY LINKAGE 










16460 


DORG 


START 








03651 








16470 


OS 


3 








03853 




3 




16480 


CM 


FAC 


.00 


.10, I 


S CHAR POSITIVE 


03654 


14 


02492 


000-0 


16490 


B 


EPPIX 








03666 


49 


04666 


00000 


16500 


TFM 


FMON* 11 


••-START 






03678 


16 


07165 


-0027 


16510 


OC 


2 


• 1 


• •-3 




03666 




2 




16520 


-I 
B 


FMON 








03690 


49 


07154 


00000 


16530 


TFN 


FMON* 11 


••-START 






03902 


16 


07165 


-0051 


16540 


DC 


2 


• 1 


• •-1 




03910 




2 




16550 


-I 
6 


FMON 








03914 


49 


07154 


00000 


16560 


TFM 


FMON* 11 


••-START 






03926 


16 


07165 


-007f 


16570 


DC 


2 


• I 


• •-1 




03936 




2 




16560 


-I 
8 


FNON 








03936 


49 


07154 


00000 


16590 


TFM 


FMON* 11 


• •-START 






03950 


16 


07165 


-0099 



1**00 

1**10 
4**20 
1*9*0 

1***0 
1**90 
1***0 

1**70 
1**80 

16*90 
16700 

16710 
16720 
16730 
16740 

16750 
16760 
16770 

16780 
16790 
16800 

16810 
16820 
16630 

16840 
16850 
16860 

16870 
16880 
16890 

16900 
16910 
16920 

16930 
16940 
16950 

16960 
16970 
16980 

16990 
17000 
17010 



OC 


2 


-1 




8 


FMON 


TFM 


FMON* 1 1 


OC 


2 


-I 




B 


FMON 


TFM 


FMON* 11 


OC 


2 


-I 




8 


FMON 


OORG 


•-1 


TFM 


FMON* I 1 


OC 


2 


-I 




B 


FMON 


DORG 


•-1 


TFM 


FMON* 11 


OC 


2 


-I 




8 


FMON 


TFM 


FMON* 1 1 


OC 


2 


-I 




8 


FMON 


TFM 


FMON* 11 


DC 


2 


-i 




B 


FMON 


TFM 


FMON* 1 1 


DC 


2 


-I 




8 


FMON 


TFM 


FMON* 11 


DC 


2 


- * 
B 


FMON 


TFM 


FMON* 11 


DC 


2 


-1 
B 


FMON 


TFM 


FMON* 1 1 


DC 


2 


-1 




B 


FMON 


TFM 


FMON* 1 1 


DC 


2 


-1 




8 


FMON 


TFM 


FMON* 1 1 


DC 


2 


-I 




B 


FMON 


TFM 


FMON* 11 


DC 


2 



1*10 FORTRAN IN SUWUTINfS SIT 3 
tl »•-! 

••-START 

•I it-J 



tl 



t«-3 

.#-3 
tl 

t«-3 
t*-3 

• •-3 
»«-3 
,t-3 
r»-3 

• •-3 
t*-3 

• •-3 



03J9SI 

039*2 49 
03976 16 
03982 

0398* 69 
03998 I* 
0400* 

04010 49 
04020 
04020 1* 
04028 

04032 49 
04042 
04042 16 
04050 

04054 49 
0406* 16 
04074 



07154 
07165 

2 

07154 
071*5 
2 



07165 

2 

07154 

07165 
2 

07154 
07165 
2 



00000 
-0123 



00000 
-0147 



00000 
-0169 

0-000 
-0191 



00000 
-0215 



04078 49 07154 00000 

04090 16 07165 -0239 

04098 2 

04102 49 07154 00000 

04 M 4 16 07165 <VO 

04122 2 

04126 49 07154 00000 

04138 16 07165 -0267 

04146 2 



04150 
04162 
04170 

04174 
04186 
04194 

04198 
04210 
04218 

04222 
04234 
04242 

04246 
04258 
04266 



49 07154 
16 07165 

2 

49 07154 
16 07165 
2 



07154 
07165 
2 



49 07154 
16 07165 
2 



07154 
07165 
2 



00000 
-0311 



00000 
-0335 



00000 
-0359 



00000 
-0383 



00000 
-0407 



67 ; 
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17020 






FMON 






04270 


49 


07154 


00000 


17030 


• ••• 






WRITE ALPHAMERIC 










17040 




TF 


SWF 


,WATV-l 




04282 


26 


05861 


04281 


17050 




B 


WATYl 






04294 


49 


05498 


00000 


17060 




TF 


SWF 


•WAPT-1 




04306 


26 


05861 


04305 


17070 




B 


WAFT I 






04318 


49 


05518 


00000 


17080 




TF 


SWF 


•WACO-1 




04330 


2* 


05861 


04329 


17090 




B 


WAC01 






04342 


49 


05538 


00000 


17100 


• ••• 






RE AO ALPHAMERIC 










17110 




TF 


SWF 


•RATV-1 




04354 


26 


05861 


04353 


17120 




B 


RATVi 






04366 


49 


05862 


00000 


17130 




TF 


SWF 


•RAPT-l 




04378 


26 


05861 


04377 


17140 




B 


RAFTl 






04390 


49 


05882 


00000 


17150 




TF 


SWF 


•RACO-1 




04402 


26 


05861 


04401 


17160 




B 


RACD1 


• 


• 8 


04414 


49 


05902 


0-000 


17170 




DORG 


•-1 






04424 








17180 




TFM 


FMON* 11 


• •-START 




04424 


16 


07165 


-0573 


17190 




DC 
-3 


2 


,3 


t«-3 


04432 




2 




17200 




B 


FMON . 


• 


• 8 


04436 


49 


07154 


0-000 


17210 




DORG 


•-1 






04446 






17220 




TFM 


FMON* 11 


i •-START 




04446 


16 


07165 


-0595 


17230 




DC 
-4 


2 


.4 


• •-3 


04454 




2 


17240 




B 


FMON 


» 


• 8 


04458 


49 


07154 


0-000 


17250 




DORG 


•-1 






044*8 








17260 


REAOEF 


BNF 


EF R02*12.LOC 




044*8 


44 


04642 


05981 


17270 




8 


EF R01 


• 


• • 


04480 


49 


04598 


0-000 


17280 




OORG 


•-1 






04490 






17290 




TFM 


FMON* 11 


••-START 




04490 


16 


07165 


-0*39 


17300 




OC 
-8 


2 


• 8 


• •-3 


04498 




2 


17310 




8 


FMON 


• 


tl 


04502 


49 


07154 


0-000 


17320 




OORG 


•-1 






04512 








17330 


ATVPE 


AM 


SWF 


• 3 




04512 


U 


05861 


-0003 


17340 




B 


ATVF61 


• 


tl 


04524 


49 


04898 


0-000 


17350 




DORG 


*-I 


••-START 




04534 








17360 




TFM 


FMON* 11 




0451* 


1* 


071*5 


-0*83 


17370 




OC 
-5 


2 


• 5 


,•-3 


04542 




2 




17380 




B 


FMON 


» 


tl 


0454* 


49 


07154 


0-000 


17390 




OORG 


•-1 






04556 








17400 




TFM 


FMON* 11 


••-START 




0455* 


1* 


07165 


-0705 


17410 




OC 
-5 


2 


• 5 


,t-J 


04564 




2 




17420 




B 


FMON 


• 


tl 


045*8 


49 


07154 


0-000 


17430 




OORG 


•-1 






04971 








17440 




TFM 


FMON* 11 


••-START 




04571 


1* 


07165 


-0727 


17450 




OC 
-5 


2 


tS 


• •-J 


0*98* 


2 


17460 




B 


FMON 






04590 


49 


07154 


00000 


17470 




OORG 


•-4 






04597 








17480 


• •••• 
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17490 


EFR01 


CF 


LOC 






04598 


33 


05981 


00000 


17500 




TF 


F I XENO** 


• t CON 5** 


0**10 


2* 


03*8* 


0489* 


17510 




B 


FIX 






0**22 


49 


03894 


00000 



1420 FORTRAN 1 1-0 SUBROUTINES 



SIT 3 



PACE 37 



17S20 




OORG 


•-4 










04424 








17*30 


EPRD2 


TO* 


FIXENDU 


• 1 








04*30 


15 


03*81 


00002 


173*0 




TFl 


LOC 


• FAC 


•6 






04642 


06 


0598J 


02492 


17390 


ERF7S 


BNF 


BSMF-12 


• EI 


• • 


6R IF NOT ERROR 


TYPE F7 


04694 


64 


09814 


02615 


17360 




CF 


El 


• 


it 


ERASE ERROR F7 


INDICATION 


04*64 


33 


02*15 


00000 


17370 




B 


ERC0M2 










04671 


49 


07078 


00000 


17380 




DOUG 


•-4 










04689 








17590 


EFFIX 


BP 


• ♦32 


• 


i • 


YES 




04*8* 


4* 


04718 


01100 


17600 




TF 


FAC 


»FXt 


• • 


NO 




04*98 


2* 


02492 


02615 


17610 




B 


FIXEND 








04710 


49 


03680 


00000 


17620 




DORG 


•-3 










04718 








17630 




TD 


MU-t 


•FAC-2 


• • 


STORE SIGN 




04718 


23 


03631 


02490 


17640 




C 


FAC 


tK 


• i 


IS CHAR GREATER 


THAN K 


04730 


24 


02492 


02221 


176*0 




BNH 


• ♦56 










04742 


47 


04798 


01100 


17660 




TOM 


FXERR+25 


.1 


• • 


SET ERR TYPE 




04754 


15 


03621 


00001 


176 70 




TF* 


EI 


i379 


.9, 


SET ER E9, OVFL 


IN FIX 


04766 


16 


02615 


00N79 


17680 




TF 


FAC 


• FX9 


• • 


YES, FAC • FX9 




04778 


26 


02492 


02805 


17690 




8 


FXERR 










04790 


49 


03596 


00000 


17700 




OORG 


•-3 










04 798 








17710 




CF 


FAC-2 










04798 


33 


02490 


00000 


17720 




TF 


BETA 


•2ER0-31 


• • 


CLEAR AOO AREA 




04810 


26 


02603 


02716 


1 7730 




TF 


I MSA 


• FX! 






04822 


26 


02575 


02815 


17740 




TF 


•♦3Q 


f IMSAPF 


• • 


ALIGN DECIMAL POINTS 


04834 


26 


04864 


03298 


17750 




S 


• ♦18 


• FAC 








04844 


22 


04864 


02492 


17760 




A 


DUMMY 


•FAC-2 








04858 


21 


99999 


02490 


17770 




TF 


FAC 


• IMSA 








04870 


26 


02492 


02575 


17780 




B 


MU 










04882 


49 


03632 


00000 


17790 




DORG 


•-4 










04889 








17800 


ICONS 


B 


EFRD 2 


f 


• 1 






04890 


4R 


04630 


00000 


17810 




OORG 


• -4 










04897 








17820 


•••••• 






MACRO FOR 


A TYPE 


READ AND WRITE 












17810 


ATVPE1 


TF 


WIDTH 2 


t SWF 


• 11 






04898 


26 


05956 


0586J 


17840 




TF 


INPLUS 


• LAST 








04910 


26 


05945 


05736 


17850 




A 


LAST 


•WIOTH 2 








04922 


21 


05736 


05956 


17860 




C 


LAST 


• MAX 2 








04934 


24 


05736 


06037 


17870 




8H 


ER F9 










04946 


46 


07002 


01100 


17880 




TF 


TERM 


■ LAST 








04958 


26 


06785 


05736 


17890 




SM 


TERM 


• 2 








04970 


12 


06785 


-0002 


17900 




TFM 


SMC ADJ 


•WRITE A 








04982 


16 


06044 


-5242 


17910 




BD 


SWL 


•AW EF SW 








04994 


43 


05934 


05953 


17920 




TFM 


SHC ADJ 


•READ A 








05006 


16 


06044 


-5026 


17930 




B 


SWL 










05018 


49 


05934 


00000 


17940 




OORG 


•-4 










05025 








17950 


RE ADA 


CF 


INPLUS 


f 


• 6 






05026 


33 


0594N 


00000 


17960 




AM 


INPLUS 


• 1 


• 10 






05038 


11 


05945 


000-1 


17970 




c 


INPLUS 


• TERM 








05050 


24 


05945 


06785 


17980 




BL 


READ A 










05062 


47 


05026 


01300 


17990 




BNF 


RDAFL 


• LOC 








05074 


44 


05186 


05981 


18000 




CF 


LOC 










05086 


33 


05981 


00000 


18010 




TF 


LOC 


,FX2 


.6 






05098 


26 


0598J 


02815 


18020 




S 


WIOTH 2 


• K 








05110 


22 


05956 


02221 


18030 


ROA 


BH 


ERF7A 










05122 


46 


05166 


01100 


18040 




A 


LOC 


•WIOTH 2 








05134 


21 


05981 


05956 


18050 




TF 


LOC 


• TERM 


.611 






05146 


26 


0598J 


0678N 


18060 




B 


ERF7S 










05158 


49 


04654 


00000 


18070 




DORG 


•-4 










05165 
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18080 


ERF7A 


TDM 


EI 


.7 


,11. SET ER F7 ERROR INO ANO SWITCH 


05166 


15 


02615 


OOOOP 


18090 




B 


ERF7S 






05176 


49 


04654 


00000 


18100 




DORG 


•-4 






05165 








18110 


RDAFL 


TFM 


LOC 


• 00 


• 610 


05166 


16 


0598J 


000-0 


18120 




SM 


LOC 


• 2 


• 10 


05196 


12 


05981 


000-2 


18130 




TF 


LOC 


• FLZ 


.611 


05210 


26 


0598J 


0335L 


18140 




S 


WIDTH 2 


• F 




05222 


22 


05956 


02219 


18150 




B 


RD A 






05234 


49 


05122 


00000 


18160 




OORG 


•-4 






05241 








18170 


WRITEA 


TF 


FAC 


• LOC 


.11 


05242 


26 


02492 


0S98J 


18180 




BNF 


WA FX 


•FAC-i 




05254 


44 


05354 


02491 


18190 




SM 


LOC 


• 2 




05266 


12 


05961 


-0002 


18200 




S 


WIOTH 2 


»F 




03278 


22 


05956 


02219 


18210 


WRTA 


BH 


WRTA 2 






05290 


44 


05334 


01100 


18220 




A 


LOC 


•WIDTH 2 




05302 


21 


05961 


05956 


18230 




TF 


TERM 


• LOC 


• 611 


03314 


26 


0676N 


0598J 


18240 




B 


BSWF 






05326 


49 


05826 


00004 


18250 




DORG 


•-4 






05333 








18260 


WRTA2 


SM 


WIDTH 2 


• 02 


• 10 


03334 


12 


05956 


000-2 


18270 




8 


WRTA 






03344 


49 


05290 


00000 


18280 




DORG 


•-4 






05353 








18290 


WAFX 


S 


WIOTH 2 


.X 




05354 


22 


05956 


02221 


18300 




8 


WRT A 






05366 


49 


05290 


00000 


18310 




OORG 


•-4 






03373 








18320 




OORG 


08000 






08000 








18330 




38 


A6 


.00702 




06000 


38 


08032 


00702 


18340 




36 


A6 


•00703 




08012 


36 


08032 


00703 


18350 




8 


•♦22 






0802* 


49 


08046 


00000 


18360 




OORG 


•-3 






06032 








18370 


A8 


OSC 


9 


.019506016 


06032 




9 








019908016 














18380 




OSA 


FIX 






08045 




5 


X 1 














08045 




-3854 




18390 




TRA 








06046 


34 


00000 


00500 














08058 


49 


00000 


00440 


18400 




TCO 


08000 






06000 








18410 


•«•••• 


1620 FORTRAN II-D 


EFNN FORNAT 










18420 


• •••• 


1620 FORTRAN I 1-0 


EFNW FORMAT - SECONDARY LINKAGE 










16430 




DORG 


START 






03631 








18440 




DS 


3 






03653 




3 


-0003 


18430 




TFM 


F AON* 11 


••-START 




03634 


14 


07165 


18460 




DC 


2 


il 




03862 




2 




16470 




-I 
• 


FNON 






03866 


49 


07154 


00000 


18460 




TFN 


FNON* 11 


.•-START 




03678 


14 


07165 


-0027 


18490 




DC 


2 


• 1 




03686 




2 




16300 




-I 
I 


FNON 






01890 


49 


07134 


00000 


16510 




TFN 


FNON* 11 


•••START 




09902 


14 


07143 


-0091 


16920 




DC 


2 


• 1 


••-I 


03910 




2 




16930 




-I 
B 


FNON 






03914 


44 


07154 


00000 


16540 




TFM 


FNON* 11 


••-START 




03926 


14 


07169 


-0079 


16330 




OC 


2 


it 


••-i 


03934 




2 
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MHJ© 
18570 
18580 

18J40 
E8400 
11410 

18620 
18630 
10440 

18690 
18660 
18670 
18660 

18600 
18700 
18710 
18720 

18730 
18740 
18750 

18760 
18770 
18780 

18790 
18800 
18810 

18820 
18830 
18840 

18850 
18860 
18870 

18880 
18890 
1 8900 

18910 
18920 
18930 

18940 
18950 
18960 

18970 
18980 



8 

?f* 
OC 
-i 
8 

TFM 

OC 
-1 
8 

TFM 
OC 
-I 
8 

DOUG 
TFM 

PC 
-1 
8 

00116 

TEN 

OC 

-1 

8 

TFM 
OC 
-I 
8 

TFM 

OC 
-1 > 
8 

TFM 

DC 
-1 
8 

TFM 
OC 
-1 
B 

TFM 
DC 
- I 
8 

TFM 
OC 
- 1 
8 

TFM 

OC 

- 1 ' : 
8 

TFM 

OC 
-1 
B 

TFM 



FMON 
F MOM* 11 
2 

FMON* 11 
2 

FMON 
F MOM* 11 

2 

FMON 
•-1 

FMON* 11 

2 

FMON 
•~1 

FMON* 11 
2 

FMON 
FMON* 1 1 
2 

FMON 
FMON* 11 

2 

FMON 
FMON* 11 

2 

FMON 
FMON*. 1 1 
2 

FMON 
FMON* 11 
2 

FMON 
FMON* 11 
2 

FMON 
FMON* 11 
2 

FMON 
FM0N*U 

2 

FMON 
FMON* 11 



START 

•1 



, •-START 
.1 



• •-START 

U 



.•-START 

tl »»-3 



, •-START 

tl ••-3 



• •-START 

.1 .*-3 



t •-START 

.1 .—3 



••-START 

tl i»-3 



• •-START 
.1 



••-START 

tl t»~3 



.•-START 

tl t»-3 



.•-START 

tl t»-3 



••-START 

.1 t—3 



.•-START 



03938 49 
03950 14 
03958 

03942 49 
03974 14 
03982 

03986 49 
03998 16 
04004 

04010 49 
04020 
04020 14 
04028 

04032 49 
04042 
04042 
04050 



04054 
04064 
04074 



04126 
04138 
04146 



04198 
04210 
04218 

04222 
04234 
04242 



07154 
07165 
2 

07154 
07165 
2 

07154 
07165 

2 



16 



04078 49 

04090 16 
04098 

04102 49 

04U4 16 
04122 



04150 49 

04162 16 
04170 

04174 49 

04186 16 
04194 



49 

16 



04246 49 
04258 16 



07145 
2 

07154 

07165 
2 

07154 
07165 
2 

07154 
07165 
2 

07154 
07165 
2 

07154 
07165 
2 

07154 
07165 
2 

07154 
07165 
2 

07154 
07165 

2 

07154 
07165 

2 

07154 
07165 



00000 
-0099 



00000 
-0123 



00000 
-0147 



00000 
-0169 

0-000 
-0191 



00000 
-0215 



00000 
-0239 



00000 
-0263 



00000 
-0287 



00000 
-0311 



00000 
-0335 



00000 
-0359 



00000 
-0383 



00000 
-0407 



677 
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18990 


OC 
-1 


2 


.1 t — 3 


04266 




2 




19000 


B 


FMON 




04270 


49 


07154 


00000 


19010 •••• 






WRITE ALPHAMERIC 










19020 


TF 


SWF 


.WATY-l 


04282 


26 


05861 


04281 


19030 


B 


WATY1 




04294 


49 


05498 


00000 


1 9040 


TF 


SWF • 


•WAPT-l 


04306 


26 


05861 


04305 


19050 


B 


WAPTl 




04318 


49 


05518 


00000 


19060 


TF 


SWF 


. WACO- 1 


04330 


26 


05861 


04329 


19070 


B 


WACOl 




04342 


49 


05538 


00000 


19080 •••.». 






REAO ALPHAMERIC 










19090 


TF 


SWF 


•RATYrl 


04354 


26 


05861 


04353 


19100 


B 


RATY1 


04366 


49 


05862 


00000 


19110 


TF 


SWF 


•RAPT-1 


04378 


26 


05861 


04377 


19120 


B 


RAPT I 


04390 


49 


05882 


00000 


19130 


TF 


SWF 


tRACD-l 


04402 


26 


05861 


04401 


19140 


8 


RACDl 


t t6 


04414 


49 


05902 


0-000 


19150 


OORG 


•-1 




04424 








19160 


TFM 


FMON* 11 


••-START 


04424 


16 


07165 


-0573 


19170 


OC 
-3 


2 


t3 ,«-3 


04632 




2 




19180 


8 


FMON 


.8 


04436 


49 


07154 


0-000 


19190 


OORG 


•-1 




04446 








19200 


TFM 


FMON* 11 


t*- START 


04446 


16 


07165 


-0595 


19210 


OC 
-4 


2 


.4 ,«-3 


04454 




2 




19220 


• 


FMON 


t .8 


04458 


49 


07154 


0-000 


19230 


OORG 


•-1 




04468 








19240 


TFM 


FMON* 11 


.•-START 


04468 


16 


07165 


-0617 


19250 


DC 
-7 


2 


.7 ,»-3 


04476 




2 




19260 


8 


FMON 


.8 


04480 


49 


07154 


0-000 


19270 


OORG 


•-1 




04490 








19280 EFMW 


TF 


FLTENO 


tlC0N4*4 


04490 


26 


03730 


05432 


19290 


8 


EFMW1 


t t8 


04502 


49 


04602 


0-000 


19300 


OORG 


•-1 




04512 








19310 


TFM 


FN0NU1 


••-START 


04512 


16 


07165 


-0661 


19320 


OC 
-7 


2 


t7 ,»-3 


04520 




2 




19330 


6 


FMON 


t8 


04524 


49 


07154 


0-000 


19340 


OORG 


•-1 




04534 








19350 


TFM 


FMON* 11 


. — START 


04534 


16 


07165 


-0683 


19360 


DC 
-5 


2 


t5 ,»-3 


04542 




2 




19370 


6 


FMON 


.8 


04544 


49 


07154 


0-000 


19380 


OORG 


•-1 




04554 








19390 


TFM 


FMON* 1 1 


.•-START 


04584 


14 


07145 


-0705 


19400 


OC 
-5 


2 


•5 ,•-! 


06544 




2 




19410 


8 


FMON 


t .8 


04548 


49 


07154 


0-000 


19420 


OORG 


•-1 




04578 








19430 


TFM 


FM0N*1 1 


.•-START 


04578 


14 


07165 


-0727 


19440 


OC 
-5 


2 


.5 .•-! 


04584 




2 




19450 


8 


FMON 




04590 


44 


07154 


00000 


19460 4EPSM 


OS 


5 


§• 


04601 




5 
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19470 ••••• 1620 FORTRAN 1 1-0 EFMty FORMAT - SUBROUTINES 

19480 •••••• E AND F TYPE MANTISSA WRIT INC, FLOAT ARG IF REQ. 

19490 •••••• CONFUTE DEC FT IN GAM AND OUTPUT RECORD. MOVE 

19500 •••••• MANTISSA DIGIT IV DIGIT, RIGHT TO LEFT, FROM FAC 

19510 TO CAM. INSERT SiGNt CHECK WIDTH, AND ZERO. 

19520 • BR TO WRT F FOR F TYPE CONTINUATION 



19530 


EFHWl 


TFL 


FAC 


• LOC 


til 




04602 


06 


02492 


0598J 


19540 




8NF 


EFLOAT 


,FAC-i 






04614 


44 


05126 


02491 


19550 


EFALPH 


TFM 


FLTEND-4 


• 20 


• 10 




04626 


16 


03726 


OOOKO 


19560 




TF 


DPT 


, TERM 






04638 


26 


07137 


06785 


19570 




s 


DPT 


,LOC D 2 






04650 


22 


07137 


05606 


19580 




TFM 


OPG 


t GAM 






04662 


16 


05976 


-2555 


19590 




S 


OPG 


,LOC D 2 






04674 


22 


05976 


05606 


19600 




TF 


DPTM2 


• DPT 






04686 


26 


07142 


07137 


19610 




SM 


0PTM2 


t 2 






04698 


12 


07142 


-0002 


19620 


EFAl P 


SH 


WA 2 


, 1 






04710 


12 


07084 


-0001 


19630 




TO 


MA 


j WA2 


,611 




04722 


25 


0693L 


0708M 


19640 




CF 


WA 




.6 




04734 


33 


0693L 


00000 


1^650 




SM 


WA 


,2 






04 746 


12 


06933 


-0002 


19660 




c 


WA2 


,FM1MF 






04758 


24 


07084 


0331 3 


19670 




BH 


EF ALP 








04770 


46 


04710 


01 100 


19680 




TFM 


WA 


,00 


• 610 




04782 


16 


0693L 


000-0 


19690 




6NF 


EF CHKS 


•FAC-2 






04794 


44 


048 18 


02490 


19700 




TFM 


WA 


• 20 


• 610 




04806 


16 


0693L 


OOOKO 


19710 


EFCMKS 


TFM 


CKW 


,000 


• 9 




04818 


16 


06673 


00-00 


19720 




A 


CKW 


• LOCD 






048 30 


21 


06673 


05608 


19730 




A 


CKW 


.FAC 






04642 


2 1 


06673 


02492 


19740 




T F 


CHAR 


• CKW 






04854 


26 


07108 


06673 


19750 




s 


CHAR 


.F 






04866 


22 


07108 


02219 


19760 






WIDTH 


• LOC D 






04878 


24 


05715 


05608 


197 70 




BNL 


• ♦32 








04890 


46 


04922 


01 300 


19780 


ERF8ES 


TFM 


REFSW 


•ERFSE 






04902 


1 6 


04601 


-5226 


19790 




g 


BREFSW 








04914 


49 


05434 


00000 


19800 




DORG 


•—4 








04921 








198 10 




BD 


*♦ 36 


• FNH 


• 11 




04922 


43 


04958 


0331L 


19820 




TDM 


FLTEND-4 


,-1 






04934 


15 


03726 


OOOOJ 


19830 




TFM 


CHAR 


,-099 


• 9 




04946 


16 


07108 


00- 9R 


19840 




BNF 


WRTFS 


•RWEFSW 






04958 


44 


05106 


05953 


19850 








WRITE E TYPE. ASSEMBLE EXP IN GAM USING A MASK, 










19860 








THE CHAR ANO SIGN. MOVE LEFT GAM AND RIGHT GAM TO 










19870 








OUTPUT. THEN GO 


TO INSERT DECIMAL POINT 










19880 


WRTE 


S 


WIDTH 


fF 






04970 


22 


05715 


02219 


19890 




8L 


•♦32 




» t 


BRANCH IF F LARGER THAN EFF WIDTH 


04982 


47 


05014 


01300 


19900 


WRTE2S 


TFM 


REFSW 


!wRTE2 






04994 


16 


04601 


-4622 


19910 




B 


BREFSW 








05006 


49 


05434 


00000 


19920 




DORG 


•-4 








05013 








19930 




BO 


•♦36 


, FLTEND-4 






05014 


43 


05050 


03726 


19940 




S 


CHAR 


, WIDTH 






05026 


22 


07108 


05715 


19950 




BO 


ERF8ES 


.CHAR-2 






05038 


43 


04902 


07106 


19960 




TFM 


♦ ♦47 


• GAM 






05050 


16 


05097 


-2555 


19970 




A 


•♦35 


.WIDTH 






05062 


21 


05097 


05715 


19980 




A 


•♦23 


.WICTH 






05074 


21 


05097 


05715 


19990 




TF 


GAM 








05086 


26 


02555 


00000 


20000 




B 


WRTE2S 








05098 


49 


04994 


00000 


20010 




DORG 


•-4 








05105 








20020 


WRTFS 


TFM 


REFSW 


• WRTF 






05106 


16 


04601 


-4726 
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20030 




B 


BREFSW 








05U8 


49 


05434 


00000 


20040 




DORG 


•-4 








05125 








20050 


EFLOAT 


AM 


FAC 


,00 


.10, 


IS FAC ZERO 


05126 


11 


02492 


000-0 


20060 




BZ 


ZERFAC 






YES 


05138 


46 


03422 


01200 


20070 




TO 


99 


*,FAC 




STORE SIGN 


05150 


25 


00099 


02492 


20080 




CF 


FAC 








05162 


33 


02492 


00000 


20090 




TR 


BETA-9 


,FXH 


.11 




05174 


31 


02594 


0328L 


20100 




TF 


FAC-2 


,9SPF-l 


• • 


CLEAR FAC 


05186 


26 


02490 


02853 


20110 




TF 


SAVE 


,K 


. • 


CHAR « K 


05198 


26 


02565 


02221 


20120 




TFM 


•♦23 


, BETA-9 






05210 


16 


05233 


-2594 


20130 




BD 


♦ ♦44 


, DUMMY 




FIND HI ORD DIGIT 


05222 


43 


05266 


99999 


20140 




SM 


SAVE 


• 01 


• 10. 


ADJUST CHAR 


05234 


12 


02565 


000-1 


20150 




AM 


•-13 


.01 






05246 


11 


05233 


-0001 


20160 




6 


•-36 








05258 


49 


05222 


00000 


20170 




DORG 


• -3 








05266 








20180 




TR 


FNH 


,•-33 


• 611 




05266 


31 


0331L 


0523L 


20190 




TF 


• ♦35 


• FNH 


. » 


FIND AND CLEAR RECORD MARK 


05278 


26 


05313 


03313 


20200 




AM 


•♦23 


• 01 






05290 


11 


05313 


-0001 


20210 




BNR 


•-12 


•DUMMY 






05302 


45 


05290 


99999 


20220 




TDM 


•-1 


• 0 


• 6 




05314 


15 


0531L 


00000 


20230 




TO 


FACM 


•RECMK 


• • 


REPLACE RECORD MARK 


05326 


25 


02493 


02403 


20240 




TF 


BETA 


•ZERO- 74 


. t 


CLEAR BETA 


05338 


26 


02603 


02693 


20250 




B 


EN0R60 








05350 


49 


05382 


00000 


20260 




DORG 


•-3 








05358 








20270 


EN0R36 


TR 


FNH 


,FH 


• 611, 


LEFT SHIFT ONCE 


05358 


31 


0331L 


0330Q 


20280 




TDM 


FAC-i 


• 0 


• • 


SET LAST DIGIT TO ZERO. 


05370 


15 


02491 


00000 


20290 


EN0R60 


SF 


FNH 




• 6 




05382 


32 


0331L 


00000 


20300 




BD 


FINISH 


• FNH 


• 611. 


TEST LEAOING ZERO 


05394 


43 


0372L 


0331L 


20310 




SM 


SAVE 


1 1 


• 10, 


SUBT ONE FROM EXPONENT 


05406 


12 


02565 


000- 1 


20320 




B 


EN0R36 








05418 


49 


05358 


00000 


20330 




DORG 


•-4 








05425 








20340 


IC0N6 


B 


EF ALPH 


• 


.1 




05426 


4R 


04626 


00000 


20350 




DORG 


•-4 








05433 








20360 


BREFSW 


TFM 


MBASE+5 


•HTYPE^24 






05434 


16 


07398 


-4602 


20370 
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06673 


FIX 
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I OPT 
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DPG 
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00520 


DAEMON 


05598 


INPLUS 


05945 


0PTM2 


07142 


FLZER 


03760 


IORT 


00565 


DALONG 


05590 


IRB1NK 


04918 


OPT 


07137 


FLZ 


03351 


IOSR 


00554 


OATOUO 


06049 


ISPFMl 


03303 


OUOH 


02607 


FM1MF 


03313 


IROIG 


04882 


OAT INM 
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I TYPE 1 


04598 
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03783 
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04730 


DOFNON 


05606 


LDGDIG 
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FMFAC 


03452 
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04424 


OIOOOA 


03387 
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06390 
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04812 
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07154 


K2 


03820 


OKBUFF 


02404 


MASKEP 


05426 


EEXPM 


04940 
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05436 
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02221 


DKOATA 
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EEXP 


04952 


FMP 


04138 
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05736 


EEXP22 


04860 


MATRIX 


06334 


EF2SW 


04401 
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03358 
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02980 


EEXPAD 


04996 


MATRX2 


06418 


EFALP 


04710 


FNHM2 


03489 


LN2 


02887 


EFALPH 


04626 


MESERR 


02607 


EFCOM 


04600 


FNH 


03313 


LN4 


02918 


EFCHKS 


04818 
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EFOEC 


05048 


FP lMK 


03283 


LN8 
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EFEND2 


05232 
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03368 
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F 
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EFFIX 


04686 
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ODOREV 


05790 
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04632 
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04114 
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06034 
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OVFLOW 


03572 


EFMW 


04490 


FTYPE 


04534 
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05417 


EN0R36 


05358 


PROGST 


02226 


EFR01 


04598 


FXl 


02825 
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05307 


EN0R60 


05382 


RAOOIT 


05754 


EFRD2 


04630 


FX9 


02805 


MASK 


05425 


ENTA8S 


02323 


READEF 


04468 


EFWRT 


05028 


FXAl 


0*790 


MATSW 


05583 


ENTATN 


02313 


REAOIF 


05038 


EI 


02615 


FX A 


03878 


MAX2 


06037 


ENTCOS 


02303 


REPSW3 


05585 


ENOO 


03688 


FXDl 


04882 


MAX 


05924 


ENTDED 


02298 


RETARG 


07358 


ENTLN 


02248 


FXDRl 


04964 


MBASE 


07393 


ENTDRR 


02293 
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07370 


ERF7A 


05166 


FXOR 


03998 


MDATA 


07377 


ENTEXP 


02253 


RWEFSW 


05953 
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05050 


FXO 


03974 


MF 


03666 


ENTFET 


02283 


100MK 


03293 


ERF7S 


04654 
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03596 


MU 


03632 


ENTFID 


02273 


102MF 
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ERF8E 


05226 
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03283 


Nl 
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02278 
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ERF8I 
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F2 
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ROALP 


05914 
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04020 


TOFAC 


03408 
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05715 


STZERO 


06239 


ROA 


05122 


RWA2 


05670 


TRACE 


03496 


WRITE 
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SWCADJ 


06044 


RDFCH 


04828 


RWA 


05562 


TRFX 


03558 


WRTA2 


05334 
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05194 


READA 


05026 


SAVE 


02565 


TWOPI 


03103 


WRTA 


05290 


WIDTH2 


05956 


REAOI 


04990 


SHORT 


05622 


TW02 


03073 


WRTE2 


04622 


WRITEA 


05242 


RECIP 


06232 


SIX 


03219 


UNFLO 


03466 


WRTE 


04970 


WRITEI 


04446 


RECLG 


02243 


SLASH 


06492 


WA2 


07084 


WRTF 


04726 


WRITI 1 


04598 


RECMK 


02403 


START 


03851 


WA3 


04601 


WRTFS 


05106 


WRTALP 


05550 


REDOA 


06T62 


STOP 


02395 


WACD1 


05538 


WRTI2 


04654 


WRTE2S 


04994 


REDO 


06718 


swc 


05982 


WACO 


04330 


WRTI3 


04862 


WRTFPC 


05050 


REFSW 


04601 


SWF 


05661 


WAFX 


05354 


WRTI 


04690 


WRTFPE 


05018 


REP2 


06890 


SWL 


05934 


HAPT1 


05518 


W 


02240 


WRTSGN 


04826 


REP3 


06922 


TAFE 


02535 


WAPT 


04306 


XTYPE 


07046 


ZERFAC 


03422 


REP 


06818 


TAN6 


03248 


MA 


06933 


ZEROM 


03445 






REPSW 


05582 


TEN34 


03278 


WATY1 


05498 


ZERO 


02767 






RSGM1 


04984 


TERM 


06785 


MATY 


04282 


SLASH2 


06524 







END OF ONE ASSEMBLY. 
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1620 FORTRAN II-O SUBROUTINES 



SET 4 



00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 



10RBC 

IOPT 

IOSK 

IOGT 

ERRET 

IORT 

IOCAL 

MONCAL 

010 



F 
K 

PROGST 

COMAOD 

Nl 

N2 

M 

RECLG 

ENTLN 

ENTEXP 

ENTSC1 

ENTSC2 

ENTSC3 

ENTFIO 

ENTREC 

ENTFET 

ENTSWD 

ENTORR 

ENTOEO 

ENTCOS 

ENTSIN 

ENTATN 

ENTSQT 

ENTABS 



00390 
00400 ••••• 



1620 FORTRAN II-D SUBROUTINES WITH FLOATING POINT HARDWARE 
IORT ENTRY POINTS AND CONTANTS 
»520 
,532 
,554 
.566 
,602 
,565 
,716 
,796 
,816 

1620 FORTRAN II-D IN CORE AREAS 
COMMUNICATION AREA 
DORG 2218 

OS 2,, FLOATING POINT WORD LENGTH 
2,, FIXED POINT WORO LENGTH 
5,, STARTING ADORESS OF MAINLINE PROGRAM 
5,, STARTING ADDRESS OF COMMON AREA 
2,, NUMBER OF WORDS IN LOGICAL RECORD 
5,, NUMBER OF LOGICAL RECORDS 
2,i WORO LENGTH 
3,, RECORD LENGTH 

5,, ENTRY ADDRESS TO LOG SUBROUTINE 
5,, ENTRY ADORESS TO EXPONENTIAL SUBROUTINE 
5,, ENTRY ADDRESS TO SINGLE SUBSCRIPT SUBROUTINE 
5,, ENTRY ADDRESS TO DOUBLE SUBSCRIPT SUBROUTINE 
5,, ENTRY ADDRESS TO TRIPLE SUBSCRIPT SUBROUTINE 
5,, ENTRY ADDRESS TO FIND SUBROUTINE 
5,, ENTRY ADDRESS TO RECORO SUBROUTINE 
ENTRY ADDRESS TO FETCH SUBROUTINE 
ENTRY ADDRESS TO SWITCH D SUBROUTINE 
ENTRY ADDRESS TO ARRAY SUBROUTINE 
ENTRY ADORESS TO DISK END SUBROUTINE 
ENTRY ADORESS TO COSINE SUBROUTINE 
ENTRY ADDRESS TO SINE SUBROUTINE 
ENTRY ADORESS TO ARCTANGENT SUBROUTINE 
5,, ENTRY ADDRESS TO SQUARE ROOT SUBROUTINE 
5,, ENTRY ADDRESS TO ABSOLUTE SUBROUTINE 
70,, RESERVED FOR ENTRIES TO ADDED SUBROUTINES 
COMMON WORKING AREAS 



5., 
5,, 
5,, 
5,, 
5,, 
5,, 
5, 



00520 
00532 
00554 
00566 
00602 
00565 
00716 
00796 
00816 



02218 
02219 
02221 
02226 
02231 
02233 
02238 
02240 
02243 
02248 
02253 
02258 
02263 
02268 
02273 
02278 
022B3 
02288 
02293 
02298 
02303 
0230B 
02313 
0231B 
02323 
02 393 



2 
2 
5 
5 
2 
5 
2 
3 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
70 



00410 


STOP 


OAC 


5, STOP* 




02 395 


5 






STOP 


i 






00420 


RECMK 


OS 




,STOP*B 


02403 


0 


00430 


DKBUFF 


OSS 


29 




02404 


29 


00440 


FAC 


OS 


60 




02492 


60 


00450 




DC 
* 


I 


• * 


02493 


1 


00460 


SAVE 


OS 


72 




02965 


72 


00470 


BETA 


OS 


38 




02603 


38 


00480 




OGM 






02604 


1 


00490 


GAM 


OS 




•SAVE-10 


02555 


0 


00500 


TAFE 


OS 




.SAVE -30 


02535 


0 


00510 


IMSA 


OS 




•BETA -28 


02575 


0 


00520 


MESERR 


DAC 


6.ER E • 




02607 


6 






ER E 


i 








00530 


OUDH 


OS 




.MESERR 


02607 


0 
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1620 FORTRAN II-D SUBROUTINES SET 4 



PAGE 



2 



0 
70 

40 

40 

0 
20 



10 
10 
10 



31 

0 
31 

31 

31 

31 

30 

32 

0 
2 

29 

30 

30 

30 

28 

28 

29 

30 



5 X 1 

68 9 



1620 FORTRAN II-D SUBROUTINES SET 4 PAGE 3 













03263 


-2493 


00870 


FP1MK 


DS 


,FXH 




03263 


0 


00880 


99MK 


DC 5 


,99 




03268 


5 






-0099 










00890 


100MK 


DC 5 


,100 




03293 


5 






-0100 










00900 


IMSAPF 


DSA IMSA 






03298 


5 












03296 


-2575 


00910 


ISPFMl 


DSA IMSA-1 






03303 


5 












03303 


-2574 


00920 


FH 


DSA F AC 






03306 


5 












03308 


-2492 


00930 


FNH 


DSA FAC-1 






03313 


5 












03313 


-2491 


00940 


FM IMF 


DS 


, FNH 




03313 


0 


00950 


96MF 


DC 5 


,96 




03318 


5 






-0096 










00960 


97MF 


DC 5 


.97 




03323 


5 






-0097 










00970 


98MF 


DC 5 


,96 




03328 


5 






-0098 










00980 


POT 


DC 5 


,99 




03333 


5 






-0099 










00990 


HMD 


DC 5 


.100 




03338 


5 






-0100 










01000 


102MF 


DC 5 


• 102 




03343 


5 






-0102 










01010 


FLZALP 


DSA ZERO-78 






03348 


5 












03348 


-2069 


01020 


Fll 


DSA ZERO-80 






03353 


5 












03353 


-2667 


01030 


FNHM1 


DSA FAC-2 






03350 


5 












03356 


-2490 


01040 


97M2F 


DC 5 


,97 




03363 


S 






-0097 










01050 


LNENT 


DC 5 


,56 




03366 


5 






-0056 










01060 


EXPERT 


DC 5 


,12 




03373 


5 






-0012 










01070 


PAR 


DS 5 


,»*§ 




NO OF ELEMENTS IN MATRIX TO PROCESS 03376 


5 


01080 




OS 5 






03376 


5 


01090 


OKOATA 


OSC 2 


,00 




03379 


2 






00 










01100 




DSA DIODOA 






03385 


5 












03365 


-3387 


OHIO 




DC 1 






03386 


1 


01120 


DIODOA 


OSC I 


.0 




03367 


1 



00540 
00550 
00560 
00570 

00560 

00590 
00600 

00610 
00620 

00630 

00640 

00650 
00660 

00670 
00680 

00690 

00700 

00710 

00720 

00730 

00740 
00750 



El 
DUO 
• •••• 



ZERO 
9SCPF 

• ••«• 

FX9 

FXZ 
FX1 

9SPF 
LN2 

LN4 

INS 

LN10 

LUGE 

ONEZ 



00760 TWOZ 

00770 TWOPI 

00780 PI 

00790 PI0V2 

00800 PI0V4 

00810 SIX 

00820 TAN6 

00830 TEN34 

00840 ••••• 
00850 •••*• 
00860 FXH 



OS ,«-2 

OS 70 

1620 FORTRAN II-D FLOATING POINT CONTANTS 
OC 40 ,0 

-ooooooooooooooooooooooooooooooooooooooo 

OSC 40 fO 

0000000000000000000000000000000000000000 
DS ,• 

DC 28 ,9999999999999999999999999999 
R 999999999999999999999999999 

1620 FORTRAN 11-0 FIXEO POINT CONTANTS 
DC 10 ,9999999999 
R 999999999 

DC 10 ,0000000000 
-000000000 

DC 10 ,0000000001 
-000000001 

CONSTANTS FOR RELOCATABLE SU6R0UTINES 
DC 31 .0 

-000000000000000000000000000000 
DS ,«-2 

DC 31 ,0693147180559945309417232121458 

-693147180559945309417232121458 

DC 31 ,1386294361119890618834464242916 

J386294361 119890618834464242916 

DC 31 ,2079441541679835928251696364375 

K079441 54167983592825 1696364375 

DC 31 ,2302585092994045684017991454684 

K30258509299404568401 7991454684 

OC 30 ,434294481903251827651128918917 

M 3429^48 190 325 1 82 765 11 2891891 7 

DC 32 ,10000000000000000000000000000000 

JOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

DS 

DC 2 ,01 

DC 29 ,20000000000000000000000000000 
KOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

DC 30 ,628318530717958647692528676656 

028 318530717958647692528676656 

DC 30 ,314159265358979323846264338328 

L 14159265358979323846264338328 

DC 30 ,157079632679489661923132169164 

J 5 70 7963267948966 192 31 32 169 164 

DC 28 ,7853981633974483096156606458 

P85398 163397448 30961 56608458 

DC 28 ,6000000000000000000000000000 

0000000000000000000000000000 

DC 29 ,54041950027058415544357836461 
N404 195002 70584 1 5544357836461 

DC 30 ,218776162394955256222611491638 
Kl 8 776162394955256222611491638 

1620 FORTRAN II-D INDIRECT ADDRESS 80XES AND MODIFIED 
CONSTANTS (USING K AND F) 

DSA FAC*l 



02615 
02667 



02727 
02728 



02707 
02795 



02805 
02815 
02825 

02856 

02654 
02867 

02918 

02949 

02960 

03010 

03042 

03038 
03044 

03073 

03103 

03133 

03163 

03191 

03219 

03248 

03278 



1620 FORTRAN II -0 SUBROUTINES SET 4 
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01 1 30 




oc 


5 


• 0000 






03392 




5 








-0000 
















0 1 140 




oc 


3 


.000 






03395 




3 








-00 


















01 150 




OSA 


DKBUFF 








03400 




5 


X 1 
















03400 




-2404 








DC 


1 


1 1 






03401 




I 




_ 




1620 FORTRAN II-D 


IN CORE 


lUtiKuu i i nit a 














OS 


5 








03406 




5 




n i ion 

: * 




TFL 


F AC 


•TOFAC-l 


.11 




03408 


06 


02492 


0340P 






BB 










03420 




noooo 


00000 






OORG 


•-9 








03422 








J * Z. 




TFL 


FAC 


•FLZER 








_ 


02492 


03760 


ni 




B 


FINISMM 


,ZER0-94 






niAiA 


AO 


03724 


02673 






OS 


5 


• • 




Tcon lit uiic a a ot nc Tun tihcc c 


n?AA« 








01250 




05 


5 








03450 




5 




01260 


FMFAC 


TFL 


F MF AC- 1 


tFAC 


• 6 




03452 


06 


0345J 


02492 


012/0 




BB 










03464 


42 


00000 


00000 


n i )!n 




DDR G 


• -9 








O ^ AAA 










ci n 


TFL 


FAC 


♦FLZER 




CBD CI IIMCI TM CCVD 




06 




03760 


ni inn 




B 


ERXV*12 


•FAC-3 


■ • 


cap ic ci mt icon 
r*l la PL rl CCKU 


03478 


49 


03774 


02489 


01 HO 


2 


OS 


5 


f • 


• 


CAT MIMIIC t MIMIIC P 


03489 








01320 




OS 


5 








n^AQA 








P \ \ ^ 


TRACE 


TFL 


TRACE- 1 


f F AC 


. 6 










02492 


0 1 340 




BNC4 


FMFACM2 








n*«na 


47 










RCTY 


GAM- 1 


• 


• 2 




03520 


34 


2554 


00102 


ni un 
01360 




OC 


I 


• 1 


• •-4 




03527 




I 




ni !an 


G F 


J 

OS 




.•-5 


t 


nyyi MIMIIC OUC MlfclllC fun TTMCC C 


03526 




0 








BNF 


TRFX 


,FAC-l 


* . 


HQ A Mf U IE CIVCn ABCIIMFMT 


03532 


44 


03558 


02491 


ni *an 




WNTY 


FNH 


» 


.6 . 


Type ci nATIKin ABCIIMENT 
lire rLUA 1 I rt\a AHuUnCH 1 




38 


0331L 


00100 


n i i.nn 
0 1400 




BB 












42 


nnnnn 


nnnnn 


01410 




DORG 


• -9 
















0 1 420 


TRFX 


WNTY 


FXH 


t 


.6. 


tunc civen tariiMCuT 
TYPE rlXcD AKbUncNI 




_ 


0328L 


00100 


01^30 




BB 










03570 


A> 


nnnnn 


nnnnn 


0 1 440 




DORG 


•-9 








03572 








0 r, 


nuci rtu 

UVpLUW 


TFM 


FAC 


.0199 


t 8910 




nTtcIf 






0— JR9 


0 1460 


2FM I 


OS 


2 


.•-2 




Tun riycc c m t kii ic nuc 
TWO lined r HINUi UNfc 






5 




01470 


FKODD 


DS 


I 


»»-4 




r\ r- no k nnn i c inn yr cucki 
O r UK K UUU. 1 p ANU K tVcnl 


n^AA 








01480 




TF 


FAC-2 


.9SCPF 


* . 


SET RE5ULT TU ALL NINfcb 




26 






01490 


ERROR 


RCTY 


FINISH 




.6 








n»7>i 


nni n? 


0 I 500 




WATY 


MESERR 












njAnr 


00100 


01510 




B 


ENDD+12 








03620 


49 


03700 


nnnnn 

UUUUU 


01520 


MU 


BNF 


• ♦24 


• MU-1 




SET CORRECT SIGN ON FAC 


03632 




03656 


03631 


01530 




SF 


FAC 


• GAM 






03644 


32 


02492 


02555 


01540 


GM2F 


OS 




t • 


• 


GAMMA MINUS TWO TIMES F 


03655 




0 




01550 




TDM 


FXERR+25 


.02009 


.79. 


RESET ERROR EXIT 


03656 


15 


03621 


-2-09 


01560 


MF 


DS 


2 


.•-I 




MINUS F 


03666 




2 




01570 


FP2 


DS 


2 


.•-3 




F PLUS TWO 


03664 




2 




01580 




TFM 


FXERR+30 


.ENDD*12 






03668 


16 


03626 


-3700 


01590 


FIXEND 


BB 










03680 


42 


00000 


00000 


01600 




DORG 


•-3 








03688 








01610 


FXERR 


OS 




.ERROR 






03596 




0 




01620 


ENDD 


TF 


FAC 


. SAVE 


» . 


MOVE EXPONENT 


03688 


26 


02492 


02565 
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1620 FORTRAN II 


-D SUBROUTINES SET 4 








PAGE 


01630 




BNF 


• ♦24 


.99 




SET PROPER SIGN 


03700 


44 


03724 


00099 


01640 




SF 


FAC-2 


,EN00 






03712 


32 


02490 


03686 


01650 


FINISH 


DS 




»• 






03723 




0 




01660 


FLTEND 


DS 




,FINISH^7 




03730 




0 




01670 




BB 










03724 


42 


00000 


00000 


01680 




DORG 


•-4 








03731 








01690 




DC 


28 


,0 






03758 




28 








-000000000000000000000000000 












01700 


FLZER 


DC 
RR 


2 


,-99 






03760 




2 




01710 


ERXV 


BNF 


• ♦24 


.FAC 






03762 


44 


03786 


02492 


01720 




AM 


EI 


.0101 


.8910 


.ERR CODE « ERR CODE ♦ I 


03774 


11 


02615 


O-J-l 


01730 


FM I 


DS 


2 


.•-2 




F MINUS ONE 


03783 




2 




01740 




RCTY 


FMFAC+12 








03786 


34 


03464 


00102 


01750 




WATY 


MESERR 








03798 


39 


02607 


00 1 00 


01760 




B 


ERXVOO 




.6 




03810 


49 


0379K 


00000 


01770 




DORG 


• -4 








03817 








01780 


F2 


DC 


2 ,0 








03818 




2 




01790 


K2 


-0 
DC 


2 .0 








03820 




2 




01800 


DUMMY 


-0 
DS 




,99999 






99999 




0 




01810 


START 


OS 




.03851 






03851 




0 




01820 




1620 FORTRAN II-D 


ALL SUBR IN CORE 










01830 




1620 FORTRAN II-D 


ALL SUBR IN CORE - SECONDARY LINKAGE 










01840 




OORG 


START 








03851 








01850 




DS 


3 








03853 




3 




01860 


FIX 


CM 


FAC 


.00 


.10, 


IS CHAR POSITIVE 


03854 


14 


02492 


000-0 


01870 




B 


FIXl 








03866 


49 


10562 


00000 


01880 


FXA 


A 


FAC 


•FXA-1 


.11 




03878 


21 


02492 


0387P 


01890 




B 


FXA1 








03890 


49 


10754 


00000 


01900 


FXS 


S 


FAC 


.FXS-1 


.11 




03902 


22 


02492 


0390J 


01910 




B 


FXA1 








03914 


49 


10754 


00000 


01920 


FXSR 


BNF 


FXSR102 


• FAC 


. . 


CHANGE SIGN ON FAC 


03926 


44 


10800 


02492 


01930 




B 


FXSRl 








03938 


49 


10768 


00000 


01940 


FXH 


M 


FAC 


•FXH-l 


• 11 




03950 


21 


02492 


0394R 


01950 




B 


FXM1 








03962 


49 


10820 


00000 


01960 


FXO 


LD 


99 


• FAC 


. . 


FAC ■ FAC/J 


03974 


28 


00099 


02492 


01970 




8 


FXDl 








03986 


49 


10B44 


00000 


01980 


FXOR 


LD 


99 


•FX0R-1 


.11. 


FAC • J/FAC 


03998 


28 


00099 


0399P 


01990 




8 


FXOR I 








04010 


49 


10926 


00000 


02000 




DORG 


•-1 








04020 








02010 


RSGN 


BNF 


RSGN 1+40 


•FAC-l 






04020 


44 


10988 


02491 


02020 




B 


RSGN1 


i 


• B 




04032 


49 


10948 


0-000 


02030 




OORG 


•-1 








04042 








02040 


FLOAT 


AM 


FAC 


• 00 


.10* 


IS FAC ZERO 


04042 


11 


02492 


000-0 


02050 




B 


FL0AT1 








04054 


49 


11028 


00000 


02060 


FSB 


FSUB 


FAC 


•FSB-l 


.11 




0406* 


02 


02492 


0404N 


02070 




6 


PAD! 








0407B 


49 


1131* 


00000 


02080 


FAD 


FAOD 


FAC 


iFAD-1 


• 11 




04090 


01 


02492 


040811 


02090 




B 


FAOl 








04101 


49 


1131* 


00000 


02100 


FSBR 


BNF 


FSBR 1*32 


• MC-2 


• • 


CHANGE SIGN ON FAC 


04114 


44 


11380 


02490 


02110 




8 


FSBR I 








0412* 


49 


11348 


00000 


02120 


FMP 


TFM 


EI 


• ITS 


.9, 


SET UP ERR E3 CODE 


041 SB 


I* 


02*15 


00*73 


02130 




B 


FMPl 








04150 


49 


11400 


00000 


02140 


FD 


TFM 


EI 


• 57* 


.9* 


SET UP ERR E5 CODE 


041*2 


1* 


02*15 


00N75 
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02190 




8 


FOl 












04176 


49 


11432 


00000 


02160 


FOVR 


TFL 


SAVE 


»FAC 










04186 


06 


02565 


02492 


02170 




6 


FDVR1 












04198 


49 


11512 


00000 


02 180 


FIXI 


TF 


I MSA 


•FIXI-1 


• U« 


IMSA 


• I 




04210 


26 


02575 


0420R 


02190 




B 


FIXIl 












04222 


49 


11544 


00000 


02200 


F AX I 


TF 


IMSA 


,FAXI-1 


.11, 


IMSA 


• I 




04234 


26 


02579 


0423L 


02210 




B 


FAXU 












04246 


49 


11974 


00000 


02220 


FAX 8 


TFL 


TAFE 


•FAXB-l 


.11* 


LOAD 


B 




04258 


06 


02535 


0425P 


02230 




B 


FAXB1 












04270 


49 


12412 


00000 


02240 


• ••• 






WRITE ALPHAMERIC 
















02250 


MATY 


TF 


SWF 


•WATY-l 










04282 


26 


05861 


04281 


02260 




8 


WA TY 1 












04294 


49 


05498 


00000 


02270 


WAPT 


TF 


SWF 


•WAPT-l 










04306 


26 


05861 


04305 


02280 




8 


WAPT1 












0431B 


49 


05518 


00000 


02290 


WACO 


TF 


SWF 


,WACD-l 










04330 


26 


05861 


04329 


02 300 




8 


WACD1 












04342 


49 


05538 


00000 


02310 


• ••• 






REAO ALPHAMERIC 
















02320 


RATY 


TF 


SWF 


tRATY-i 










04354 


26 


05861 


04353 


02330 




B 


RATY 1 












04366 


49 


05862 


00000 


02340 


RAPT 


TF 


SWF 


tRAPT-1 










04378 


26 


05861 


04377 


02350 




B 


RAPT I 












04390 


49 


05882 


00000 


02360 


RACD 


TF 


SWF 


•RACD-1 










C4402 


26 


05861 


04401 


02370 




B 


RACD1 


» 


• 6 








04414 


49 


05902 


o-ooo 


02380 




DORG 


• - 1 












04424 








02390 


I TYPE 


AM 


SWF 


.3 










04424 


1 1 


05861 


-0003 


02400 




B 


I TYPE1 




»8 








04436 


49 


09646 


0-000 


02410 




DORG 


• - 1 












04446 








02420 


WRITE I 


TFM 


WA 


tGAM+2 










04446 


16 


06933 


-2557 


02430 




B 


WR ITI 1 


t 


• 8 








04458 


49 


10138 


0-000 


02440 




OORG 


»- 1 












04468 








02450 


RE ADEF 


BNF 


EF RD2* 


12.L0C 










04468 


44 


08686 


05981 


02460 




B 


EF RD1 




,8 








04480 


49 


08642 


0-000 


02470 




DORG 


*- 1 












04490 








02480 


EFMW 


TF 


FlTEND 


, IC0N6*6 










04490 


26 


03730 


05480 


02490 




6 


EFMW1 


f 


.8 








04502 


49 


091 82 


0-000 


02500 




DORG 














04512 








02510 


A TYPE 


AM 


SWF 


.3 










045 12 


1 1 


05861 


-0003 


02520 




B 


ATYPE 1 


t 


• 8 








04524 


49 


08706 


0-000 


02530 




DORG 


1 












04534 








02540 


• ••• 






MACRO FOR 


F TYPE 


READ 


AND 


WRITE 










02550 


F TYPE 


CF 


RWEFSW 












04534 


33 


05953 


00000 


02560 




B 


EF COM 




.8 








04546 


49 


07138 


0-000 


02570 




DORG 


•-1 












04556 








02580 


• 






MACRO FOR 


E TYPE 


REAO 


AND 


WRITE 










02590 


ETYPE 


SF 


RWEFSW 












04556 


32 


05953 


00000 


02600 


WA3 


DS 


5 


• • 


» 


TEMP 


STORE FOR ZERO INSERT AODRESS 


04567 




5 




02610 




B 


EFCOM 


f 


,8 








04568 


49 


07138 


0-000 


02620 




DORG 


•-1 












04578 








02630 


HTYPE 


AM 


SWF 


• 3 










04578 


11 


05861 


-0003 


02640 




8 


HTYPE 1 












04590 


49 


08402 


00000 


02650 




DORG 


• -4 












04597 








02660 


• •••• 


1620 FORTRAN 11-0 


ALL SUBR IN 


CORE 


- SUBROUTINES 










02670 


WRTE2 


TR 


GAM* I 


t MASK 










04598 


31 


02556 


05401 


02680 




BD 


ERF BE 


•CHAR-2 










04610 


43 


05202 


07106 


02690 




TD 


GAM+8 


• CHAR 










04622 


25 


02563 


07108 


02700 




TO 


GAM*6 


•CHAR- 1 










04634 


25 


02561 


07107 
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02710 




BNF 


• ♦24 


.CHAR 










04646 


44 


046 70 


07108 


02720 




TOM 


GAM*3 


• 2 










04658 


15 


02558 


00002 


02 730 




TF 


TERM 


,GAM*2 




• 6 






04670 


26 


0678N 


02557 


02740 




TR 


OPT 


» DPG 




• 611 






04682 


31 


0713P 


05970 


02750 




8 


WEF OEC 












04694 


49 


05170 


00000 


02760 




DORG 


»-4 












04701 








02770 








3 CASES 


FOR 


WRITING F TYPE, CHAR IS EXP-LOCD-F 










02780 








CHAR IS 


NEG 


, EXP 


IS NEG 












02790 








CHAR IS 


NEG 


• EXP 


IS POSITIVE (WRTFPE) 












02800 


•••••• 






CHAR IS 


POS 


ITIVE 


(WRTFPC) 












02810 


WRTF 


TR 


GAM* I 


• MASK EPW 








04702 


31 


02556 


05409 


02820 




80 


F ZERO 


•FLTEND 


-4 








04714 


43 


04950 


03726 


02830 




80 


ER F8 E 


•CHAR-2 










04726 


43 


05202 


07106 


02840 




CM 


CKW 


• 000 




• 9 






04738 


14 


06673 


00-00 


02850 




BNH 


F ZERO 












04750 


47 


04950 


01100 


02860 




C 


CKW 


•WIDTH 










04762 


24 


06673 


05715 


02870 




BH 


ER F8 E 












04774 


46 


05202 


01100 


02880 




TF 


CHAR 2 


• CHAR 










04 786 


26 


06708 


07108 


02890 




A . 


CHAR 2 


• CHAR 










04798 


21 


06708 


07108 


02900 




BNF 


WRTFPC 


• CHAR 










04810 


44 


05026 


07108 


02910 




TFM 


•♦35 


• GAM 










04822 


16 


04857 


-2555 


02920 




A 


•♦23 


•CHAR 2 










04834 


21 


04857 


06708 


02930 




TF 


GAM 












04846 


26 


02555 


00000 


02940 




BNF 


WRTFPE 


• FAC 










04856 


44 


04994 


02492 


02950 




TF 


LAST 


•GAM* 2 




• 6 






04870 


26 


05730 


02557 


02960 




TF 


DPTM2 


• GM2F 




• 611. 


SET SIGN LEFT OF OEC 


PT 


04882 


26 


0817L 


0365N 


02970 




If 


WA 3 


• DPT 










04894 


26 


04567 


07137 


02980 


FNCNEZ 


AM 


WA3 


• 2 






INSERT ZERO FROM DEC 


PT TO 


04906 


11 


04567 


-0002 


02990 




BD 


WEF DEC 


• WAS 




flit 


FIRST NON ZERO DIGIT 


ON RIGHT 


04918 


43 


05170 


0456P 


03000 




TFM 


WA3 


• 70 




• 610 






04930 


16 


0456P 


OOOPO 


03010 




3 


FNCNEZ 












04942 


49 


04906 


00000 


03020 




OORG 


•-4 












04949 








03030 


FZERO 


TFM 


0PTM2 


• 70 




• 610, 


F TYPE OUTPUT EQUALS 


ZERO 


04950 


16 


0817L 


OOOPO 


03040 




TF 


CHAR 2 


•LOCD 2 










04962 


26 


06708 


05606 


03050 




TOM 


CHAR-2 


• 0 




• 11 






04974 


15 


07106 


0000- 


03060 




B 


CLR70S- 


12 










04986 


49 


05122 


00000 


03070 




OORG 


•-4 












04993 








03080 


WRTFPE 


TF 


DPTM2 


• DPG 




• 611 






04994 


26 


0817L 


05970 


03090 




TR 


OPT 


• DPG 




• 611 






05006 


31 


071 3P 


05970 


03100 




B 


WEF DEC 












05018 


49 


05170 


00000 


03110 




DORG 


• -4 












05025 








03120 


WRTFPC 


TF 


•♦30 


• TERM 










05026 


26 


05056 


06785 


03130 




S 


• ♦18 


•CHAR 2 










05038 


22 


05096 


06708 


03140 




TF 




•GAM +2 










05050 


26 


00000 


02557 


03150 




TF 


CLR70S*30*TfR« 










05062 


26 


05164 


06785 


03160 




C 


CHAR 


• LOCO 










05074 


24 


07108 


09608 


03170 




BNL 


CLR 70S 












05086 


66 


09134 


01300 


03180 




A 


DPG 


• CHAR 2 










05096 


21 


09976 


06708 


03190 




TR 


OPT 


• DPG 




• 611 






05110 


31 


0713P 


03970 


03200 




TF 


CLR70S*30,LASY 










05122 


26 


09164 


09736 


03210 


CLR70S 


TFM 


• ♦35 


•MASK F 










05134 


16 


09169 


-3413 


03220 




A 


•♦23 


•CHAR 2 










05146 


21 


09169 


06706 


03230 




TF 


TERM 






• 6 






05158 


26 


0678N 


00000 


03240 


WEFDEC 


TFM 


OPT 


• 03 




• 610 






05170 


16 


071 3P 


000-3 


03250 




TFM 


LAST 


• 00 




• 610 






05162 


16 


09730 


000-0 


03260 




B 


8 SWF 












051*4 


49 


09826 
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03270 




OORG 


•-4 






05201 








03280 


ERF86 


TR 


DUD H*2l#FL2ERS-57 






05202 


31 


02628 


06270 


03290 




TR 


GAM* I »MA$K 


1 1 


MOVES E*00 ALPHAMEAICALLY 


05214 


31 


02556 


05401 


03300 




TO 


GAM* 8 t F AC 






05226 


25 


02563 


02492 


03310 




TO 


GAM+6 tFAC-1 






05238 


25 


02561 


02491 


03320 




TFM 


GAM*3 ,451 


.9 




05250 


16 


02558 


00M51 


03330 




BNF 


•♦24 ,FAC 






05262 


44 


05266 


02492 


03340 




TDM 


GAM+3 ,2 






05274 


15 


02558 


00002 


03350 




TR 


DUD M+l3fGNlM2F 


til 




05286 


31 


02620 


03520 


03360 




TF 


DUO M+12,DUD H*14 






05298 


26 


02619 


02621 


03370 




TFM 


DUO H*14,03 


tlO 




05310 


16 


02621 


000-3 


03380 


ERCOM 


CM 


DAT INH*2 ,08 


tlO 




05322 


14 


06059 


000-8 


03390 




TFM 


El+Z ,67800 


• » 


SETS ERROR F 8 ERASES REC MARK 


05334 


16 


02617 


07800 


03400 




BL 


ER COM 2 




05346 


47 


07078 


01300 


03410 




TF 


DATDUD+2 ,0ATINH*2 






05358 


26 


06051 


06059 


03420 




TFM 


IORT ,»*23 






05370 


16 


00565 


-5393 


03430 




B 


I OPT .DATDUO-4 


iT 




05382 


49 


00532 


-6045 


03440 




B 


ERC0M2 






05394 


49 


07078 


00000 


03450 




.)ORG 


• -4 






05401 








05460 








MASKS 










03470 


MASK 


DSC 


10 ,451070700 


t 




05401 




10 








451070700* 














03480 


MASKEP 


DS 


,MASK*1 






05402 




0 




03490 


MASKF 


DAC 


3 1 , 000000000000000000000000000000 • 


05413 




31 


X 2 






000000000000000000000000000000 • 










03500 


MASK I 


DS 


,MASKF*39 






05452 




0 




03510 


1C0N6 


B 


EF ALPH , 


il 




05474 


4R 


09206 


00000 


03520 




DORG 


♦ -3 






05482 








03530 


IC0N5 


B 


EFRD 2 , 


il 




0548? 


4R 


08674 


00000 


03540 




DORG 


♦ -3 






05490 








03550 


IC0N3 


B 


WRT 12 , 


.1 




05490 


4R 


10194 


00000 


03560 




DORG 


♦-3 






05498 








03570 


WATY1 


TFM 


MAX ,0687 


,8 




05498 


16 


05924 


0-687 


03580 




B 


WRTALP 






05510 


49 


05550 


00000 


03590 




DORG 


• -3 






05518 








0 3600 


WAPTl 


TFM 


MAX ,0887 


.8 




05518 


16 


05924 


0-887 


03610 




B 


WRTALP 






05530 


49 


05550 


00000 


03620 




DORG 


•-3 






05538 








03630 


WACD1 


TFM 


MAX ,1080 


,8 




05538 


16 


05924 


0J080 


0 3640 


WRTALP 


TDM 


RWEFSW ,1 


♦ i 


COMMON FOR EACH WRITE 


05550 


15 


05953 


00001 


03650 


RWA 


TF 


DAT INH*2 ,MAX-2 


t t 


INITIALIZATION FOR EACH RO OR WRITE 


05562 


26 


06059 


05922 


03660 




SF 


MAX-l 






05574 


32 


05923 


00000 


03670 


REPSW 


DS 


2 ,»-3 






05582 




2 




03680 


MATS id 


DS 


1 ,«-2 


, ♦ 


SET TO 1 WHEN MATRIX HAS CONTROL 


05583 




1 




03690 


REPSW 3 


DS 


2 ,• 






05585 




2 




03700 




TFM 


• -1 ,00000 


.711 




05586 


16 


05585 


-000- 


03710 




TOM 


SWL+l ,2 






05598 


15 


05935 


00002 


03720 


LOCO 


DS 


2 ,»-l 


♦ LOC 


OF DECIMAL AS SPEC BY FORMAT 


05608 




2 




03730 


L0CD2 


DS 


2 ,»-3 


i 


TWICE LOC D 


05606 




2 




03740 




TFM 


ME SERR + 8 ,679 


,9 




05610 


16 


02615 


00079 


03750 




TFM 


MAX2 ,INH 






05622 


16 


06037 


-6063 


03760 




A 


MAX2 ,MAX 






05634 


21 


06037 


05924 


03770 




A 


MAX 2 , MAX 






05646 


21 


06037 


05924 


03780 






CONTINUATION OF 


RWA. ALSO USED AFTER EACH OUTPUT 










03790 






RECORO NOT 


TERMINATED BY COMPLT MACRO 










0J8O0 




TFM 


LAST ,INH 






05658 


16 


05736 


-6063 
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03810 


RWA2 


TDM 


COMPSW 


,-l 




05670 


15 


05678 


OOOOJ 


03820 


COMPSW 


DS 




,•-3 


,-1 PROHIBITS, 0 REQUIRES OUTPUT 


05678 




0 




03830 




TR 


INH-1 


•STZERO*! 


05682 


31 


06062 


06240 


03840 




TR 


INH+86 


.SUERO 




05694 


31 


06149 


06239 


03850 




CM 


MAX-2 


,06 


,10 


05706 


14 


05922 


000-6 


03860 


WIDTH 


DS 


3 


.•-2 


, NO. OF EFF. DIGITS IN FIELD 


05715 




3 




03870 




BNE 


• ♦24 






05718 


47 


05742 


01200 


03880 




RCTY 








05730 


34 


00000 


00102 


03890 


LAST 


OS 


5 


.•-5 


, AOR OF RM AT END OF VARIABLE OUT REC 


05736 




5 




03900 




BD 


BSWF 


, RWEFSW 




05742 


43 


05826 


05953 


03910 


RAOOIT 


TFM 


IORT 


,•♦23 




05754 


16 


00565 


-5777 


03920 




B 


IOGT 


.OATINH- 


4 ,7 


05766 


49 


00566 


-6053 


03930 




CM 


MAX-2 


,06 


• 10 


05778 


14 


05922 


000-6 


03940 




BNE 


• ♦24 




,, ALLOWS GOOF SWITCH FOR RATY 


05790 


47 


05814 


01200 


03950 




BC4 


•-72 






05802 


46 


05730 


00400 


03960 




TDM 


FLT END 


-5,2 




05814 


15 


03725 


00002 


03970 








CONTROLS 


POSITION IN FORMAT SPECS 










03980 


BSWF 


AM 


SWF 


,5 




05826 


11 


05861 


-0005 


03990 




TF 


• ♦18 


,SWF 


,11 


05838 


26 


05856 


0586J 


04000 




B 


SWF 


t 


,6, BR TO ADR INDICATED BY FORMAT SPEC. 


05850 


49 


0586J 


00000 


04010 


SWF 


OS 


5 


, • 




05861 




5 




04020 


RATY1 


TFM 


MAX 


,0687 


,8 


05862 


16 


05924 


0-687 


04030 




B 


RDALP 






05874 


49 


05914 


00000 


04040 




DORG 


• -3 






05882 








04050 


RAPT 1 


TFM 


MAX 


,0867 


,8 


05882 


16 


05924 


0-887 


04060 




B 


ROALP 






05894 


49 


05914 


00000 


04070 




DORG 


•-3 






05902 








04080 


RACDl 


TFM 


MAX 


,1080 


.8 


05902 


16 


05924 


0J080 


04090 


RDALP 


TDM 


RWEFSW 


,0 




05914 


13 


05953 


00000 


04100 


MAX 


DS 


4 


,•-1 




05924 




4 




04110 




B 


RWA 






05926 


49 


05562 


00000 


04120 




DORG 


•-4 






05933 








04130 


•••••• 


SWL IS A 


TRINARY SWITCH USEO TO BRANCH TO THE PROPER SOURCE 










04140 


•••••• 


TO OBTAIN 


THE LOCATION THAT GOES WITH THE FORMAT MACRO 










04150 




BEING PERFORMED 


BB FOR OBJECT FROGRAM 










04160 










NOP FOR REOO CONTROL 










04170 










B FOR MATRIX CONTROL 










04180 


SWL 


NOP 


MATRX 2 






05934 


41 


06418 


00000 


04190 


INPLUS 


DS 


5 


• • 


• WORKING POSITION OF I/O RECORO 


05945 




5 




04200 




TDM 


SWL+1 


.9 


•• MATRIX CONTROL SETS SWL TO 49 


05946 


15 


05935 


00009 


04210 


RWEFSW 


DS 


1 


• •-4 


• 1 FOR WRT, 0 FOR RO, FLAG FOR E 


05953 




1 




04220 


WIDTH2 


DS 


3 


.•-1 




05956 




3 




04230 




60 


SW012 


,MATSW 




0595B 


43 


05994 


05583 


04240 




NOP 








05970 


41 


00000 


00000 


04250 


DPG 


DS 


5 


• •-3 


• TEMP ADR OF OEC FT IN GAMMA 


05976 




5 




04260 


LOC 


DS 


5 


• • 


•• CORE LOCATION TO BE USED 


05981 




5 




04270 


•••••• 






AFTER LOC 


AOR OBTAINED BR TO PROPER MACRO 










04280 


SMC 


TOM 


SWLM 


• 2 




05982 


15 


05933 


00002 


04290 




BO 


• ♦20 


•RWEFSW 


•i BR IF WRITING 


01994 


43 


04014 


05951 


04100 




B 


SMC AO J 


• 


• ft 


06006 


49 


0604M 


00000 


04510 




DORG 


•-4 






06013 








04320 




TOM 


COMFIM 


• 0 


•• SIT TO REQUIRE OUTPUT 


06014 


If 


03678 


00000 


043J0 




CF 


LOC 






06026 


33 


03981 


00000 


04340 


MAX2 


DS 


5 


• • 


• TMICI MAXIMUM CHAR FOR OUTPUT 


06037 




3 




04330 




8 








06036 


49 


00000 


00000 


04360 


SWCAOJ 


DS 






•• RETURN ADD OF MACRO IN CONTROL 


06044 




0 
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04 370 




OORG 


•-4 










06045 








04380 


DATOUD 


OSA 


OUOH 










06049 






X 1 


















06049 




-2607 




04390 




OC 


3 


tOO* 








060 52 




3 




04400 


DATINM OSA 


INM 










06057 




5 


X I 


















06057 




-6063 




04410 




DC 


3 


1 00 • 








06060 




3 




04420 




-0* 

DC 


1 


tO 








06061 




I 




04430 


ENDFOR 


DAC 

0 


1,0 










06063 




\ 


X 2 


04440 


I NM 


OS 




, ENDFOR 








06063 




o 




04450 




OS 


1 74 










062 37 




1 74 




04460 


IN 


OS 


1 76 


# INM* 174 








06237 




1 76 




04470 


ST ZERO 


DC 
-0 


2 


t oo 








06239 




2 




04480 




00 




t 


,0246810 






06240 


-0 


-0-0- 


0-0-0 


04490 




00 




• 


,0246810 






06252 


-0 


-o-o- 


0-0-0 


04500 




00 






,0246810 






06264 


-0 


-o-o- 


o-o-o 


04510 




00 




» 


,0246810 






06276 


-0 


-0-0- 


0-0-0 


04520 




00 




* 


. 0246A 1 0 

, Uft TOO 1 1/ 








-0 






04530 




00 






.0746AI 0 








-0 


ZnZnZ 


o~o~o 


04540 




00 






n 7 <t a a t n 








-0 


ZnZnZ 
-0- 0- 


o—o-o 


04550 




DC 
-0 


2 


00 








lis 




2 




04560 


FL ZERS 


DC 


2 


















04570 




OS 


5 










063 32 




5 




04580 


MATRIX 


TDM 


MATSW 


, 1 


,, MACRO 


TO PROCESS MATRICIES 


06 334 


1 5 


05583 


00001 


04590 




TOM 


S WL ♦ 1 


, 9 










1 5 




00009 


04600 




TF 


LOCAOJ 


»FP2 








06358 


26 


06 390 


03664 


04610 




BNF 


MATRX2-1 


2* MATR I X-l 








06370 


44 






04620 




TFM 


LOCADJ 


1 00 


,10 






06382 


16 


06390 


000-0 


04630 


LOCADJ 


DS 


2 


t »- 3 


, , ADJUST LOC FOR 


MATRIX 










04640 




S 


LOCAOJ 


»K 












■ion 




04650 




s 


MATR I X- 1 


t LOC AO J 










33 






04660 


MATRX2 


A 


MAT R I X- 1 


t LOC AO J 


,, RETURN FROM SWL, 


EACH MATRIX ELEMENT 










04670 




TF 


LOC 


.MATRI X-l 


,, MOVE 


ADJUSTED 


LOCATION 


: 




ncaa i 

. ,.?! 


° 

unfit i 


04680 




SM 


PAR 


,1 


,10 






06442 


12 






04690 




BNE 


• ♦24 










06454 


4 7 


064 78 


01200 


04 700 




TDM 


MATSW 


.0 










ilk 




UQUU0 


04710 




BNL 


SWC* 12 












7* 


05994 




04720 




88 












nA&on 




nnnnn 
uuuuu 


nnf\nf\ 
uuuuu 


04730 




DORG 


•-> 


















04740 




MACRO FOR 


AN I/O CARRIAGE RETURN 


DURING A 


FORMAT STATEMENT 










04750 


SLASH 


TOM 


COME NO* I 


.9 








06492 


15 


06657 


00009 


04760 




BO 


SLASH2 


•RWEFSW 


,, BR IF 


WRITING 




06504 


43 


06524 


05953 


04770 




B 

DORG 


COME NO 










06516 


49 


06656 


00000 


04780 




• -4 










06523 








04790 


SLASH2 


BO 


I OCR 


,COMP SW 


,, BR TO 


10 CR IF 


OUTPUT RECORD BLANK 


06524 


43 


06664 


05678 


04800 




CM 


DATINH*2 


,06 


.10 






06536 


14 


06059 


000-6 


04810 




BH 


WRITE 


# 


,, BR IF 


NOT TYPEWRITER OUTPUT 


06548 


46 


06632 


01100 



1 
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04820 




TF 


LAST 


•FLZERS 


»6 




06560 


26 


05730 


06327 


04830 




SM 


LAST 


,02 


,10, 


ERASE BLANKS FROM END OF I/O RECORD 


06572 


12 


05736 


000-2 


04840 




Cm 


LAST 


,00 


,610 


06584 


14 


05730 


000-0 


048 50 




BE 


• -36 








06596 


46 


06560 


01200 


04860 




CM 


LAST 


VINH 






06608 


14 


05736 


-6063 


04870 




BL 


COM END 








06620 


47 


06656 


01300 


04880 


WRITE 


TFM 


IORT 


,•♦23 






06632 


16 


00565 


-6655 


04890 




B 


IOPT 


.OATINH-4 ,7 




06644 


49 


00532 


-6053 


04900 


COMEND 


B 


RWA2-12 








06656 


49 


05658 


00000 


04910 




OORG 


*-4 








06663 








04920 


IOCR 


CM 


MAX-2 


,08 


,10 




06664 


14 


05922 


000-8 


04930 


CKW 


DS 


3 


t»-2 


• 


DEC SPEC PLUS CHAR OF ARG 


06673 




3 




04940 




BNL 


WRITE 








06676 


46 


06632 


01300 


04950 




B 


COMEND 








06688 


49 


06656 


00000 


04960 




DORG 


»-4 








06695 








04970 








MACRO TERMINATING I/O CONTROL 










04980 




DS 


3 








06697 




3 




04990 


COMPL T 


TOM 


COMEND* 1 


,2 






06698 


15 


06657 


00002 


05000 


CHAR 2 


DS 


3 


,•-1 


» 


TWICE MODIFIED CHARACTERISTIC 


06708 




3 




05010 




B 


SLASH* 12 








06710 


49 


06504 


00000 


05020 




DORG 


• -4 








06717 








05030 


REDO 


BO 


REOO A*24,MAT SW 






06718 


43 


06786 


05583 


05040 




TO 


REDOA+23 


.COMPSW 






06730 


25 


06785 


05678 


05050 




TFM 


SWC AD J 


♦REOO A 


• • 


MACRO PERMITS REDOING BACK TO { 


06742 


16 


06044 


-6762 


05060 




B 


SWL 








06754 


49 


05934 


00000 


05070 




DORG 


#-4 








06761 








05080 


RE 00 A 


TOM 


SWL*1 


.1 


, » 


RETURN FROM SWL IF MORE DATA 


06 762 


15 


05935 


00001 


05090 




TDM 


COMPSW 


t 


t, VOID REDO USING SWC EFFECT ON COMPSW 


06774 


15 


05678 


00000 


05100 


TERM 


OS 


5 


»• 


t 


REFERENCE ADR IN I/O RECORD 


06 785 




5 




05110 




AM 


SWF 


• 5 






06786 


11 


05861 


-0005 


05120 




TP 


SWF 


,SWf 


,11 




06798 


26 


05861 


0566J 


05130 




B 


SLASH 








06810 


49 


06492 


00000 


05140 




DORG 


•-4 








06817 








05150 


«••••'» 




MACRO TO REPEAT 


FORMAT SPECS A SPECIFIC NO OF TIMES 








05160 


•»•••• 






SUB FROM 


REP SW 


l, INITIALLY SET TO ZERO 










05170 


• •••'•• 






IF REPSW 


NEC , 


SET TOREPS REQD AND REPEAT FORMAT 










05180 


••»•*• 






IF REPSW 


ZERO, 


LAST FORMAT REPETITION IS COMPLETE 










05190 


•••••• 




IF REPSW 


PLUS, 


STEP DOWN AND REPEAT FORMAT SPEC 










05200 


REP 


AM 


SWF 


,7 




CONTROL REPETITION OF FIELDS 


06818 


It 


05861 


-0007 


05210 




SM 


REP SW 


,1 


.10, 


06830 


12 


05582 


000-1 


05220 




BH 


REP 2 








06842 


46 


06890 


01100 


05230 




BE 


BSWF 








06854 


46 


05826 


01200 


05240 




A 


REP SW 


,SWP 


• U 




06866 


21 


05582 


0586J 


05250 




BNH 


BSWF 








06878 


47 


05626 


01100 


05260 


REP2 


SM 


SWF 








06890 


12 


05861 


-0002 


05270 




TF 


SWF 


,SMf 


ill 




06902 


26 


05861 


0S66J 


05280 




8 


SWF-23 








06914 


49 


05638 


00000 


05290 




OORG 


•-4 








06921 








05300 


REP3 


SF 


REPSW3-1 








06922 


32 


05564 


00000 


05310 


WA 


OS 


5 






WORKING AREA AOR REF TO FAC OR GAM 


06913 




5 




05320 




AM 


SWF 


.7 


• 10 




06934 


II 


05661 


000-7 


05330 




SM 


REPSW 3 


a 


• 10 




06946 


12 


09585 


000-1 


05340 




BH 


REP 2 








06958 


46 


06890 


01100 


05350 




BE 


BSWF 








06970 


46 


05626 


01200 


05360 




A 


REPSW 3 


, SWF 


• 11 




06982 


21 


05585 


05 66 J 


05370 




8 


REP 2-12 








06994 


49 


06876 


00000 
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05310 




D0R6 


•-4 






07001 








05390 


ERF9 


TFM 


SWC AO J 


»EA COM 2 


» • 


MACRO FOR ERROR P4 WHEN WRITING 07002 


16 


06044 


-7071 


09400 




TF 


LAST 


tMAX 2 




07014 


26 


05736 


06037 


05410 




TFM 


El 


• 474 


t9 


07026 


16 


02615 


00079 


05420 




B 


SWL 






07031 


49 


05934 


00000 


05450 




DORG 


•-4 






07045 








05440 


XTVPE 


AM 


SMF 


.3 


t • 


MACRO FOR SKIPPING FIELDS 07046 


U 


05161 


-0003 


05450 




A 


LAST 


• SWF 


• 11 


07051 


21 


05736 


0516J 


05460 




8 


BSNF 






07070 


49 


05126 


00000 


05470 




DORG 


•-4 






07077 








054S0 


ERC0M2 


RCTV 








07071 


34 


00000 


00102 


05490 


WA2 


OS 


5 


.•-5 


• 


WORKING AREA AOR REF TO FAC OR GAM 07014 




5 




05500 




WATV 


DUDH 






07090 


39 


02607 


00100 


05510 




RCTV 








07102 


34 


00000 


00102 


05520 


CHAR 


OS 


5 


• •-5 


i 


M00IF1E0 CHARACTERISTIC 07101 




5 




05530 




TR 


Em 


•FLZERS-1 


• t 


RESTORES RECORD MARK 07114 


31 


02616 


06326 


05540 




B 


BSWF-12 






07126 


49 


05114 


00000 


05550 


DPT 


OS 


5 




t 


TEMP LOC OF OEC FT IN OUTPUT RECORD 07137 




5 




05560 


EFCOH 


AM 


SWF 


• 3 




07131 


11 


05161 


-0003 


05570 




TF 


WIDTH 


• SWF 


• U 


07150 


26 


05715 


0586J 


05580 




AM 


SWF 


• 2 




07162 


11 


05161 


-0002 


05590 




TF 


LOC D 


,SWF 


ill 


07174 


26 


05608 


0586J 


05600 




TF 


INPLUS 


• LAST 




07186 


26 


05945 


05736 


05610 




TF 


WIDTH 2 


•WIDTH 




07198 


26 


05956 


05715 


05620 




A 


WIDTH 2 


•WIOTH 




07210 


21 


05956 


05715 


056 JO 




A 


LAST 


•WIDTH2 




07222 


21 


05736 


05956 


05640 




C 


LAST 


• MAX 2 




07234 


24 


05736 


06037 


05650 




BH 


ER F9 






07246 


46 


07002 


01100 


05660 




TF 


TERM 


• LAST 




07251 


26 


06785 


05736 


05670 




SM 


TERM 


• 2 




07270 


12 


06785 


-0002 


05680 




TF 


CHAR 


•WIDTH 




07282 


26 


07108 


05715 


05690 




TF 


WA 


• FNH 




07294 


26 


06933 


03313 


05700 




TDM 


97 


.0 




07306 


15 


00097 


00000 


05710 




TFM 


99 


• 00 


.10 


07318 


16 


00099 


000-0 


05720 




BD 


EF WRT 


•RWEFSW 




07330 


43 


07514 


05953 


05730 




TF 


FAC 


•FLZALP 


.11 


07342 


26 


02492 


0334Q 


057*0 




TFM 


EFTERM+11 


I.EF TYPE 




07354 


16 


08240 


-7702 


05750 




TFM 


SWCADJ 


•READ EF 




07366 


16 


06044 


-4468 


05760 


ROFCM 


CM 


INPLUS 


• 00 


.610, 


ELIMINATE LEADING BLANKS 07378 


14 


0594N 


000-0 


05770 




BNE 


FCH NB 






07390 


47 


07458 


01200 


05780 




SM 


CHAR 


.1 


.10 


07402 


12 


07108 


000-1 


05790 




AM 


INPLUS 


• 2 




07414 


11 


05945 


-0002 


05800 




C 


INPLUS 


• LAST 




07426 


24 


05945 


05736 


05810 




BL 


RD FCH 






07438 


47 


07378 


01300 


05820 




B 


EFEND+12 






07450 


49 


08258 


00000 


05830 




DORG 


• -4 






07457 








05840 


FCHNB 


CM 


INPLUS 


• 20 


• 610, 


PROCESS FIRST NON BLANK CHARACTER 07458 


14 


0594N 


OOOKO 


05850 




BE 


EF MIN 






07470 


46 


07678 


01200 


05860 




CM 


INPLUS 


• 10 


.610 


07482 


14 


0594N 


OOOJO 


05870 




BE 


EF PLUS 






07494 


46 


07690 


01200 


05880 




B 


EFTYPE+36 




07506 


49 


07738 


00000 


05890 




DORG 


• -4 






07513 








05900 


EFWRT 


C 


LOC D 


• F 




07514 


24 


05608 


02219 


05910 




BNH 


• ♦24 






07526 


47 


07550 


01100 


05920 




TF 


LOC D 


• F 




07538 


26 


05608 


02219 


05930 




TF 


LOCO 2 


• LOC D 




07550 


26 


05606 


05608 



699 
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J 



05940 




A 


LOCD 2 


. LOC D 




07562 


21 


05606 


05608 


05950 




TR 


GAM-59 


, MASK F-l 




07574 


31 


02496 


05412 


05960 




TFM 


WA 


.GAM 




07586 


16 


06933 


-2555 


05970 




TFM 


WA2 


.FAC-l 




07598 


16 


07084 


-2491 


05980 




TFM 


SWCADJ 


.EFMW 




07610 


16 


06044 


-4490 


05990 




SM 


WIDTH 


• 2 


.10 


07622 


12 


05715 


000-2 


06000 




BNF 


SWL 


, RWEFSW 




07634 


44 


05934 


05953 


06010 




SM 


TERM 


• 8 




07646 


12 


06785 


-0008 


06020 




SM 


WIDTH 


• 4 


.10 


07658 


12 


05715 


000-4 


06030 




B 


SWL 






07670 


49 


05934 


00000 


06040 




DORG 


• -4 






07677 








06050 


EFMIN 


SF 


99 






07671 


32 


00099 


00000 


06060 


EFPLUS 


SM 


CHAR 


.1 


• 10 


07690 


12 


07108 


000-1 


06070 


EFTYPE 


AM 


INPLUS 


• 2 




07702 


11 


05945 


-0002 


06080 




CM 


INPLUS 


• 00 


.610 


07714 


14 


0594N 


000-0 


06090 




BE 


LDG DIG 






07726 


46 


01062 


01200 


06100 




CM 


INPLUS 


.70 


• 610 


07736 


14 


0594N 


OOOPO 


06110 




BH 


EF DIG 






07750 


46 


01162 


01100 


06120 




BE 


LDG DIG 






07762 


46 


08062 


01200 


06130 




CM 


INPLUS 


.03 


• 610 


07774 


14 


0594N 


000-3 


06140 




BE 


EF DEC 






07716 


46 


08094 


01200 


06150 




BNF 


ERRF7 E 


•RWEFSW 




07791 


44 


01370 


03953 


06160 




TFM 


EXP 


• 000 


.9 


07810 


16 


07131 


00-00 


06170 




TOM 


E EXPAD+1 


.1 




07122 


15 


01043 


00001 


06180 


EXP 


OS 


3 


• •-2 


, VALUE OF CALC CHAR FOR OUTPUT 


07131 




3 




06190 




CM 


INPLUS 


• 45 


• 410 


07134 


14 


0S94N 


000M5 


06200 




BE 


E EXP 






07146 


44 


07998 


01200 


06210 


EEXP2 


CM 


INPLUS 


.20 


• 610 


07151 


14 


0594N 


OOOKO 


06220 




BE 


E EXP M 






07870 


46 


07986 


01200 


06230 




CM 


INPLUS 


• 10 


• 610 


07112 


14 


0594N 


OOOJO 


06240 




BE 


E EXP 






07194 


44 


07998 


01200 


06250 


EEXP22 


BD 


• ♦24 


.97 




07904 


43 


07930 


00097 


06260 




SM 


CHAR 


• 1 


.9 


07911 


12 


07101 


00-Oi 


06270 




C 


INPLUS 


• TERM 




07930 


24 


05945 


06785 


06280 




BNL 


EEXPAD-12 




07942 


44 


01030 


01300 


06290 




TO 


EXP-i 


• INPLUS 


• 11 


07934 


23 


07130 


0394N 


06300 




AM 


INPLUS 


• 2 




07944 


11 


05945 


-0002 


06310 




B 


EEXP22^12 




07971 


49 


07911 


00000 


06320 




OORG 


•-4 






07915 








06330 


EEXPM 


TOM 


E EXPAO+1 


• 2 




07914 


15 


01043 


00002 


06340 


EEXF 


AN 


INPLUS 


• 2 




07991 


11 


05945 


-0002 


06350 




SM 


CHAR 


.1 


• 10 


01010 


12 


07101 


000-1 


06360 




B 


E EXP 2 






01022 


49 


07151 


00000 


06370 




DORG 


•-4 






01029 








06310 




TO 


EXP 


•INPLUS 


• 11 


01030 


25 


07131 


0594N 


06390 


EEXPAO 


A 


CHAR 


•EXP 




01042 


21 


07101 


07131 


06400 




B 


EF END 






01054 


44 


01246 


00000 


06410 




DORG 


•-4 






01041 








06420 


LOGDIG 


INF 


EF DIG 


.91 




01042 


44 


01162 


00091 


06430 




SM 


CHAR 


• I 


• 10 


01074 


12 


07101 


000-1 


06440 




1 


EF TERM 






01014 


49 


01222 


00000 


06450 




DORG 








01093 








06460 


EFOEC 


10 


ERRF7 E 


.97 




01094 


43 


01370 


00097 


06470 




TFN 


LOC D 


.00 


• 10 


01104 


1* 


03401 


000-0 


06410 




TFM 


EFTERM* 11. IP PLUS 




01111 


16 


01240 


-7690 


06490 




TDM 


97 


.-I 




01130 


15 


00097 


OOOOJ 



700 
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SM 


CHAR 


• 1 


1 10 




OR 1 42 


12 


07108 


000- 1 


065 10 




8 


EF TERM 








08154 


49 


08222 


00000 


06520 




OORG 


•-4 








0S161 








06530 


cr 01 G 


CF 


98 








08162 


33 


00098 


00000 


06540 


DPTM2 


OS 


5 




• 


TEMP A OR OF DEC PT IN I/O REC, -2 


08179 




5 




06550 




CM 


MA 


tFAC-1 






08174 


14 


0*933 


-2491 


06560 




BNL 


• ♦36 


t 


i • 


TRUNCATES LOM ORDER DIGITS 


0818* 


4* 


08222 


01300 


06570 




TO 


MA 


t INPLUS 


.611 




08198 


29 


0693L 


0594N 


06500 




AM 


MA 


tl 






08210 


11 


0*933 


-0001 


06590 


EFTERM 


C 


INPLUS 


• TERM 






08222 


24 


05945 


06 765 


06600 




BL 


EFTYPE 








0823* 


47 


07702 


01300 


06610 


EFEND 


BNF 


EFEND2 


.FNH 


flit 


ZERO CHECK 


08246 


44 


08278 


0331L 


06620 




TFM 


FAC 


#99 


»iou 




08258 


I* 


02492 


OOORR 


06630 




B 


SML 








08270 


49 


0593* 


00000 


06640 




OORG 


• -3 








08278 








06650 


EFEN02 


S 


CHAR 


.LOC 0 






08278 


22 


07108 


05608 


06660 




BO 


ERR F7E 


.CHAR-2 






08290 


43 


08370 


07106 


06670 




SF 


CHAR-1 








08302 


32 


07107 


00000 


06680 




TF 


FAC 


.CHAR 






08314 


26 


02492 


07108 


06690 




SF 


FNH 


• 


t6 




0832* 


32 


0331L 


00000 


06700 




BNF 


SML 


.99 






08338 


44 


05934 


00099 


06710 




SF 


FAC-2 






08350 


32 


02490 


00000 


06720 




B 


SML 








08362 


49 


05934 


00000 


06730 




OORG 


• -4 








083*9 








06740 


ERRF7E 


TF 


FAC 


» FLZALP 


tilt 


F PLUS 2 ZEROS TO FAC 


08370 


2* 


02492 


03340 


06750 




TOM 


EI 




tilt 


SET ER FT INDICATION SMITCH 


08382 


15 


02615 


OOOOP 


06760 




B 


EFEND 








08394 


49 


08246 


00000 


06770 




OORG 


• -4 








08401 








06780 


• ••* 




MACRO FOR 


HOLLERITH TYPE READ AND MRITE 










06790 


HTYPE 1 


TF 


* I D TH2 


,SWF 


.11 




08402 


26 


05956 


0586J 


06800 




TF 


INPLUS 


.LAST 






08414 


26 


05945 


05736 


06810 




A 


LAST 


.WI0TH2 






08426 


21 


05736 


05956 


06820 




C 


LAST 


»MAX2 






08438 


24 


05736 


06037 


06830 




BNH 


• ♦32 








08450 


47 


08482 


01100 


06840 




A 


SMF 


f MIDTH2 






08462 


21 


05861 


05956 


06850 




8 


ER COM 2 








08474 


49 


07078 


00000 


06860 




OORG 


• -4 








08481 








06870 




BO 


HWRT 


•RMEFSW 






08482 


43 


08562 


05953 


06880 


HRD 


SM 


WIDTH 2 


• 2 


.10. 


READ H FROM 10 REC TO FORMAT RECORD 


08494 


12 


05956 


000-2 


06890 




BL 


BSWF 








08506 


47 


05826 


01300 


06900 




AM 


SWF 


• 2 






08518 


11 


05861 


-0002 


06910 




TF 


SWF 


. INPLUS 


.611 




08530 


26 


0586J 


0594N 


06920 




AM 


INPLUS 


.2 






08542 


U 


05945 


-0002 


06930 




B 


HRD 








08554 


49 


08494 


00000 


06940 




OORG 


*-4 








08561 








06950 


HMRT 


SM 


WIDTH 2 


.2 


1 10, 


MRITE H TO I/O REC FROM FORMAT REC 


08562 


12 


05956 


000-2 


06960 




TDM 


COMPSW 


.0 






08574 


15 


05678 


00000 


06970 




BL 


BSWF 








08586 


47 


05826 


01300 


06980 




AM 


SWF 


.2 






08598 


11 


05861 


-0002 


06990 




TF 


INPLUS 


. SMF 


,611 




08610 


26 


0594N 


0586J 


07000 




AM 


INPLUS 


.2 






08622 


U 


05945 


-0002 


07010 




B 


H WRT 








08634 


49 


08562 


00000 


07020 




DORG 


• -4 








08641 








07030 


EFRDl 


CF 


LOC 








08642 


33 


05981 


00000 


07040 




TF 


FIXEND*6 


•I CON 5*6 




08654 


26 


03686 


05488 


07050 




B 


FIX 








08666 


49 


03854 


00000 
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0 7060 


OORG 


• -4 






08673 








07070 EFRD2 


TDM 


F I XEND* 1 


L .2 




08674 


15 


03681 


00002 


07080 


TFL 


LOC 


» FAC ,6 




08686 


06 


0598J 


02492 


07090 


8 


ER F7 






06698 


49 


10098 


00000 


07100 


OORG 


• -4 






08705 














MACRO FOR A TYPE READ ANO MRITE 












07120 A TYPE 1 


TF 


WIDTH2 


» SWF ,11 




08 706 


26 


05956 


0586J 


07130 


TF 


INPLUS 


.LAST 




08 718 


26 


05945 


05736 


07140 


A 


LAST 


.WIDTH 2 




08 730 


21 


05736 


05956 


07150 


C 


LAST 


.MAX 2 




08 742 


24 


05736 


06037 


07160 


BH 


ER F9 






08 754 


46 


07002 


01100 


07170 


TF 


TERM 


.LAST 




08766 


26 


06785 


05736 


07180 


SM 


TERM 


.2 




08778 


12 


06785 


-0002 


07190 


TFM 


SMC AOJ 


, MRITE A 




08 790 


16 


06044 


-9050 


07200 


BD 


SWL 


.RW EF SW 




08802 


43 


05934 


05953 


07210 


TFM 


SWC AD J 


.READ A 




08814 


16 


06044 


-8834 


07220 


B 


SML 






08826 


49 


05934 


00000 


07230 


OORG 


• -4 






08833 








07240 READA 


CF 


INPLUS 


, ,6 




06834 


33 


0594N 


00000 


07250 


AM 


INPLUS 


,1 ,10 




08846 


11 


05945 


000-1 


07260 


C 


INPLUS 


, TERM 




08858 


24 


05945 


06785 


07270 


BL 


READ A 






08870 


47 


06834 


01300 


07280 


BNF 


RDAFL 


,LOC 




08882 


44 


08994 


05981 


07290 


CF 


LOC 






08894 


33 


05981 


00000 


07300 


TF 


LOC 


,FXZ ,6 




08906 


26 


0598J 


02815 


07310 


S 


MIDTH 2 


,K 




08918 


22 


05956 


02221 


07320 RDA 


8H 


ERF7A 






08930 


46 


08974 


01100 


07330 


A 


LOC 


, MIOTH 2 




08942 


21 


05981 


05956 


07340 


TF 


LOC 


, TERM ,611 




0895* 


26 


0598J 


0678N 


07350 


8 


ER F7 






08966 


49 


10098 


00000 


07360 


OORG 


•-4 






06973 








07370 ERF7A 


TOM 


EI 


,7 ,11. SET ER F7 ERROR IND AND SMITCH 


08974 


15 


02615 


OOOOP 


07360 


8 


ER F7 






06986 


49 


10096 


00000 


07390 


OORG 


•-4 






08993 








07400 RDAFL 


TFM 


LOC 


,00 .610 




08994 


16 


0598J 


000-0 


07410 


SM 


LOC 


.2 .10 




09006 


12 


05961 


000-2 


07420 


TF 


LOC 


,FLZ ,611 




09016 


26 


0598J 


0335L 


07430 


S 


MIOTH 2 


,F 




09030 


22 


05956 


02219 


07440 


B 


RO A 






09042 


49 


08930 


00000 


07450 


OORG 


• -4 






09049 








07460 MR I TEA 


TF 


FAC 


,LOC ,11 




09050 


26 


02492 


0598 J 


07470 


BNF 


MA FX 


.FAC-l 




090*2 


44 


09162 


02491 


07480 


SM 


LOC 


,2 




0907* 


12 


05981 


-0002 


07490 


S 


MIDTH 2 


,F 




09066 


22 


05956 


02219 


07500 MRTA 


BH 


MRTA 2 






09096 


** 


09142 


01100 


07510 


A 


LOC 


, MIDTH 2 




09110 


21 


05981 


05956 


07520 


TF 


TERM 


•LOC ,611 




09122 


26 


0678N 


OS 98 J 


07530 


8 


BSMF 






09134 


49 


05826 


00000 


07540 


OORG 


•-4 






09141 








07550 MRTA2 


SM 


MIOTH 2 


,02 ,10 




09142 


12 


05956 


000-2 


07560 


8 


MRTA 






0915* 


49 


09098 


00000 


07570 


DORG 


•-4 






091*1 








07560 MAFX 


S 


MIDTH 2 


»K 




091*2 


22 


05956 


02221 


07590 


• 


MRT A 






0917* 


49 


09096 


00000 


07600 


DORG 


•-4 






09161 














E ANO F TYPE MANTISSA MR! T ING, FLOAT AP 


M5 IF Rift* 
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07620 •••••• 

07630 •••••• 

07660 •••••• 

07690 •••••• 

07660 EFNW1 TFL 
07670 BNF 
07680 EFALPM TOM 
07690 TF 
07700 S 
07710 '*M 
07720 S 
07730 TF 
07740 SM 
07750 EFALP SM 
07760 TO 
07770 CF 
07780 SM 
07790 f 
07800 KH 
07810 TF H 

07820 BNF 
078*0 TFM 
07840 EFCHKS TFM 
07850 A 
07860 A 
0 78 70 TF 
07880 S 
07*H0 C 
0 7^00 BL 
07910 BD 
07920 TOM 
07930 TFM 
07940 BNF 
07950 •••••• 

07960 •••••• 

07970 •••••• 

07980 WRTE S 
07990 BNL 
08000 BO 

oeoio s 

08020 BD 

08030 TFM 

08040 A 

08050 A 

08060 TF 

08070 B 

08080 DORG 
08090 •••••• 

08100 ITYPEl TF 

08110 A 

08120 C 

08130 BH 

08140 TF 

08150 TFM 

08160 TFM 

08170 BD 



FAC 
FLOAT 
FLTEND- 
OPT 
OPT 
DPG 
OPG 
DPTM2 
DPTM2 
MA 2 
MA 
MA 
MA 
MA2 

6F ALP 
MA 

EF CHKS 
MA 
CKM 
CKM 
CKM 
CHAR 
CHAR 
MIDTH 
ER F8 E 
• ♦36 

FLTENO-4 
CHAR 
MR TF 



COMPUTE OEC PT IN GAM ANO OUTPUT RECORD. MOVE 
MANTISSA DIGIT BV DIGIT, RIGHT TO LEFT. FROM FAC 
TO GAM. INSERT SIGN, CHECK MIOTH, AND ZERO. 
BR TO MRT F FOR F TYPE CONTINUATION 
tlOC «U 
.FAC-l 
5 ,2 

• TERM 
tLOC 0 2 

• GAM 

•LOC 0 2 

• OPT 
.2 

• 1 

• HA2 



• 611 
.6 



• 2 

• FM1MF 

• 00 

•FAC-2 

.20 

.000 

• LOCD 

• FAC 

• CKM 
,F 

• LOC 0 



• 610 
.9 



WIDTH 
MRT E2 
•♦36 
CHAR 
ERF8E 

• ♦47 

• ♦35 

• ♦23 
GAM 
WRTE2 
•-4 

WIDTH2 
LAST 
LAST 
ER F9 
INPLUS 
IR DIG+6 
SMC AOJ 
SWL 



FNH ,11 

-I 

.-099 ,9 
•RMEFSM 

MRITE E TYPE. ASSEMBLE EXP IN GAM USING A MASK* 
THE CHAR ANO SIGN. MOVE LEFT GAM ANO RIGHT GAM TO 
OUTPUT. THEN GO TO INSERT DECIMAL POINT 

• F 

• •• BR IF F NOT LARGER THAN EFF WIDTH 
, FLTENO-4 

• WIDTH 
•CHAR-2 

• GAM 
•WIDTH 
•WIDTH 



MACRO FOR I 

• SWF , 
•WIDTH2 

• MAX2 

• LAST 

• FAC 

• WRITE I 
•RWEFSW 



TYPE READ AND WRITE 
11 



ftQ i of 










* 


04042 








03725 


nnnn? 


no5 1 a 








09230 


22 






09242 


16 




-2555 


09254 


22 


05976 


05606 




26 


nm \ W 






1 2 






no?on 






Aftrtl 


no* •» 




f 


0708M 


n »i 






uuuuu 


09326 


12 




—0002 




24 




03313 


09350 


46 


09290 


01 100 


09362 


16 


0693L 


000-0 


09374 




09398 


02490 


09386 


16 


0693L 


OOOKO 


09398 


16 


06673 


00-00 


09410 


21 


06673 


05608 


09422 


21 


066 73 


02492 


09434 


26 


07108 


06673 


09446 


22 


07108 


02219 


09456 


24 


05715 


05608 


09470 


47 


05202 


01 300 


09482 


43 


09518 


0331L 


094V4 


15 


03726 


OOOOJ 


09506 


16 


07108 


00-9R 


095 18 


44 


04702 


05953 


09530 


22 


05715 


02219 


09542 


46 


04598 


01300 


09554 


43 


09590 


03726 


09566 


22 


07108 


05715 


09578 


43 


05202 


07106 


09590 


16 


09637 


-2555 


09602 


21 


09637 


05715 


09614 


21 


09637 


05715 


09626 


26 


02555 


00000 








00000 


09645 








09646 


26 


05956 


0586J 


0965B 


21 


05736 


05956 


096 70 


24 


05736 


06037 


09682 


46 


07002 


01100 


09694 


26 


05945 


05736 


09706 


16 


09936 


-2492 


09718 


16 


06044 


-4446 


09730 


43 


05934 


05953 



7o ' 
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08180 




TF 


TERM 


, FPIMK 




08190 




TF 


FAC 


• FX2 




08200 




TFM 


SWC AOJ 


•READI 




08210 




CHAR BY CHAR IS MOVED INTI 


08220 




OR M CHAR 


ARE EXAMINED. 


08230 




ERROR F7 WILL OCCUR 


IF MOI 


08240 


IREAO 


SM 


WIDTH2 


.2 


.10 


08250 




BL 


SWL 






08260 




SM 


INPLUS 


• 2 




08270 




CM 


INPLUS 


.70 


.610 


08280 




BH 


IR OIG 






08290 




BE 


IR BLNK 






08300 




CM 


INPLUS 


• 00 


• 610 


08310 




BE 


IR BLNK 






08320 




CM 


INPLUS 


.20 


• 610 


08330 




BE 


I MINUS 






08340 




CM 


INPLUS 


.10 


• 610 


08350 




BE 


SWL 






08360 




b 


ERR F7I 






08370 




DORG 


• -4 






08380 


IRDIG 


TO 




•INPLUS 


• 11 


08390 




C 


•-6 


. TERM 




08400 




BL 


ERR F7 I 






08410 


IRBLNK 


SM 


IR 0IG^6 


• 1 




08420 




B 


I READ 






08430 




DORG 


•-4 






08440 


IMINUS 


SF 


FAC 






08450 




B 


SWL 






08460 




OORG 


•-4 






08470 


ERRF7I 


TF 


FAC 


• FX2 




08480 




TFM 


EI 


• 677 




08490 




B 


SWL 






08500 




OORG 


•-4 






08510 


READI 


SF 


FPIMK 




.6 


08520 




TF 


FLT END 


IlCON 2+6 




08530 




BNF 


FLOAT 


• LOC 




08540 




CF 


LOC 






08550 


REAOIF 


TFL 


LOC 


• FAC 


.6 


08560 


ERF7 


BNF 


BSWF-12 


• EI 


t • 


08570 




CF 


EI 


t 


t • 


08580 




B 


ER COM 2 






08590 




OORG 


•-4 






08600 


IC0N2 


B 


READ IF 


• 


.1 


08610 




DORG 


•-4 







08620 •••••• 

08630 •••••• 

08640 •••••• 

08650 •••••• 

08660 •••••• 

08670 •••••• 

086B0 MR IT 1 1 

08690 

08700 

0B710 

0B720 

08730 



TFM 
TFL 
BNF 
TF 
B 



SET FIXED ZERO INTO FAC 
SET ERROR FT INDICATION 



BR IF NOT ERROR TYPE F7 
ERASE ERROR FT INDICATION 



RETURN FROM SML VIA SWC IF WRITING I TYPE 
VALUE PUT IN FAC IN I FORM, EXPANDED TO ALPHA IN 
GAMMA RIGHT TO LEFT. HO CONTAINS ADR OF HIGH ORDER 
DIGIT IN GAM. AFTER VALUE IN GAM IS S IGNEO, CHECKED 
FOR WIDTH, MOVE TO OUTPUT RECORO. 

ERFtI RESULTS IF VALUE TOO LARGE FOR FORMAT SPECS. 
MA2 ,FAC*1 
FAC .LOC ,11 

MRTI2*12 ,FAC-l 
FIXENO+6 • ICONS** 
FIX 



09742 


26 


06785 


03283 


09754 


26 


02492 


02815 


09766 


16 


06044 


J0038 


09778 


12 


05956 


000-2 


09790 


47 


05934 


01300 


09802 


12 


05945 


-0002 


09814 


14 


0594N 


OOOPO 


09826 


46 


09930 


01100 


09838 


46 


09966 


01200 


09850 


14 


0594N 


000-0 


09862 


46 


09966 


01200 


09874 


14 


0594N 


OOOKO 


09886 


46 


09986 


01200 


09898 


14 


0594N 


OOOJO 


09910 


46 


05934 


01200 


09922 


49 


10006 


00000 


09929 








09930 


25 


00000 


0594N 


09942 


24 


09936 


06785 


09954 


47 


10006 


01300 


09966 


12 


09936 


-0001 


0997B 


49 


09778 


00000 


09985 








09986 


32 


02492 


00000 


09998 


49 


05934 


00000 


10005 








10006 


26 


02492 


02815 


10018 


16 


02615 


0007P 


10030 


49 


05934 


00000 


10037 








10038 


32 


0328L 


00000 


10050 


26 


03730 


10136 


10062 


44 


04042 


05981 


10074 


33 


05981 


00000 


10086 


06 


0598J 


02492 


10098 


44 


05814 


02615 


10110 


33 


02615 


00000 


10122 


49 


07078 


00000 


10129 








10130 


4R 


10086 


00000 


10137 









10138 


16 


07064 


-2493 


10150 


06 


02492 


05 98 J 


10162 


44 


10206 


02491 


10174 


26 


03686 


05496 


10186 


49 


03854 


00000 


10193 









704 
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ob 740 


MR T 1 2 




tlvc kin a. l 


f 2 






10196 


19 


036*1 


00002 


06750 




TR 


GAM- 19 


tMASK I 






10206 


11 


02536 


05452 


08760 




TFM 


MO 


t GAM* 1 






10218 


I* 


10309 


-2556 


Si? II? 




VI 


■MA 2 


1 1 






10230 


12 


07084 


-0001 








MA 


• 2 






10242 


12 


06933 


-0002 






TO 


HA 


• MA 2 


• 611 




10254 


25 


0693L 


0708M 


08800 




80 


I 01 G 


• MA 2 


• 11 




10264 


43 


102** 


0708M 


08810 




8 


I DIG*12 








1027* 


49 


10298 


00000 


08820 




OORG 


•-4 








10285 








08830 


101 G 


TF 


HO 


• MA 






1028* 


26 


10309 


0*933 


08840 




CF 


GAM 


• 


it 


PREVENTS PREMATURE TERM. FOR MEG ARG 


10298 


33 


02399 


00000 


08890 


HO 


OS 


5 


• • 


i 


AOR OF HI OROER NON ZERO DIGIT 


10309 




9 




08860 




BNF 


WRTI 


• MA 


• 11 


10310 


44 


10230 


0493L 


08870 




CM 


HO 


•GAM* I 






10322 


14 


10309 


-2556 


08880 




BNE 


WRT SGN 








10334 


47 


10366 


01200 


08890 




TFM 


LAST 


,7000 


• 68 




10 346 


16 


05730 


OPOOO 


08900 




B 


8SWF 








10358 


49 


05826 


00000 


08910 




OORG 


•-4 








10365 








08920 


MRTSGN 


BNF 


WRT 13 


• FAC 






10366 


44 


10402 


02492 


08930 


SM 


HO 


• 2 






10378 


12 


10309 


-0002 


08940 




TFM 


HO 


• 20 


• 610 




10390 


16 


1030R 


OOOKO 


08950 


MR T I 3 


SM 


HO 


• 1 






10402 


12 


10309 


-0001 


08960 




TFM 


OUT 


iGAM 






10414 


16 


10473 


-2555 


08970 




S 


OUT 


»H0 






10426 


22 


10473 


10309 


08980 




C 


OUT 


, WIDTH 2 






10438 


24 


10473 


05956 


08990 




BH 


6R F8 I 








10450 


46 


10530 


01100 


09000 




SF 


OUT 








10462 


32 


10473 


00000 


09010 


OUT 


OS 


5 


»• 


. HI 


ORDER WKG AOR IN I/O RECORD, I TYPE 


10473 




5 




09020 




A 


OUT 


• LAST 






10474 


21 


10473 


05736 


090 30 




SM 


OUT 


• 2 






104B6 


12 


10473 


-0002 


09040 




TR 


OUT 


,H0 


,611 




10498 


31 


1047L 


1030R 


09050 




TFM 


LAST 


tOO 


• 610 




10510 


16 


05730 


000-0 


09060 




B 


BSWF 








10522 


49 


05826 


00000 


09070 




OORG 


•-4 








10529 








09080 


ERF8I 


TR 


DUD H*U 


.FLZERS- 


67 




10530 


31 


02618 


06260 


09090 




TR 


DUD H+ll 


,H0 


ill 




10542 


31 


02618 


1030R 


09100 




B 


ERCOM 








10554 


49 


05322 


00000 


091 10 




OORG 


•-4 








10561 








09120 




1620 FORTRAN II-D 
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09110 


fix I 


BP 


• ♦32 




1 1 


YES 


10562 


46 


10594 


01100 


09140 




TF 


FAC 


,FXZ 


» » 


NO 


10574 


26 


02492 


02815 


09150 




B 


FIXEND 








10566 


49 


03680 


00000 


09160 




DORG 


»-3 








10594 








09170 




TO 


MU-1 


, FAC-2 


1 1 


STORE SIGN 


10594 


25 


03631 


02490 


09180 




C 


FAC 


• K 


1 1 


IS CHAR GREATER THAN K 


10606 


24 


02492 


02221 


09190 




BNH 


• ♦44 






NO 


10618 


47 


10662 


01100 


09200 




TDM 


FXERR+25 


• 1 


1 1 


YES , SET ERR TYPE 


10630 


15 


03621 


0000 1 


09210 




TFM 


EI 


.579 


.9, 


SET ER E9, OVFL IN FIX 


10642 


16 


02615 


00N79 


09220 




B 


FXNINE+12 


:• 


1 1 


FAC » FX9 


10654 


49 


10908 


00000 






DORG 


• -3 








10662 








09240 




CF 


FAC -2 








10662 


33 


02490 


00000 


09250 




TF 


BETA 


.ZER0-51 


1 1 


CLEAR ADD AREA 


10674 


26 


02603 


02716 


09260 




TF 


I MSA 


• FXZ 






10686 


26 


02575 


02815 


09270 




TF 


• ♦30 


.IMSAPF 


i i 
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15000 








11470 




34 


B3 


,00701 






15000 


34 


15044 


00701 


1 1480 




38 


83 


,00702 






15012 


38 


15044 


00702 


1 1490 




36 


B3 


,00703 






15024 


36 


15044 


00703 


11500 




B 


022 








15036 


49 


15058 


00000 


11510 




DORG 


• -3 








15044 








11520 


B3 


DSC 


9 


•016840100 






15044 




9 





70 0 



016840100 



11540 

11550 



1620 FORTRAN 1 1 -D SUBROUTINES SET 4 



DSA STARTO 
TRA 

TCD 15000 



15057 



PAGE 
5 X 1 



15057 -3854 

15058 36 00000 00500 
15070 49 00000 00000 
15000 



710 







1620 FORTRAN 1 1 -0 


SUBROUTINES 


SET 4 






PAGE 


24 


ATYPE1 


08706 


LOGO! G 


08062 


EFWRT 


07514 


FXOl 


10846 


MF 


03666 


CLR70S 


05134 


LOCAO J 


06390 


EI 


02615 


FX0R1 


10928 


MU 


03632 


COMAOO 


02231 


MASKEP 


05402 


ENOO 


03688 


FXOR 


03998 


Nl 


02233 


COMENf) 


06656 


MATRIX 


06314 


ENTLN 


02248 


FXO 


03974 


HZ 


02238 


CONPIT 


06698 


MATRX2 


0641 8 


ERCOM 


05322 


FXERR 


03596 


NOOIV 


12288 


COMPSW 


05678 


MESERR 


02607 


ERF7A 


08974 


FXH 


03283 


01 WR 


12636 


DATDUD 


060'"* 


MONCAL 


00796 


ERF7 


10098 


FXM1 


10820 


ONE 2 


03038 


DAT I NH 


0605 i 


N0RM36 


1 1248 


ERF8E 


05202 


FXM 


03950 


OUT 


10473 


DIODOA 


03387 


NORM60 


1 1272 


ERF8I 


10530 


FXSR1 


10768 


OVFLO 


11480 


DKBUFF 


02404 


ODOREV 


11754 


ERF9 


07002 


FXSR 


03926 


PAR 


03378 


DKDATA 


03379 


QNEFAC 


11998 


ERRET 


00602 


FXS 


03902 


POT 


03333 


FEXP22 


07906 


OVFLOW 


03572 


ERROR 


03596 


FX2 


02815 


PI0V2 


03163 


EEXPAD 


08042 


PROGST 


02226 


ERXV 


03762 


FZERO 


04950 


PI0V4 


03191 


EFALPH 


09206 


RADOI T 


05754 


E TYPE 


04556 


GAM 


02555 


PI 


03133 


EFCHKS 


09398 


REAOEF 


04468 


EXP 


07831 


GM2F 


03655 


PSI 


11650 


FFEND2 


08278 


READIF 


10086 


F2 


03818 


HMO 


03338 


RAC01 


05902 


EFPLUS 


07690 


REPSW3 


05585 


FAC 


02492 


HO 


10309 


RACO 


04402 


EFTERM 


08222 


RWEFSW 


05953 


FADl 


11316 


HRD 


08494 


RAPT1 


05882 


EF TYPE 


07702 


100MK 


03293 


FAD 


04090 


HTYPE 


04578 


RAPT 


04378 


FNOFOR 


06063 


102MF 


03343 


F AXBl 


12412 


HWRT 


08562 


RATY1 


05862 


EN r AbS 


02 32 3 


2FMI 


03581 


FAXB 


04258 


IC0N2 


10130 


RATY 


04354 


ENTATN 


0231 3 


96MF 


03318 


FAXIl 


11974 


IC0N3 


05490 


RDAFL 


08994 


ENTCOS 


02303 


97M2F 


03363 


FAXI 


04234 


IC0N5 


05482 


RDALP 


05914 


ENTDEU 


02298 


97MF 


03323 


FCHNB 


07458 


IC0N6 


05474 


RDA 


08930 


EN TDRR 


02293 


98MF 


03328 


FDl 


11432 


IDIG 


10286 


RDFCH 


07378 


ENTEXP 


02253 


99MK 


03288 


FO 


04162 


IMSA 


02575 


READA 


08834 


ENTFET 


02283 


9SCPF 


02795 


F0VR1 


11512 


INH 


06063 


READI 


10038 


ENTFIO 


02273 


9SPF 


02854 


FDVR 


04186 


IN 


06237 


RECIP 


12196 


ENTREC 


02278 


ATYPE 


04512 


FH 


03308 


IOCAL 


00716 


RECLG 


02243 


ENTSC1 


02258 


AXJ 


12136 


F I X I 


10562 


IOCR 


06664 


RECMK 


02403 


ENTSC2 


0226 3 


83 


15044 


F I X I I 


11544 


IOGT 


00566 


REDOA 


06762 


ENTSC3 


02268 


BETA 


02603 


FIXI 


04210 


IOPT 


00532 


REDO 


06718 


ENTSIN 


02308 


BSWF 


05826 


FIX 


03854 


IORBC 


00520 


REP2 


06890 


ENTSQT 


02318 


CHAR2 


06708 


FKOOD 


03579 


IORT 


00565 


REP3 


06922 


ENTSWD 


02288 


CHAR 


07108 


FLOAT 


04042 


IOSK 


00554 


REP 


06818 


ERCUM2 


07078 


CKW 


06673 


FLZER 


03760 


IRDIG 


09930 


REPSW 


05582 


ERRF7t 


08370 


DIO 


00816 


FLZ 


03353 


IREAD 


09778 


RSGN1 


10948 


ERRF7I 


10006 


DPG 


05976 


FM1MF 


03313 


I TYPE 


04424 


RSGN 


04020 


EXPENT 


03373 


DPTM2 


08173 


FM1 


03783 


K2 


03820 


RWA2 


05670 


FINDIN 


03527 


DPT 


07137 


FMFAC 


03452 


K 


02221 


RWA 


05562 


FINISH 


03723 


DUDH 


02607 


FMPi 


11400 


LAST 


05736 


SAVE 


02565 


F I X E NO 


0 3680 


OUD 


02687 


F MP 


04138 


LN10 


02980 


SIX 


03219 


FLOAT I 


11028 


DUMMY 


99999 


FNHMl 


03358 


LN2 


02887 


SLASH 


06492 


FLTEND 


03 no 


EEXP2 


07858 


FNHM2 


03489 


LN4 


02918 


START 


03851 


FL Z ALP 


03348 


EEXPM 


07986 


FNH 


03313 


LN8 


02949 


STOP 


02395 


FLZERS 


06 32 7 


EEXP 


07998 


FPIMK 


03283 


LNENT 


03368 


SWC 


05982 


FNCNEZ 


04906 


E F ALP 


09290 


FP2 


03664 


L0CD2 


05606 


SWF 


05861 


FXNINE 


10896 


EFCOM 


07138 


F 


02219 


LOCO 


05608 


SWL 


05934 


GMIM2F 


03526 


EFDEC 


08094 


FSBR1 


11348 


LOC 


05981 


TAFE 


02535 


HTYPE I 


08402 


EFDIG 


08 162 


FSBR 


04114 


LOGE 


03010 


TAN6 


03248 


IMINUS 


09986 


EFEND 


08246 


FSB 


04066 


MASKF 


05413 


TEN34 


03278 


IMSAPF 


03298 


EFMIN 


07678 


FTYPE 


04534 


MASK I 


05452 


TERM 


06785 


INPLUS 


05945 


EFMW1 


09182 


FX1 


02825 


MASK 


05401 


TOFAC 


03408 


IRBLNK 


09966 


EFMW 


04490 


FX9 


02805 


MAT $W 


05583 


TRACE 


03496 


ISPFMl 


03303 


EFRD1 


08642 


FXA1 


10754 


MAX2 


06037 


TRFX 


03558 


I TYPE 1 


09646 


EFRD2 


08674 


FXA 


03878 


MAX 


05924 


TWOPI 


03103 
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1620 FORTRAN 1 1 -D 


SUBROUTINES 


SET 4 






PAGE 


25 


TWOZ 


03073 


WAPT 


04306 


WRTE2 


04598 


ZEROM 


03445 


WRITE I 


04446 


UNFLO 


03466 


WA 


06933 


WRTE 


09530 


ZERO 


02767 


WRITI 1 


10138 


WA2 


07084 


WATYl 


05498 


WRTF 


04702 


SLASH2 


06524 


WRTALP 


05550 


W A 3 


04567 


WATY 


04282 


WRTI2 


10194 


STZERO 


06239 


WRTFPC 


05026 


WACOi 


05538 


WIDTH 


05715 


WRTI3 


10402 


SWCAOJ 


06044 


WRTFPE 


04994 


wacd 


04330 


WRI TE 


06632 


WRTI 


10230 


WEFOEC 


05170 


WRTSGN 


10366 


WAF < 


09L62 


WRTA2 


09142 


W 


02240 


WIDTH2 


05956 


ZERFAC 


03422 


WAP T 1 


05518 


WR TA 


09098 


XTYPE 


07046 


WRITEA 


09050 







END OF ONE ASSEMBLY. 



1620 FORTRAN II-D LOADER BLOCK 1 



713 



1620 FORTRAN 



LOADER BLOCK 1 



00010 




OORG 


2426 


00020 


NAMBUF 


DC 


16,0 






-000000000000000 


00030 




oc 


2,' 


000*0 


OVRLAP 


OS 


1 


00050 


FLGRMK 


DS 


I 


00060 


AOOCOW 


DS 


5 


00070 


EQADDR 


OS 


5 


00080 


SCADDR 


DS 


5 


00090 


IOINO 


US 


1 


00100 


ML IND 


DS 


I 


001 10 


EXTIND 


DS 


1 


00120 


SECT 


OS 


3 


00130 


ZRQTST 


DS 


1 


00140 


ADOSVE 


DS 


5 


00150 




DC 


W 


00160 


LODOA 


ODA 


, I, 0,0, SUBTBL 






1-0000-00-2522 


00170 




DC 


It' 


00180 


SVEDOA 


DDA 


,1,0,21,0 






1-0000-21-0000 


00190 




DC 


It ' 


00200 


INCOOA 


OOA 


t 1* 0,10, SUBTBL 






1-0000-10-2522 


00210 




DC 


1.' 


00220 




DS 


1 


00230 


SU8TBL 


DSS 


1000 


00240 




DC 


12, • 






-0000000000' 


00250 




DORG 


7280 


00260 


OOAR 


DSS 


20 


00270 


COHS EC 


DSS 


100,, SYSTEM C 


00280 


INRK 


DSS 


100., READ 


00290 


SBPTBL 


DS 


, INRK 


00300 


• 






00310 


• 






00320 


• 






00330 


• 






00340 


• 






00350 


IORT 


DS 


,565 


00360 


IOGT 


DS 


,566 


00370 


IOPT 


DS 


.532 


00380 


MONCAL 


DS 


,796 


00410 




TFM 


IORT, •♦23, , ( 


00420 




B 


I0GT.F0R.7 


00430 


ML I N I T 


TFM 


TDIS*6.MTBL*U 


00440 


TOIS 


TDM 




00450 




DC 
* 


l.%« 


00460 




AM 


TDIS+6.20,10 


00470 


HSUE 


CM 


T0IS»6,MTBL*20 



IN AREA FOR INDICATOR RECORD 



GET BLOCK 2 

.. INITIALIZE MAINLINE TABLE 



02426 
02441 

02*43 

02*44 
02445 
02450 
02455 
02460 
02461 
02462 
02463 
02466 
02467 
02472 
02473 

02474 

02488 

02490 

02504 

02506 

02520 

02521 
02522 
0353) 

07280 
07280 
07300 
07400 
07400 



00565 
00566 
00532 
00796 
07500 



1000 
12 



20 
100 
100 

0 



16 00565 -7523 

07512 49 00566 J0268 

07524 16 07542 J0673 

07536 15 00000 00000 

07547 I 

07548 11 07542 OOOKO 
07560 14 07542 J1693 



71 'l 



1620 FORTRAN 1 1 -0 LOADER BLOCK 1 



PAGE 



2 



00480 




BL 


TOIS 


07572 


47 


07536 


01300 


00490 




TO 


SU8SET+llfC0MSEC*82tt INITIALIZE ADDRESS COUNTER 


07S84 


25 


07655 


07382 


00500 




CM 


SUBSETM1.4, 10 


07596 


14 


07655 


000-4 


00510 




BNH 


SUBSET 


07608 


47 


07644 


01100 


00520 




BTM 


EPRINT* 78,8 


07620 


17 


10196 


0-078 


00530 




TOM 


SU8SETUL1 


07632 


15 


07655 


00001 


005*0 


SUBSET 


AM 


•♦35, ,10 


07644 


11 


07679 


000-0 


00550 




TOM 


IOINO 


07656 


15 


02461 


00000 


00560 




BO 


TW0,0NETW0 


07668 


43 


07712 


13008 


00570 


ONE 


TFM 


ADDCOW, 7499 


07660 


16 


02450 


-7499 


00580 




TOM 


I0IND.1 


07692 


15 


02461 


00001 


00590 




B 


• ♦20 


07704 


49 


07724 


00000 


00600 




OORG 


•-3 


07712 








00610 


TWO 


TFM 


ADDCOW, 13999 


07712 


16 


02450 


J3999 


00620 


LODPRO 


TF 


ADOSVE * AOOCOW 


07724 


26 


02472 


02450 


00630 




AM 


AOOSVE, 1, 10 


07736 


11 


02472 


000-1 


00640 




TF 


FLOD+19, ADDCOW 


07748 


26 


12823 


02450 


00650 


START 


TF 


CCCNT,C0MSEC»75,, GET CONTROL CARD COUNT 


07760 


26 


10484 


07375 


00660 


GfcTOlM 


TFM 


I0RT,»*23., GET FIRST SECTOR OF DIM 


07772 


16 


00565 


-7795 


00670 




8 


I0GT,MAP,7 


07784 


49 


00566 


J2741 


00680 




TF 


FLOD*13,CCIN^24 


07796 


26 


12817 


10523 


00690 




A 


CCIN*22,CCIN^27 


07808 


21 


10521 


10526 


00700 




A 


CCIN*22,CCIN+27 


07820 


21 


10521 


10526 


00710 




TF 


FLOD* 36 » ADDCOW 


07832 


26 


12840 


02450 


00720 




SM 


CCIN+24,21,10 


07844 


12 


10523 


000K1 


00730 




TF 


FL0DU8,CClN+24 


07856 


26 


12822 


10523 


00740 




SM 


CCIN*24,1,10 


07868 


12 


10523 


000- 1 


00750 




TF 


FLSDDA+5.CCIN+24 


07880 


26 


12917 


10523 


00760 




TF 


SUBDDA*5,CCIN+24 


07892 


26 


12731 


10523 


00770 




TF 


FLOD*7,CCIN*24 


07904 


26 


12811 


10523 


00780 




TF 


FL0D*23,CCIN*44 


07916 


26 


12827 


10543 


00790 




TF 


FLDD*26,CCIN*47 


07928 


26 


12830 


10546 


00800 




TF 


SVEDDA+5,FLOD*18 


07940 


26 


02495 


12822 


OOBIO 




TF 


SCADOR,FLOD*13 


07952 


26 


02460 


12817 


00820 




TF 


cert ci rtr\ a. i a. 


07964 








00830 




TF 


EQADDR »FLOD+23 


07976 


26 


02455 


12827 


00840 




TO 


FL0D*99,I0IND 


07988 


25 


12903 


02461 


00850 




TD 


FLGRMK , FL00+99 


08000 


25 


02445 


12903 


00860 




CM 


CCCNT,,10, ANY CONTROL CARDS PRESENT 


08012 


14 


10484 


000-0 


00870 




BE 


XEQONf , , BRANCH IF NONE TO REAO INDICATOR RECORD 


08024 


46 


09640 


01200 


00880 


SBINtT 


TFM 


SDIS*6,STBL+11,. INITIALIZE SUBPROGRAM TABLE 


08036 


16 


08054 


J1693 


00890 


SOIS 


TOM 




08048 


15 


00000 


00000 


00900 




DC 


1, • 


08059 




I 




00910 




AM 


SDIS*6,5, 10 


08060 


11 


08054 


000-5 


00920 




TFM 


SDIS+6,,67 


08072 


16 


0805M 


-0000 


00930 




AM 


SDIS*6, 15, 10 


08084 


11 


08054 


0O0J5 


00940 


SSUE 


CM 


S0IS*6,STBL+20»5Uil 


08096 


14 


08054 


J2713 


00950 




BL 


SO IS 


08108 


47 


08048 


01300 


00960 




TFM 


SUBCOW 


08120 


16 


12971 


-0000 


00970 




TR 


CCIN-l.INTCCt , INITIALIZE CONTROL READ IN AREA 


08132 


31 


10498 


10276 


00980 


ROAGN 


TFM 


TFCC*ll,INDV-l 


08L44 


16 


08191 


J0485 


00990 




TD 


AMI*ll,429,, GET INPUT DEVICE 


08156 


25 


08179 


00429 


01000 


AMI 


AM 


TFCC*ll,,lO 


08168 


11 


08191 


000-0 


01010 


TFCC 


TF 


NEXC+2 


08180 


26 


12708 


00000 


01020 




TFM 


IORT,«^23,, GET CONTROL RECORD 


08192 


16 


00565 


-8215 



715 



01030 




B 


IOGT,NEXC-4,7 


08204 


49 


00566 


J2702 


01040 




CM 


NEXC*2,6,10, IS IT A TYPED ENTRY 


08216 


14 


12708 


000-6 


01050 




BNE 


• ♦24 


08228 


47 


08252 


01200 


01060 




BC4 


RDAGN-12 


08240 


46 


08132 


00400 


01070 




TFM 


•♦23,CCIN*160 


08252 


16 


08275 


J0659 


01080 


SETRM 


BNR 


SETRMl 


08264 


45 


08320 


00000 


01090 




SM 


•-1,2,10 


08276 


12 


08275 


000-2 


01100 




CM 


SETRM*ll,CCIN 


08288 


14 


08275 


J0499 


OHIO 




BE 


R0L0C*12 


08300 


46 


08440 


01200 


01120 




B 


SETRM 


06312 


49 


08264 


00000 


01130 




OORG 


•-3 


08320 








01140 


SETRM1 


CM 


SETRM*U,,610 


08320 


14 


0827N 


000-0 


01150 




BE 


SETRM*12 


08332 


46 


08276 


01200 


01160 




AM 


SETRM*11,2,10 


08 344 


11 


08275 


000-2 


01170 




TDM 


SETRM*ll,,6 


08356 


15 


0827N 


00000 


01180 




DC 
• 


1»*,» 


08 367 




1 




01190 




RCTY 




08 368 


34 


00000 


00102 


01200 




TFM 


I0RT,«*23 


08380 


16 


00565 


-8403 


01210 




B 


I0PT,TYPE-4,7 


08392 


49 


00532 


J2710 


01220 




RCTY 




08404 


34 


00000 


00102 


01230 




TOM 


SETRM*ll,,6 


08416 


15 


0827N 


00000 


01240 


RDLOC 


BNR 


•♦32,CCIN 


08428 


45 


08460 


10499 


01250 




BTM 


EPRINT,71,8 


08440 


17 


10196 


0-071 


01260 




B 


MONCAL 


08452 


49 


00796 


00000 


01270 




OORG 


• -3 


08460 








01280 




CM 


CCIN, 14,10, IS IT A CONTROL CARD 


08460 


14 


10499 


000J4 


01290 




BNE 


RDL0C^12 


08472 


47 


08440 


01200 


01300 


RMCMK 


TFM 


•♦23,CCIN+2, , CHECK FOR RECORD MARK IN LOCAL NAME 


08484 


16 


08507 


J0501 


01310 




BNR 


• ♦20 


08496 


45 


08516 


00000 


01320 




B 


RDL0CM2 


08508 


49 


08440 


00000 


01330 




OORG 


•-3 


08516 








01340 




AM 


RMCHK«-23,2,10 


08516 


11 


08507 


000-2 


01350 




CM 


RMCMK*23,CCIN+12 


08528 


14 


08507 


J05U 


01360 




BNE 


RMCHKM2 


08540 


47 


08496 


01200 


01370 




C 


CCIN*10,L0CAL*8,, IS IT A LOCAL RECORD 


08552 


24 


10509 


10449 


01380 




BE 


COLNAM,,, BRANCH IF LOCAL 


08564 


46 


08584 


01200 


01390 




B 


RDLOC* 12 


08576 


49 


08440 


00000 


01400 




DORG 


•-3 


08584 








01410 




COLLECT ANO STORE MAINLINE AND SUBPROGRAM NAMES 










01420 


COLNAM 


BO 


•♦24,C0NT,, CONTINUE CARO TEST — BRANCH IF ON — 


08584 


41 


08608 


10266 


01430 




TDM 


ML I NO, 1, , TURN ON MAINLINE INDICATOR 


08596 


15 


02462 


00001 


01440 




TFM 


CONT, 00100 


08608 


16 


10266 


-0100 


01450 




TR 


NAMBUF-l3,INTCCl-tO,, INITIALIZE COLLECT AREA 


08620 


31 


02428 


10422 


01460 


RCMKCK 


BNR 


BLNKCK, CCIN>l2»f TEST FOR RECORD MARK IN NAME 


08632 


45 


08664 


10511 


01470 




BTM 


EPA I NT, 72, 8 


08644 


17 


10196 


0-072 


01480 




8 


MONCAL 


08656 


49 


00796 


00000 


01490 




DORG 


•-3 


08664 








01500 


BLNKCK 


CM 


CCIN^12,,10, TEST FOR BLANK 


08664 


14 


10511 


000-0 


01510 




BE 


END 


08676 


46 


09924 


01200 


01520 




CM 


CCIN*12.23,10, TEST FOR COMMA 


08688 


14 


10511 


OO0K3 


01530 




BNE 


SPCHAR 


08700 


47 


08732 


01200 


01540 




TOM 


COMIND.l,, TURN ON COMMA INDICATOR 


08712 


15 


10265 


00001 


01550 




B 


ENTER 


08724 


49 


08860 


00000 


01560 




OORG 


•-3 


08732 








01570 


SPCHAR 


CM 


CCIN*12,40,10, TEST FOR SPECIAL CHARACTER 


08732 


14 


10511 


OOOMO 



1620 FORTRAN II-D LOADER HOCK 1 



PAGE 4 



C \ S80 




BL 


RCMKCK*12 


08744 


47 


08644 


01 300 


0 1 590 




IF 


NAMBUF t.CC I N* 12 1 » MOVE CHARACTER INTO COLLECT AREA 


08756 


26 


02441 


1051 1 


o : hoo 




CM 


NAMBUF ,69, 10 , TEST FOR ALPHA CHARACTER 


08 768 


14 


02441 


00009 


• ' i »v 10 




BH 


• ♦24 


08 760 


46 


08804 


01100 


01620 




TOM 


ALF I NO t.Of t TURN ON ALPHA INDICATOR 


08 792 


15 


10264 


00000 


0 1 630 




CF 


NAMBUF-1 


08804 


31 


02440 


00000 


01640 




TR 


NAM8UF-15,NAMBUF-13, , SHIFT COLLECT AREA 


08616 


31 


02426 


02428 


01650 




TR 


CCIN*10,CCIN*l2r, SHIFT INPUT AREA 


08826 


31 


10509 


1051 1 


01660 




8 


RCMKCK 


08840 


49 


08632 


00000 


01670 




DORG 


•^3 


08848 








01 680 




TR 


NAMBUF -15, NAMBUF - 1 3 » » SHIFT COLLECT AREA 


08848 


31 


02426 


02428 


01690 


ENTER 


CM 


NAMBUF-2,,10 


08860 


14 


024 39 


000-0 


01700 




BNE 


L ABFUL 


08872 


*7 


08928 


01200 


01710 




BD 


• ♦20, ML I NO 


08884 


43 


08904 


02462 


01720 




B 


RCMKCK*12 


08896 


49 


08644 


00000 


01730 




DORG 


• -3 


08904 








01740 




INSERT $ IF BLANK MAINLINE NAME 










01750 




TFM 


NAMBUF-2, 13,10 


08904 


16 


02439 


000 J 3 


01760 




TOM 


ALF I NO 


08916 


15 


10264 


00000 


01770 


I ABFUl 


TOM 


NAMBUF,,, SET TRAILING BLANK 


08928 


15 


02441 


00000 


01780 




CF 


NAMBUF- I 


08940 


33 


02440 


00000 


01790 




CM 


NAMBUF-1 2 , , 1 0 , TEST FOR LEADING BLANKS 


08952 


14 


02429 


000-0 


01800 




BE 


ENTER- 12 


08964 


46 


08848 


01200 


01810 




CM 


NAMBUF-14, ,10, TEST FOR MAX LENGTH OF SIX CHARACTERS 


08976 


14 


02427 


000-0 


01820 




BNE 


RCMKCK+12 


08988 


47 


08644 


01200 


01830 




BO 


RCMKCKM2, ALF INO, , TEST FOR ALL NUMERIC ENTRY 


09000 


43 


08644 


10264 


01840 




SF 


NAMBUF- 13 


09012 


32 


02428 


00000 


01850 




BO 


ML SCH, ML I ND, , TEST FOR TVPE OF ENTRY 


09024 


43 


09068 


02462 


01860 


SUBSCH 


TFM 


SEARCH^ 1 1 , STBL* 1 1 , , INITIALIZE FOR SUBPROGRAM TABLE SEARCH 


09036 


16 


09103 


J1693 


01870 




TFM 


TBLSZE+ll»STRL^51»20+ll 


09048 


16 


09191 


J2713 


01880 




B 


SEARCH 


09060 


49 


09092 


00000 


01890 




OORG 


• -3 


09068 








01900 


ML SCH 


TFM 


$EARCH*U,NTBL*ll 


09068 


16 


09103 


J0673 


01910 




TFM 


IBL S Z E ♦ 1 1 , M IB L ♦ 5 1 »2 0* 1 1 


09080 


16 


09191 


J1693 


01920 


SEARCH BNR 


•♦20,,, TEST FOR AVAILABLE ENTRY 


09092 


45 


09112 


00000 


01930 




B 


LOAO 


09104 


49 


09224 


00000 


01940 




OORG 


•-3 


09112 








01950 




AM 


SEARCH* 11 , 11 , 10 


09112 


11 


09103 


000 J 1 


01960 




C 


SEARCH*ll, NAMBUF-2, 6, TEST FOR MULTIPLE ENTRY 


09124 


24 


0910L 


02439 


01970 




BNE 


• ♦32 


09136 


47 


09168 


01200 


01980 




BTM 


EPRINT,73,8 


09148 


17 


10196 


0-073 


01990 




B 


MONCAL 


09160 


49 


00796 


00000 


02000 




DORG 


• -3 


09168 








02010 




AM 


SEARCH*ll,9,l0 


09168 


11 


09103 


000-9 


0202Q 


TBLSZE 


CM 


SEARCH+ll,,, TEST FOR FULL TABLE 


09180 


14 


09103 


-0000 


02030 




BNE 


SEARCH 


09192 


47 


09092 


01200 


02040 




BTM 


EPRINT,74,8 


09204 


17 


10196 


0-074 


02050 




B 


LOAD I ♦ 24 


09216 


49 


09308 


00000 


02060 




DORG 


• -3 


09224 








02070 


LOAD 


TF 


SEARCH* I 1 , NAMBUF-2 , 6 


09224 


26 


0910L 


02439 


02080 




BD 


MA I N ,ML I ND 


09236 


43 


09868 


02462 


02090 




AM 


SUBCl *,20, 10 


09248 


11 


12971 


OOOKO 


02100 




AM 


SEARCH ♦11,8,10 


09260 


11 


09103 


000-8 


02110 




TDM 


SEARCH*ll,L6, LOAO DIGIT TO INDICATE FLIPPED SUBPROGRAM 


09272 


15 


0910L 


00001 


02120 


L0AD1 


BD 


RNDED-36.BLKIND 


09284 


43 


09364 


10263 


02130 




BD 


•*36,CCIN*13 


09296 


43 


09332 


10512 



02140 




BD 


•♦24,CCIN+14 


09308 


43 


09332 


10513 


02150 




B 


• ♦24 


09 320 


49 


09344 


00000 


02160 




TDM 


COMIND 


09332 


15 


10265 


00000 


02170 




TR 


CCIN+10,CCIN+12 


09344 


31 


10509 


10511 


02180 




B 


RCMKCK-12 


09356 


49 


08620 


00000 


02190 




DORG 


•-3 


09364 








02200 




SM 


CCCNT.1,10, DECREMENT CARD COUNT BY ONE 


09364 


12 


10484 


000-1 


02210 




AM 


SUBCOW-1,2,10 


09376 


11 


12970 


000-2 


02220 




80 


ROUND, SU8C0W- 1 


09388 


43 


09828 


12970 


02230 


RNDED 


S 


SU8DDA+5,SU8C0H-2 


09400 


22 


12731 


12969 


02240 




TF 


SUBDDA*8,SUBCOW-2 


09412 


26 


12734 


12969 


02250 




TFM 


I0RT,»+23,, LOAD SUBPROGRAM TABLE IN SCRATCH AREA 


09424 


16 


00565 


-9447 


02260 




B 


I0PT,SUB,7 


09436 


49 


005 32 


J2718 


02270 




TF 


ML COW, SUBDDA + 8,6 


09448 


26 


12970 


12734 


02280 




AM 


MLC0M,5,10 


09460 


11 


12976 


000-5 


02290 




TF 


MLC0W,SU80DA^5,6 


09472 


26 


12970 


12731 


02300 




CM 


CCCNT,,10 


09484 


14 


10484 


000-0 


02310 




BNE 


S8INIT 


09496 


47 


08036 


01200 


02320 




AM 


MAINCT.20,10 


09508 


11 


10482 


OOOKO 


02330 




BD 


ROUN01,MA.INCT-l 


09520 


43 


09848 


10481 


02340 


RNDEOl 


S 


SUB0DA^5,MAINCT-2 


09532 


22 


12731 


10480 


02350 




TF 


SUBDDA^8,MAINCT-2 


09544 


26 


12734 


10480 


02360 




TFM 


SUBDDA*13,MTBL 


09556 


16 


12739 


J0662 


02370 




TFM 


I0RT,»^23., LOAO MAINLINE TABLE 


09568 


16 


00565 


-9591 


02380 




B 


I0PT,SUB,7 


09580 


49 


00532 


J2718 


02390 




TF 


FLOD*2,MAINCT-2 


09592 


26 


12806 


10480 


02400 




TF 


FL0D*7,SUB00A*5,, STORE OISK LOAD ADDRESS OF MAINLINE TABLE 


09604 


26 


12811 


12731 


02410 




TF 


LDDDA+5,FLOO*7 


09616 


26 


02479 


12811 


02420 




TF 


L00DA^8,FLO0*2 


09628 


26 


02482 


12806 


02430 


XEOGN 


TF 


COMSEC*71,FLSOOA*5 


09640 


26 


07371 


12917 


02440 




TF 


FLOO*3l,FLOO*7 


09652 


26 


12835 


12811 


02450 




SM 


FL00*31,10,10 r 


09664 


12 


12835 


OOOJO 


02460 




TF; 


INC0DA^5,FL00*31 


09676 


26 


02511 


12835 


02470 




TFM 


•♦18,SUBTBL*11 


09688 


16 


09706 


-2533 


02480 




TDM 




09700 


15 


00000 


00000 


02490 




DC 


If «t« 


09711 




1 




02500 




AM 


•-6,20,10 


09712 


11 


09706 


OOOKO 


02510 




CM 


•-18,SUBTBL*1011 


09724 


14 


09706 


-3553 


02520 




BNE 


• -36 


09736 


47 


09700 


01200 


02530 




TFM 


10AT,»^23,, STORE IN-CORE TABLE 


09748 


16 


00565 


-9771 


02540 




B 


I0PT,INC«7 


09760 


49 


00532 


J2951 


02550 




TFM 


I0RT#«*23,, STORE COMMUNICATION SECTOR 


09772 


16 


00565 


-9795 


02560 




6 


IOPT,COMf 7 


09784 


49 


00532 


J2927 


02570 




TFM 


I OR T ••♦23 


09796 


16 


00565 


-9819 


02580 




8 


I0PT,FLS,7 


09808 


49 


00532 


J2904 


02590 




B 


XEQ0N1 


09620 


49 


10004 


00000 


02600 




DORG 


•-3 


09828 








02610 


ROUND 


AM 


SUBCON-2,1,10 


09828 


11 


12969 


000- 1 


02620 




8 


RNDEO 


09840 


49 


09400 


00000 


02630 




DORG 


•-3 


09848 








02640 


ROUND 1 


AM 


MAlNCT-2,1,10, ROUNO TO NEXT HIGHER SECTOR 


09848 


It 


10480 


000-1 


02650 




8 


RNOEOl 


09860 


49 


09532 


00000 


02660 




OORG 




09868 








02670 


MAIN 


TOM 


ML INO,,, TURN OFF MAINLINE INDICATOR 


09866 


15 


02462 


00000 


02680 




AM 


MA1NCT,20,10 


09660 


11 


10482 


OOOKO 
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02690 




TF 


MLCOW, SEARCH* 1 1 


09892 


26 


12976 


09103 


02700 




AM 


Ml COW • 3,10 


09904 


1 1 


12976 


000-3 


02710 




ft 


LOAD 1 


09916 


49 


09284 


00000 


02720 




OORG 


• -3 


09924 








027 30 


END 


60 


• ♦ \7 . C DM 1 ND 
w r 3C t V. Un 1 HI) 


09924 


43 


09956 


10265 


02740 




T DM 


BIKTNn.t.. TIIRM (IN Rl ANK lNnirATClR 


09936 


15 


10263 


00001 


02750 




B 


ENTER 


09948 


49 


08860 


00000 


02760 




'""ORG 


• -3 


09956 








0? 7 70 




tom 


CONT t I 


09956 


15 


10266 


00001 


02780 




SM 


rrruT . i . | n 

ULll 1 1 I t 1U 


09968 


1 2 


10484 


000- 1 


02 790 




RE 




09980 


46 


08440 ' 


01200 






Q 


TFCC 


09992 


49 


08180 


00000 






TOM 


nOAR 4-14 


10004 


15 


07294 


00000 






oc 


I * • f • 


100 15 




I 




028 30 




TDM 


EXT I NO 


10016 




02463 


nnnnn 
uuuuu 


????? 






<;ucnni*i i cinn*iA 


10028 


26 


02503 


12822 






TO 


iNAWBUr— lit LUWN— 1 








1 2998 


02870 




C M 


rnuccr iik ia 
LU M itL +25 » f 1 U 


i nn« 
1 1 


14 


07325 














4 J 


101 20 


01200 


n?aan 






rnuccr*9^ i i. in 

lUBitLT/i| 1 1 , * U 






07325 


000 J3 








rnyccriis 




33 


07335 


00000 


0290 1 




RD 




in i nn 








029 10 






35*0* ,6 


in ii •> 


AQ 




nnnnn 
uuuuu 






DORG 




in i ?n 








02930 








ini in 




02441 


0 7335 






BO 


« c Ar»M i a 


l ni ij 
i n l a! 




10152 




? « 




R 


3540, ,6 






0354- 


uuuuu 


02950 




DORG 


•-3 


10 1d2 








02960 


Xfc 00N2 


TOM 


E XT I ND , I 


JJJ J?? 


J* 


r\i it! 




02970 




CM 


COMSEC+75,,10 


10 164 


1 4 






02980 




RE 


3540, ,6 


10 1 76 






01200 


02990 




B 


3545, ,6 


10188 


49 


n«AW 


nnnnn 


03000 




DORG 


• -3 


10196 








030 10 




ERROR MESSAGE SUBROUTINE 










03020 


E PR I N T 


TF 


ERMESS*16,EPRINT-l 


101 96 


»i* 


1 2995 




0 3030 




RCTY 








uuuuu 


nni n? 


0 3040 




WATY 


ERMESS 


10220 


39 




00100 


03050 




RCTY 




10232 


34 


00000 


00102 


03060 




WATY 


J080UT 


10244 


39 


10451 


00100 


03070 




BB 




10256 


42 


00000 


00000 


03080 


CONT 


DS 


CONTINUE INDICATOR 


10266 




0 




03090 


COM I NO 


DS 


,•-2, COMMA INDICATOR 


10265 




0 




03100 


ALFIND 


DS 


,•-3, ALPHA INOICATOR 


10264 




0 




03110 


BLK I NO 


DS 


,»-4, BLANK INDICATOR 


10263 




0 




03120 


FOR 


DSC 
22 


2,22 


10268 




2 




031 30 




DSC 


1,0 


10270 




1 




03140 




0 

CC 


5, 147' 


10275 




5 








-1*7 












03150 


INTCC 


00 


tt 02 


10276 


-0 


-0000 


00000 


03160 




00 


, ,0246810 


10288 


-0 


-0-0- 


0-0-0 


03170 




00 


, ,0246810 


10300 


-0 


-0-0- 


0-0-0 


03180 




00 


, t0246810 


10312 


-0 


-0-0- 


0-0-0 


03190 




00 


, ,0246810 


10324 


-0 


-0-0- 


0-0-0 



719 



1620 FORTRAN II-D LOADER BLOCK 1 PAGE 7 



03200 




00 


, ,0246810 


10336 


-0 


-0-0- 


0-0-0 


03210 




00 


, ,0246810 


10348 


-0 


-o-o- 


0-0-0 


03220 




00 


, ,0246810 


10360 


-0 


-0-0- 


0-0-0 


03230 




00 


, ,0246810 


10372 


-0 


-o-o- 


0-0-0 


03240 




00 


, ,0246810 


10384 


-0 


-0-0- 


0-0-0 


03250 




00 


,,0246810 


10396 


-0 


-0-0- 


0-0-0 


03260 




00 


, ,0246810 


10408 


-0 


-0-0- 


0-0-0 


03270 




00 


, ,0246810 


10420 


-0 


-0-0- 


0-0-0 


03280 


INTCCl 


00 


, ,0246810 


10432 


-0 


-0-0- 


0-0-0 


03290 




DORG 


• -4 


10439 








03300 




DC 


It 1 


10439 




1 




03310 


LOCAL 


DAC 


5, LOCAL 


10441 




5 


X 2 






LOCAL 










03320 


JOBOUT 


DAC 


14, JOB ABANDONED* 


10451 




14 


X 2 






JOB 


ABANDONED ' 










03330 


MAINCT 


DC 


5,0 


10462 




5 








-0000 










03340 


CCCNT 


DS 


2,, CONTROL CARD COUNT 


10484 




2 




03350 


I NOV 


DC 
-6 


2,6,, TYPE IN LOCAL INFORMATION 


10486 




2 




03360 




DC 
-8 


2,8,, RE AO LOCAL INFORMATION FROM PAPER TAPE 


10488 




2 




03370 




DC 


2, 10,, READ LOCAL INFORMATION FROM CARDS 


10490 




2 








JO 












03380 




DC 


It' 


10491 




1 




03390 


CK STL 


DS 


5 


10496 




5 




03400 


CCIN 


DAS 


82,, READ IN AREA FOR LOCAL CARDS 


10499 




82 


X 2 


03410 


MTBL 


DSS 


1020, .MAINLINE NAME TABLE 


10662 




1020 




03420 


STBL 


DSS 


1020, .SUBPROGRAM NAME TABLE 


11682 




1020 




03430 


NEXC 


DSA 


CCIN 


12706 




5 


X 1 










12706 




J0499 




0 3440 




DC 


3,10' 


12709 




3 








J0» 












03450 


TYPE 


DSA 


CCIN 


12714 




5 


X 1 










12714 




J 04 99 




03460 




DC 


3,06* 


12717 




3 




0 34 70 


SUB 


-6» 

DSC 


2,22 


12718 




2 








22 












03480 




DSA 


SUBDDA 


12724 




5 


X 1 










12724 




J2726 




03490 




DC 


I,' 


12725 




1 




03500 


SUBODA 


DDA 


,1,0.0. STBL 


12726 




14 








1-0000-00 J 1682 










03510 




DC 


lt» 


12740 




1 




03520 


MAP 


DSC 


2,22 


12741 




2 








22 












03530 




DSA 


MAPODA 


12747 




5 


X 1 



7 20 
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0 3540 




DC 




12747 


427*0 








1.' 


12748 


1 








M APDDA 


DDA 


* 1,4800. WCCJN-l 


12750 


14 










1-4800-01J0498 






^3560 




oc 




12764 


I 






03571) 


L DMA ! N 


DAC 


19, LOAD MAINLINE PROG* 


12767 


19 


X 


2 






LOAD 


MAINLINE PROG' 






0 3580 




FORTRAN LOADER INFORMATION SECTOR 










03590 


• 


0- 


2 CONTAINS SECTOR COUNT OF MAINLINE TABLE 










0 3600 


* 


3- 


7 CONTAINS DISK ADDRESS OF MAINLINE TABLE 










0 361 0 




9- 


13 CONTAINS DISK ADDRESS OF SCRATCH AREA 










03620 


• 


l< 


>-18 CONTAINS OISK ADDRESS OF COMMON RESERVE AREA 










0 3630 


• 


19-23 CONTAINS DISK ADDRESS OF EQUIVALENCE TABLE 










03640 




24 


-26 CONTAINS SECTOR COUNT OF EQUIVALENCE TABLE 










03650 


• 


27-31 CONTAINS ADDRESS OF IN-CORE SUBPROGRAM TABLE 










03660 




3< 


•-36 CONTAINS INITIAL LOADING ADDRESS 










03670 


t 


99 CONTAINS A FLAGGED RECORD MARK 










03680 


FLOD 


OSS 


100 


12804 


100 






03690 


FL S 


DSC 
22 


2,22 


12904 


2 






03700 




DSA 


FL SODA 




5 




1 


03710 








12910 


J2912 








DC 


1 1 • 


12911 


I 






03720 


FLSUDA 


DDA 


,1,0,1, FLOD 


12912 


14 










1-0000-01J2804 






03730 




OC 




12926 


1 






03740 


COM 


DSC 


2,22 


12927 


2 










22 










03750 




DSA 


COMDDA 


12933 


5 


X 


1 


03760 








12933 


J2936 
I 








DC 


if • 


12934 






03770 


COMDDA 


DDA 


,1, 19663, l.COMSEC 


12936 


14 










IJ9663-01-7300 






03780 




DC 


I • • 




1 






03790 


IiVC 


DSC 
22 


2,22 


12951 


2 






0 3800 




DSA 


INCDOA 


12957 




x 


1 


0381Q 








12957 


-2506 








DC 


I, • 


12958 


1 






03820 


sve 


DSC 


2,22,, LINKAGE TQ SAVE COMMON AREA 


12959 


2 










22 










03830 




DSA 


SVEODA 


12965 


5 


X 


1 


03840 








12965 


-2490 








DC 
• 




12966 


I 


t 
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03850 


SUBCOW 


DC 


5,0 


12971 


5 










-0000 








03860 


MLCOW 


DC 


5,0 


129 76 


5 










-0000 












DAC 


10, ERROR L « 


12979 


10 


X 


2 






ERROR L • 








03880 


LOMN 


DAC 


5, MAIN* 


12999 


5 


X 


2 






MAIN 1 












03890 


ONETWU 


DSC 


5,00101 


13008 


5 










00101 








03900 




OEND 




00000 









72! 



9 



7 22 
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ADOCOW 


02450 


LOMAIN 


12767 


ENTER 


08860 


ML IND 


02462 


TFCC 


08180 


ADDSVE 


02472 


LODPRO 


07724 


FLOD 


12804 


MLSCH 


09068 


TWO 


07712 


AlF |M0 


10264 


MA I NC T 


10482 


FLS 


12904 


MSUE 


07560 


TYPE 


12714 


BLK I NO 


1026) 


MAPDDA 


12750 


FOR 


10268 


MTBL 


10662 


XEQON 


09640 


BLNKCK 


08664 


ML INI T 


07524 


INC 


12951 


NEXC 


12706 


SBINIT 


08036 


COL NAM 


08584 


MONCAL 


00796 


I NOV 


10486 


ONE 


07680 


SBPTBL 


07400 


CONDDA 


12936 


NAMBUF 


02441 


INRK 


07400 


RDAGN 


08144 


SCADOR 


02460 


cnwiND 


10265 


ONE TWO 


13008 


INTCC 


10276 


RDLOC 


08421 


SEARCH 


09092 


COMSEC 


07300 


OVRLAP 


02444 


IOGT 


00566 


RMCHK 


08484 


SETRM1 


08320 


EPRINT 


10196 


RCMKCK 


08632 


I01ND 


02461 


RNDEO 


09400 


SPCHAR 


08732 


EQADDR 


02455 


RNOEOl 


09532 


I OPT 


00532 


ROUNO 


09820 


SUBCOW 


12971 


ERMESS 


12979 


R0UND1 


09848 


IORT 


00565 


SOIS 


08048 


SUBOOA 


12726 


EXT IND 


02463 


AMI 


08168 


LDDDA 


02474 


SECT 


02466 


SUBSCH 


09036 


fl grmk 


02445 


CCCNT 


10484 


LDMN 


12999 


SETRM 


08264 


SUBSET 


07644 


FLSDOA 


12912 


CCIN 


10499 


L0AD1 


09284 


SSIZE 


08096 


SUBTBL 


02522 


GETDIM 


07772 


CKSTL 


10496 


LOAD 


09224 


START 


07760 


SVEDDA 


02490 


INCDDA 


02506 


COM 


12927 


LOCAL 


10441 


STBL 


11682 


TBLSZE 


09180 


iNTCf.l 


10432 


CONT 


10266 


MAIN 


09868 


SUB 


12718 


XE00N1 


10004 


JtlBOUT 


10451 


OOAR 


07280 


MAP 


12741 


SVE 


12959 


XEQ0N2 


10152 


LABFUl. 


08928 


ENO 


09924 


MLCOW 


12976 


TDIS 


07536 


ZROTST 


02467 



ENO OF ONE ASSEMBLY. 



723 
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PAGE 



1 



POO 10 • 



00i".?0 


IOPT 


DS 


» 532 








00010 


I OCT 


DS 


• 566 




00 466 


o 


00040 


IURT 


DS 


• 565 




00565 


0 


r>0050 


MONCAL 


DS 


,796 




00796 


0 


00060 


ERRET 


DS 


,602 








00070 


INDS 


DS 


,610 




00610 


0 


00080 


ERROR 


OS 


,624 




00624 


0 


00090 


010 


DS 


,816 




00816 


0 


00100 


• •• 


COMMUNICATION AREA 








00 I 10 




DORG 


2218 




02218 




00120 


F 


DS 


2,, FLOATING POINT WORD LENGTH 


02219 


2 


00130 


K 


DS 


2,, FIXED POINT WORD 


LENGTH 


02221 


2 


00140 


PROGST 


DS 


5,, STARTING ADDRESS 


OF MAINLINE PROGRAM 


02226 




00150 


COM ADD 


DS 


5,, STARTING ADDRESS 


OF COMMON AREA 






00160 


N 1 


DS 


2,, NUMBER OF WORDS 


IN LOGICAL RECORO 


02233 


2 


001 70 


N2 


DS 


5,, NUMBER OF LOGICAL RECORDS 


02238 




00180 


w 


DS 


2,, WORD LENGTH 




02240 


2 


00 1 90 


R ECL G 


DS 


3,, RECORD LENGTH 




02243 


3 


00200 


ENTLN 


DS 


5,, ENTRY ADDRESS TO 


LOG SUBROUTINE 


02248 


5 


00210 


ENTEXP 


os 


5,, ENTRY ADDRESS TO 


EXPONENTIAL SUBROUTINE 


02253 


1 


00220 


ENTSC 1 


DS 


5, , ENTRY ADDRESS TO 


SINGLE SUBSCRIPT SUBROUTINE 


02258 


5 


002 30 


E N T S£ 2 


DS 


5,, ENTRY ADORE SS TO 


DOUBLE SUBSCRIPT SUBROUTINE 


02263 


5 


00240 


ENTSC3 


DS 


5,, ENTRY ADORESS TO 


TRIPLE SUBSCRIPT SUBROUTINE 


02 268 


5 


00250 


ENTF 1 0 


DS 


5,, ENTRY AODRESS TO 


FIND SUBROUTINE 


02273 


5 


00260 


ENTREC 


DS 


5,, ENTRY ADDRESS TO 


RECORD SUBROUTINE 


022 78 


5 


002 70 


ENTF E T 


DS 


5.,, ENTRY ADDRESS TO 


FETCH SUBROUTINE 


02283 


5 


00280 




DS 


5,, ENTRY ADORESS TO 


SWITCH 0 SUBROUTINE 


02288 


5 


00290 


E N TDRR 


OS 


5,, ENTRY AODRESS TO 


ARRAY SUBROUTINE 


02293 


5 






DS 


5,, ENTRY ADORESS TO 


DISK END SUBROUTINE 


02298 


5 


OOMO 




OS 


5,, ENTRY ADDRESS TO 


COSINE SUBROUTINE 


02 303 


5 


00320 


ENTSIN 


DS 


5,, ENTRY ADDRESS TO 


SINE SUBROUTINE 


02 308 


5 


00330 


ENTATN 


OS 


5,, ENTRY AODRESS TO 


ARCTANGENT SUBROUTINE 


02313 


5 






DS 


5,, ENTRY ADORESS TO 


SQUARE ROOT SUBROUTINE 


02 3 18 


5 


00350 


ENTAB S 


DS 


5,, ENTRY ADDRESS TO 


ABSOLUTE SUBROUTINE 


02 323 


5 






DS 


70,, RESERVED FOR ENTRIES TO ADDED SUBROUTINES 


02393 


70 


00370 


LIBSU8 


DSS 


30,, LIBRARY SUBROUTINE INDICATORS 


02394 


30 


00380 




DC 


i, • 




02424 


I 


00390 




DORG 


2426 




02426 




00400 


N AMBUF 


OC 


16,0 




02441 


16 






-000000000000000 












DC 


2,« 




02443 


2 


00420 


OVRLAP 


OC 


1,0 




02444 


1 


00430 


FLGRMK 


DS 


I 




02445 


1 


00440 


ADDCOW 


ns 


5 




02450 


5 




c n Anns 


OS 


5 




02455 


5 


00460 


SCADOR 


DS 


5 




02460 


5 


00470 


ILUND 


OC 


1,0 




02461 


I 


00480 


ML IND 


DC 


1,0 




02462 


1 


00490 


EXT1ND 


DS 


1 




02463 


1 


00500 


SECT 


DS 


3 




02466 


3 



725 
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00510 


ZRUTST 


DC 


1,0 


02467 




I 




00520 


ADDSVE 


DS 


5 


02472 




5 




00530 




DC 


1, 1 


02473 




1 




00540 


LOODA 


DDA 


, 1,0,0, SUBTBL 


02474 




14 








1-0000-00-2522 










00550 




nc 


1, ' 


02488 




1 




00560 


SVEDOA 


DDA 


,1,0,21,0 


02490 




14 








1-0000-21-0000 










00570 




DC 


I , 8 


02504 




1 




00580 


INCDDA 


DDA 


, 1,0, 10, SUBTBL 


02506 




14 








1-0000-10-2522 








00590 




DC 


i.« 


02520 




1 




00600 




DS 


i 


02521 




1 




00610 


SUBTBL 


DSS 


1000 


02522 




1000 




00620 




DC 


12, • 


03533 




12 








-0000000000* 










00630 




ENTRY FROM CALL LINK STATEMENT 










00640 


J AYE NT 


NOP 


TSTVLD » CDQRTP 


03534 


41 


04342 


05448 


00650 




TFM 


IORT,»*23 


03546 


16 


00565 


-3569 


00660 




B 


I0GT.COM, 7 


03558 


49 


00566 


-5843 


00670 




TFM 


C0TPLD*13,25,10 


03570 


16 


05051 


000K5 


00680 




TF 


DMEDDA*5,C0MSEC*71 


03582 


26 


05833 


07371 


00690 




IF 


NAMBUF ,7495,11 


03594 


26 


02441 


0749N 


00700 




TF 


C0MSEC*35,NAHBUF 


03606 


26 


07335 


02441 


00710 




TFM 


I0RT,»*23,, GET FLQO SECTOR 


03618 


16 


00565 


-3641 


00720 




B 


IOGT.OME, 7 


03630 


49 


00566 


-5820 


00730 




TF 


SVEDDA+5, INRK+18 


03642 


26 


02495 


07418 


00740 




TF 


SCADOR, INRK*13 


03654 


26 


02460 


07413 


00750 




TF 


ADDCOW, INRK+36 


03666 


26 


02450 


07436 


00760 




TF 


ADDSVE, ADOCQW 


03678 


26 


02472 


02450 


00770 




AM 


A0PSVE,1,10 


03690 


11 


02472 


000-1 


00780 




TF 


LDDDA+5, INRK*7 


03702 


26 


02479 


07407 


00790 




TF 


LDDUA+8 , I NRK+2 


03714 


26 


02482 


07402 


00800 




TF 


SECT,INRK+26 


03726 


26 


02466 


07426 


00810 




TF 


EQADOR , INRK+23 


03738 


26 


02455 


07423 


00820 




TF 


INCDDA*5, INRK+31 


03750 


26 


02511 


07431 


00830 




TFM 


•♦18,SUBTBL*11 


03 762 


16 


03780 


-2533 


00840 




TOM 




03774 


15 


00000 


00000 


00850 




DC 


l,V,» 


03785 




I 




00860 




AM 


•-6,20,10 


03786 


11 


03780 


OOOKO 


00870 




CM 


»-18,SUBTBL*103l 


03 798 


14 


03780 


-3553 


00B80 




BNE 


• -36 


03810 


47 


03774 


01200 


00890 




TFM 


I0RT,»*23,, STORE IN-CORE TABLE 


03822 


16 


00565 


-3845 


00900 




B 


I0PT,INC,7 


03834 


49 


00532 


-5891 


00910 




TDM 


LNKIND, 1 


03646 


15 


03856 


00001 


00920 


LNKIND 


DS 


,»-l 


03856 




0 




00930 




TO 


I0IND, INRK+99 


03858 


25 


02461 


07499 


00940 




TDM 


EXTINO.l 


03870 


IS 


02463 


00001 


00950 




EQUIVALENCE TABLE SEARCH 










00960 


EOSRCH 


TF 


EQUDDA*5,EQADDR 


03882 


26 


05913 


02455 
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00970 




TFM 


lNRK*4Bt act 1 


0389* 


16 




— 2*66 








■ ntr m a. 1 1 Qctn t %t tniu ecrrrtac nc eaiiiw itn c 






0046* 


_ 3929 


00990 




B 


ff A#* T C At 1 *? 


03918 


&a 

7? 




-5899 


01000 


C0MPER 


TFN 


COMP* 1 1 , SUBTBL* 1 1 » ♦ SEARCH EQUIV. TABLE 


03930 


16 


03973 


— 2533 


01010 




8NR 


•♦20»C0MP^ I 1 t I 1 


039*2 


*5 


03962 




01020 




B 


NXTRD+2* 


0395* 


*9 


0*0*6 


A A AAA 
OOUOO 


01030 




OORG 


•-3 


03962 








010*0 


COMP 


C 


NAMBUF 


03962 


2* 


02**1 


AAAAA 


01050 




BE 


FOUND 


0397* 


*6 




aaa°? 


01060 




AH 


CDMP*l I , 16, 10, INCMtMeNI TU Nell NAUfc 


03986 


1 1 




000 Jo 


01070 




CM 


COMP* 1 1 , 5UBTBL** 1 1 * , Tt5l run 6NO Or TABLE 




I* 




-2933 


01080 




BNE 


C0HPERH2 


0*0 10 


*7 


039*2 




01090 


NXTRO 


CM 


I NRK+*8, Ot 9| TEST FOR END OF EQUIV* TABLE 


0*022 


I* 




aiTaa 


01 100 




8H 


• ♦20 


0*034 


*6 


0*05* 


01 100 


01 1 10 




B 


CDORTP 


0*0*6 


*9 


05**8 


AAAAA 


01120 




OORG 


• -3 


0*05* 








01 130 




SM 


INRK**8»*« lOt DECREMENT SECTOR COUNT 


0*05* 


1 2 


07**8 


000-* 


01 1*0 




AM 


EQU00At5,*,10 


0*066 


1 1 


05913 


000—* 


01150 




R 


COMPER-2* 


0*078 


*9 


03906 


00000 


01160 


FOUND 


AM 


C0MP*11,*,10, INCREMENT TO GET DIM NUMBER 


0*090 


1 1 


03973 


000-* 


01170 




TFM 


0IMODA*5«*80O 


0*102 


16 


05957 


-*800 


01180 




S 


DIMDDA*6tC0MP + U»ll 


0*1 1* 


22 


05958 


0397L 


01190 




S 


DIMDDA*6,C0MP*il, 11 


0*126 


22 


05958 


0397L 


01200 




TDM 


D I MDOA+6 f 1 1 1 


0*138 


15 


05958 


0000- 


01210 




READ IN DIM SECTOR 










01220 


F0UND1 


TFM 


I0RT,«r23 


0*150 


16 


00565 


-*173 


01230 




B 


I0GT,0IM,7 


0*162 


*9 


00566 


-59** 


012*0 




TO 


SECCT,C0MP*ll,ll 


0*17* 


25 


06035 


0397L 


01250 




CM 


SECCT.5,10 


0*186 


I* 


06035 


000-5 


01260 




01 


• ♦2* 


0*198 


*7 


0*222 


01300 


01270 




SM 


SECCT,5,10, CALCULATE DIM ENTRY ADORESS 


0*210 


12 


06035 


000-5 


01280 




MM 


SECCT,20,9 


0*222 


13 


06035 


00-20 


01290 




AM 


99.INRK 


0*23* 


11 


00099 


-7*00 


01300 




TR 


DIMSVE.99, 11 


0*2*6 


31 


0599* 


0009R 


01310 




TD 


DMEDDA ,DIMSVE 


0*258 


25 


05828 


0599* 


01320 




TF 


DMEDDA*5,0IMSVE*5 


0*270 


26 


05833 


05999 


01330 




TR 


DDAR , DMEDDA, , MOVE SECTOR DOA TO PROGRAM DDA AREA 


0*282 


31 


07280 


05828 


013*0 




TFM 


10RT,«*23,, READ IN INDICATOR RECORD 


0*29* 


16 


00565 


-*317 


01350 




8 


I0GT.DM6.7 


0*306 


*9 


00566 


-5820 


01360 




TF 


D0AR*8,DIMSVE*8, f MOVE SECTOR COUNT 


0*318 


26 


07288 


06002 


01370 




INDICATOR RECORD CHECK 










01380 




TDM 


EXTIND.O 


0*330 


15 


02*63 


00000 


01390 


TSTVLD 


C 


INRK*13,IN0C0N, , CHECK FOR VALID INDICATOR RECORD 


0*3*2 


2* 


07*13 


06019 


01*00 




BE 


RELFRM 


0*35* 


*6 


05178 


01200 


01*10 




C 


INRK*5,IN0C0N,, CHECK FOR VALIDITY IN CORE IMAGE 


0*366 


2* 


07*05 


06019 


01*20 




BE 


• ♦32 


0*378 


*6 


0**10 


01200 


01*30 




BTM 


EPRINT,75,8 


0*390 


17 


05262 


0-075 


01**0 




B 


MONCAL 


0**02 


*9 


00796 


AAAAA 


01*50 




OORG 


»-3 


0**10 








01*60 




TF 


I NOR^ 1 1 i ADDSVE 


0**10 


26 


059*2 


02*72 


01*70 




TOM 


INDR+7,,, CONVERT DEFINER TO CORE IMAGE 


0**22 


15 


05938 


00000 


01*80 




DC 




0**33 




1 




01*90 




AM 


DDAR*5,l,10, INCREMENT DISK ADDRESS BY ONE 


0**3* 


11 


07285 


000- 1 


01500 




SM 


00AR+8,l,i0, OECREMENT SECTOR COUNT BY ONE 


0***6 


12 


07288 


000-1 
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01520 COMLO 

01530 

015*0 

01550 

01560 

01570 

01580 

01590 

01600 

01610 LNK 

01620 

01630 

016*0 

01650 

01660 

01670 

01680 ML 

01690 

01700 

01710 

01720 

01730 

017*0 
01750 

01760 •••»•• 

01770 

01780 

01790 

01800 

01810 

01820 CLEAR 
01830 
018*0 
01850 

01860 TRYSZE 

01870 

01880 

01890 

01900 



TF 



DORG 
C 

BNE 
C 

BE 
BTM 
B 



Nl, INRK + 7 
N2, INRK+12 
W« iNRKn* 
RECLG, INRK*17 
LNK , LNK I NO 
F.INR02* 
K, INRK + 26 
ML 
♦ -3 



INRK+2*,F 
• ♦36 

INRK*26,K 
ML 

EPRINT,76t 8 
MONCAL 
DORG »-3 

TF PROGST.INRK+31 
A PR0GST,AD0SVE 
TF C0MADD.INRKO6 
TF SVEDDA*13,C0MADD 
TF MLLGTH, INRK+22 

INITIALIZE LIBRARY SUBROUTINE INDICATORS 
SF INRK+37 
TF LIBSUB*29, INRK+66 
SAVE COMMON AREA 
DI0*35,ENT,67 



TFM 
TDM 
DGM 
TFM 
B 

TR 
AM 

C 

BL 
TF 
AM 
A 

TDM 

DC 



I0RT ( **23« f 
I0PT.SVE.7 
7500, ZEROS, 2 
CLEARS, 500,9 
CLEARS 6, COMADD 
CLEAR 

ADDSVE, ADDCOW 
ADDSVE. I, 10 
ADDCOW » I NRK + 22 
INRK^23 
!,*,• 



PUT 21 SECTORS OF COMMON AREA IN SCRATCH 



01910 C 
01920 BH 
01930 SI2EOK BO 
019*0 
01950 



ADDCOW, C0MA00 
ERML 

•♦2*,OVRLAP 
BNC1 RDPROG 
RCTV 



01960 
01970 
01980 
01990 
02000 
02010 



WATY NAMBUF- 10, , , 
SPTY 

WNTY ADDSVE-* 
SPTY 

WNTY INRK*18,,, 
WATY LDED 



TYPE OUT NAME 



TYPE OUT LENGTH 



02020 •••••• LOAD PROGRAMS ROUTINE 

02030 ROPROG BO CDTPLD,FXTIND, , BRANCH IF PROGRAM IN CARD OR TAPE 
020*0 SCHLD TFM !0RT,"23,, GET PROGRAM FROM DISK 
02050 B I0GT,IN0R,7 

02060 CALL2 TFM IORT.^23 



0**58 


26 


02233 


07*07 


0**70 


26 


02238 


07*12 


0**82 


26 


022*0 


07*1* 


0**9* 


26 


022*3 


07*17 


0*506 


*3 


0*550 


03856 


0*518 


26 


02219 


07*2* 


0*530 


26 


02221 


07*26 


0*5*2 


*9 


0*618 


00000 


0*550 








0*550 


2* 


07*2* 


02219 


0*562 


*7 


0*598 


01200 


0*57* 


2* 


07*26 


02221 


0*586 


*6 


0*618 


01200 


0*598 


17 


05262 


0-076 


0*610 


*9 


00796 


00000 


0*618 








0*618 


26 


02226 


07*31 


0*630 


21 


02226 


02*72 


0*6*2 


26 


02231 


07*36 


0*65* 


26 


02503 


02231 


0*666 


26 


0602* 


07*22 


0*678 


32 


07*37 


00000 


0*690 


26 


02*23 


07*66 


0*702 


16 


0085J 


-5*0* 


0*71* 


15 


00000 


00000 


0*725 




1 




0*726 


16 


00565 


-*7*9 


0*738 


*9 


00532 


-5923 


0*750 


31 


-7500 


06088 


0*762 


11 


0*756 


OONOO 


0*77* 


2* 


0*756 


02231 


0*786 


*7 


0*750 


01300 


0*798 


26 


02*72 


02*50 


0*810 


11 


02*72 


000-1 


0*822 


21 


02*50 


07*22 


0*83* 


15 


07*23 


00000 


0*8*5 




I 




0*8*6 


2* 


02*50 


02231 


0*858 


*6 


0532* 


01100 


0*870 


*3 


0*89* 


02*** 


0*882 


*7 


0*978 


00100 


0*89* 


3* 


00000 


00102 


0*906 


39 


02*31 


00100 


0*918 


3* 


00000 


00101 


0*930 


38 


02*68 


00100 


0*9*2 


3* 


00000 


00101 


0*95* 


38 


07*18 


00100 


0*966 


39 


060*3 


00100 


0*978 


*3 


0503B 


02*63 


0*990 


16 


00565 


-5013 


05002 


*9 


00566 


-5931 


0501* 


16 


00565 


-5037 



728 
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RAGE 5 



02070 




B 


IOGT.8L2.7 




05026 


49 


00566 


-6060 


02080 


•••<• 


ROUTINE TO LOAO RROGRAM FROM CARD OR 


TAPE 










o?o9o 


COTPLD 


TOM 


*16 




05031 


15 


00*16 


00000 


02100 




DC 
» 






050*9 




1 




02110 




NOP 


428,CO*SEC*73 




05050 


*l 


00426 


07373 


02120 




SF 


426 




05062 


32 


00428 


00000 


02130 




CF 


429 




0507* 


3) 


00429 


00000 


021*0 




TF 


*3*,ADDSVE 




05086 


26 


00434 


02*72 


02150 




SF 


*89 




05096 


32 


00489 


00000 


02160 




TF 


C0MSEC*98, INRK*79 




05110 


26 


07396 


07479 


02170 




TFM 


IORT,**23,, PUT BACK COMMUNICATION 


SECTOR 


05122 


16 


00565 


-5145 


021 80 




B 


I OPT, COM, 7 




051 3* 


49 


005 32 


-5843 


02190 




TFM 


IORT,**23,, GET PROGRAM 




051*6 


16 


00565 


-5169 


02200 




8 


IOGT ,E XT, 7 




05158 


*9 


00566 


-5667 


02210 




e 


CALL 2 




05 1 70 


*9 


05014 


00000 


02220 




OORG 


• -3 




05178 








02230 


RELFRM 


TOM 


INRK*80 




05178 


15 


07460 


00000 


022*0 




DC 


l.».« 




05189 




I 




02250 




FR 


INRKt INRK+8, , MOVE INDICATOR RECORD 


TO CONFORM TO CARD IMAGE 


05190 


31 


07400 


07*08 


02260 




CF 


427 




05202 


33 


00427 


00000 


02270 




TFM 


*39,75 




0521* 


16 


00439 


^0075 


02280 




TFM 


DOAR* 13,99999 




05226 


16 


07293 


R9999 


02290 




TF 


I NOR* 11 , ADDSVE 




05238 


26 


05942 


02*72 


02300 




8 


COMLD 




05250 


*9 


04458 


00000 


02310 




ERROR MESSAGE SUBROUTINE 












02320 


EPRINT 


TF 


ERMESS*l6,EPRINT-l 




05262 


26 


05985 


05261 


02330 




RCTV 






0527* 


3* 


00000 


00 1 02 


023*0 




WATY 


ERMESS 




05286 


39 


05969 


00100 


02350 




RCTY 






05296 


3* 


00000 


00102 


02360 




WATY 


JOBOUT 




05310 


39 


05793 


00100 


02370 




BB 






05322 


42 


00000 


00000 


02380 




DORG 


«-9 




0532* 








02390 




MAINLINE OVERLAP ROUTINE 












02*00 


E R ML 


RCTY 






0532* 


3* 


00000 


00102 


02*10 




WATY 


NAMBUF-10 




05336 


39 


02431 


00100 


02*20 




WNTY 


INRK+18 




053*8 


38 


07418 


00100 


02*30 




WATY 


OVRMES 




05360 


39 


05775 


00100 


02**0 




RCTY 






05372 


34 


00000 


00102 


02*50 




WATY 


JOBOUT 




0538* 


39 


05793 


00100 


02*60 




H 


MONCAL 




05396 


*9 


00796 


00000 


02*70 




DORG 


»-3 




05*0* 








02*80 


ENT 


BI 


♦♦12,3700 




05*0* 


*6 


05*16 


03700 


02*90 




8N I 


ERRET,1900 




05*16 


*7 


00602 


01900 


02500 




TDM 


IN0S*10,6 




05*28 


15 


00620 


00006 


02510 




B 


ERROR 




05**0 


*9 


0062* 


00000 


02520 




DORG 


•-3 




05**8 








02530 


C DOR TP 


RCTY 






05**8 


3* 


00000 


00102 


025*0 


REL ADO 


DS 


,—5 




05*5* 




0 




02550 




WATY 


LDMES 




05*60 


39 


05761 


00100 


02560 




WATY 


NAMBUF- 10 




05*72 


39 


02*31 


00100 


02570 




LOAO CARD OR TAPE STORED PROGRAMS 












02580 




TO 


C0TP*2,C0MSEC*73 




05*8* 


25 


06032 


07373 


02590 




SM 


CDTP*2,1,10 




05*96 


12 


06032 


000- I 


02600 


READ 


TFM 


I0RT,«+23,, GET INOICATOR RECORD 




05508 


16 


00565 


-5531 



729 
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02610 


B 


I0GT,CDTP-*,7 


05520 


*9 


00566 


-6026 


02620 


TFM 


♦♦23,INRK 


05532 


16 


05555 


-7*00 


02630 RMCMK 


BNR 


• ♦20 


055** 


45 


0556* 


00000 


026*0 


B 


READ 


05556 


*9 


05508 


00000 


02650 


DORG 


♦-3 


0556* 








02660 


AM 


RMCHK+11,1,10 


0556* 


11 


05555 


000-1 


02670 


CM 


RMCHK+ 11,1 NRK+80 


05576 


1* 


05555 


-7*80 


02680 


BNE 


RMCMK 


05588 


*7 


055** 


01200 


02690 


SF 


I MR** I 


05600 


32 


0 7*01 


00000 


02700 


CP 


INRK+2 


05612 


33 


07*02 


00000 


02710 


CF 


INRK43 


0562* 


33 


07*03 


00000 


02720 


CF 


INRK+4 


05636 


33 


07*0* 


00000 


02730 


CM 


INRK+4,4131,8 


056*8 


I* 


07*0* 


0M131 


027*0 


BNE 


HEADER 


05660 


*7 


05716 


01200 


02750 


RCTY 




05672 


3* 


00000 


00102 


02760 


TFM 


I0RT.»*23 


0568* 


16 


00565 


-5707 


02770 


B 


I OPT, TYPE-*, 7 


05696 


*9 


00532 


-6068 


02 780 


8 


C DOR TP 


05708 


*9 


05**8 


00000 


02790 


DORG 


•-3 


05716 








02800 HEADER 


C 


INRK+13, INOCON 


05716 


2* 


0 7*13 


06019 


02810 


BNE 


READ 


05728 


*7 


05508 


01200 


02820 


BNF 


REA0,INRK*16 


057*0 


** 


05508 


07*16 


02830 


B 


TSTVLD 


05752 


*9 


0*342 


00000 


028*0 


OORG 


•-3 


05760 








02850 LDMES 


OAC 


7, LOAD • 


05761 




7 


X 2 




LOAD 


• 










02860 OVRMES 


DAC 


9, OVERLAP' 


05775 




9 


X 2 




OVERLAP* 










02870 JOBOUT 


DAC 


1*,J0B ABANDONED ' 


05793 




1* 


X 2 




JOB ABANDONED ' 










02880 DME 


DSC 
22 


2,22 


05820 




2 




02890 


OSA 


OMEOOA 


05826 




5 


X 1 



02900 




DC i,» 
• 


05827 


I 


02910 


OMEOOA 


DO A ,l,0,l,INRK 


05828 


1* 






1-0000-01-7*00 






02920 




DC i,» 
* 


058*2 


1 


02930 


COM 


DSC 2,22 


058*3 


2 






22 






029*0 




OSA COMDDA 


058*9 


5 



02950 



DC 1,' 



02960 COMDDA DOA , 1 , 19663, 1 ,C0M$EC 

1J9663-01-7300 
02970 DC 1,» 



02980 EXT 
02990 



DSC 2,-22 
2K 

DSA EXTODA 



05849 
05850 

05852 

05866 

05667 

05873 



-3852 

1 



14 

1 
2 

5 X 



73 0 
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~58 76 






0 5000 




DC 


l,« 


05874 


1 






03010 


EXTDDA 


DDA 


,1,19783,3,0 


05876 


14 










U9783-03-0000 










03020 




OC 


it* 


05890 


1 






03030 


I NC 


OSC 


2,22 


05891 


2 










22 












03040 




OS A 


I NCDDA 


05897 


5 


X 


1 










05897 


-2506 






03050 




DC 


l»' 


05898 


1 






03060 


EQU 


DSC 


2,22 


05899 


2 










22 












03070 




DSA 


EQUODA 


05905 


5 


X 


1 










05905 


-5908 






03080 




DC 


1 * • 


05906 


1 






03090 


EQUDDA 


DDA 


,1,0,4, SUB TBL 


05908 


14 










1-0000-04-2522 










03100 




DC 


l.' 


05922 


I 






03110 


SVE 


DSC 


2,20,, LINKAGE TO SAVE COMMON AREA 


05923 


2 










20 












03120 




DSA 


SVEDDA 


05929 


5 


X 


1 










05929 


-2490 






03 130 




DC 


1, • 


05930 


1 






03140 


I NDR 


DSC 


2,22 


05931 


2 










22 












03 150 




DSA 


DDARtO 


05937 


5 


X 


2 










05937 


-7280 














05942 


-0000 






03160 




DC 


L* ' 


05943 


1 






0 3170 


D I M 


DSC 


2,22 


05944 


2 










22 












03180 




DSA 


01M0DA 


05950 


5 


x 


I 










05950 


-5952 






03190 




DC 


I, • 


05951 


I 






03200 


0 I MDDA 


DDA 


, 1,4800, I, INRK 


05952 


14 










1-4800-01-7400 








03210 




DC 


Li • 


05966 


1 






03220 


ERMESS 


DAC 


10, ERROR L • 


05969 


10 


X 


2 






ERROR 


L • 








03230 


ZERONE 


DC 


6, 100001 


05993 


6 










JOOOOl 










03240 


DIMSVE 


DSS 


20,, RESERVES CURRENT DIM ENTRY 


05994 


20 
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03250 


INDCON 


DC 6,987898,, INDICATOR RECORD CONSTANT 


06019 


6 








R87898 








03260 


MLLGTH 


DS 5,, LENGTH OF MAINLINE PROGRAM 


06024 


5 




03270 


CDINP 


DS I 


06025 


I 




03280 


CDTP 


DSA INRK 


06030 


5 


X 








06030 


-7400 




03290 




DC 3, • 
-0» 


06033 


3 




03300 


SECCT 


DC 2,0 
-0 


06035 


2 




03310 


ONETWO 


DSC 5,00101 


06036 


5 








00101 








03320 


LOED 


OAC 9, LOADED • 


06043 


9 


X 






LOADED' 








03330 


BL 2 


DSC 2,-22 
2K 


06060 


2 




03340 




DSC 1,0 

0 


06062 


I 




03350 




DC 5,149' 


06067 


5 








-149' 








03360 


TYPE 


DSA DATA 


06072 


5 


X 








06072 


-6077 




03370 




DC 3,06' 
-6' 


06075 


3 




03380 


DATA 


DAC 6,»0ATA' 


06077 


6 


X 






•DATA' 








03390 


ZEROS 


DSC 50,0 


06088 


50 








00000000000000000000000000000000000000000000000000 








03400 




DSC 50,0 


06138 


50 








00000000000000000000000000000000000000000000000000 








03410 




DSC 50,0 


06188 


50 








00000000000000000000000000000000000000000000000000 








03420 




OSC 50,0 


06238 


50 








00000000000000000000000000000000000000000000000000 








03430 




DSC 50,0 


06288 


50 








00000000000000000000000000000000000000000000000000 








03440 




OSC 50,0 


06338 


50 








00000000000000000000000000000000000000000000000000 








03450 




DSC 50,0 


06 388 


50 








00000000000000000000000000000000000000000000000000 








03460 




OSC 50,0 


06438 


50 








00000000000000000000000000000000000000000000000000 








03470 




DSC 50,0 


06488 


50 








00000000000000000000000000000000000000000000000000 








03480 




DSC 50,0 


06538 


50 








00000000000000000000000000000000000000000000000000 








03490 




DC I,' 
« 


06588 


1 




03500 




DORG 7280 


07280 






03510 


OOAR 


DSS 20 


07280 


20 




03520 


COMSEC 


DSS 100,, SYSTEM COMMUNICATION SECTOR 


07300 


100 




03530 


INRK 


OSS 100,, READ IN AREA FOR INDICATOR RECORD 


07400 


100 




03540 




DEND 


00000 







732 



1620 FORTRAN M-0 LOADER 



ADOCQ* 


02450 


EN TSC 3 


02261 


NAMBUF 


AOOSVf 


02472 


entsin 


02508 


ONETWO 


COQATP 


05448 


ENTSQT 


02318 


OVA LAP 


CDTPLO 


05038 


ENTSWD 


02288 


OVJtMES 


COMAOO 


02231 


EPRINT 


05262 


PAOGST 


COMOOA 


0585? 


EQADOA 


02455 


ROPAOG 


COMPEA 


03930 


EQSRCH 


03882 


AELAOO 


COM SEC 


07300 


E QUOD A 


05908 


RE IF AM 


DINDDA 


05952 


ERNESS 


05969 


812 


OIHSVE 


05994 


EXTDOA 


05876 


CALL2 


OMEDOA 


05828 


EXT I NO 


02463 


CDJNP 


ENTA8S 


02323 


FLGRMK 


02445 


CDTP 


ENTATN 


02313 


FOUND I 


04150 


CLEAR 


ENFCOS 


02303 


MFAOER 


05716 


COMLO 


ENTOED 


02298 


INC 00 A 


02506 


CONP 


ENTOAA 


02293 


INDCON 


06019 


COM 


ENTEXP 


02253 


J A YE NT 


03534 


OATA 


ENTFET 


02283 


JOBOUT 


05793 


OOAR 


ENTFIO 


02273 


LIBSUB 


02394 


OIM 


ENTREC 


02278 


L NX I NO 


03856 


010 


ENTSCl 


02258 


MLLGTH 


06024 


OME 


ENTSC2 


02263 


MONCAL 


00796 


ENTLN 



END OF ONE ASSEMBLY. 



1 2 






PAGE 


9 


02441 


ENT 


05404 


ML 


04618 


06036 


EQU 


05899 


Nl 


02233 


02444 


ERML 


05324 


N2 


02238 


05775 


ERRET 


00602 


NXTRO 


04022 


02226 


ERROR 


00624 


R E AO 


05508 


04978 


ext 


05867 


RECLG 


02243 


05454 


FOUND 


04090 


RMCHK 


05544 


05178 


F 


02219 


SCHLO 


04990 


06060 


INC 


05891 


SECCT 


06035 


05014 


I NOR 


05931 


SECT 


02466 


06025 


INOS 


00610 


SVE 


05923 


06030 


INRX 


07400 


TYPE 


06072 


04750 


IOGT 


00566 


M 


02240 


04458 


10 1 NO 


02461 


ZEROS 


06088 


03962 


I OPT 


00532 


SCADDR 


02460 


05843 


I OA T 


00565 


SIZEOK 


04670 


06077 


K 


02221 


SUBTBL 


02522 


07280 


LOODA 


0247* 


SVEOOA 


02490 


05944 


LDEO 


06043 


TRYSZE 


04798 


00816 


LDMES 


05761 


TSTVLD 


04342 


05820 


LNK 


04550 


2ER0NE 


05993 


02248 


NLIND 


02462 


ZROTST 


02467 



73 S 



1620 FORTRAN I 1-0 LOADER BLOCK 3 









1620 FORTRAN II-D LOADfR BLOCK 1 








PAGE 


000 10 


• 














00020 


• 














00030 


I0PT 


OS 


.532 


00532 




o 




00040 


I0GT 


DS 


• 566 


00568 




o 




00050 


10RT 


OS 


.565 










00060 


M0NCAL 


DS 


.796 


00796 








00070 


• *>• 


COMMUNICATION AREA 










00080 




DORG 




022 18 








00090 


F 


DS 


{.. rLUATING POINT NURD LENGTH 






* 




00100 


K 




Oi rlXcO POINT WORD LENGTH 


02221 




* 




00110 


PR0GST 


DS 


5*. STARTING ADDRESS OF MAINLINE PROGRAM 


02226 




* 




00120 


C0MADD 


DS 


5.. STARTING AODRESS OF COMMON AREA 


02231 








00130 


Nl 


DS 


2.. NUMBER OF WORDS IN LOGICAL RECORD 


02233 




_ 
* 




00140 


N2 


DS 


5.. NUMBER Or LOGICAL RECORDS 


02238 




* 




00150 


w 


DS 


2. . WORD LENGTH 


A**A 2 




* 




00160 


RECLG 


DS 


3». RECORD LENGTH 


02243 








00170 


ENTLN 


DS 


5,, ENTRY ADORESS TO LOG SUBROUTINE 


02248 








00180 


ENTEXP 


DS 


5,, ENTRY ADORESS TO EXPONENTIAL SUBROUTINE 


02251 








00190 


ENTSC1 


OS 


5., ENTRY AOORESS TO SINGLE SUBSCRIPT SUBROUTINE 


02258 








00200 


ENTSC2 


DS 


5,. ENTRY ADORESS TO DOUBLE SUBSCRIPT SUBROUTINE 


02263 




* 




00210 


ENTSC3 


OS 


5.. ENTRY AOORESS TO TRIPLE SUBSCRIPT SUBROUTINE 


02268 








00220 


ENTF ID 


DS 


5,, ENTRY ADDRESS TO FINO SUBROUTINE 


02273 




* 




00230 


ENTREC 


DS 


5,. ENTRY ADDRESS TO RECORD SUBROUTINE 


2??I? 








00240 


ENTFE T 


DS 


5., ENTRY AODRESS TO FETCH SUBROUTINE 


02283 








00250 


ENTSWD 


DS 


5,, ENTRY ADDRESS TO SWITCH D SUBROUTINE 


02288 








00260 


ENTDRR 


DS 


5,, ENTRY ADORESS TO ARRAY SUBROUTINE 


02293 




5 




00270 


ENTOEO 


DS 


5., ENTRY AOORESS TO DISK END SUBROUTINE 


02298 








00280 


ENTCOS 


DS 


5,, ENTRY ADORESS TO COSINE SUBROUTINE 


02 303 








00290 




DS 


5,, ENTRY ADDRESS TO SINE SUBROUTINE 


02308 








00300 


ENTATN 


DS 


5,, ENTRY AOORESS TO ARCTANGENT SUBROUTINE 


02313 




I 




00310 


ENTSQT 


DS 


5., ENTRY AOORESS TO SQUARE ROOT SUBROUTINE 


02318 




5 




00320 


EN TABS 


DS 


5,, ENTRY ADORESS TO ABSOLUTE SUBROUTINE 


02323 




5 




00330 




DS 


70., RESERVED FOR ENTRIES TO ADDED SUBROUTINES 


02393 




70 




00 340 


L I BSUB 


DSS 


30. .LIBRARY SUBROUTINE INDICATORS 


02 394 




30 




00350 




DC 




02424 




1 




00360 




MAINLINE TABLE SEARCH 










00370 




DORG 


2426 


02426 








00380 


N AMBUF 


DC 


16.0 


02441 




16 








-000000000000000 














DC 


2. ' 


02443 








00400 


OVRL AP 


DS 


1 


02444 










F L GRMK 


DS 


1 


02445 










AUULUM 


DS 


5 


02450 












DS 


5 


02455 










SC AODR 


DS 


5 


02460 








00450 




DS 


I 


02461 








00460 


ML IMD 


DS 


I 


02462 




} 




00470 


ExriNO 


DS 


1 


02463 








00480 


SECT 


DS 


3 


02466 








00490 


ZRQTST 


DS 


1 


02467 




I 




00500 


AOOSVE 


DS 


5 


02472 








00510 




DC 


I . * 


02473 








00520 


L00OA 


DOA 


. l.O.O.SUBTBL 


02474 




14 








1-0000-00-2522 
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PAGE 


00530 




DC 


1.' 


02488 




1 




00540 


SVEDOA 


DDA 


.1.0,21,0 


02490 




14 








1-0000-21-0000 










00550 




OC 


1. • 


02504 




1 




00560 


DATA 


DC 


1,0 


02505 




1 








DDA 


» 1.0, 10. SUBTBL 


02506 




14 








1-0000-10-2522 










00 




DC 


1* ' 


02520 




1 




00590 




DS 


I 


02521 




1 




OUoUO 


..... 


DSS 


1000 


02522 




1000 




00610 




OC 


12.' 


03533 




12 








-0000000000* 










00620 


RMTBL 


CM 


COMSEC*75, ,10, BRANCH IF NO LOCAL CARDS 


03534 


14 


07375 


000—0 






BE 


LOO INC 


03546 


46 


05086 


01200 


nn«!<;n 




TFM 


IORT,»+23 


03558 


16 


00565 


-3581 






B 


I0GT,LD,7 


03570 


49 


00566 


-7221 


00660 




TFM 


•♦23.SU8TBL+11 


03582 


16 


03605 


-2533 


22*12 


SRCH 


BNR 


•♦32,,. TEST FOR END OF TABLE 


03594 


45 


03626 


00000 


00680 




TOM 


TBLINO.l 


03606 


15 


0361 5 


00001 


00690 


T BL I NO 


DS 


.♦-2 


03615 




0 




00700 




B 


LODINC 


2»?i? 


49 


05086 


nnnnn 

uuuoo 


007 10 




DORG 


•-3 


????? 








00720 




C 


C0MSEC*35,SRCH+ll.ll« COMPARE NAMES 




24 


Zoi a 


2rt2« 


00 7 30 




BE 


TBLLD 




?t 




01200 






AM 


SRCH+ll.20,10. INCREMENT TO NEXT ENTRY 


03650 


1 1 


03605 


OOOKO 






B 


SRCH 


03662 


49 


03594 


00000 


_ 




TF 


EQU00A+5.EQA0DR 


03674 


26 


0701 1 


02455 


00770 




TF 


INRK+48.SECT 


03686 


26 


07448 




00780 




TFM 


IORT.o+23.. READ IN FOUR SECTORS OF EQUIV. TABLE 


0 3698 


1 6 


22«* 5 


— 372 1 


00790 




B 


I0GT.EQU.7 


03710 


49 


00566 


•6997 


vUOUU 


COMPER 


TFM 


COMPMl.SUBTBL+ll., SEARCH EQUIV. TABLE 


03722 


1 6 


03765 


— 2533 


008 10 




BNR 


•♦20,C0MP*ll,ll 


2*1** 


^' 


2* J 








B 


EQSRCH-l, ,6 


03746 


49 


0367L 


ooooo 


nnaan 




DORG 


•-3 


03754 








00840 


COMP 


C 


NAMBUF 


03754 


24 


02441 


00000 






BE 


FOUND 


03766 


46 


03874 


01200 


00860 




AM 


COMP*ll. 16,10, INCREMENT TO NEXT NAME 


03778 


1 1 


03765 


000 J6 


222I2 




CM 


C0MP*ll,SUBTBL*4ll,, TEST FOR END OF TABLE 


03790 


14 


03765 


-2933 


00800 




BNE 


C0MPERM2 






n?Z2ii 








CM 


INRK*48,0,9. TEST FOR END OF EQUIV. TABLE 


03814 


1 4 


21* * 


00-00 






BE 


EQSRCH-l, ,6 


03826 


46 


0367L 


01200 


nnol 2 




SM 


INRK*48.4, 10, DECREMENT SECTOR COUNT 




1 2 


2I«t? 


222 * 






AM 


E QUOD A* 5, 4, 10 


03850 


1 1 


0701 1 


000-4 


nno*n 
nno2n 




B 


COMPER-24 


03862 


t? 


2*t?f 


t\f\t\f%n 
UOUUU 




FOUND 


AM 


COMP*U.4,10» INCREMENT TO GET DIM NUMBER 


03874 


1 1 


01765 


000-4 


00970 




TFM 


DIMODA*5,4800 


03886 


16 


0T071 


—4800 


00980 




S 


DIM0DA*6,C0MP*ll,ll 


03898 


22 


07072 


0376N 


00990 




S 


DINDDA*6,C0MP*ll.ll 


03910 


22 


07072 


0376N 


01000 




TDM 


DIMDDA+6. . 11 


03922 


15 


07072 


0000- 


01010 




READ IN DIM SECTOR 










01020 




TO 


SECCT.COMPMl.il 


03934 


25 


07132 


0176N 


01030 




BTM 


INCGET,»*12 


03946 


17 


06822 


-3958 



736 
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CI 040 




SF 


ENDTSTM 1 , ,6» SET -LOADED- INDICATOR 


03958 


32 


0566R 


00000 


0 1 050 




BTM 


rNCPUT,**12 


03970 


17 


06786 


-3982 


oio6o founoi 


TFM 


IQRT,«*23 


03982 


I* 


00565 


-4005 


01070 




8 


I0CT,0IM t 7 


03994 


49 


00566 


- 7058 


01080 




CM 


SECCT»S,10 


0400* 


14 


07132 


000-5 


01090 




81 


• ♦24 


04018 


47 


04042 


01300 


01100 




SM 


SECCT,5,10t CALCULATE DIM ENTRY ADDRESS 


04030 


12 


07132 


000-3 


OHIO 




MM 


SECCT t 20t9 


04042 


13 


07132 


00-20 


01120 




AM 


99 f INRK 


04054 


11 


00099 


-7400 


01 no 




TR 


DIMSVE.99.U 


0406* 


31 


07102 


0009R 


011*0 




TO 


DMEDDA»DIMSVE 


04078 


25 


06974 


07102 


01150 




TF 


DMEDDA*5,0IM5VE*5 


04090 


26 


06979 


07107 


01160 




TR 


DDAR ,DMEDDA, , MOVE SECTOR ODA TO PROGRAM DOA AREA 


04102 


31 


07280 


06974 


01170 




TFM 


I0RT,«*23,, READ IN INDICATOR RECORD 


04114 


16 


00565 


-4137 


01180 




R 


IOGT , DME t 7 


04126 


49 


0056* 


-696* 


01 190 




it 


D0AR*8t DIMSVE*8» , MOVE SECTOR COUNT 


04 1 38 


26 


07288 


07110 


01200 




INDICATOR RECORD CHECK 










01210 


TSTVLO 


C 


INRK*13,INDC0N,, CHECK FOR VALID INDICATOR RECORD 


04150 


24 


0 74 1 3 


04217 


01220 




BE 


RELFRM 


041*2 


46 


06526 


01200 


01230 




C 


INRK*5,INDC0N,* CHECK FOR VALIDITY IN CORE IMAGE 


04174 


24 


07405 


04217 


0 1240 




BE 


• ♦56 


04186 


46 


04242 


01200 


01250 




BTM 


EPRINT,75,8 


04198 


17 


06858 


0-075 


01260 




RCTY 




04210 


34 


00000 


00102 


01270 


IN DC ON 


DC 


6,987898, »-4 


04217 




6 








R 8 7898 










01280 




WATY 


JOBOUT 


04222 


39 


06939 


00100 


01290 




B 


MONCAL 


04234 


49 


00796 


00000 


01300 




DORG 


• -3 


04242 








01310 




TF 


IN0R*11<A0DSVE 


04242 


26 


07056 


02472 


01320 




TOM 


IN0R*7,,, CONVERT OEFtNER TO CORE I MAGE 


04254 


15 


07052 


00000 


01390 




OC 




04265 




1 




01340 




AM 


D0AR*5,l,10, INCREMENT DISK AOORESS BY ONE 


04266 


11 


07285 


000-1 


01350 




SM 


D0AR*B,1,10, DECREMENT SECTOR COUNT BY ONE 


04778 


12 


07288 


000-1 


01360 




B 


SUBPRO-24 


04290 


49 


06586 


00000 


01370 




OORG 


• -3 


04298 








01380 


TRYSZE 


TF 


ADDSVE * ADOCOW 


04298 


26 


02472 


02450 


01390 




AM 


ADDSVE, 1. 10 


04310 


11 


02472 


000-1 


01400 




A 


SPROST, ADDSVE 


04322 


21 


06168 


02472 


01410 




A 


AODCOW,INRK*22 


04 334 


21 


02450 


07422 


01420 




TOM 


INRK*23 


04346 


15 


07423 


00000 


01430 




DC 


!,•,• 


04357 




1 




01440 




C 


AODCOW.COMADO 


04358 


24 


02450 


02231 


0 1 450 




BL 


SIZEOK 


04370 


47 


06138 


01300 


01460 




S 


ADDC0W,INRK*22 


04382 


22 


02450 


07422 


01470 




OVERLAP INDICATION 










01480 




TOM 


OVRLAP.l,, TURN ON OVERLAP INDICATOR 


04 394 


15 


02444 


00001 


01490 




RCTY 




04406 


34 


00000 


00102 


01500 


ONETWO 


DSC 


5,O0l0W*-9 


04408 




5 








00 1 01 










01510 




WATY 


NAMBUF- 10, , , TYPE PROGRAM NAME 


04418 


39 


02431 


00100 


01520 




WNTY 


INRK* 18, , , TYPE LENGTH 


04430 


38 


07418 


00100 


01530 




WATY 


OVRMES, .. TYPE OVERLAP 


04442 


39 


06921 


00100 


01540 




BO 


•*20,EXTIND, , BRANCH IF PROGRAM ON CARDS OR TAPE 


04454 


43 


04474 


02463 


01550 




B 


C0MP*24,,, BRANCH TO GET NEXT NAME 


04466 


49 


03778 


00000 
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01560 




OORG 


♦ -3 


04474 








01570 




ROUTINE TO READ INDICATOR RECORD FROM CARDS OR TAPE 










01580 




LOAD CARO OR TAPE STORED PROGRAMS 










01590 


PHASEC 


BTM 


INCGET,»»12 


04474 


17 


06822 


-4486 


01600 




TD 


CDTP*2,C0MSEC*73 


04486 


25 


07129 


07373 


01610 




SM 


CDTP*2,i,lO 


04498 


12 


07129 


000-1 


01620 


READ 


TFM 


I0RT,»*23,, GET INDICATOR RECORD 


04510 


16 


00565 


-4533 


01630 




B 


IOGT,C0TP-4,7 


04522 


49 


00566 


-7123 


016*0 




TOM 


EXT I NO » 1 


04534 


15 


02463 


00001 


01650 




TFM 


• ♦ 35 , SURTBL-9 


04 546 


16 


04581 


-2513 


01651 


GONXT 


AM 


ENTST*U, 20,10 


04558 


11 


04581 


OOOKO 


01660 


ENTST 


BNR 


•♦20,, , TEST FOR END OF TABLE 


04570 


45 


04590 


00000 


01670 




B 


READ 


04582 


49 


04510 


00000 


01680 




OORG 


•-3 


04590 








01690 




TFM 


•♦23, INRK 


04590 


16 


04613 


-7400 


01700 


RMCHK 


BNR 


• ♦20 


04602 


45 


04622 


00000 


01710 




B 


READ 


04614 


49 


04510 


00000 


01720 




OORG 


#-3 


04622 








01730 




AM 


RMCHK*ll,l,10 


04622 


11 


04613 


000- 1 


01740 




CM 


RMCHK* 11,1 NRK*80 


04634 


14 


04613 


-7480 


01750 




BNE 


RMCHK 


04646 


47 


04602 


01200 


01760 




SF 


INRK* I 


04658 


32 


07401 


00000 


01770 




CF 


INRK*2 


046 70 


33 


07402 


00000 


01780 




CF 


INRK +3 


04682 


33 


07403 


00000 


01790 




CF 


INRK* 4 


04694 


33 


07404 


00000 


01800 




CM 


INRK*4,4131,8 


04706 


14 


07404 


0M131 


01810 




BNE 


HEADER 


04718 


47 


04762 


01200 


01820 




RCTY 




04730 


34 


00000 


00102 


01830 




WATY 


DATA 1 


04742 


39 


07231 


00100 


01S40 




8 


PHASED 


04754 


49 


05930 


00000 


01850 




OORG 


• -3 


047*2 








01860 


HEADER 


C 


INRK*13,IN0C0N,. TEST FOR INDICATOR RECORD 


047*2 


24 


07413 


04217 


01870 




BNE 


READ 


04774 


47 


04510 


01200 


01880 




BNF 


• ♦20.INRKM6 


04786 


44 


04806 


0741* 


01890 




8 


READ 


04798 


49 


04510 


00000 


01900 




OORG 


•-3 


0480* 








01910 




C 


INRK*25,ENTST*U,U V COMPARE NAMES 


0480* 


24 


07425 


0458J 


01920 




BNE 


GONXT 


04818 


47 


04558 


01200 


01930 




TF 


NAMBUF, ENTST* 11 , 11 


04830 


26 


02441 


0458J 


01940 




AM 


ENTST* 11, 6* 10 


04842 


11 


04581 


000-* 


01950 




BNF 


• *32,ENTST*ll,U 


04854 


44 


04886 


0458J 


01951 




AM 


ENTST* 11, 14, 10 


048** 


11 


04581 


000J4 


01960 




B 


ENTST 


04878 


49 


045 70 


00000 


01970 




DORG 


• -3 


0488* 








01980 




SF 


ENTST*ll,,6, SET -LOADED* INOICATO* 


0488* 


32 


04S8J 


00000 


01990 




BTM 


INCPUT,»*12 


04898 


17 


06786 


-4910 


02000 




8 


RELFRM 


04910 


49 


06526 


00000 


02010 




OORG 


•-3 


04918 








02050 


•••••• 


FLIP SUBPROGRAM TABLE SEARCH 










02060 


TBLLO 


AM 


SRCH*U,3,10 


04918 


11 


03605 


000-3 


02070 




TF 


FLP0DA*8,SRCH*U, 11 


04930 


26 


07038 


0360N 


02080 




AM 


SRCH*ll,5,l0 


04942 


11 


03*05 


000-5 


02090 




TF 


?LP0DA*5,SRCM*ll t U 


04934 


2* 


07035 


0360N 


02100 




TFM 


10RT,**23 


0*9** 


1* 


005*5 


-4989 


02110 




B 


10GT V FLP,7 


04978 


49 


003** 


-7021 


02120 




SF 


COMPAR 


04990 


32 


05038 


00000 
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o?no 




TFM 


C0MPAAUUSUBTBLM1, i INITIALIZE POINTER 


05002 


16 


05049 


-2533 


02140 




TF 


COMPRE ♦lit AOOCOW 


05014 


26 


05129 


02450 


o?iso 




AN 


COMPRE*ll,l,lO 


05026 


u 


05129 


000-1 


02160 


COMPAR 


BNR 


COMPRE 


05038 


45 


05118 


00000 


02170 




BNF 


COMPRE, COMPAR 


05050 


44 


051 18 


05038 


02180 




TFM 


I0RT,»*2J 


05062 


16 


00565 


-5085 


02190 




B 


I0PT,FLP»7 


05074 


49 


00532 


-7021 


02200 




IN-CORE SUBPROGRAM TABLE SEARCH AND LOAD 










02210 


LODINC 


re* 


Turret _ . ■ i 


05086 


17 


06822 


-5098 


02220 








05098 


33 


05038 


00000 


02230 




o 
D 


f HUB Aft _ 1 4. 


05 1 10 


49 


05002 


00000 


022*0 






•—3 


05118 








02250 


COMPRE 


BNR 


SERCH 


05 1 IB 


45 


05138 


00000 


02260 




B 


SERCH3 


05 1 30 


49 


05570 


00000 


02270 




DORG 


• -3 


05 1 38 








02280 


SERCH 


BD 


•♦32»C0MPRE*l 1,11 


05138 


43 


051 70 


0512R 


022*>0 




AM 


COMPRE+l I ,18,10 


05 1 50 


1 1 


05129 


000J8 


02300 




B 


COMPRE 


05162 


49 


051 18 


00000 


02310 




DORG 


• -3 


05 1 70 








02320 




AM 


COMPRE+11,11,10 


05 1 70 


1 1 


05129 


000 J 1 


02 530 




BNF 


SERCH2 i COMPAR 


05162 


44 


05422 


05038 


02 340 




c 


COMPAR + 1 1 , COMPRE* I 1 ,611 , CHECK FOR SAME NAME 


05 194 


24 


0504R 


0512R 


02350 




BE 


SERCHl 


05206 


46 


05238 


01200 


02 360 




AM 


COMPRE*11,7,10 


052 18 


I i 


05129 


000-7 


02370 




B 


COMPRE 


052 30 


49 


051 18 


00000 


02380 




DORG 


• -3 


052 38 








02 390 


S E H 1 


SM 


COMPRE + 11. 11, 10 


052 38 


1 2 


05129 


000 J 1 


02400 




TDM 


COMPRE+11,0,6 


052 50 


I 5 


051 2R 


00000 


02410 




AM 


COMPAR+11,5, 10 


05262 


1 1 


05049 


000-5 






AM 


COMPRE+11, 16. 10 


05274 


1 1 


051 29 


000 J6 


02430 




A 


C0MPRE+11,AD0SVE,6 


05286 


1 1 


0512R 


02472 






BNF 


•♦56, COMPAR 


05298 


44 


05 354 


05038 


02450 




CM 


COMPAR+11,,67 


05 310 


1 4 


0504R 


-0000 


02460 




BNE 


• ♦32 


05 322 


4 7 


05354 


0 1 200 


02470 




TF 


C0MPAR+11,C0MPRE+11,611, MOVE ADDRESS IN 








051 2R 


02480 




B 


SERCM2-20 


05346 


4<* 


05402 




0249G 




OORG 


• -3 


05 354 












ROUTINE TO PLACE INDIRECT ENTRY ADDRESSES INTO SUBPROGRAMS 














TF 


•♦35,C0MPAR+ll,ll 






05389 


0504R 


02520 




TF 


• ♦1 B.COMPRE^l 1 , 1 1 


05366 


26 


05 384 


05 1 2R 






TFM 


.*, MOVE ADDRESS INTO PROGRAM 




1 6 


nnnoo 


-0000 






SF 


•-6, ,6 






nsnf a 


uuuuu 






AM 


COMPAR+11,15, 10 


f 












B 


COMPAR-24 


J: j 




n«;ni u 




<\-)<i 7n 




DORG 


• -3 














ROUTINE TO LOAD ENTRIES IN IN-CORE SUBPROGRAM TABLE 














CM 


C0MPARU1,SUBT5L + 101 1 






.... . 


_ _ 


02600 




BNE 


• ♦32 


05434 


47 


05466 


01200 


026 10 




BTM 


EPRINT,79,8 


05446 


1 7 


06858 


0-079 


02620 




R 


MVADD+24 


05458 


49 


05538 


00000 


02630 




DORG 


• -3 


05466 








02640 




BNR 


SERCH+56,C0MPAR+ll ,11 


05466 


45 


05194 


0504R 


02650 




TF 


C0MPAR+ll,C0MPRE*il,6ll 


05478 


26 


0504R 


0512R 


02660 




AM 


COMPAR+11,5, 10 


05490 


11 


05049 


000-5 


02670 




AM 


COMPRE+11,5,10 


05502 


11 


05129 


000-5 


02680 


M V ADO 


TF 


C0MPAR+li,C0MPREfll,61l 


05514 


26 


0504R 


0512R 



730 
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02690 




A 


C0MPAR+ll,ADDSVE,6 


05526 


21 


0504R 


02472 


02700 




AM 


COMPAR+11,15, 10 


05538 


11 


05049 


000J5 


02710 




AM 


COMPRE+l 1,2, 10 


05550 


U 


05129 


000-2 


02720 




B 


COMPAR 


05562 


49 


05038 


00000 


02730 




OORG 


• -3 


05570 








02 740 


SERCH3 


BNR 


• ♦44,C0MPAR+ll,U 


05570 


45 


05614 


0504R 


02750 




TDM 


COMPRE+11,,6 


05582 


15 


0512R 


00000 


02760 




BTM 


INCPUT,»*12 


05594 


17 


06786 


-5606 


02770 




0 


PHASEB 


05606 


49 


05634 


00000 


02780 




DORG 


• -3 


05614 








02790 




AM 


COMPAR+11,20, 10 


05614 


11 


05049 


OOOKO 


02800 




B 


COMPAR-24 


05626 


49 


05014 


00000 


02810 




DORG 


• -3 


05634 








02820 




LOAD DISK-STORED SUBPROGRAMS 










02830 


PHASEB 


BTM 


INCGET,»+12 


05634 


17 


06822 


-5646 


02840 




TFM 


• ♦23,SUBTBLUl 


05646 


16 


05669 


-2533 


02850 


ENUTST 


BNR 


•+44,,, TEST FOR END OF TABLE 


05658 


45 


05702 


00000 


02860 




CM 


PROCOW, ,9 


05670 


14 


05844 


00-00 


02870 




BNE 


PHASEC 


05682 


47 


044 74 


01200 


02880 




8 


CALL 3 


05694 


49 


05990 


00000 


02890 




DORG 


•-3 


05702 








02900 




TF 


NAMBUF,ENDTST*ll, U 


05702 


26 


02441 


0566R 


02910 




AM 


ENDTSTM 1,6, 10 


05714 


11 


05669 


000-6 


02920 




BNF 


INCl3-60,ENDTSmi,ll 


05726 


44 


05758 


0566R 


02930 




AM 


ENDTST*U,14,10 


05 738 


11 


05669 


000J4 


02940 




B 


ENDTST 


05750 


49 


05658 


00000 


02950 




DORG 


♦-3 


05758 








02960 




BTM 


INCPUT,»*12 


05758 


17 


06786 


-5770 


02970 




BTM 


EQSRCH,**12,, SEARCH EQUIVALENCE TABLE 


05770 


17 


03674 


-5782 


02980 




RETURN IF ENTRY NOT FOUND IN EQUIV. TABLE 










02990 




AM 


ENDTST*lltltlO 


05782 


11 


05669 


000- 1 


03000 




BTM 


INCGET,»*12 


05794 


17 


06822 


-5806 


03010 




BNF 


•♦32,£NDTSmi, 11 


05806 


44 


05838 


0566R 


03020 


INC13 


AM 


ENDTST*U,13»10 


05818 


11 


05669 


O0OJ3 


0 30 30 




B 


ENDTST 


05830 


49 


05658 


00000 


03040 




DORG 


•-3 


05838 








03050 




TYPE -LOAD NAME- 










03060 




RCTY 




05838 


34 


00000 


00102 


03070 


PROCOW 


DC 


3.0, •-S 


05844 




3 




03080 




-00 
WATY 


LDMFS 


05850 


39 


07153 


00100 


03090 




WATV 


NAMBUF-10 


05862 


39 


02431 


00100 


03100 




BTM 


INCGET,»*12 


05874 


17 


06822 


-5886 


03110 




SF 


ENDTSTMl.,6, SET -TYPED- 1N01CAT0R 


05886 


32 


0566R 


00000 


03120 




AM 


PROCOW, 1,10 


05898 


11 


05844 


000- 1 


03130 




BTM 


INCPUT,**, 2 


05910 


17 


06786 


-5922 


03140 




B 


INC13 


05922 


49 


05818 


00000 


03150 




OORG 


•-3 


05930 








03160 


•••••• 


CHECK AND TYPE OUT NAMES OF UNLOADED SUBPROGRAMS 










03170 


PHASED 


TOM 


OATAtl 


05930 


15 


02505 


00001 


03180 




TFM 


•♦35,SUBT8L+l 


05942 


16 


05977 


-2533 


03190 




TDM 


MORE 


05954 


15 


06079 


00000 


03200 




BNR 


• ♦48 


05966 


45 


06014 


00000 


03210 




BD 


PHASEC, MORE 


05978 


43 


04474 


06079 


03220 


CALL 3 


TFM 


IORT,»*23 


05990 


16 


00565 


-6013 


03230 




B 


I0GT.BL3.7 


06002 


49 


00566 


-7166 



740 
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l' .'2*0 TF NAM8UF,PMA$ID**7,U 

(3250 AM PMASE0+*7,6,10 

0 3260 BNF •♦32, PHASED**?, I I 

OWTO AN PHASED^*?, 14,10 

C3280 B PMASE0O6 

0 3290 DORG »-3 

03300 TOM MORE, I 

03310 MORE OS ,«-2 

03320 RCTY 

0 3330 TOM OATA,0 

033*0 WATY LDNES 

03350 WATY NAMBUF-10 

03360 B *-80 

03370 OORG »-3 

03380 SI2E0K BO **2*,0VRLAP 

0 3390 BNC 1 »*96 

03*00 RCTY 

03410 SPROST OS ,»-5 

03*20 WATY NAMBUF-10,,, TYPE OUT NAME 

03*21 SPTV 

03*30 WNTY ADOSVE-* 

03**0 SPTY 

03*50 SPRST OS ,»-5 

03*60 WNTY IMRK*18,,, TYPE OUT LENGTH 

03*70 WATY LDED 

03*80 •••••• LOAD PROGRAMS ROUTINE 

03*90 TF INDR*11,ADDSVE 

03500 BO •♦2*,EXTIN0 

03510 TF ENTST*11,EN0TST*11 

03520 SM tMTST*ll, 1,10 

03530 TF •MB.ENTST+ll ,11 

03540 TF ENTST*H, SPROST, 6 

03550 ROPROG BO CDTPLD.EXTIND, , BRANCH IF PROGRAM IN CARD OR TAPE 

03560 SCHLI) TFM IORT,#*23,, GET PROGRAM FROM DISK 

03570 B I0GT,INDR,7 

03580 B RMTBL 

03590 DORG »-3 

03600 ROUTINE TO LOAD PROGRAM FROM CARD OR TAPE 



03610 


CDTPLD 


TOM 


*16 


03620 




DC 




03630 




TD 


428.C0MSEC+73 


03640 




SF 


*28 


03650 


MLLGTH 


DS 


, • 


03660 




CF 


*29 


03670 




TF 


434,ADDSVE 


03680 




SF 


489 


03690 




TF 


COMSEC+98, INRK*79 


03700 




TFM 


IORT,»*23., PUT 1 


03710 




B 


I0PT,C0M,7 


03720 




TFM 


IORT,»*23., GET 


03730 




B 


I0GT,EXT,7 


037*0 




SM 


PROCOM, 1,10 


03750 




TDM 


EXT I ND 


03760 




8 


RMTBL 


03770 




OORG 


•-3 



PUT BACK COMMUNICATION SECTOR 



0601* 


26 


02**1 


0597P 


06026 


11 


05977 


000-6 


060 38 


4* 


06070 


0597P 


06050 


11 


05977 


OOOJ* 


06062 


*9 


05966 


OOOOO 


06070 








06070 


15 


06079 


00001 


06079 




0 




060B2 


3* 


00000 


00102 


0609* 


15 


02505 


OOOOO 


06106 


39 


07153 


00100 


061 IB 


39 


02*31 


00100 


06130 


*9 


06050 


OOOOO 


06138 








06138 


*3 


06162 


02*** 


06150 


*7 


062*6 


00100 


06162 


3* 


00000 


00102 


06168 




0 




0617* 


39 


02*31 


001 00 


06186 


3* 


00000 


00101 


06198 


38 


02*68 


00100 


06210 


3* 


ooooo 


00101 


06216 




0 




06222 


38 


07*18 


00100 


0623* 


39 


07135 


00100 


062*6 


26 


07056 


02*72 


06258 


*3 


06282 


02*63 


06270 


26 


0*581 


05669 


06282 


12 


0*581 


000- 1 


0629* 


26 


06312 


0*58 J 


06306 


26 


0*58J 


06168 


06318 


*3 


06362 


02*63 


06330 


16 


00565 


-6353 


063*2 


*9 


00566 


-70*5 


0635* 


*9 


0353* 


OOOOO 


06362 








06362 


15 


00*16 


OOOOO 


06373 




I 




0637* 


25 


00*28 


07373 


06386 


32 


00*28 


OOOOO 


06397 




0 




06398 


33 


00*29 


OOOOO 


06*10 


26 


00*3* 


02*72 


06*22 


32 


00*89 


OOOOO 


06*3* 


26 


07398 


07*79 


06**6 


16 


00565 


-6*69 


06458 


49 


00532 


-7197 


06*70 


16 


00565 


-6*93 


06*82 


49 


00566 


-717* 


06*9* 


12 


058** 


000-1 


06506 


15 


02*63 


OOOOO 


06518 


*9 


0353* 


OOOOO 


06526 
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03780 


RELFRM 


TDM 


I NRK + BO 


03790 




DC 


!,*,• 


03800 




TR 


INRK , I NRK+8, , MOVE 


03810 




CF 


427 


03820 




TFM 


439,75 


03830 




TFM 


DDAR+13, 99999 


038*0 




TF 


SPROST, INRKOl 


03850 




A M 


SPROST, 6, 10 


03860 


SUBPRO 


C 


INRK*24,F , , TEST 1 


03870 




BNE 


• ♦36 


03880 




C 


I NRK +26 , K , , TEST 1 


03890 




BE 


• ♦24 


03900 




BTM 


EPRINT, 76,8 


03910 




TFM 


MOVE+11, INRK+37,, 1 


03920 




TFM 


M0VE+6,LIBSUB 


03930 




CF 


MOVE+7 


03940 


SUBOIG 


80 


MOVE.MOVE+ll.ll 


03950 




B 


MOVE ♦ 12 


0 3960 




OORG 


•-3 


0 3970 


MOVE 


TD 




03980 




A 


MOVE+ll.ZERONE 


03990 




CM 


M0VE+6,LIBSU8+30 


04000 




lit 


TRYSZE 


04010 




8 


SUBOIG 


04020 


INCPUT 


TFM 


I0RT,«+23 


04030 




B 


I0PT,INC,7 


040*0 




B 


INCPUT- 1 , ,6 


04050 


INCGET 


TFM 


lORT,#+23 


04060 




B 


I0GT,INC,7 


04070 




B 


INCGET-1,,6 


04090 


•••••• 


ERROR MESSAGE SUBROUTi 


04100 


EPRINT 


TP 


6RMESSM6,EPRINT-1 


04110 




RCTY 




04120 


2ER0NE 


DC 


6, 100001, •-* 






JOOOOl 


04130 




WATY 


NAMBUF-10 


0*1*0 




WATY 


ERMESS 


04150 




TDM 


SVEQDA-1,1 


04160 




BB 




04170 




DORG 


♦ -9 


04180 


OVRMES 


DAC 


9, OVERLAP* 






OVERLAP* 


04190 


JOBOUT 


OAC 


1*, JOB ABANDONED* 






JOB ABANDONED* 


04200 


DM6 


OSC 


2,22 






22 




04210 




OSA 


OMEDOA 


04220 




DC 
i 


lt« 


04230 


OMfDOA 


DDA 


,1,0,1, INRK 






1-0000-01-7400 


04240 




OC 


U 5 



06526 
06537 



15 07*80 OOOOO 
I 



EQUAL F 



UPDATE SUBROUTINE TABLE 



06538 


31 


07*00 


07*08 


06550 


33 


00*27 


OOOOO 


06562 


16 


00*39 


-0075 


0657* 


16 


07293 


R9999 


06586 


26 


06168 


07*31 


06598 


11 


06168 


000-6 


06610 


2* 


07*2* 


02219 


06622 


*7 


06658 


01200 


0663* 


2* 


07*26 


02221 


066*6 


*6 


06670 


01200 


0665B 


17 


06858 


0-076 


066 70 


16 


06737 


-7*37 


06682 


16 


06732 


-239* 


0669* 


33 


06733 


OOOOO 


06706 


43 


06726 


0673P 


06718 


49 


06738 


OOOOO 


06126 








06726 


25 


OOOOO 


OOOOO 


06738 


21 


06737 


06877 


06750 


1* 


06732 


-2*2* 


06762 


46 


0*298 


01200 


0677* 


49 


06706 


OOOOO 


06786 


16 


00565 


-6809 


06 79S 


49 


00532 


-6989 


06810 


49 


0678N 


OOOOO 


06822 


16 


00565 


-68*5 


0683* 


49 


00566 


-6989 


068*6 


49 


0682J 


OOOOO 


068 5B 


26 


07099 


06857 


06870 


3* 


OOOOO 


00102 


06877 




6 




06882 


39 


02*31 


00100 


0689* 


39 


07083 


00100 


06906 


IS 


02*89 


00001 


06918 


*2 


OOOOO 


OOOOO 


06920 








06921 




9 


X 2 


06939 




1* 


X 2 


06966 




2 




06972 




5 


X 1 


06972 




-697* 




06973 








0697* 




1* 




06988 




1 
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0*250 


INC 


DSC 


2,22 






06989 


2 








22 














0*260 




DSA 


INC DDA 






0699S 


5 X 


1 














06999 


-2506 




0*2 70 




DC 


lt« 






06996 


1 




0*280 


EOU 


DSC 


2,22 






06997 


2 








22 














0*290 




DSA 


EQUDDA 






07003 


5 X 


1 














0700) 


-7006 




0*300 




DC 


lt« 






0700* 


1 




0*310 


E QUO OA 


DDA 


,1,0,*,SUBTBL 






07006 


I* 








1-0000-06-2522 












0*320 




OC 


l.» 






07020 


1 




0*330 


flP 


DSC 


2,22 






07021 


2 








22 














0*3*0 




DSA 


FLPDOA 






07027 


5 X 


1 














07027 


-7030 




0*350 




PC 


I, 1 






07028 


I 




0*360 


FL POOA 


DDA 


t 1 1 0 , 0 » SUB TBL 






07030 


I* 








1-0000-00-2522 












0*370 




DC 


1.' 






070** 


I 




0*380 


I NOR 


DSC 


2,22 






070*5 


2 








22 














0*390 




DSA 


DOAR,0 






07051 


5 X 


2 














07051 


-7280 
















07056 


-0000 




0**00 




DC 


I, ' 






07057 


1 




0** 10 


f) I M 


DSC 


2,22 






07058 


2 








22 














0**20 




DSA 


D I MDDA 






0706* 


5 X 


1 
















- 7066 




0**30 




DC 


1 , ' 






07065 


I 




0***0 


D ! MDDA 


DDA 


, l,*800, 1, INRK 






07066 


1* 








l-*800-0l-7*00 












0**50 




DC 


I. • 






07080 


1 




0**60 


fRMESS 


DAC 


10, ERROR L • 






07083 


10 X 


2 






ERROR L • 












0**70 


DIMSVE 


DSS 


20,, RESERVES CURRENT DIM 


ENTRY 




07102 


20 




0**80 


CDINP 


DS 


1 






07122 


1 




0**90 


CDTP 


DSA 


INRK 






07127 


5 X 


1 














07127 


-7*00 




0*500 




DC 

-o« 


3,' 






07130 


3 










1620 FORTRAN II-D 


LOADER 


BLOCK 3 








0*510 


SECCT 


DC 


2,0 






07 132 






0*620 


LOED 


-0 
DAC 


9, LOADED' 






07135 


9 X 


2 






LOADED • 












0*630 


LDMES 


DAC 


7.L0AD • 






07153 


7 


_ 






LOAD 














0*6*0 


BL 3 


DSC 


2.-22 






07 166 










2K 














0*650 




DSC 
0 


1,0 






07168 


1 




0*660 




DC 


5,150' 






07173 


5 








-150' 














0*670 


FXT 


DSC 


2,-22 






0717* 










2K 














0*680 




DSA 


EXTDDA 






07180 


5 X 


1 
















-7182 




0*690 




DC 


1,' 






07181 


1 




0*700 


EXTDDA 


DDA 


,1,19783,3,0 






07182 


1* 








IJ9783-03-0000 












0*710 




DC 


i,« 






07196 


I 




0*720 


COM 


OSC 


2,22 






07 197 


2 








22 














0*730 




OSA 


COMDOA 






07203 


5 X 


1 














07203 


_ 7206 




0*7*0 




DC 
t 














0*750 


COMOOA 


DOA 


,1, 19663,1, COMSEC 






07206 


I* 








U9663-01-7300 












0*760 




DC 
• 


I,' 






07220 


1 




0*770 


LD 


DSC 


2,22 






07221 


2 








22 














0*780 




DSA 


LDDDA 






aim 


















07227 


— 267* 




0*790 




DC 


l. f 






07228 


1 




0*800 


DATA I 


DAC 


6, •DATA' 






07231 


6 X 


2 






•DATA' 












0*810 




OORG 


7280 






07280 






0*820 


OOAR 


OSS 


20 






07280 


20 




0*830 


COMSEC 


OSS 


100,, SYSTEM COMMUNICATION 


SECTOR 




07300 


100 




0*8*0 


INRK 


DSS 


100,, REAO IN AREA FOR INDICATOR 


RECORO 


07600 


100 




0*850 




DEND 








00000 
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ADOCOtf 


02450 


ENTSIN 


02308 


OVRIAP 


02444 


POUND 


03874 


RMCHK 


04602 


AOOSVE 


02472 


ENTSOT 


02318 


OVRMES 


06921 


F 


02219 


RMTBL 


03534 


COT PiO 


06362 


ENTSMO 


02288 


PHASES 


05634 


GONXT 


04558 


SCHLO 


06330 


COW A DO 


02231 


EPA INT 


06858 


PHASEC 


04474 


INC 1 3 


05818 


SECCT 


07132 


COMDDA 


07206 


EQAODA 


02455 


PHASED 


05930 


INC 


06989 


SECT 


02466 


COM PAR 


05038 


EOSRCH 


03676 


PAOCOM 


05844 


IMOR 


07045 


SERCH 


05138 


CONFER 


03722 


EQUODA 


07006 


PAOGST 


02226 


INRK 


07400 


SPRST 


06216 


CONPAE 


051 18 


E A MESS 


07083 


AOPAOG 


06318 


I OCT 


00566 


SRCH 


03594 


COWS EC 


07300 


EXTOOA 


07182 


RE I FAN 


06526 


IOIND 


02461 


TBLLD 


04918 


OIMDDA 


07066 


EXT I NO 


02463 


B L 3 


07166 


I OPT 


00532 


W 


02240 


DINSVE 


07102 


FLGAMK 


02445 


CALL 3 


05990 


IOAT 


00565 


SCADDA 


02460 


OMEOOA 


06974 


FLPOOA 


07010 


CDINP 


07122 


K 


02221 


SERCHl 


05238 


E NOT ST 


05658 


FOUM01 


03982 


CDTP 


07127 


LOODA 


02474 


SERCH2 


05422 


EN TABS 


02323 


HEADER 


04762 


COMP 


03754 


LOED 


07135 


SEACH3 


05570 


ENTATN 


0231 3 


INC DO* 


02506 


COM 


07197 


LDMES 


07153 


SI2E0K 


06138 


ENTCOS 


02303 


INC GET 


06822 


OATAl 


07231 


LD 


07221 


SPROST 


06168 


ENTOEO 


02298 


INCPUT 


06786 


DATA 


02505 


MLIND 


02462 


SUBOIG 


06706 


EN TOR A 


02293 


I NDCON 


04217 


OOAR 


07280 


MORE 


06079 


SUBPRO 


06610 


ENTEXF 


02253 


JO80UT 


06939 


DIM 


07058 


MOVE 


06726 


SUBTBL 


02522 


ENTFET 


02283 


LIBSUB 


02394 


ONE 


06966 


MVAOD 


05514 


SVEDDA 


02490 


ENTFIO 


02273 


LOO INC 


05086 


ENTLN 


02248 


Nl 


02233 


TBLIND 


03615 


ENTR6C 


02278 


MLLGTH 


06397 


ENTST 


04570 


N2 


02238 


TRYSZE 


04298 


ENTSCl 


02258 


MONCAL 


00796 


EQU 


06997 


NXTRD 


03814 


TSTVLD 


04150 


ENTSC2 


02263 


NAMBUF 


02441 


EXT 


07174 


READ 


04310 


2ER0NE 


06877 


ENTSCB 


02268 


ONETWO 


04408 


FLP 


07021 


AECLG 


02243 


ZROTST 


02467 



END OF ONE ASSEMBLY. 
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000 10 


Nl 


OS 


#221) 


02231 




0 


00020 


N2 


OS 


,2238 


02238 




0 


00010 


W 


OS 


,22*0 


02240 




0 


000*0 


RECLG 


DS 


,22*3 


02241 




0 


00050 


IORT 


OS 


,565 


00565 




o 


00060 


IOGT 


OS 


,566 


00566 




0 


00070 


IOPT 


OS 


.S32 


00512 




o 


00080 


ERRET 


DS 


,602 


00602 




0 


00090 


INDS 


DS 


,610 


00610 




0 


00100 


ERROR 


DS 


,62* 


0062* 




0 


001 10 


DIO 


DS 


,816 


00816 




0 


00120 


L I8SUB 


DS 


,239* 


02)94 




0 


00130 


COMADO 


DS 


,2231 


02231 




o 


00140 




DORG 


2*26 


02426 






00150 


H AMBUF 


DC 


16,0 


024*1 




16 






-000000000000000 








00160 




DC 


2,' 


024*3 




2 


00170 


OVRLAP 


DS 




024** 




I 


00180 




ns 


1 


024*5 




I 


00190 


a one aw 


DS 


5 


02*50 




5 


00200 


FQADDR 


DS ' 


5 


02*55 




5 


00210 


SCAODR 


OS 


5 


02*60 




5 


00220 


I □ I NO 


DS 


1 


02*61 




I 


00230 


ML INO 


DS 


1 


02*62 




\ 


002*0 


E X TIND 


DS 


1 


0246) 




I 


00250 


SECT 


DS 


3 


02*66 




3 


00260 


ZRQTST 


OS 


1 


02*67 




1 


00270 


ADDSVE 


OS 


5 


02*72 






00280 




DC 


1 , 1 


02* 73 






00290 


LDDOA 


DDA 


,1,0,0,0 


02*7* 




1* 






1-0000-00-0000 








00300 




DC 


It' 


02*88 






00310 


SVEOOA 


DDA 


,1,0,21,0 


02*90 




1* 






1-0000-21-0000 








00320 




oc 


1 , ' 


0250* 




I 


00330 


DATA 


DS 


1 


02505 




I 


003*0 


I MCDOA 


DDA 


,1,0,0,0 


02506 




1* 






1-0000-00-0000 








00350 




DC 


l.« 








00360 




DS 


1 


02521 




1 


00370 


SUBTBL 


DSS 


1000 


02522 




1000 


00380 




DC 


12, • 


03533 




12 






-0000000000 • 








00390 


L NK ADO 


DS 


5 


03538 




5 


00*00 


FLPODA 


DDA 


, I ,0,0, SUBTBL 


035*0 




1* 






1-0000-00-2522 








00*10 




OC 


1. • 


0355* 




1 


00*20 




LIBRARY SUBROUTINE LOADER ROUTINE 








00*30 


LBSUBA 


CF 


PTRS+l 


03556 


33 


05538 


00**0 




CF 


PTRS+6 


03568 


33 


055*3 
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00*50 


TFM 


IORT, •♦23,, GET SUBROUTINE DIM ENTRIES <6 SECTORS ) 


03580 


16 


00565 


-3603 


00*60 


B 


IOGT , L IB , 7 


03592 


*9 


00566 


-550* 


00*70 


BD 


•♦56, PTRS, 11, BRANCH IF SUBROUTINE FOUND 


0360* 


*3 


03660 


0553P 


00*80 


S 


PTRS*10,PTRC0N,, DECREMENT POINTERS TO NEXT ENTRY 


03616 


22 


055*7 


05559 


00*90 


CM 


PTRS,LIBSUB-1 


03628 


I* 


05537 


-2393 


00500 


BE 


RMTBL 


036*0 


*6 


0*528 


01200 


00510 


B 


♦ -*8 


03652 


*9 


0360* 


00000 


00520 


DORG 


•-3 


03660 








00530 


CM 


PTRS.LIBSUB+5 


03660 


I* 


05537 


-2399 


005*0 


BL 


♦ ♦*8 


03672 


*7 


03720 


01300 


00550 


CM 


PTRS,LIBSU8*7 


0368* 


I* 


05537 


-2*01 


00560 


BH 


• ♦2* 


03696 


*6 


03720 


01100 


00570 


TDM 


ZROTST, I 


03708 


15 


02*67 


00001 


00580 


BNR 


•♦32.PTRSnO.ll, TEST FOR EMPTY DIM ENTRY 


03720 


*5 


03752 


055*P 


00590 


S 


PTRS*10,PTRC0N,, DECREMENT POINTERS TO NEXT ENTRY 


03732 


22 


055*7 


05559 


00600 


B 


•-2* 


037** 


*9 


03720 


00000 


00610 


DORG 


♦-3 


03752 








00620 


AM 


PTRS*10,8»10 


03752 


11 


055*7 


000-8 


00630 


TF 


LISDDA+8,PTRS*10,U 


0376* 


26 


05526 


055*P 


006*0 


AM 


PTRS*10,5,10 


03776 


11 


055*7 


000-5 


00650 


TF 


ADDSVE, ADOCOW 


03788 


26 


02*72 


02*50 


00660 


AM 


A0DSVE,1,10 


03800 


11 


02*72 


000-1 


00670 


A 


ADDC0W,PTRS*lO,ll, INCREMENT ADDRESS COUNTER BY LENGTH 


03812 


21 


02*50 


055*P 


00671 


AM 


PTRS*10,5, 10 


0382* 


11 


055*7 


000-5 


00672 


TF 


DIMCT, PTRSMO, 11 


03836 


26 


04058 


055*P 


00673 


A 


PTRS, DIMCT 


038*8 


21 


05537 


0*058 


0067* 


DIMLD SM 


PTRS,l,10 


03B60 


12 


05537 


000-1 


00675 


SM 


DIMCT, 1,10 


03872 


12 


04058 


000-1 


00676 


TDM 


PTRS, 1, 6 


0388* 


15 


0553P 


00001 


00677 


CM 


DIMCT 


03896 


I* 


04058 


-0000 


00678 


BNE 


DIMLD 


03908 


*7 


03860 


01200 


00679 


SM 


PTRS*10,5,10 


03920 


12 


05547 


000-5 


00680 


C 


ADOCOW, COMAOO 


03932 


2* 


02450 


02231 


00690 


BL 


• ♦2* 


039** 


*7 


03968 


01300 


00700 


TDM 


OVRLAP, I 


03956 


15 


02*** 


00001 


00710 


TF 


SUBBUF+6,PTRS,, CALCULATE SUBROUTINE NUMBER 


03968 


26 


0*03* 


05537 


00720 


SM 


SUBBUF*6,L!BSUB 


03980 


12 


0*034 


-239* 


00730 


AM 


SUBBUF+6,1,10 


03992 


11 


0*03* 


000- 1 


007*0 


BD 


•♦2*, OVRLAP 


04004 


*3 


04028 


02*** 


00750 


BNCl 


LBSUB1 


0*016 


47 


04200 


00100 


00760 


SUBBUF RCTY 




0*028 


34 


00000 


00102 


00770 


DC 


1, •,•-* 


0*035 




1 




00780 


WNTY 


SUBBUF *5 , , , TYPE OUT SUBROUTINE NUMBER 


0*0*0 


38 


04033 


00100 


00790 


SPTY 




0*052 


34 


00000 


00101 


00791 


DIMCT DS 


.•-5 


0*058 




0 




00800 


BO 


•♦2*, OVRLAP 


0*064 


43 


04088 


02*** 


00810 


WNTY 


ADDSVE-* 


0*076 


38 


02468 


00100 


00820 


TF 


SUBBUF*6,PTRS*lO,ll, MOVE ADDRESS INTO BUFFER 


0*088 


26 


04034 


055*P 


00830 


SPTY 




04100 


34 


00000 


00101 


008*0 


WNTY 


SUBBUf ♦2,», TYPE OUT LENGTH OP SUBROUTINE 


04112 


38 


04030 


00100 


00850 


80 


•♦32, OVRLAP 


04124 


43 


04156 


02**4 


00860 


WATY 


LOEO 


04136 


39 


05379 


00100 


00870 


8 


LB SUB! 


0*148 


45 


04200 


00000 


00880 


OORG 


• -3 


04156 








00890 


WATY 


OVRMES 


0*136 


39 


05561 


00100 
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00900 




S 


ADDCOW, PTRS*10, 11, RESET AOORESS COUNTER 


OA 168 


22 


02450 


0554P 


00910 




sm 


PTRS*10, 13, 10, CORRECT DIN POINTER 


04180 


12 


05547 


000 J 3 


00920 




8 


IBSUBA*60,,, BRANCH TO CHECK NEXT ENTRY 


04 192 


49 


03616 


00000 


00910 




OORG 


• -3 


04200 








009*0 


LB sua I 


SM 


PTRS*10,5. 10* DECREMENT DIM TO SECTOR COUNT 


04200 


12 


05547 


000-5 


00950 




TF 


L IBDDA*8,PTRS+10t 11 • MOVE IN SECTOR COUNT 


04212 


26 


05526 


0554P 


00960 




SM 


PTRS* id 3, 10, DECREMENT DIM TO OISK ADDRESS 


04224 


12 


05547 


000-3 


00970 




TF 


LIRDDA+5,PTRS+I0tllt TRANSFER DISK AOORESS 


04236 


26 


05523 


0554P 


00980 




TF 


DMEDDA*5,LIBDDA*5, , SET UP ONE SECTOR OOA 


04248 


26 


05609 


05523 


00990 




SM 


PTRS*10,5,10, DECREMENT TO DISK DRIVE CODE 


04260 


1 2 


05547 


000-5 


01000 




TO 


L I BDDA , PTRS* 10, 1 I , TRANSFER DRIVE CODE 


042 72 


25 


055 18 


0554P 


01010 




TO 


OMEDDA ,L I BDDA 


04284 


25 


05604 


05518 


01020 




TF M 


I OR T. •♦?3.. C.FT DNF <cr TPIB fTF ^IIAttDHT IMF 

Iw^i, w ^CJ,, OCI Uric 3 c U 1 UK Llr )UDnUU 1 1 HIC 








— 4319 


01030 




8 


I0GT,0ME,7 


04308 


49 


00566 


-5596 


01040 




TFM 


•423*1 NRK*8 






04343 


— 7408 


0 1050 


LUSUB2 


BNR 


RELOC 


04 332 


45 


04484 


nnnnn 


01060 




TF 


99,PTRS+5 




26 


00099 


05542 


01070 




A 


99, I NRK + 7 


04 356 


2 1 


00099 


07407 


01080 




TO 


•♦35,99,11, SAVE DIGIT TO BE OVERLAYED 


04 368 


25 


04403 


0009R 


01090 




TR 


PTR S*5 , I NRK* 8 ,6 , LOAD ENTRY ADDRESS 


04 380 


3 | 


0554K 


0 7408 


01 100 




TOM 


99,, 6, RESTORE OIGIT 


04392 


1 5 


0009R 


00000 


01 1 10 




TF 


LIB*11,A00SVE 










01 120 




TFM 


LI BDDA* 13, 99999 


04416 


1 6 


05531 


R9999 


01 130 




CF 


427 


04428 


33 


00427 


00000 


01 140 




TFM 


439 


04440 


16 


004 39 


-0000 


01 150 




TFM 


!0RT,»+23,, LOAO SUBROUTINES 


04452 


1 6 


00565 


-4475 


01160 




B 


10GT,LIB,7 










01 170 




B 


LBSUBA*60 


04476 


49 


036 16 


00000 


0 1 1 80 




DORG 


• -3 


04484 








01 190 




RELOCATE ENTRY AOORESSES 










01200 


RELOC 


AM 


LBSUB2*ll,4,l0 






04343 


000 4 


01210 




A 


LBSUB2*ll,ADDSVE,6, RELOCATE AOORESS 




_ : 




? " 


01220 




AM 


LBSUB2+11, 1, 10 




* * 




000 I 


01230 




B 


LBSUB2 


J: " 






nnnnn 


01240 




DORG 


• -3 










01250 


rm TBI 


CM 


C0MSEC+75, ,10, BRANCH IF NO LOCAL CARDS 










01260 




BNE 


• ♦48 




*' 




ni ?nn 


01270 


CALL6 


TF 


INRK+4, INCDDA+5 










01271 




TFM 


I0RT,»*23 


04564 


16 






01280 




B 


I0GT,BL6,7 


04576 


49 




* * 


01290 




BO 


CALL6, OVRL AP 




l *\ 






01 300 




TFM 


10RT,**23 




1 6 






01310 




B 


I OCT, LD» 7 


046 12 


*' 


00566 


-5496 


0 1 320 




TFM 


•♦23,SUBTBL+ll 


04624 


16 


04647 


-2533 


01330 


srch 


BNR 


•♦20,,, TEST FOR END OF TABLE 








uuuuu 


01 340 




8 


CALL 6 






04552 


aa a aa 
UUUUU 


01350 




DORG 


•-3 


04656 








01360 




C 


C0MSEC+35,SRCH*ll,ll 


04656 


24 


07335 


0464P 


01370 




BE 


TBLLO 


04668 


46 


04700 


01200 


01380 




AM 


SRCH*il, 20,10, INCREMENT TO NEXT ENTRY 


04680 


11 


04647 


OOOKO 


01390 




B 


SRCH 


04692 


49 


04636 


00000 


01400 




DORG 


• -3 


04700 








01410 


T8LLD 


AM 


SRCH+11,3,10 


04700 


11 


04647 


000-3 


01420 




TF 


FLP0DA^8,SRCH+11, U 


04712 


26 


03548 


0464P 


01430 




AM 


SRCH*U,5«10 


04724 


11 


04647 


000-5 


01440 




TF 


FLPDDA*5,SRCH*ll,ll 


04736 


26 


03545 


0464P 
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01450 




TFM 


I0RT,«+23 


04 748 


16 


00565 


-4771 


01460 




B 


I0GT,FLP,7 


04760 


49 


00566 


-5670 


01461 


Y 


AM 


X*U»6f 10 


04772 


11 


04819 


000-6 


01462 




DC 


l,N»-2 


04781 




I 




01463 




TR 


X+li,Y*7,6 


04784 


31 


0481R 


04779 


01464 




AM 


X + Utl6 v 10 


04796 


11 


04819 


000J4 


01465 


X * 


BNR 


Y,SUBTBL*11*7 


04808 


45 


04772 


-2533 


01466 




TFM 


I OR T, •♦23 


04820 


16 


00565 


-4843 


01467 




B 


I0PT,FLP,7 


04832 


49 


00532 


-5670 


01470 




TF 


FLPPRO+ll.ADDCOW 


04844 


26 


05689 


02450 


01480 




AM 


FLP PRO* 11, 1,10 


04856 


11 


05689 


000-1 


01490 




TF 


STADD, FLPPRO+ I 1 


04868 


26 


05652 


05689 


01500 




A 


ADDCOW , FLPCOW 


04880 


21 


02450 


05150 


01510 




TF 


L NK ADD » ADDCOW 


04892 


26 


03538 


02450 


01520 




AM 


LNKAOO.24,10 


04904 


11 


03538 


0OOK4 


01530 




C 


ADDCOW, COMADD 


04916 


24 


02450 


02231 


01540 




BH 


FLPOVR 


04928 


46 


05460 


01100 


01550 




CF 


427 


04940 


33 


00427 


00000 


01560 




TFM 


439,0 


04952 


16 


00439 


-0000 


01570 




TFM 


I0RT,»+23 


04964 


16 


00565 


-4987 


01580 




B 


I0GT,FLPPR0,7 


04976 


49 


00566 


-5678 


01590 


FLIP 


TF 


FLPLNKMl,FLPPROUl 


04988 


26 


05630 


05689 


01600 




AM 


FLPLNK+11,4,10 


05000 


11 


05630 


000-4 


01610 




TF 


FLPLNKMl, ADDCOW, 6 


05012 


26 


0563- 


02450 


01620 




AM 


FLPLNK + U, 1,610 


05024 


11 


0563- 


000- 1 


01630 




AM 


FLPLNK+11,6,10 


05036 


11 


05630 


000-6 


01640 


SIZEOK 


BNR 


CALL5*24,SUBTBL*ll 


05048 


45 


05284 


02533 


01650 




TF 


ADOSVE*ADDCOW 


05060 


26 


02472 


02450 


01660 




AM 


FLPPRO+11,4,10 


05072 


11 


05689 


000-4 


01670 




AM 


ADDSVE.3*10 


05084 


11 


02472 


000-3 


01680 




TF 


FLPPR0^ll,A00SVE,6 


05096 


26 


056BR 


02472 


01690 




AM 


ADDCOW, 2, 10 


05106 


11 


02450 


000-2 


01700 




BD 


•♦24.0VRLAP 


05120 


43 


05144 


02444 


01710 




BNC1 


CALL5 


05132 


47 


05260 


00100 


01720 




RCTY 




05144 


34 


00000 


00102 


01730 


FLPCOW 


DC 


5,256,»-5 


05150 




5 








-0256 










01740 




DC 


l,».»-4 


05151 




I 




01750 




WATY 


FLPMES 


05156 


39 


05655 


00100 


01760 




BO 


•♦24,0VRLAP 


05168 


43 


05192 


02444 


01770 




WNTY 


STA00-4 


05180 


38 


05648 


00100 


01780 




SPTY 




05192 


34 


00000 


00101 


01790 




WNTY 


FLPCOW-4 


05204 


38 


05146 


00100 


01800 




BD 


•♦32.0VRLAP 


05216 


43 


05248 


02444 


01810 




WATY 


LOEO 


05228 


39 


05579 


00100 


01820 




B 


CALL5 


05240 


49 


05260 


00000 


01830 




DORG 


• -3 


05248 








01840 




WATY 


OVRMES 


05246 


39 


05561 


00 1 00 


01850 


CALL5 


TFM 


I0RT,^23 


05260 


16 


00565 


-5263 


01860 




B 


I0GT,BL5,7 


©5272 


49 


00566 


-5460 


01870 




TF 


SECLNIU6, ADDCOW 


05264 


26 


05338 


02450 


01880 




AM 


SECLNK*6.2,10 


05296 


11 


05338 


000-2 


01890 




AM 


ADDCOW. 19, 10 


05306 


11 


02450 


000J9 


01900 




TF 


FLPLNKU6.AD0C0W 


05320 


26 


05635 


02450 



1620 FORTRAN II -D 



LOADER 



BLOCK 4 
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01910 


SECLNK 


TR 


»FLPLNK 


05332 


11 


00000 


05619 


01920 




AM 


SIZE0K*ll,5, 10 


05344 


1 1 


05059 


000-5 


019J0 




AM 


SECLNK *6|5» 10 


05356 


1 1 


05338 


000-5 


01940 




TF 


• + 18,SIZE0K*U,ll 


05360 


26 


05386 


0505R 


01950 




TF 


t SECLNK+6 


05380 


26 


00000 


05338 


01960 




AM 


S 1 ZEOK* 11, 15, 10 


05 392 


|| 


08059 


000J5 


01970 




AM 


ADDCOW •11*10 

m \s v v* u m , a i , f vi 


05404 


1 1 


02450 


OOOJl 


01980 




AM 


FLPCOW, 30, 10 


05416 


1 1 


0)150 


OOOLO 


01990 




(, 


ADDCOW, COMAOO 


05428 


24 


02450 


02231 


02000 




BK 


FLPOVR 


05440 


46 


05460 


01 100 


02010 




B 


SIZE OK 


05452 


49 


05048 


00000 


02020 




DORG 


•-3 


05460 








020 30 


FlPOVR 


TOM 


OVRLAP, 1 


05460 


15 


02444 


00001 


02040 




B 


FL IP 


05472 


49 


04988 


00000 


02050 




DORG 


•-3 


05480 








02060 


BL 5 


DSC 


2,-22 


05480 




2 








2K 












02070 




DSC 


ItO 


05482 




I 




n?n nr> 




o 

oc 


5,152' 


_ _ _ 




_ 








M52« 


i 










02090 


BL 6 


DSC 


2,-22 


05488 












2K 












02 100 




DSC 


1,0 


05490 








02110 




0 

oc 


t>,!57» 


05495 




5 








-157« 










02120 


OIHTBl 


OS 


,SUBTBL*599 


03121 




0 




02130 


01MTB 


DS 


* SUBT8L 


02522 




0 




02140 


LD 


DSC 


2,22 


05496 




2 








22 












02150 




OSA 


LDDDA 


05502 




5 


x i 














-2474 




02 160 




DC 


lt» 


05503 








02170 


I IB 


DSC 


2.22 


05504 




2 








22 












02180 




OSA . 


L IBDDA ,0 


05510 




5 


X 2 










055 10 




-55 18 












05515 




-0000 




02190 




DC 


It 1 


05516 




I 




02200 




OC 


1,*. 118*7 


05511 




1 




02210 


L1B00A 


DDA 


, 1,4802, 6,DIMTB 


05518 




14 








1-4802-06-2522 










02220 




DC 
• 


I,* 


05532 




1 




02230 


PTR5 


DSA 


LIBSUB*29,LIBSUB-5,DIMTBL-19 


05537 




5 


X 3 



02240 PTRCON DC 12,010000500020 
-10000500020 



05537 
05542 
05547 
05559 



-2423 
-2389 
-3102 
12 



75 



02250 OVRKES DAC 9 

OVERLAP • 
02260 LDED DAC 9, LOADED* 
LOADED' 

02270 D*E DSC 2.22 
22 

02280 DSA DMEDDA 



02300 OMEDDA DDA ,1,0,1,INRK 

1-0000-01-7400 
02310 OC l,« 

02320 FLPLNK DSC 5,0 
00000 

02330 
02340 



1620 FORTRAN II-D 
OVERLAP • 



LOADER BLOCK 4 



1.1 



BTM 
DSC 
1 

0235Q OC 5,0 

-0000 

02*60 OC 6.' 

-0000* 

02370 STADO OS 5 
02380 OC 
• 

02390 FLPMES OAC 8.FL I PER • 

FL1PER • 
02400 FLP DSC 2.22 

22 

02410 DSA FLPDDA 



02430 FLPPRO DSC 2,22 
22 

02440 DSA FLDOA , 0 



02460 FLDDA 
02470 



OOA ,1,16193,999,99999 

U6195R99R9999 

OC 1 • • 



02480 

02490 OOAR 
02500 COMSEC OSS 
02510 I NAK DSS 



DORG 7280 
OSS 20 

100,, SYSTEM COMMUNICATION SECTOR 
100., RE AO IN AREA FOR INOICATOR RECORD 



PAGE 
9 X 2 



05561 

05579 

05596 

05602 

05602 
05603 

05604 

05618 I 

05619 5 

05624 17 00000 -0000 
05636 1 

05641 5 

05647 6 



9 X 
2 

5 X 
-5604 

14 



02520 



DEND 



05652 
05653 

05655 

05670 

05676 

05676 
05677 

05678 

05684 

05684 
05689 
05690 

05692 

05706 

07280 
07280 

07300 
07400 

00000 



5 
1 

8 X 
2 

5 X 



-3540 
1 



2 

5 X 



-5692 
-0000 

1 

14 
1 



20 
100 
100 
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1*20 FORTRAN H-O LOADER BLOCK 4 



PACE 7 



ADOCQW 02450 

ADDSVE 02472 

CONAOO 02231 

CON SEC 07300 

DINT8L 03121 

0ME00A 05604 

EQADDR 02455 

EXTINO 02463 

FLGRMK 02445 

FLPCQW 05150 

FLPOOA 03540 

FLUNK 05619 

FLPNES 05655 

FLPOVR 05460 

FLPPRO 05678 

ENO OF ONE ASSEMBLY. 



INCDDA 02506 

LB SOS 1 04200 

LB SUB 2 04332 

LB SUB A 03856 

LI800A 05518 

LIBSUB 02394 

LNKAOO 03538 

NAM6UF 02441 

OVRLAP 02444 

OVRHES 05561 

PTRCON 05559 

BL5 05480 

8L6 05488 

CALL5 05260 

CALL6 04552 



DATA 02505 

DDAA 07280 

OIMCT 04058 

DIMLO 03860 

DIMTB 02522 

010 00816 

ONE 05596 

ERRET 00602 

ERROR 00624 

FLDDA 05692 

FLIP 04988 

FLP 05670 

INDS 00610 

INRK 07400 

IOGT 00566 



IOINO 02461 

I OPT 00532 

IORT 00549 

LDDDA 02474 

LOEO 05579 

LO 05496 

LIB 05504 

ML I NO 02462 

Nl 02233 

N2 02238 

PTRS 05537 

RECLG 02243 

RELOC 04484 

RMTBL 04528 

SECT 02466 



SRCH 04636 

STAOO 05652 

T8LLD 04700 

W 02240 

X 04608 

V 04772 

SCAOOR 02460 

SEC INK 05332 

SIZEOK 05048 

SUBBUF 04028 

SUBTBL 02522 

SVEODA 02490 

ZROTST 02467 
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1620 FORTRAN I I — 0 LOADER BLOCK 5 



PAGE 1 



000 10 


* 














00020 
















00030 


IOPT 


OS 


i532 




00532 


0 


00040 


10GT 


OS 


.566 




00566 


o 


oooso 


I0RT 


OS 


.565 








00060 


MUNC AL 


OS 


,796 




00796 


0 


00070 




COMMUNICATION AREA 








00080 




OORG 


2218 




02211 




00090 


f. 


OS 


2.t 


FLOATING POINT WORD LENGTH 


02219 


2 


00100 




DS 


2,. 


FIXEO POINT HORO 


LENGTH 


02221 


2 


00 110 


PROGST 


OS 


5.. 


STARTING ADDRESS 


OF MAINLINE PROGRAM 


02226 


5 


00120 


COMA 00 


OS 


5,, 


STARTING ADDRESS 


OF COMMON AREA 


02231 


* 


00 1 30 


N 1 


OS 


2,, 


NUMBER OF WORDS 1 


N LOGICAL RECORD 


02233 


2 






DS 


5,, 


NUMBER OF LOGICAL 


RECORDS 


02238 


5 


nn\ in 




OS 


2,, 


WORD LENGTH 




02240 


2 






OS 


3, , 


RECORD LENGTH 




02243 


3 


nn i ?n 


EN I LN 


OS 


5,, 


ENTRY ADDRESS TO 


LOG SUBROUTINE 


02248 


5 


nni an 


E NTEXP 


OS 


5, , 


ENTRY ADDRESS TO 


EXPONENTIAL SUBROUTINE 


02253 


5 


00 1 90 


E M T S C 1 


DS 


5., 


ENTRY ADDRESS TO 


SINGLE SUBSCRIPT SUBROUTINE 


02258 


5 


00200 


E N TSC 2 


DS 




ENTRY ADDRESS TO 


DOUBLE SUBSCRIPT SUBROUTINE 


02263 


5 


002 10 


F. N T S C 3 




5, , 


ENTRY ADDRESS TO 


TRIPLE SUBSCRIPT SUBROUTINE 


02268 


5 


00220 


E N f F ID 


OS 


5,, 


ENTRY ADDRESS TO 


FIND SUBROUTINE 


02273 


5 


002 30 


ENTREC 


DS 


5, , 


ENTRY ADDRESS TO 


RECORD SUBROUTINE 


02278 


5 


00240 


ENTFE T 


DS 


5, , 


ENTRY ADDRESS TO 


FETCH SUBROUTINE 


02283 


5 


00250 


EN TS WO 


DS 


5, , 


ENTRY ADDRESS TO 


SWITCH 0 SUBROUTINE 


02288 


5 


00260 


ENTDRR 


DS 


5,, 


ENTRY ADDRESS TO 


ARRAY SUBROUTINE 


02293 


5 


002 70 


ENTDEO 


DS 


5, , 


ENTRY ADDRESS TO 


DISK ENO SUBROUTINE 


02298 


5 


00280 


ENTCOS 


DS 


5,, 


ENTRY ADDRESS TO 


COSINE SUBROUTINE 


02303 


5 


00290 


ENTSIN 


DS 


5., 


ENTRY ADDRESS TO 


SINE SUBROUTINE 


02 308 


5 


00300 


ENTATN 


DS 


5, , 


ENTRY ADDRESS TO 


ARCTANGENT SUBROUTINE 


02 313 


5 


003 10 


EN TSQT 


OS 


5. , 


ENTRY ADDRESS TO 


SQUARE ROOT SUBROUTINE 


02 318 


5 


00 120 


ENTAHS 


DS 


5, , 


ENTRY AODRESS TO 


ABSOLUTE SUBROUTINE 


02323 


5 


00 3 30 




DS 


70, 


RESERVED FOR ENTRIES TO ADDED SUBROUTINES 


02393 


70 


00340 


I IBSUB 


DSS 


30, 


.LIBRARY SUBROUTINE INDICATORS 


02394 


30 


00350 




DC 


I , • 






02424 


1 


00360 




MAINLINE TABLE SEARCH 








00370 




DORG 


2426 




02426 




00 380 


NAMBUF 


DC 


16, 


0 




02441 


16 






-000000000000000 








00390 




DC 


2.' 






02443 


2 


00400 


(JVRLAP 


DS 


1 






02444 


1 


004 10 


F LGRMK 


DS 


1 






02445 


1 


00420 


ADDCOW 


DS 


5 






02450 


5 


00430 


EQADDR 


DS 


5 






02455 


5 


00440 


SCADOR 


DS 


5 






02460 


5 


00450 


IOIND 


DS 


1 






02461 


1 


00460 


ML INO 


DS 


1 






02462 


1 




E X T I NO 


DS 


1 






02463 


I 


00480 


seer 


DS 


3 






02466 


3 


00490 


ZROTST 


DS 


1 






02467 


1 


00500 


ADDS VE 


DS 


5 






02472 


5 


00510 




DC 


l,* 






02473 


1 


00520 


LDDOA 


DDA 


.1, 


O.O.SUBTBL 




02474 


14 






1-0000-00-2522 









755 
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00530 




DC 


IV 


02488 




I 




00540 


SV60DA 


DDA 


,1,0,21,0 


02490 




14 








1-0000-21-0000 










00550 




DC 


1 , ' 


02504 




1 




00560 


DATA 


OC 


1,0 


02505 




1 




00570 


I NCDDA 


DDA 


,i,0,10,SUBTBL 


02506 




14 








1-0000-10-2522 










00580 




DC 


It* 


02520 




1 




00590 




DS 


I 


02521 








00600 


SU8TBL 


DSS 


1000 


02522 




1000 




00610 




DC 


12, • 


03533 




12 








-0000000000* 










00620 


L NK ADD 


DS 


5 


03538 




5 




00630 


FLPDOA 


DDA 


, 1,0,0, SUBTBL 


03540 




14 








1-0000-00-2522 










00640 




DC 


l,' 


03554 




1 




00650 




LOAD DISK-STORED SUBPROGRAMS 










00660 




TF 


SPRST,SCADDR 


03556 


26 


06773 


02460 


00670 




AM 


SPRST,218 


03568 


11 


06773 


-0218 


00680 




TF 


SCHDDA*5,INCD0A*5 


03580 


26 


06857 


02511 


00690 




TF 


SCHDDA*13,AD0SVE 


03592 


26 


06865 


02472 


00700 


PHASEB 


BTM 


FLPGET,»*12 


03604 


17 


06656 


-3616 


00710 




TF 


LNKPTR , LNKAOO 


03616 


26 


06758 


03538 


00720 




TFM 


•♦23,SUBTBL*ll 


03628 


16 


03651 


-2533 


00730 


ENOTST 


BNR 


•♦44,,, TEST FOR ENO OF TABLE 


03640 


45 


03684 


00000 


00740 




CM 


PROCOW, ,9 


03652 


14 


03834 


00-00 


00750 




BNE 


PHASEC 


03664 


47 


04740 


01200 


00760 




B 


CALL6 


03676 


49 


06436 


00000 


00770 




DORG 


• -3 


03684 








00780 




TF 


NAMBUF, ENDTST + Uf 11 


03684 


26 


02441 


0365J 


00790 




AM 


ENDTSmi.6,10 


03696 


11 


03651 


000-6 


00800 




BNF 


INCl3-56,ENDTST*ll,ll, TEST FOR 


-LOADED- INDICATOR 03708 


44 


03752 


0365J 


00810 




AM 


ENDTSmit 14,10 


03720 


11 


03651 


000J4 


00820 




AM 


LNKPTR, 30, 10 


03732 


11 


06758 


OOOLO 


00830 




B 


ENOTST 


03744 


49 


03640 


00000 


00840 




DORG 


•-3 


03752 








00850 




BTM 


FLPPUT.«»*12 


03752 


17 


06620 


-3764 


00860 




B 


EQSRCH 


03764 


49 


03932 


00000 


00870 




DORG 


• -3 


03772 








00880 




RETURN IF ENTRY NOT FOUND IN EQUIV. 


TABLE 








00890 




AM 


ENDTST*ll,l,lO 


03772 


11 


03651 


000-1 


00900 




BTM 


FLPGET,«*12 


03784 


17 


06656 


-3796 


00910 




BNF 


•♦32,ENDTST*ll,ll 


03796 


44 


03828 


0365J 


00920 


INC13 


AM 


ENDTST*ll,13, 10 


03808 


11 


03651 


000J3 


00930 




B 


ENOTST 


03820 


49 


03640 


00000 


00940 




OORG 


•-3 


03828 








00950 




TYPE -LOAD NAME- 










00960 




RCTY 




03828 


34 


00000 


00102 


00970 


PROCOW 


OC 


3,0, 


03834 




3 








-00 












00980 




WATY 


LOME S 


03840 


39 


07099 


00 1 00 
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OG'MO 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
OHIO 
01120 
01130 
01140 
01150 
01160 
01170 
01 180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01321 
01330 
01340 
01350 
01360 
01370 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 



SET -TYPED- INDICATOR 



WATY NAMBUF-10 
BTM FLPGET,«M2 
SF ENDTST*11,,6» 
AM PROCOM.l* 10 
AM LNKPTR, 30, 10 
BTM FLPPUT,»*12 
6 1NC13 
DORG »-3 

TF EQUO0A*5 f EQADDR 
TF INAK^46,SECT 

TFM IORT,»*23t. RE AO IN FOUR SECTORS OF EQUIV. T 
8 IOGT,60U,7 

TFM COMP*U,SUBTBL*ll.t SEARCH EQUIV. TABLE 

BNR •♦20,C0MP*11,U 

B NXTRD*24 

DORG «-3 

C NAMBUF 

BE FOUND 

AM COMP*il, 16,10, INCREMENT TO NEXT NAME 

C0MP*U,SUBT8L*411,, TEST FOR END OF TABLE 
C0MPERM2 

TEST FOR END OF EQUIV. TABLE 



CM 
BNE 
CM 
BH 
B 

OORG 
SM 
AM 
B 

AM 

TFM 

S 

s 

TDM 



DECREMENT SECTOR COUNT 



INCREMENT TO GET DIM NUMBER 



INRK*48,0,9, 

• ♦20 

INC13-36 

• -3 

INRK*48,4,10, 
EQUDDA*5,4,10 
COMPER-24 
C0MP»H,4,L0, 
DIMDDA*5,4800 
0IM0DA*6,C0MP*ll,U 
DIMDDA*6,C0MP*U,11 
DIMDOA+6,,11 
•••••• READ IN DIM SECTOR 

TD SECCT.COMPm.U, SAVE UNIT POSITION OF OIM NO. 
BTM FLPGET,»*12 

SF ENDTST*ll,,6, SET -LOADED- INDICATOR 
BTM FLPPUT,*H2 
FOUNDl TFM I0RT,»*23 
8 I0GT,DIM,7 
CM SECCT,5,10 
BL »*24 

SM SECCT.5,10, CALCULATE DIM ENTRY ADDRESS 

MM SECCT,20,9 

AM 99,INRK 

TR DIMSVE,99,ll 

TD OMEDDA ,D I MSVE 

TF DMEDDA*5,0IMSVE*5 

TR DDAR,DMEDDA» * MOVE SECTOR DDA TO PROGRAM DDA AREA 
TFM TORT, •♦23,, READ IN INDICATOR RECORD 
B I0GT,DME,7 

TF 0DAR+8,DIMSVEt8,, MOVE SECTOR COUNT 
INDICATOR RECORD CHECK 

TSrVLD C INRK+13,INDC0N,, CHECK FOR VALID INDICATOR RECORD 
BE RELFRM 

C INRK+5.IN0C0N,, CHECK FOR VALIDITY IN CORE IMAGE 



03852 


39 


02431 


00100 


03864 


17 


06656 


-3876 


0387* 


32 


0363J 


00000 


03888 


11 


03834 


000-1 


03900 


11 


06758 


OOOLO 


03912 


17 


06620 


-3924 


03926 


49 


03808 


00000 


03932 








03932 


26 


06913 


02455 


03946 


26 


07448 


02466 


03956 


16 


00565 


-3979 


03968 


49 


00566 


-6899 


03980 


16 


04023 


-2533 


03992 


49 


04012 


0402L 


04004 


49 


04096 


00000 


04012 








04012 


24 


02441 


00000 


04024 


46 


04140 


01200 


04036 


1 1 


04023 


000J6 


04048 


14 


04023 


-2933 


04060 


47 


03992 


01200 


04072 


14 


07448 


00-00 


04084 


46 


04104 


01100 


04096 


49 


03772 


00000 


04104 








04104 


12 


07448 


000-4 


04116 


11 


06913 


000-4 


04128 


49 


03956 


00000 


04140 


H 


04023 


000-4 


04152 


16 


06949 


-4800 


04164 


22 


06950 


0402L 


04176 


22 


06950 


0402L 


04188 


15 


06950 


0000- 


04200 


25 


07027 


0402L 


04212 


17 


06656 


-4224 


04224 


32 


0365J 


00000 


04236 


17 


06620 


-4248 


04248 


16 


00565 


-4271 


04260 


49 


00566 


— 6936 


04272 


14 


07027 


000-5 


04284 


47 


04308 


01300 


04296 


1 2 


07027 


000—5 


04 308 


1 3 


07027 


00-20 


04320 


11 


00099 


-7400 


04332 


31 


06986 


0009R 


04344 


25 


06876 


06986 


04356 


26 


06881 


06991 


04368 


31 


07280 


06876 


04380 


16 


00565 


-4403 


04392 


49 


00566 


-6867 


04404 


26 


07288 


06994 


04416 


24 


07413 


07011 


04428 


46 


05592 


01200 


04440 


24 


07405 


070U 
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01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 

01640 
01650 
01660 
01670 

01680 TRYSZE 

01690 

01700 

01710 

01720 

01730 



1620 FORTRAN II-D LOADER BLOCK 5 

BE •♦56 

BTM EPRINT.75,8 

RCTY 

WATY JOBOUT 
B MONCAL 
DORG »-3 

TF I NOR ♦ I It ADDS VE 

TOM INDR+7,,, CONVERT DE FINER TO CORE IMAGE 

DC !,»,• 



TF 
S 

TDM 

DC 



DDAR+5,1,10, 
DDAR+8,1,10, 
SUBPR0-24 
•-3 

SPROST,ADDSVE 

ADDC0W,INRK*22 

ADDR.ADDCOW 

ADDC0W.INRK+22 

1NRK+23 

I,*.* 



INCREMENT DISK ADDRESS BY ONE 
DECREMENT SECTOR COUNT BY ONE 



01740 
01750 
01760 
01770 
01780 
01790 
OliOO 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 



OLAP 



C ADDR ,COMADD 
BL SIZEOK 

OVERLAP INDICATION 
TOM OVRLAP.l,, TURN ON OVERLAP INDICATOR 

RCTY 

MATY NAMBUF-10,,, TYPE PROGRAM NAME 
WNTY INRK+18,,, TYPE LENGTH 
WATY OVRMES,,, TYPE OVERLAP 
AM LNKPTR, 30,10 
BD •♦20,EXTIND,, BRANCH IF PROGRAM ON CARDS OR TAPE 
B CQMP+24,,, BRANCH TO GET NEXT NAME 
DORG »-3 

•• ROUTINE TO READ INDICATOR RECORD FROM CARDS OR TAPE 

PHASEC BTM FLPGET,"12 

C0TP^2,COMSEC*73 
CDTP*2,l,10 

I0RT,^23., GET INDICATOR RECORD 
I0GT,C0TP-4,7 
EXTINOtl 
LNKPTR, LNKADD 
•♦23,SU8TBL*U 

•♦20,,, TEST FOR END OF TABLE 
READ 
•-3 

•♦23.INRK 
•♦20 
READ 
3 

RMCHK^U,1,10 
AMCMKM1,INAK>80 
RMCHK 
INRK41 
INRK*2 
INAKO 
INRK*4 



READ 



ENTST 



TD 
SM 
TFM 
B 

TDM 
TF 
TFM 
BNR 
B 

OORG 
TFM 

RMCHK BNR 
8 

OORG 
AM 

CM 
BNE 

SF 
CF 
CF 
CF 



04452 


46 


04508 


01200 


04464 


17 


06692 


0-075 


04476 


34 


00000 


00102 


044BB 


39 


07113 


00100 


04500 


49 


00796 


OOOOO 


04508 








04508 


26 


06934 


02472 


04520 


15 


06930 


OOOOO 


04531 




1 




04532 


11 


07285 


000- 1 


04544 


12 


07288 


000- 1 


04556 


49 


05664 


OOOOO 


04564 








04564 


21 


06768 


02472 


04576 


21 


02450 


07422 


04588 


26 


06763 


02 4 50 


04600 


22 


02450 


07422 


04612 


15 


07423 


OOOOO 


04623 




I 




04624 


24 


06763 


02231 


04636 


47 


05228 


01300 


04648 


15 


02444 


00001 


04660 


34 


ooooo 


00102 


04672 


39 


02431 


00100 


04684 


36 


07418 


00100 


04696 


39 


06775 


00100 


04708 


11 


06758 


OOOLO 


04720 


43 


04740 


02463 


04732 


49 


04036 


ooooo 


04740 








04740 


17 


06656 


-4752 


04752 


25 


07024 


07373 


04764 


12 


07024 


000-1 


04776 


16 


00565 


-4799 


04788 


49 


00566 


-7018 


04800 


15 


02463 


00001 


04812 


26 


06758 


03536 


04824 


16 


04847 


-2533 


04836 


45 


04856 


OOOOO 


04848 


49 


04776 


OOOOO 


04856 








04856 


16 


04879 


-7400 


04868 


49 


04888 


OOOOO 


04880 


49 


04776 


OOOOO 


04888 








04888 


11 


04879 


000-1 


04900 


14 


04679 


-7460 


04912 


4? 


04866 


01200 


04924 


32 


07401 


OOOOO 


0493* 


39 


07402 


OOOOO 


04*48 


33 


07403 


OOOOO 


04960 


39 


07404 


OOOOO 



758 



1*20 FORTRAN 1 1-0 IQADfR BLOCK 5 



PAGE 5 



02090 




CM 


INRK*4,4131,8 


04972 


14 


07404 


0N131 


O.MOO 




BNE 


HEADER 


04984 


47 


09040 


01200 


02110 




RCTY 




04996 


34 


00000 


00102 


02120 




TFM 


I0RT,»*2J 


05008 


16 


00565 


-5031 


02130 




B 


I0PT,TVPE-4,7 


05020 


49 


00532 


-7211 


02140 




8 


PHASED 


05032 


49 


06376 


00000 


02150 




DORG 


•-3 


05040 








02160 


HEADER 


C 


INRK*13,INDC0N,, TEST FOR INDICATOR RECORO 


05040 


24 


07413 


07011 


02170 




BNE 


READ 


05052 


47 


04776 


01200 


02180 




BNF 


•♦20,INRK+16 


05064 


44 


05084 


07416 


02190 




B 


READ 


05076 


49 


04776 


00000 


02200 




DORG 


• -3 


05084 








02210 




C 


INRK*25,ENTST*ll,U, COMPARE NAMES 


05084 


24 


07425 


0484P 


02220 




BNE 


GONXT 


05096 


47 


05196 


01200 


02230 




TF 


NAMBUFf ENTST+11 til 


05108 


26 


02441 


0464P 


02240 




AN 


ENTST+llf 6t 10 


05120 


11 


04847 


000-6 


02250 




BNF 


•♦32,ENTST*Uill 


05132 


44 


05164 


0484P 


02251 




AM 


ENTST+11,14, 10 


05144 


1 1 


04847 


000J4 


02260 




B 


G0NXTM2 


05156 


49 


05208 


00000 


02270 




DORG 


• -3 


05164 








02280 




SF 


ENTST*11,,6, SET -LOADED- INDICATOR 


05164 


32 


0484P 


00000 


02290 




BTM 


FLPPUTi»*12 


05176 


17 


06620 


-5188 


02300 




0 


RELFRM 


05188 


49 


05592 


00000 


02310 




DORG 


• -3 


05196 








02320 


GONXT 


AM 


ENTST+11,20, 10 


05196 


11 


04847 


OOOKO 


02330 




AM 


LNKPTR * 30 1 10 


05208 


11 


06758 


OOOLO 


02340 




B 


ENTST 


05220 


49 


04836 


00000 


02350 




DORG 


•-3 


0522B 








02360 


S I2E0K 


TF 


• ♦18, ADDSVE 


05228 


26 


05246 


02472 


02370 




TR 


, ZEROS 


05240 


31 


00000 


06792 


02380 




AM 


•-6,50,10 


05252 


1 1 


05246 


OOONO 


02390 




c 


SIZE0K*18,SPR0ST 


05264 


24 


05246 


06768 


02400 




BL 


•-36 


05276 


47 


05240 


01300 


02410 




BD 


•♦24.0VRLAP 


05288 


43 


05312 


02444 


02420 




BNCl 


• 4-84 


05300 


47 


05384 


00100 


02430 




RCTY 




05312 


34 


00000 


00102 


02440 




WATY 


NAMBUF-10, 1 1 TYPE OUT NAME 


05324 


39 


02431 


00100 


02450 




WNTY 


A0DSVE-4 


05336 


38 


02468 


00100 


02460 




SPTY 




05348 


34 


00000 


00101 


02470 




WNTY 


INRK+18,,, TYPE OUT LENGTH 


05360 


38 


07418 


00100 


02480 




WATY 


LDED 


05372 


39 


07081 


00100 


02490 




LOAD PROGRAMS ROUTINE 










02500 


RDPROG 


BD 


COTPLD.EXTINO., BRANCH IF PROGRAM IN CARD OR TAPE 


05384 


43 


05428 


02463 


02510 


SCHLD 


TFM 


IORT,«*23,, GET PROGRAM FROM DISK 


05 396 


16 


00565 


-5419 


02520 




B 


IOGT, I NOR, 7 


05408 


49 


00566 


-6923 


02530 




B 


L0D1NC 


05420 


49 


05872 


00000 


02540 




DORG 


♦-3 


05428 








02550 


•••••• 


ROUTINE TO LOAD PROGRAM FROM CARD OR TAPE 










02560 


COTPLO 


TDM 


416 


05428 


15 


00416 


00000 


02570 




DC 
t 




05439 




1 




02580 




TD 


428.C0MSEC+73 


05440 


25 


00428 


07373 


02590 




SF 


428 


05452 


32 


00428 


00000 


026C0 




CF 


429 


05464 


33 


00429 


00000 


02610 




TF 


434, ADDSVE 


05476 


26 


00434 


02472 


02620 




SF 


489 


05488 


32 


00489 


OGOOO 
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02630 




TF 


C0MSEC+98»INRK+79 


05500 


26 


07398 


07479 


02640 




TFM 


I0RT,»*23,, PUT BACK COMMUNICATION SECTOR 


05512 


16 


00565 


-5535 


02650 




B 


I0PT,C0M,7 


05524 


4<» 


00532 


-7179 


02660 




TFM 


I0RT,»*23t, GET PROGRAM 


05536 


16 


00565 


-5559 


02670 




B 


IOGT, EXT, 7 


05548 


49 


00566 


-7148 


02680 




SM 


PROCOW.1,10 


05560 


12 


03834 


000-1 


02690 




TDM 


EXTIND 


05572 


15 


02463 


00000 


02700 




a 


LODINC 


05584 


49 


05872 


00000 


02710 




DORG 


• -3 


05592 








02720 


RELFRM 


TDM 


INRK+80 


05592 


15 


07480 


00000 


02730 




OC 
i 


It '»• 


05603 




1 




02740 




TR 


INRK, I NRK+6, * MOVE INDICATOR RECORO TO CONFORM TO CARD IMAGE 


05604 


31 


07400 


07408 


02750 




CF 


427 


05616 


33 


00427 


00000 


02760 




TFM 


439,75 


05628 


16 


00439 


-0075 


02770 




TFM 


DDAR*13, 99999 


05640 


16 


07293 


R9999 


02780 




TF 


INDR*U,AODSVE 


05652 


26 


06934 


02472 


02790 




TF 


SPROST.INRKOl 


05664 


26 


06768 


07431 


02800 




AM 


SPROST.5,10 


05676 


11 


06768 


000-5 


02810 


SUBPRO C 


INRK+24.F,, TEST FOR EQUAL F 


05688 


24 


07424 


02219 


02820 




BNE 


• ♦36 


05700 


47 


05736 


01200 


02830 




C 


INRK*26,K,, TEST FOR EQUAL K 


05712 


24 


07426 


02221 


02840 




BE 


• ♦24 


05724 


46 


05748 


01200 


02850 




BTM 


EPRINT.76,8 


05736 


17 


06692 


0-076 


02860 




TEST FOR NEW SUBROUTINES CALLED FROM FLIPPED SUBPROGRAM 










02870 


FLIP 


TFM 


CCSUB*ll,INRK*37 


05748 


16 


05783 


-7437 


02880 




TFM 


LBSUB+U,LIBSUB 


05 760 


16 


05851 


^2394 


02890 


CCSUB 


BD 


LBSUB 


05772 


43 


05840 


00000 


02900 




AM 


•-1,1,10 


05784 


11 


05783 


000-1 


02910 




AM 


LBSUB+11,1,10 


05796 


11 


05851 


000-1 


02920 




CM 


LBSUB+11,LIBSUB*30 


05808 


14 


05851 


-2424 


02930 




BNE 


CCSUB 


05820 


47 


05772 


01200 


02940 




B 


TRVSZE 


05832 


49 


04564 


00000 


02950 




DORG 


•-3 


05840 








02960 


LBSUB 


BD 


CCSUB+12 


05840 


43 


05784 


00000 


02970 




BTM 


EPRINT.77,8 


05852 


17 


06692 


0-077 


02980 




8 


CCSUB+12 


05864 


49 


05784 


00000 


02990 




OORG 


•-3 


05872 








03000 




IN-CORE SUBPROGRAM TABLE SEARCH AND LOAD 










03010 


LODINC 


TFM 


I0RT,»*23 


05872 


16 


00565 


-5895 


03020 




B 


IOGT, INC, 7 


05884 


49 


00566 


-6891 


030 30 




TF 


COMPRE* 11, ADDA 


05896 


26 


05943 


06763 


03040 




AM 


COMPRE*ll, 1,10 


05908 


11 


05943 


000-1 


03050 




TFM 


COMPAR*ll,SUBTBL*ll,, INITIALIZE POINTER 


05920 


16 


05963 


-2533 


03060 


COMPRE 


BNR 


SERCH 


05932 


45 


05996 


00000 


03070 




B 


SCHPRO 


05944 


49 


06168 


00000 


03080 




OORG 


•-3 


05952 








03090 


COMPAR 


BNR 


COMPRE 


05952 


45 


05932 


00000 


03100 




BTM 


EPRINT.7170,8 


05964 


17 


06692 


OP170 


03110 




AM 


COMPREm.18,10 


05976 


11 


05943 


000J8 


03120 




B 


COMPRE-12 


05988 


49 


05920 


00000 


03130 




DORG 


• -3 


05996 








03140 


SERCH 


AM 


C0MPRE*U,U,10 


05996 


11 


05943 


000 J 1 


03150 




C 


COMPAR ♦ 1 1 , COMPRE* 1 1,611, CHECK FOR SAME NAME 


06008 


24 


0596L 


0594L 


03160 




BE 


SERCHl 


06020 


46 


06064 


01200 


03170 




AM 


C0MPAR*ll,20,10 


06032 


11 


05963 


OOOKO 
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sm 


C0MPREM1, 11,10 


OA 044 


1 2 






(Hi80 




B 


COMPAR 


060 56 


49 


05952 


AAAnn 

uuuou 


0 31 90 




OORG 


•-3 














AM 


COMPRE ♦11,5,10 




1 1 


A«o2* 


nn_ _ 


0 12 10 




AM 


COMPAR+ 1 1 * S# 10 


06076 


1 1 


05963 


AAA K 

000 






ROUTINE TO PLACE INDIRECT ENTRY AOORESSES INTO SUBPROGRAMS 














A 


COMPRE*ll, ADDSVE ,6 


06088 


2 I 


_ 


02472 


a j a 




TF 


•♦35,C0MPAR*ll,ll 


OA 100 


26 


06 1 35 


0596L 


0 3250 




TP 


•♦18,C0MPRE*ll,li 


06112 


26 


061 30 


Q594L 


03260 




TFM 


,,, MOVE ADDRESS INTO PROGRAM 


06 124 


16 


00000 


—0000 


0 32 70 




SF 


•-6, ,6 


06 1 36 


32 


061 3" 


AAAAA 

ououu 


0 3280 




AM 


C0NPRE*ll,2, 10 


06 148 


1 1 


05943 


000-2 






B 


COMPRE-12 


2* J*? 


49 


05920 


uuuuu 


03300 




DORG 


•-3 


06 1 68 








C3310 


SCMPRO 


TF 


•♦30,AODR 


06 168 


26 


06 198 




0 3320 




AM 


•♦18, I, 10 


06 180 


1 1 


06198 


AAA 1 

000- 1 


03 3 30 


SETGM 


TDM 




06 192 


15 


AAAAA 

00000 


AAAAA 

ooooo 


0 3340 




DGM 


« 


06203 




1 




03350 




BO 


RUUNOt INRK*22 


06204 


4 3 


06356 


07422 


03360 




80 


ROUND, I NRK>2 I 


062 16 


43 


06356 


07421 


03370 MVESCT 


"TF 


SCHnDA48,INRK+20 


06228 


26 


06860 


07420 


03380 




S 


SCHD0A*5 , SCHO0A*8 




W 




06860 


03390 




C 


SCH00A*5,SPRST 


06252 


24 




06773 


03400 




BL 


ERL 


06264 


47 


06596 


0 1 300 


03410 




TFM 


IORT,»*23 


06276 


16 


00565 


—6299 


03420 




B 


I0PT,SCH,7 


06288 


49 


00532 


— 6843 


03430 




TF 


LNKPTR , SCHDDA+5 ,6 


06 300 


26 


0675Q 


06857 


03440 




AM 


LNKPTR,5,10 


063 12 


1 1 


06758 


000-5 


03450 




TF 


LNKPTR,SPR0ST,6 


06 324 


26 


0675Q 


06768 


03460 




AM 


LNKPTR ,25 , 10 


06 336 


11 


06758 


O00K5 


0 34 70 




B 


PHASES 


06348 


49 


03604 


AAAAA 

OOOOO 


03480 




DORG 


• -3 


06356 








03490 


ROUND 


AM 


INRK*20,1,10 


06356 


11 


07420 


000-1 


0 3500 




B 


MVESCT 


06 368 


49 


06228 


ooooo 


0 3510 




DORG 


•-3 


06376 








03520 




CHECK AND TYPE OUT NAMES OF UNLOADEO SUBPROGRAMS 










03530 


PHASED 


TDM 


DATA, I 


06 376 


15 


02505 


00001 


03540 




TFM 


•♦35,SUBTBL*ll 


06388 


16 


06423 


-2533 


03550 




TDM 


MORE 


06400 


15 


06537 


OOOOO 


03560 




OMR 


• ♦60 


06412 


45 


064 72 


OOOOO 


03570 




BD 


PHASECMORE 


06424 


43 


04740 


06537 


03580 


CALL 6 


TF 


INRK*4,SCHDDA+5 


06436 


26 


07404 


06857 


03581 




TFM 


10RT,»*23 


06448 


16 


00565 


-6471 


03590 




B 


I0GT,BL6,7 


06460 


49 


00566 


-7140 


03600 




TF 


NAMBUF , PHASED+47 » 1 1 


06472 


26 


02441 


0642L 


03610 




AM 


PHASED+47,6,10 


06484 


1 1 


06423 


000-6 


03620 




BNF 


•♦32,PHASED+47,ll 


06496 


44 


06528 


0642L 


03630 




AM 


PHASED+47,14, 10 


06508 


1 1 


06423 


000J4 


03640 




B 


PHASED+36 








nnnnn 
uuuuu 


03650 




DORG 


»-3 


06528 








03660 




TDM 


MORE, 1 


06528 


15 


06537 


00001 


03670 


MORE 


DS 


.•-2 


06537 




0 




03680 




RCTY 




06540 


34 


00000 


00102 


03690 




TDM 


DATA,0 


06552 


15 


02505 


OOOOO 


03700 




WATY 


LDMES 


06564 


39 


07099 


00100 


03710 




WATY 


NAMBUF-10 


06576 


39 


02431 


00100 
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03720 




B 


• -80 


06588 


49 


06508 


OOOOO 


03730 




DORG 


• -3 


06596 








03740 


ERL 


BTM 


EPRINT.7171,8 


06596 


17 


06692 


0P171 


03750 




B 


OLAP 


06608 


49 


04708 


OOOOO 


03760 


FLPPUT 


TFM 


I0RT,»*23 


06620 


16 


00565 


-6643 


03770 




B 


I0PT.FLP.7 


06632 


49 


00532 


-7171 


03780 




B 


FLPPUT*!, ,6 


06644 


49 


066 1R 


OOOOO 


03790 


FLPGE T 


TFM 


I0RT,»*23 


06656 


16 


00565 


-6679 


03800 




fl 


I0GT,FLP,7 


06668 


49 


00566 


-7171 


03810 




8 


FLPGET-1,,6 


06680 


49 


0665N 


OOOOO 


03830 




ERROR MESSAGE SUBROUTINE 










0 3840 


EPR I NT 


TF 


ERMESS*16,EPRINT-l 


06692 


26 


06977 


06691 


0 38 50 




RCTY 




06 704 


34 


OOOOO 


00102 


0 3860 




WATY 


NAMBUF-10 


06716 


39 


02431 


00100 


03870 




WATY 


ERMESS 


06728 


39 


06961 


00100 


03880 




TDM 


SVEDDA-1,1 


06740 


15 


02489 


00001 


03890 




BB 




06752 


42 


OOOOO 


OOOOO 


03900 




DORG 


• -9 


06754 








03910 


LNKPTR 


DS 


5 


06758 




5 




03920 


A DDR 


DS 


5 


06763 




5 




03930 


SPROST 


DS 


5 


06 768 




5 




03940 


SPRST 


DS 


5 


06773 




5 




03950 


OVRMES 


DAC 


9, OVERLAP • 


06775 




9 


X 2 






OVERLAP • 










03960 


ZEROS 


DSC 


50,0 


06792 




50 








00000000000000000OQ00000O00000O000OO0OO00OO00O0000 










03970 




DC 
t 


l,« 


06842 




1 




03980 


SCH 


DSC 


2,22 


06843 




2 








22 












03990 




DSA 


SCHOOA 


06849 




5 


X 1 










06849 




-6852 




04000 




DC 


1 , * 


06850 




I 




04010 


SCHDDA 


DDA 


, 1,0,0,0 


06852 




14 








1-0000-00-0000 










04020 




DC 
< 


l,» 


06866 




I 




040 30 


DME 


DSC 


2,22 


06867 




2 








22 












04040 




OSA 


OMEODA 


06873 




5 


X 1 










06873 




-6876 




04050 




OC 


i. 8 


06874 




I 




04060 


DMEDDA 


DOA 


,1,0,1,INRK 


06876 




14 








1-0000-01-7400 










04070 




OC 


1,« 


06890 




1 




04080 


INC 


DSC 


2,22 


06891 




2 








22 












04090 




OSA 


INCOOA 


06897 




5 


X 1 










0689T 




-2306 




04100 




OC 


I • • 


06898 




I 
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04110 EQU 


osc 


2,22 




06899 


* 








22 














04120 


OSA 


E QUOD A 




06905 


5 


X 


1 










06909 


~6908 






04110 


OC 


lt« 




06906 


1 






04140 EQUDOA 


00A 


,1,0,4,SUBTBL 




06908 


14 








1-0000-04-2522 












04150 


OC 
• 


li* 




06922 


1 






04160 INDR 


DSC 


2t22 




06923 


2 








22 














04170 


DSA 


ODAR,0 




06929 


5 


X 


2 










06929 


-7280 














06934 


-0000 






041 80 


DC 


l.« 




06935 








04190 DIM 


DSC 


2*22 




069 36 


2 








22 














04?00 


DSA 


OIMOOA 




06942 




X 


1 










06942 


-6944 






04210 


DC 


It* 




06943 


I 






04220 DIMODA 


ODA 


, 1,4800, I, INRK 




06944 


14 








1-4800-01-7400 












04230 


DC 


ii« 




06956 


I 






04240 ERMESS 


DAC 


10, ERROR I • 




06961 


10 


X 


2 




ERROR L • 












(lAicn 7 P Dnuc 
Ut^3U (CKUnIC 


DC 


6,100001 




06985 


6 








J00001 












04260 DIHSVE 


DSS 


20,, RESERVES CURRENT 


DIM ENTRY 


06986 


20 






04270 INDCON 


OC 


6,987898,, INDICATOR 


RECORO CONSTANT 


07011 










R87898 














OS 


5,, LENGTH OF MAINLINE PROGRAM 


07016 


5 






04200 C01NP 


OS 


1 




07017 


1 






04300 CDTP 


DSA 


INRK 




07022 


5 


X 


1 










07022 


-7400 






04310 


DC 


3,« 




07025 


3 






U4 JZU jcLL 1 


-0* 
DC 


2.0 




07027 


2 






04330 TAB 


-0 
DSC 


2,22 




07028 


2 








22 














04340 


DSA 


TABODA 




07034 


5 


X 


1 










07034 


-7036 






04350 


DC 
• 


It 1 




07035 


1 






04360 T ABDOA 


DOA 


t 1,0,1, INRK 




07036 


14 








1-0000-01-7400 












04370 


DC 


1 , • 




07050 


1 
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04380 TBL 


DSC 


2,22 




07051 


2 








22 














04390 


DSA 


TBLDOA 




07057 


5 




1 










07057 


-7060 






04400. 


DC 
• 


It* 




07058 


1 






04410 TBLDOA 


DDA 


,1,0, I, INRK 




07060 


14 








1-0000-01-7400 












04420 


DC 
f 


lt« 




07074 


1 






04430 ONETMO 


DSC 


5,00101 




07075 


5 








00101 












04440 LDED 


DAC 


9, LOADED' 




07081 


9 


X 


2 




LOADED* 












04450 LDMES 


DAC 


7, LOAD • 




07099 


7 


X 


2 




LOAD 


• 












04460 JOBOUT 


DAC 


14, JOB ABANOONEO ' 




07113 


14 


X 


2 




JOB 


ABANDONEO* 












04470 BL6 


DSC 


2,-22 




07140 


2 








2K 














04480 


DSC 


1.0 




07142 


1 






04490 


0 

OC 


5,157* 




07147 


5 








-157 


t 












04500 EXT 


OSC 


2,-22 




07148 


2 








2K 














04510 


OSA 


EXTDOA 




07154 


5 


x 


I 










07154 


-7156 






04520 


DC 






07155 


I 






04530 EXTOOA 


DOA 


.1.19783,3,0 




07156 


14 








U9783-03-0000 












04540 


DC 
< 


l.« 




07170 


I 






04550 FLP 


OSC 


2,22 




07171 


2 








22 














04560 


DSA 


FLPOOA 




07 77 
07177 






1 










07177 


-3540 








DC 


l.« 




07 1 76 


1 






04580 COM 


DSC 


2,22 




07179 


2 








22 














04590 


DSA 


COMOOA 




07189 


§ 




1 










07199 


-7188 






04600 


OC 


It 1 




07166 


1 






04610 COM00A 


DDA 


.1. 19663, l.COMSEC 




07189 


14 








1J9663-01-7300 












04620 


OC 






07202 


1 






04630 LD 


DSC 


2,22 




07203 


2 







763 



U2 0 FORTRAN II -0 LOADER BLOCK 5 



PAGE 



04640 

04690 
04660 TYPE 

04670 

04680 DAT Al 



04690 

04700 DOAR 
04710 C0HS6C OSS 
04720 INRK OSS 



OS A LDDOA 



OC l,« 
DSA DATA I 



OC 3,06* 
-6' 

OAC 6,»DATA» 
•DATA* 

DORG 7280 
OSS 20 
100 
100 



SYSTEM COMMUNICATION SECTOR 

READ IN AREA FOR INDICATOR RECORD 



04730 



DEND 



07209 


5 


X 


1 


07209 
07210 


-2474 
I 






07215 


5 


X 


I 


07215 
07218 


-7221 
3 






07221 


6 


X 


2 


07280 
07280 
07300 
07400 


20 
100 
100 






00000 









765 



ADOCOW 


02450 


AODSVE 


02472 


CDTPLD 


05428 


CQMADD 


02231 


COMDDA 


07188 


COMPAR 


05952 


COMPER 


03980 


COMPRE 


05932 


COMSEC 


07300 


DIMDDA 


06944 


OIMSVE 


06986 


OMEOOA 


06876 


ENOTST 


03640 


ENTABS 


02323 


ENTATN 


02313 


ENTCOS 


02 303 


ENTDEO 


02298 


ENTDRR 


02293 


E NT EXP 


02253 


ENTFET 


02283 


ENTF1D 


02273 


ENTREC 


02278 


ENTSC1 


02258 


ENTSC2 


02263 


ENTSC3 


02268 


ENTSIN 


02308 


ENTSQT 


02318 


ENTSWO 


02288 


1 OF ONE 


ASSEMBLY. 
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EPRINT 
EQADDR 
EQSRCH 
EQUODA 
ERMESS 
EXTDOA 
EXT I NO 
FLGRMK 
FLPODA 
FLPGET 
FLPPUT 
F0UN01 
HEADER 
INCDDA 
INDCON 
JOBOUT 
LIBSUB 
LNKADD 
LNKPTR 
LOO INC 
MLLGTH 
MONCAL 
MVESCT 
NAMBUF 
ONE TWO 
OVA LAP 
OVRMES 
PHASES 



06692 


PHASEC 


04 740 


GONXT 


05196 


SECT 


02466 


02455 


PHASED 


06376 


INC13 


03808 


SERCH 


05996 


03932 


PROCOW 


03834 


INC 


06891 


SETGM 


06192 


06908 


PROG ST 


02226 


INDR 


06923 


SPRST 


06773 


06961 


ROPROG 


05384 


INRK 


07400 


TAB 


07028 


07156 


RELFRM 


05592 


IOGT 


00566 


TBL 


07051 


02463 


A DOR 


06763 


IOIND 


02461 


TYPE 


07215 


02445 


BL6 


07140 


IOPT 


005 32 


W 


02240 


03540 


CALL6 


06436 


IORT 


00565 


ZEROS 


06792 


06656 


CCSUB 


05772 


K 


02221 


SCADDR 


02460 


06620 


CD1NP 


07017 


LBSU8 


05840 


SCHODA 


06852 


04248 


COTP 


07022 


LODDA 


02474 


SCHPRO 


06168 


05040 


COMP 


04012 


LDED 


07081 


SERCHl 


06064 


02506 


COM 


07179 


LOMES 


07099 


SIZEOK 


05228 


07011 


DATAl 


07221 


LD 


07203 


SPROST 


06766 


07113 


DATA 


02505 


MLIND 


02462 


SUBPRO 


05688 


02394 


ODAR 


07280 


MORE 


06537 


SUBTBL 


02522 


03538 


DIM 


06936 


Nl 


02233 


SVEDDA 


02490 


06758 


OME 


06867 


N2 


02238 


TABOO A 


07036 


05872 


ENTLN 


02246 


NXTRD 


04072 


TBLODA 


07060 


07016 


ENTST 


04836 


OLAP 


04708 


TRYSZE 


04564 


00796 


EQU 


06899 


READ 


04776 


TSTVLD 


04416 


06228 


ERL 


06596 


RECLG 


02243 


ZERONE 


06985 


02441 


EXT 


07148 


RMCHK 


04868 


ZROTST 


02467 


07075 


FLIP 


05748 


ROUND 


06356 


02444 


FLP 


07171 


SCHLO 


05196 






06775 


FOUNO 


04140 


SCH 


06843 






03604 


F 


02219 


SECCT 


07027 







766 
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00010 
















00020 
















00030 


IOPT 


DS 


,532 






00532 


0 


00040 


IOGT 


OS 


,566 






00566 


0 


00050 


IORT 


OS 


,565 






00565 


0 


00060 


MONCAl 


DS 


,796 






00 796 


0 


000 70 


DIG 


DS 


,816 






00816 


0 


OOOBO 


ERRET 


DS 


,602 






00602 


0 


00090 


1N0S 


DS 


,610 






00610 


0 


00100 


ERROR 


OS 


,624 






00624 


0 


00110 


• •» 


COMMUNICATION AREA 










00120 




OORG 


2218 






02218 




00130 


F 


OS 


2,, FLOATING POINT 


WORD LENGTH 


02219 




00140 


K 


OS 


2», FIXED POINT WORD 


LENGTH 


02221 




00150 


PROGSf 


DS 


5,, STARTING ADDRESS 


OF MAINLINE PROGRAM 


02226 




00160 


COHAOO 


OS 


5,, STARTING AODRESS 


OF COMMON AREA 


02231 




00170 


Nl 


OS 


2,, NUMBER OF WORDS 


N LOGICAL RECORO 


02233 




00180 


N2 


OS 


5,, NUMBER OF LOGICAL RECORDS 


02238 




00190 


w 


OS 


2,, WORD LENGTH 






02240 




00200 


RECLG • 


OS 


3,, RECORD LENGTH 






02243 




00210 


ENTLN 


OS 


5,, ENTRY ADDRESS 


TO 


LOG SUBROUTINE 


02248 




00220 


eNTEXP 


OS 


5,, ENTRY AOORESS 


TO 


EXPONENTIAL SUBROUTINE 


02253 




00230 


ENTSC1 


OS 


5,, ENTRY AOORESS 


TO 


SINGLE SUBSCRIPT SUBROUTINE 


02258 




00240 


ENTSC2 


OS 


5,, ENTRY AODRESS 


TO 


DOUBLE SUBSCRIPT SUBROUTINE 


02263 




00250 


ENTSC3 


OS 


5,, ENTRY ADDRESS 


TO 


TRIPLE SUBSCRIPT SUBROUTINE 


02268 




00260 


ENTFID 


DS 


5,, ENTRY AOORESS 


TO 


FIND SUBROUTINE 


02273 




00270 


ENTREC 


OS 


5,, ENTRY AOORESS 


TO 


RECORO SUBROUTINE 


02278 




00280 


ENTFET 


OS 


5,, ENTRY AOORESS 


TO 


FETCH SUBROUTINE 


02283 




00290 


ENTSWD 


DS 


5,, ENTRY AOORESS 


TO 


SWITCH 0 SUBROUTINE 


02288 




00300 


ENTORR 


OS 


5,, ENTRY AOORESS 


TO 


ARRAY SUBROUTINE 


02293 




00310 


ENTOEO 


OS 


5,, ENTRY AOORESS 


TO 


DISK ENO SUBROUTINE 


02298 




00320 


ENTCOS 


OS 


5», ENTRY AOORESS 


TO 


COSINE SUBROUTINE 


02303 




00330 


ENTSIN 


DS 


5,, ENTRY ADDRESS 


TO 


SINE SUBROUTINE 


02308 




00340 


ENTATN 


DS 


5,, ENTRY AOORESS 


TO 


ARCTANGENT SUBROUTINE 


02313 




00350 


ENTSOr 


DS 


5,, ENTRY AOORESS 


TO 


SQUARE ROOT SUBROUTINE 


02 318 




00360 


EN TABS 


OS 


5 f , ENTRY AOORESS 


TO 


ABSOLUTE SUBROUTINE 


02 323 




00370 




DS 


70,, RESERVED FOR ENTRIES TO ADDED SUBROUTINES 


02393 


70 


00380 


LIBSUB 


OSS 


30* •LIBRARY SUBROUTINE INDICATORS 


02394 


30 


00390 




OC 


!»• 






02424 


1 


00400 




MAINLINE TABLE SEARCH 








00410 




DORG 


2426 






02426 




00420 


NAMBUF 


OC 


16,0 






02441 


16 






-000000000000000 










00430 




OC 
• * 


2.' 






02443 




00440 


OYALAP 


OS 


1 






02444 




00450 


FLGRHK 


OS 


1 






02445 




00460 


AOOCOM 


OS 


5 






02450 




004 70 


FOADOR 


OS 


5 






02455 




00480 


SCADOR 


OS 


5 






02460 




00490 


IOINO 


OS 


1 






02461 




00500 


ML I NO 


OS 


I 






02462 




00510 


EXTINO 


DS 


1 






02463 




00520 


SECT 


DS 


3 






02466 




00530 


t " * 


OS 


I 






02467 
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00>*0 ADDSVE 


OS 


5 


02472 




5 




00550 


DC 


It* 


02473 




1 




00560 LDOOA 


DOA 


t It Of Ot 0 


02474 




14 




00570 


I -0000- 00- 0000 










PC 


02488 




1 




00580 SVEDDA 


ODA 


,1,0,21,0 


02490 




14 






I -0000- 2 1-0000 










00590 


OC 
• 


I , • 


02504 




1 




00600 DATA 


PC 


l.Q 


02505 




1 




00610 INCQDA 


DOA 


,1,0,10,0 


02506 




14 






I -0000- 10-0000 










00620 


OC 


1,« 


02520 




1 




006 30 


OS 


1 


02521 




I 






ROUTINE TO LOAD AftI TM AND I/O PACKAGE 










00650 ARITH 


fiD^ 


nimn r kit a* 


02522 


16 


0085J 


-3670 


00660 




TKlblf A nuoi AD 


02534 


43 


03714 


02444 


00670 


BD 


i u j t q (ucf\n& i 
I NMI 8 , bVCUDA— I 


0254 ft 


43 


03714 


02489 


00680 


TF M 


IORT , •♦23 


02558 


16 


00565 


-2581 


00690 


8 


IOGT, SVE»7 


02570 


49 


00566 


-3838 


00700 


BD 


Nl TST, 2R0TST 


02582 


43 


02602 


02467 




B 


LDF I X2 


02594 


49 


03506 


00000 


00720 


DORG 


• - 3 


02602 








00730 NITS 7 


60 


N1N20K,N1 


02602 


43 


02790 


02233 


00740 




N 1 miUK , N 1 1 


02614 


43 


02790 


02232 


00750 


RCTY 




02626 


34 


00000 


00102 


00760 


TFM 


I0RT,»*23 


02638 


16 


00565 


-2661 


00770 


B 


lOPT,TYPE-4,7 


02650 


49 


00532 


-3846 


00780 


RCTY 




02662 


34 


00000 


00102 


00790 


TFM 


10RT,«*23 


02674 


16 


00565 


-2697 


00800 


B 


IOGT, TYPE 1-4, 7 


02686 


49 


00566 


-3862 


00810 


BC4 


NlTST+24 


02698 


46 


02626 


00400 


00820 


SF 


INRKtlO 


02710 


32 


07410 


00000 


00830 


SF 


INRK*12 


02722 


32 


07412 


00000 


00840 


TF 


Nl,INRK*ll 


02 734 


26 


02233 


0 741 1 


00850 


TF 


N2,INRK*16 


02746 


26 


02238 


07416 


00860 


CM 


N2 


02758 


14 


02238 


-0000 


00870 


BNE 


Nl TST 


02770 


47 


02602 


01200 


00880 


B 


NIT ST* 24 


02782 


49 


02626 


00000 


00890 


DORG 


— 3 


02790 








00900 N1N20K 


M 


W..N1 


02790 


23 


02240 


02233 


00910 


SF 


96 


02802 


32 


00096 


00000 


00920 


CM 


99,101,8 


02814 


14 


00099 


0-10.1 


0093O 


BL 


SETl 


02826 


47 


02882 


01300 


00940 


CM ; 


99,200,8 


02838 


14 


00099 


0-200 


00950 


BH 


N1TST*24 


02850 


46 


02626 


01100 


00960 


TFM 


RECLG,2,9 


02862 


16 


02243 


00-02 


00970 


B 


N2TST 


02874 


49 


02894 


00000 


00980 


DORG 


•-3 


02882 








00990 SET1 


TFM 


RECLG.1,9 


02882 


16 


02243 


00-01 


01000 N2TST 


M 


N2.RECLG 


02894 


23 


02238 


02243 


01010 


SF 


95 


02906 


32 


00095 


00000 



769 
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01020 




CM 


99,19999 


02918 


14 


00099 


J9999 


01030 




BH 


N I TST* 24 


02930 


46 


02626 


01100 


01040 




CM 


99,00001 


02942 


14 


00099 


-0001 


01050 




BL 


NITST*24 


02954 


47 


02626 


01300 






B 


L0FIX2 


02966 


49 


03506 


00000 






DORG 


•-3 


02974 








01060 


LDF IX 


BD 


LDF I XI, DATA 


02974 


43 


02994 


02505 


01070 




B 


READ-24 


02986 


49 


03274 


00000 


01080 




DORG 


*-3 


02994 








01090 


LDFIX1 


BD 


•♦20, IOIND 


02994 


43 


03014 


02461 


01100 




8 


GETFIX 


03006 


49 


03194 


00000 


oino 




DORG 


•r3 


03014 








01120 




TFM 


DDAR+5, 19400 


03014 


16 


07285 


J 9400 


01130 




TO* 


DDAR, 1 


03026 


IS 


07280 


00001 


01140 




TOM 


00AR*14 


03038 


15 


07294 


00000 


01150 




OC 


!••,• 


03049 




1 




01160 


XFER 


TFM 


00AR*8,40,9 


03050 


16 


07288 


00-40 


01170 




TFM 


00AR*13,328O 


03062 


16 


07293 


-3280 


01180 




TF 


IOODA^5,SCAD0R 


03074 


26 


03251 


02460 


01190 




TDM 


I NOR ♦ 7 


03086 


15 


03268 


00000 


01200 




DC 
i 


1, 


03097 




I 




01210 


CYLCTR 


DC 
-5 


2,5, •-! 


0309ft 




2 




01220 




TFM, 


I0RT,»*23 


0309* 


1ft 


00565 


-3121 


01230 




B 


IOGT, I NOR, 7 


03110 


49 


0056 ft 


-3261 


01240 




TFM 


IORT, •♦23 s 


03122 


16 


00565 


-3145 


01250 




8 


I OPT, 10,7 


03134 


49 


00532 


-3238 


01260 




AM 


DDAR*5,4Q,10 


0314* 


14 


07285 


OOOMO 


01270 




AM 


IOODA+5,40,10 


03158 


11 


03251 


OOOMO 


01280 




SM 


CYLCTR, 1,10 


03170 


12 


03096 


000- 1 


01290 




BNE 


CVLCTR*2 


03182 


47 


03098 


01200 


01300 


GETF1X 


TO 


7499, IOIND 


03194 


25 


07499 


02461 


01310 




TFM 


IORT, •♦23, , GET FIXED AREA 


0320ft 


16 


00565 


-3229 


01320 




8 


IOGT, •♦U, 7 


03218 


49 


00566 


-3230 


01330 




OSC 


2,-22 


03230 




2 








2K 












01340 




OSC 
0 


ltO 


03232 




I 




01350 




DC 


5,144« 


03237 




5 








-144' 












01360 


10 


OSC 
22 


2,22 


03238 




2 




01370 




DSA 


IODOA 


03244 




5 


X 1 










03244 




-3246 




01380 




DC 


It' 


03245 




I 




01390 


IQDOA 


DOA 


,1,0,40,32*0 


03246 




14 








1-0000-40-3280 










01400 




OC 


lf« 


03260 




I 




01410 


I NOR 


OSC 

22 


2,22 


032*1 




2 




01420 




OSA 


DOARfO 


03267 




5 


X 2 



770 
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03267 




-7280 












0)272 




-0000 




0 1 4 30 




DC 


1 1 1 


0J27J 




1 




01440 




TO 


CDTP*2tCOMSECt73 


03274 


25 


03860 


07373 


01450 




SM 


CDTP*2»1,10 


03286 


12 


03860 


000-1 


0 1460 


Rfc AD 


T FM 


IORT»«*23 


0)298 


16 


00565 


-3321 


01*70 




8 


l0GT,CDTP-4, 7 


03310 


49 


00566 


-3854 


0 1480 




TFM 


• ♦23, INRK 


03322 


16 


r 03345 


-7400 


01490 


RMCHK 


BNR 


• ♦20 


03334 


45 


03354 


00000 


01500 




B 


READ 


03346 


49 


03298 


00000 


01510 




DORG 


•-3 


03354 








01520 




AM 


RMCHK* U , 1,10 


03354 


11 


03345 


000-1 


01530 




CM 


RMCHK* 11 , INRIU80 


03366 


14 


03345 


-7480 


01540 




BNE 


RMCHK 


03376 


47 


03334 


01200 


01550 




SF 


INRK*1 


03390 


32 


07401 


00000 


01560 




CF 


INRK+2 


03402 


33 


07402 


00000 


01570 




CF 


1NRK*3 


03414 


33 


07403 


00000 


01580 




CF 


INRK+4 


03426 


33 


07404 


00000 


01590 




CM 


INRK*4,4131,8 


03438 


14 


07404 


0M131 


01600 




BNE 


READ 


03450 


47 


03298 


01200 


01610 




RCTY 




03462 


34 


00000 


00102 


01620 




TFM 


IORT,»*23 


03474 


16 


00565 


-3497 


01630 




B 


lOPT,TYPE2-4,7 


03486 


49 


00532 


-3870 


01640 




8 


LDF1X1 


03498 


49 


02994 


00000 


01650 




DORG 


•-3 


03506 








01651 


L0FIX2 


M 


N2»RECLG 


03506 


23 


02238 


02243 


01652 




SF 


95 


03518 


32 


00095 


00000 


01653 




AM 


99,218,9 


03530 


11 


00099 


00K18 


01654 




C 


INRK*4 t 99 


03542 


24 


07404 


00099 


01655 




BH 


LOFIX 


03554 


46 


02974 


01100 


01656 




SM 


INRK*4,218 


03566 


12 


07404 


-0218 


01657 




LD 


99,INRK*4 


03578 


28 


00099 


07404 


01658 




D 


95.RECLG 


03590 


29 


00095 


02243 


01659 




TF 


N2.96 


03602 


26 


02238 


00096 


01660 




TF 


AD0SVE.96 


03614 


26 


02472 


00096 


01661 




RCTY 




03626 


34 


00000 


00102 


01662 




WATY 


MAXN2 


03638 


39 


03803 


00100 


01663 




WNTY 


ADDSVE-4 


03650 


38 


02468 


00100 


01664 




B 


LOFIX 


03662 


49 


02974 


00000 


01665 




DORG 


• -3 


03670 








01666 


En t 


BI 


•♦12,3700 


03670 


46 


03682 


03700 


01670 




BNI 


ERRET, 1900 


03682 


47 


00602 


01900 


01680 




TOM 


INOS+10,6 


03694 


15 


00620 


00006 


01690 




B 


ERROR 


03706 


49 


00624 


00000 


01700 




DORG 


• -3 


03714 








01710 


INHIB 


RCTY 




03714 


14 


00000 


00102 


01 720 




WATY 


J080UT 


03726 


39 


03747 


00100 


01730 




R 


MONCAL 


03738 


49 


00796 


ooooo 


01740 




DORG 


• -3 


03746 








01750 


JQBOUT 


OAC 


20, EXECUTION INHIBITED* 


03747 




20 


X 2 






EXECUTION INHIBITEO* 










01760 


ER01 


DAC 


8,ER Dl • 


03787 




8 


X 2 






6R Dl • 












MAXN2 


OAC 


18, MAX N2 ALLOWABLE « 


03803 




18 


X 2 



MAX N2 ALLOWABLE • 7 7 J 

wmmmmmmmmmmmtmmmmmmmmmmmmmmmmmmmmmmm 
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PAGE 


01770 


SVE 


DSC 


2,20 




03838 


2 








20 












01780 




DSA 


SVEDDA 




03844 


5 


X 1 












03844 


-2490 




01790 




DC 


It ' 




03845 


1 




01800 


TYPE 


DSA 


ERD1 




03850 


5 


x 1 












03850 


-3787 




01810 




DC 


3,06' 




03853 


3 




01820 


COTP 


-6' 
DSA 


INRK 




03858 


5 


X 1 












03858 


-7400 




01830 




DC 
-0* 


3,« 




03861 


3 




01840 


TYPE I 


DSA 


INRK* 10 




03866 


5 


X I 












03866 


-7410 




01850 




DC 


3,00" 




03869 


3 




01860 


TYPE2 


-0« 
DSA 


DATA 1 




03874 


5 


x l 












03874 


-3879 




01870 




DC 


3,06* 




03877 


3 




01880 


DATA 1 


-6« 
DAC 


6,«DATA» 




03879 


6 


X 2 






•DATA' 










01890 




OORG 


7280 




07280 






01900 


DDAR 


OSS 


20 




07280 


20 




01910 


COMSEC 


DSS 


100 




07300 


100 




01920 


INRK 


OSS 


100 




07400 


100 




01930 




OEND 






ooooo 







772 
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PAGE 



addcow 

AOOSVE 
C 0**00 
CQMSEC 
CVLCTR 
ENTABS 
ENTATN 
E NT COS 
ENTDED 
ENTORR 
ENTEXP 
ENTFET 
ENTF ID 
ENTREC 
INT SCt 
ENTSX2 



02*50 
02472 
02231 
07300 
03096 
02323 
02313 
02303 
02298 
02293 
02253 
02283 
02273 
02278 
02258 
02263 



ENTSC3 
ENTSIN 
ENTSQT 
ENTSWO 
EQADDR 
EXT I NO 
FtCRMK 
GETFIX 
INCDOA 
JOBOUT 
LDFIXl 
LOF 1X2 
LIBSUB 
MONCAL 
N1M20X 
NAMBUF 



02261 
02306 
02316 
02286 

02655 
02463 
02445 
03194 
02506 
03747 
02994 
03506 
02394 
00796 
02790 
02441 



OVRLAP 
FROGS T 
ARITH 
CDTP 
0ATA1 
DATA 
ODAR 
DIO 
ENTLN 
ENT 
ERD1 
ERRET 
ERROR 
F 

I NOR 
INOS 



02444 
02226 
02522 
03658 
03679 
02505 
07260 
00816 
02248 
03670 
03787 
00602 
00624 
02219 
03261 
00610 



INHIB 

INRR 

IOO0A 

IOGT 

IOIND 

IOPT 

IORT 

10 

K 

LODOA 
LOFIX 
MAXN2 
ML I NO 
Nl 

NITST 
N2 



03714 
07400 
03246 
00566 
02461 
00532 
00565 
03238 
02221 
02474 
02914 
03803 
02462 
02233 
02602 
02238 



N2TST 

READ 

RECLG 

RNCHK 

SECT 

SEtl 

SVE 

TVPE1 

TVPE2 

TYPE 

w 

XFER 
SCADOR 
SVEOOA 
2R0TST 



02894 
03298 
02243 
03334 
02466 
02882 
03838 
03866 
03874 
03850 
02240 
03050 
02460 
02490 
02467 



ENO OF ONE ASSEMBLY. 



dim 
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b T COKE OOOCMR 
FLIP 00010R 
MYER 00186R 



010 
INOS 
SM4 



008 16 
00610 
0014 2R 



SYMBOL TABLE 

ERRET 00602 

IOGT 00566 

SWK 0Q234R 



ERROR 00624 
IORT 00565 



EXIT 00 17 BR 
LABEL 00249R 



FLIP ROUTINE FOR LOAD ON CALL SUBROUTINES 



EX.IT 
MYER- 



INOS 
DIO 
ERROR 
ERRET 

m 



■ DS 
DS 
TR 
C 

BE 

TF 

T F>H 

TF 

TFM 

TF 

T DM 

DC 

TFM 

B 

SM 
TF 
AM 
b 

UORG 
BI 
BNI 
TDM 

b. 

DORG 

DC 

DSS 

DSC 

DSA 

K 



DS 

DS, 
DS 

81 



SWK,»-1, U 

SWK+5,WK 

SMI 

EXIT+6,SWK+10 
SWK+8,999,9 
SWK* 1.3 f ST CORE 
D I 0+ 3 5, MYER, 6 7 
WK,SWK*5 
SWK* 14 

IORT,#+23 
IOGT, LABEL, 7 
FLIP-1, 13 
•♦30,FLlP-l,6ll 
•♦18,1, 10 

• -3 

•♦12, 3700 
ERRET, 1900 
lKDS+10,,6 
ERROR 

• -4- 
5,99999 

&o 

SWK 

It 1 

,610 

,816 

,624 

,602 

•.ill 




00000 



7 7 
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1620 FORTRAN 


II-D RELOCATABLE LN ROUTINE 








00020 




DSA 


FLN 






00004 


00005 -0006 


00030 


FLN 


TF 


FAC 


i FLN-1 


,111, 


LOAD ARGUMENT 00006 


20 


02492 


OOOON 


00040 




SM 


• -13 


t02 


,010 


00018 


J2 


00005 


000-2 


00050 




TF 


FAC-2 


.•-25 


,111 


00030 


20 


02490 


OOOON 


00060 




BO 


• ♦44 


i FNH 


,011, 


IS A ZERO 00042 


M3 


00086 


0331L 


00070 




TFM 


E I 


»672 


,9, 


YES. ERR F2, LN ZERO 




















00054 


16 


02615 


00072 


00080 




SF 


99 


t 




SET SIGN 00066 


32 


00099 


00000 


00090 




B 


OVFLOW 


» 


t • 


FAC IS NEGATIVE ALL NINES 


















00078 


49 


03652 


00000 


00 100 




DORG 


• -4 






00085 








00 1 1 0 




TFM 


GOAL+18 


»ENDD*12 


,07, 


SET UP NO ERR TYPE 




















00086 


J6 


00816 


-3780 


00 I 20 




BNF 


• ♦48 


.FAC-2 


,0, 


IS A NEGATIVE 00098 


M4 


00146 


02490 


00 1 30 




TFM 


E I 


,673 


,9. 


YES, ERR F3, LN -A 




















00110 


16 


02615 


00073 


00 140 




TFM 


GQAL+18 


.ERROR 


.07, 


SET UP ERR TYPE 00122 


J6 


00816 


-3676 


00150 




CF 


FAC-2 


. 




A EQUALS POSITIVE A 




















00134 


33 


02490 


00000 


00160 




TFM 


CORN-25 


,9SPF*2 


.07, 


SET UP CONSTANT EQUAL ZERO 
















00146 


J6 


00573 


-2856 


001 70 




TF 


CORN- I 3 


.FAC 


,0, 


STORE CHAR 00158 


K6 


00585 


02492 


00180 




CF 


FNH 


* 


.6, 


FIND 1 ♦ A MANTISSA 




















00170 


33 


0331L 


00000 


00190 




TOM 


FNHM1 


. 1 


.611 


00182 


15 


0335Q 


OOOOJ 


00200 




CM 


FNH 


,15 


.610. 


COMPARE TWO HIGH ORDER 


DIGITS 
















00194 


14 


0331L 


000J5 


002 10 




BNl. 


• ♦44 


, 


.0, 


TO 1.5, IF LESS THAN, NO BR 
















00206 


M6 


00250 


01300 


00220 




A 


FAC-2 


, FAC-2 




00218 


21 


02490 


02490 


00230 




AM 


CORN-25 


.31 


.010* 


ADJUST CONSTANT TO LN 


2,4, OR 8 














00230 


Jl 


00573 


OOOLl 


00240 




B 


• -60 




.0 


00242 


M9 


00182 


00000 


00250 




DORG 


• -4 






00249 








00260 




TF 


BETA 


• Twnz 




FIND I - A MANTISSA 




















00250 


26 


02603 


03073 


U0270 




S 


BETA 


.FAC-2 




00262 


22 


02603 


02490 


00280 




TF 


99 


.ZERO-20 


, , 


FIND 1-A MANT/ 1 ♦ A MANT 


















00274 


26 


00099 


02747 


00290 




TF 


97MF 


.BETA 


,6 


00286 


26 


0332L 


02603 


00300 




0 


98MF 


.FAC-2 


,6 


00298 


29 


0332Q 


02490 


00310 




TF 


FAC 


,98MF 


,11. 


STORE IN FAC 00310 


26 


02492 


0332Q 


00320 




TF 


79 


.ZERQ-39 


» , 


FIND FAC»»2 00322 


26 


00079 


02728 


00330 




M 


FAC 


,FAC 




00 334 


23 


02492 


02492 


00340 




TF 


SAVE 


,97MF 


. U . 


STORE IN SAVE 00346 


26 


02565 


0332L 


00350 




A 


FAC 


,FAC 


i . 


FAC EQUALS 2»FAC 00358 


21 


02492 


02492 


00360 


COUN 


TF 


IMSA-4 


,FMl 


t . 


SET COUNTER EQUAL F-l 




















00370 


26 


02571 


03625 


00370 




TF 


COUN+71 


,2FM1 


,0, 


SET DIVISOR P EQUAL TO 


2F- 


•1 
















00382 


K6 


00441 


03429 


00380 




TF 


8ETA 


.9SPF+1 


, . 


BETA EQUALS F*2 ZEROS 




















00394 


26 


02603 


02855 


00390 




TF 


99 


.ZERO-19 




FIND 10/P 00406 


26 


00099 


02748 


00400 




TFM 


98MF 


. 10 


!!io 


00418 


16 


0332Q 


OOOJO 


00410 




DM 


98MF 




.6, 


DIVIDE BY P 00430 


19 


0332Q 


00000 


00420 




A 


BETA 


.97 


. , 


ADD QUOTIENT TO BETA 




















00442 


21 


02603 


00097 


00430 




TF 


79 


, ZERO-39 




00454 


26 


00079 


02728 
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00440 




M 


BETA 


.SAVE 




00466 


23 


02603 


02565 


00450 




TF 


BETA 


,97MF 


,11, 


BETA EQUALS BETA»SAVE 




















00478 


26 


02603 


0332L 


00460 




SM 


COUN+71 


,02 


,010, 


P EQUALS P-2 00490 


J2 


00441 


000-2 


00470 




SM 


IMSA-4 


,01 


,10, 


REOUCE COUNTER BY ONE 




















00502 


12 


02571 


000-1 


00480 




BNZ 


COUN+36 




,0, 


IS COUNTER ZERO 00514 


M7 


00406 


01200 


00490 




TF 


79 


.ZERO-39 




YES 00526 


26 


00079 


02728 


00500 




M 


BETA 


,FAC 




MULTIPLY BETA BY FAC 




















00538 


23 


02603 


02492 


00510 




A 


97MF 


,FAC 


,6, 


ADD FAC TO PRODUCT 




















00550 


21 


0332L 


02492 


00520 




TF 


FAC 




* , 


SET CONSTANT IN FAC 




















00562 


26 


02492 


00000 


00530 




SF 


FAC 




, » 


NEGATE CONSTANT 00574 


32 


02492 


00000 


00540 




S 


FAC 


,*97MF 


,11 . 


SUBTRACT PRODUCT FROM CONSTANT 
















00 586 


22 


02492 


0332L 


00550 


CORN 


TF 


92 


,9SPF-1 




00598 


26 


00092 


02853 


00560 




M 


LN10 


.CORN-13 


,1 i 


MULTIPLY CHAR BY LN 10 


















00610 


2L 


02980 


00585 


00570 




A 


99 


,FAC 




ADU FAC TO PRODUCT 




















00622 


21 


00099 


02492 


00580 




AM 


97 


.00 


,10, 


ZERO CHECK 00634 


11 


00097 


000-0 


00590 




BZ 


GOAL+20 




,0 


00646 


M6 


00818 


01200 


00600 




TFM 


SAVE 


.03 


,10, 


SET UP CHAR 00658 


16 


02565 


000-3 


00610 




TF 


FACO 


.99 




NORMALIZE 00670 


26 


02495 


00099 


00620 




CF 


FAC + 3 






00682 


33 


02495 


00000 


00630 




TO 


FAC + 4 


, RECMK 




SET RECORD MARK 00694 


25 


02496 


02403 


00640 




DO 


• ♦68 


, FNH 


,011 


00706 


M3 


00774 


0331L 


00650 




TR 


FNH 


,FH 


,611 


00718 


31 


0331L 


0330Q 


00660 




TDM 


FAC + 3 


,0 




00730 


15 


02495 


00000 


00670 




SF 


FNH 




,6 


00742 


32 


0331L 


00000 


00680 




SM 


SAVE 


,01 


,10, 


ADJUST CHAR 00754 


12 


02565 


000-1 


00690 




B 


♦-60 


, 


,0 


00766 


M9 


00706 


00000 


00700 




DORG 


•-4 






00773 








00710 




TDM 


FAC+4 


,0 


» , 


CLEAR RECORO MARK 




















00774 


15 


02496 


00000 


00720 




TO 


FAC+l 


, RECMK 




REPLACE RECORD MARK 




















00786 


25 


02493 


02403 


00730 


GOAL 


TF 


FAC 


,SAVE 


, , 


SET CHAR IN FAC 00798 


26 


02492 


02565 


00740 




B 


ENDD+12 






00810 


49 


03780 


00000 


00750 




DORG 


•-4 






00817 








00760 




TF 


FAC-2 


,9SPF-l 




00818 


26 


02490 


02853 


00770 




TFM 


FAC 


,-99 


,10 


00830 


16 


02492 


OOORR 


00780 




B 


GOAL+12 


» 


,0 


00842 


M9 


00810 


00000 


00790 




DORG 


• -4 






00849 








00800 


FAC 


DS 




,02492 




02492 


00000 




00810 


FNH 


OS 




,03313 




03313 


00000 




00820 


EI 


DS 




,02615 




02615 


00000 




00830 


OVFLOW 


DS 




,03652 




03652 


00000 




00840 


ENDD 


DS 




,03768 




03768 


00000 




00850 


ERROR 


DS 




,03676 




03676 


00000 




00860 


9SPF 


DS 




,02854 




02854 


00000 




00870 


FNHM1 


DS 




,03358 




03358 


00000 




00880 


BETA 


DS 




,02603 




02603 


00000 




00890 


TWOZ 


DS 




,03073 




03073 


00000 




00900 


ZERO 


DS 




,02767 




02767 


00000 




00910 


97MF 


OS 




,03323 




03323 


00000 





00*20 99MF 
00* JO FN1 
00*40 I MSA 
00990 SAVE 
00*60 2FNI 
00*70 LN10 
00*«0 RECMK 
00**0 FH 
01000 



OS 

OS 
OS 
OS 
OS 
OS 
OS 
OS 

OENO 1 



.03629 
,02979 
.02969 
.0342* 
.02*80 
.02403 
•63301 



03329 
03629 
02379 
02969 
0342* 
02*80 
02403 
03308 
00001 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



FORTRAN H-D Relocatable LN Routine 
Page 3 



SYMBOL TABLE 



OVFLOW 


03632 


BETA 


02653 


CORN 


00598R 


COUN 


00 3 70 R 


EI 


02619 


ENOD 


03768 


ERROR 


03676 


FAC 


02492 


FH 


03306 


FLN 


000C6R 


FM1 


03625 


FNH 


03313 


FNHMl 


03398 


GOAL 


00796R 


I MSA 


02979 


LN10 


02980 


RECMK 


02403 


SAVE 


02569 


TWOZ 


03073 


ZERO 


02767 


2FMI 


03429 


9SPF 


02854 


97MF 


03323 


98MF 


03328 







77 7 



000 10« 




1620 FORTRAN 1 1 -0 


RELOCATABLE FLOATING EXPONENTIAL ROUTINE 


00020 




DSA 


FEXP 






00004 00005 -0006 


00030 


FEXP 


TF 


FAC 


.FEXP-l 


• 111. 


LOAD ARGUMENT 00006 20 02492 


OOOON 


00040 




SM 


•-13 


.02 


• 010 


00018 J2 00005 


000-2 


00050 




TF 


FAC-2 


.•-25 


• 111 


00030 20 02490 


OOOON 


00060 




TFM 


BETA 


• 01 


.10 


00042 16 02603 


000-1 


00070 




TF 


8ETA-2 


»0NEZ^4 


» . 


BETA* FT PT ONE IF+4 FORM) 
















00054 26 02601 


03042 


00080 




BO 


•♦20 


• FNH 


•on. 


ZERO CHECK 00066 M3 00086 


0331L 


00090 




B 


G06ACK- 


24, 


,0 


00078 M9 00978 


00000 


00100 




OORG 


•-4 






00085 




00110 




TO 


MU-1 


.FAC-2 


• » 


STORE SIGN 00086 25 03711 


02490 


00120 




CF 


FAC-2 


.ZERO-42 




00098 33 02490 


00000 


00130 




TF 


79 




CLEAR PRODUCT AREA 
















00110 26 00079 


02725 


00140 




H 


FAC-2 


.LOGE 




MULTIPLY BV LOGE 00122 23 02490 


03010 


00150 




TF 


SAVE*2 


• FAC 




STORE CHAR 00134 26 02567 


02492 


00160 




TO 


FAC*4 


• FAOl 




MOVE RECORD MARK 00146 25 02496 


02493 


00170 




TF 


FAC*3 


.102MF 


111, 


MOVE F^S DIGITS OF PRODUCT 
















00158 26 02495 


0334L 


00180 




BO 


• ♦46 


.FNH 


,011, 


NORMALIZE 00170 M3 00218 


0331L 


00190 




TR 


FNH 


.FH 


,611 


00182 31 0391L 


0330Q 


00200 




SM 


SAVE+2 


• 01 


,10 


00194 12 02567 


000- 1 


00210 




SF 


FNH 


•;. . 


• 6 


00206 32 0331L 


00000 


00220 




C 


SAVE +2 


• MF 


• • 


IS CHAR LESS THAN, EQUAL TO -F 
















00218 24 02567 


03473 


00230 




BNH 


GOBACK-. 


24, 


• 0, 


YES- RESULT IS FLT PT ONE 
















00230 M7 00978 


01100 


00240 




BV 


• ♦12 


» 


,0, 


TURN OFF OVFL I NO . 
















00242 M6 00254 


01400 


00250 




AM 


SAVE +2 


• 00 


• 10* 


IS CHAR ZERO 00254 11 02567 


000- 0 


00260 




BE 


CALC 


• 


.0. 


YES 00266 M6 00430 


01200 


00270 




BL 


CALC +68 


• 


t'9f 


CHAR LESS THAN ZERO 








CM 




.02 




00278 M7 00498 


01300 


00280 




SAVE+2 


• 10, 


CHAR POSITIVE 00290 14 02567 


000-2 


00290 




BH 


E12 


• 


• 0, 


CHAR GREATER THAN 2, ERROR 
















00302 M6 01139 


01100 


00900 




BL 


• ♦44 




.0, 


CHAR LESS THAN 2 00314 M7 00398 


01300 


00310 




A 


BETA 


• FH 


.11, 


CHAR IS 2 00326 21 02603 


03300 


00320 




TR 


FNHMl 


,FH 


• 611, 


ADJUST MANTISSA 00339 31 03330 


03300 


00330 




B 


CALC-24 




• 0 


00390 M9 00406 


00000 


00340 




OORG 


•-4 






00397 




00390 




TOM 


FNHMl 


• 0 


• 611, 


CHAR IS I 00399 19 03350 


0000- 


00360 




CF 


FNH 




• 6. 


ADJUST MANTISSA 00370 33 0331L 


00000 


00370 




A 


BETA 


• FNH 


• 11 


00392 21 02603 


0331L 


00380 




TR 


FNH 


• FH 


,611 


00394 31 0331L 


0330Q 


00390 




•V 


E12 




• 0* 


OV ON CHAR ADJUST, ERROR 
















00406 M6 01139 


01400 


00400 




SF 


FNH 




• 610 


00419 32 0331L 


000-0 


00410 


CALC 


TFM 


•-1 


• 00 


,010, 


SET COUNTER EQUAL TO ZERO 
















00430 J6 00429 


000-0 


00420 




CM 


FH 


.34 


•610* 


ARE HIGH ORDER DIGITS OF MANTISSA 


00490 












00442 14 0330Q 


000L4 




BL 


GORO 


» 


•o» 


LESS THAN 34, IF VES GO TO GORO 
















00454 NT 00570 


01900 


00440 




SM 


FH 


• 34 


• 610, 


SUB 94 FROM HIGH ORO DIGITS 
















00469 12 093OQ 


00OL4 


00490 




AM 


CALC- I 


•01 


,010. 


ADJUST COUNTER 00479 Jl 0042* 


000- 1 
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C LC»12 


t 


»0 


00490 M9 00442 


00000 






DORG 








00497 








TFM 


• ♦59 


* F AC 


• 07 , 


ADJUST MANTISSA FOR CASE WHEN 
















00498 J6 00557 


-2492 


00490 








* 


1 0 1 


CHAR LESS THAN ZERO, GREATER THAN 














UUT>IU Kl UU55f 




oosoo 




•f f 


_ 


f 9SPF- 1 




Mtkiiic c nnn'i'y ">t* niicn 
WINUi r UU?cl co U3J1U 


02853 


005 1 0 




CF 


_ 


i 


,6 


UU95* 33 U33LL 


nnnnn 

uuuuu 














nn(/>i it noAQi 
UU'to «6 U««i"»* 


nnnnn 










* 


* 6 


00558 32 0331L 


00000 














00570 26 00079 


02747 






M 




»L 


• » 


MULTIPLY AOJUSTED ARGUMENT 
















00582 23 02492 


02979 












1 6 1 


BY LN10 00594 32 0336L 


00000 






TC 




' onr 


» 1 1 t 


SET SAVE EQUAL PRODUCT 
















00606 26 02565 


0333L 










• 


ill* 


STORE PRODUCT IN FAC 
















00618 26 02494 


0333L 


0 




TFM 


F AC T+ 1 1 


1 02 


* 01 0 , 


SET DIVISOR EQUAL 2, DENOTE AS L 














00630 J6 00713 


000-2 


00600 




A 


BE TA-2 


t SAVE 


• • 


ADD SAVE TO BETA* 00642 21 02601 


02565 


0061 0 






79 


t ZE RO-38 




00654 26 00079 


02729 


00620 




M 


SAVE 


t F AC + 2 


i i 


MULTIPLY SAVE BY PRODUCT IN FAC 
















00666 23 02565 


02494 


00630 






99 


* 96HF 


ill 


00678 26 00099 


0331Q 


00640 




TFM 


"V6MF 


, 00 


i 6 1 0 


00690 16 0331Q 


000-0 


00650 


FACT 


DM 


9 7MF 


» 


• 6 1 


DIVIDE NEW PRODUCT BY L 
















00702 19 0332L 


00000 


00660 




BZ 


F AC T*56 


» 


• 0 * 


BR IF QUOTIENT IS ZERO 
















00714 M6 00758 


01200 


00670 




TF 


SAVE 


»97 


* ' 


PUT QUOTIENT IN SAVE 
















00726 26 02565 


00097 


00680 




AM 


FACT+1 L 


t 0 1 


iOIOi 


INCREASE L BY ONE 
















00738 Jl 00713 


000- 1 


00690 




8 


F AC T-60 


• 


iO 


00750 M9 00642 


00000 


00700 




OORG 


• -4 






00757 




00 710 




CM 


C ALC- 1 


»00 


,010, 


QUOTIENT WAS ZERO, IS COUNTER 
















00758 J4 00429 


000-0 


00720 




BE 


• + 80 


» 


iO, 


ZERO, IF YES BR 00770 M6 00850 


01200 


00730 




TF 


79 


, ZERO- 38 


f • 


INDICATOR NOT ZERO 
















00782 26 00079 


02729 


00740 




M 


BETA-4 


, TEN34 


1 1 


MULTIPLY BETA BY 10 TO .34 
















00794 23 02599 


03278 


00750 




SF 


97M2F 


• 


16 


00806 32 0336L 


00000 


00760 




TF 


3F T A-4 


t 98MF 


illt 


STORE PRODUCT IN BETA 
















00818 26 02599 


0332Q 


00770 




SM 


CALC-l 


,01 


*010, 


DECREASE COUNTER BY ONE 
















00830 J2 00429 


000-1 


00780 




B 


FACT+68 


» 


*0 


00842 M9 00770 


00000 


00790 




OORG 








00849 




00800 




BNF 


GOBACK- 


24, MU- 1 


iO, 


COUNTER WAS ZERO, WAS ORIGINAL 
















00850 M4 00978 


03711 


00810 




TF 


99 


, ZER0-2 1 


1 I 


ARGUMENT NEGATIVE 
















00862 26 00099 


02746 


00820 






PDT 


ONEZ+2 




YES, FIND RECIPROCAL 
















00874 26 0333L 


03040 


00830 




U 


HNO 


* BE T A-4 


,6 


00886 29 0333Q 


02599 


00840 




BV 






iO 


00898 M6 00942 


01400 


00850 




TF 


BETA-6 


,97MF 


ill 


00910 26 02597 


0332L 
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00860 




SM 


BETA ,01 


,10 


00922 


12 02603 


000-1 


00870 




B 


• + 20 , 


,0 


00934 


M9 00954 


00000 


00880 




DORG 


• -4 




00941 






00890 




SM 


BETA ,02 


,10 


00942 


12 02603 


000-2 


00900 




BE 


• ♦24 , 


,0 


00954 


M6 00978 


01200 


00910 




SF 


BETA 




00966 


32 02603 


00000 


00920 




TF 


FAC-2 , BETA-6 


» t 


PUT RESULT IN FAC 

00978 


26 02490 


02597 


00930 




TF 


FAC ,BETA 




00990 


26 02492 


02603 


00940 


GOBACK 


TOM 


GOBACK+37,9 


,0, 


NO ERROR 01002 


J5 01039 


00009 


00950 




TO 


FAC+1 , RECMK 


» , 


REPLACE RECORD MARK 

01014 


25 02493 


02403 


00960 




TFM 


FAC+4 ,0 


,9, 


REMOVE RECORD MARKS 

01026 


16 02496 


00-00 


00970 




B 


FINISH «>1 




01038 


49 03804 


00000 


00980 




TOM 


99 ,0 




SET SIGN POSITIVE 

01050 


15 00099 


00000 


00990 




BNF 


•♦56 ,MU-l 


,0 


01062 


M4 01118 


03711 


01000 




TFM 


EI ,675 


,9, 


ERR F5 UNFL IN FEXP 

01074 


16 02615 


00075 


01010 




TFM 


FAC ,-99 


,10, 


FAC IS FL PT ZERO 

01086 


16 02492 


OOORR 


01020 




TF 


FAC-2 ,9SPF-l 




01098 


26 02490 


02853 


01030 




B 


ERROR 




01110 


49 03676 


00000 


01040 




DORG 






01117 






01050 




TFM 


EI ,674 


,9, 


ERR F4 OVFL IN FEXP 

01118 


16 02615 


00074 


01060 




6 


OVFLOW , 


* , 


FAC IS FL PT NINES 

01130 


49 03652 


00000 


01070 




DORG 


• -4 




01137 






01080 


E12 


TOM 


GOBACK +3 7,1 


,0, 


SET ERROR BRANCH 01138 


J5 01039 


0000 1 


01090 




B 


GOBACK+12, 


.0 


01150 


M9 01014 


00000 


01100 




OORG 


•-4 




01157 






OHIO 


FAC 


DS 


,02492 




02492 


00000 




01120 


BETA 


DS 


,02603 




0260 3 


00000 




01130 


ONEZ 


DS 


,03038 




03038 


00000 




01140 


FNH 


DS 


.03313 




03313 


00000 




01150 


MU 


DS 


,03712 




03712 


00000 




01160 


ZERO 


DS 


,02767 




02767 


00000 




01170 


LOGE 


DS 


,03010 




03010 


00000 




01180 


SAVE 


DS 


,02565 




02565 


00000 




01190 


102MF 


DS 


,03343 




03343 


00000 




01200 


FH 


DS 


,03308 




03308 


00000 




01210 


MF 


DS 


,03473 




03473 


00000 




01220 


FNHMl 


OS 


,03358 




03358 


00000 




01230 


9SPF 


DS 


,02 854 




02854 


00000 




01240 


LN10 


DS 


,02980 




02980 


00000 




01250 


97M2F 


DS 


,03363 




03363 


00000 




01260 


PDT 


DS 


,03333 




03333 


00000 




01270 


96MF 


DS 


•03318 




03318 


00000 




01280 


97MF 


DS 


,03323 




03323 


00000 




01290 


TEN34 


DS 


,03278 




03278 


00000 




01300 


98MF 


DS 


•03328 




03328 


00000 




01310 


HND 


DS 


,03338 




03338 


00000 




01320 


RECMK 


DS 


•02403 




02403 


00000 




01330 


FINISH 


DS 


,03803 




03803 


QOOOO 




01340 


EI 


DS 


,02615 




02615 


00000 




01350 


ERROR 


DS 


,03676 




03676 


00000 





0136C OVPLOW OS ,03652 03652 00000 

01370 DEND 1 00001 
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SYMBOL TABLE 



QVFLOW 


03652 


GOBACK 


01002R 


FINISH 


03803 


BETA 


02603 


CALC 


00430R 


EI 


02615 


ERROR 


03676 


E12 


0U38R 


FAC 


02492 


FACT 


00702R 


FEXP 


00006R 


FH 


03308 


FNH 


03313 


FNHM1 


03358 


GORD 


00570R 


HNO 


03338 


LNIO 


02980 


LOGE 


03010 


MF 


03473 


MU 


03712 


ONEZ 


03038 


POT 


03333 


RECMK 


02403 


SAVE 


02565 


TEN34 


03278 


ZERO 


02767 


102MF 


03343 


9SPF 


02854 


96MF 


03318 


97HF 


03323 


97M2F 


03363 


98MF 


03328 















781 



00010* 

00020* 

00030* 

00040* 

00050* 

00060* 

00070* 

00080 FP2 

00090 K 

00100 



SUBSCRIPTING SUBROUTINE - RELOCATABLE- FOR ONEt TWO OR 
THREE DIMENSIONAL SUBSCRIPTED VARIABLES 
BTM ENTRYX,»*12, , WHERE X»l,2 OR 3 
DSA BASE,D4,Dl,I,D2,J,D3,K,0R/M 
IF Q ADDR FLAGGED BASE IS FIXED 
IF BASE IS FLAGGED ARRAY IS FORMAL PARAMETER 
IF Dl IS FLAGGED - I/O STMNT 
,3605 
,2221 

ENTRY!, ENTRY2 »ENTRV3 
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L INKAGE 



DS 
OS 
DSA 



00110 

00120 ENTRY 1 
00130 
00140 

00150 ENTRY2 TFM 



TFM 



00160 
00170 
00180 
00190 
00200 
00210 
00220* 
00230 COM 
00240 
00250 
00260 
00270 
00280* 
00290* 
00300* 
00310 
00320* 
00330 
00340 
00345 
00350 
00360* 
00370 
00380 
00390 
00400 
00410 
00420 



DORG *-9 

TFM BRINST*6,Ll 
EXIT- l"f 22, 10 
COM 

BR INST + 6 » L2 
EXIT-1,32,10 
ENTRY1-1 ,ENTRY2-1 
COM 

8RINST*6,L3 
EXIT-1, 42,10 
ENTRYl-l »ENTRV3-l 
SET LENGTH OF FX OR FL 
X*ll,FP2 
•♦48,ENTRYl-l 
COM*! 
ENTRY I- 1 
X>11,K 



TFM 



EN TRY 3 TFM 
TFM 



TF 



BNF 
SF 
CF 
TF 



03605 


00000 




02221 


00000 




00004 


00005 -0006 


00009 


00005 -0042 


00014 


00005 -0090 


00005 








00006 


JO 


00336 


-0386 


00016 


J6 


00481 


O0OK2 


00030 


M9 


00126 


00000 


00042 


JO 


00336 


-0362 


00054 


J6 


00481 


000L2 


00066 


KO 


00005 


00041 


00078 


M9 


00126 


00000 


00090 


JO 


00336 


-0338 


00102 


J6 


00481 


00OM2 


00114 


KO 


00005 


00089 


00126 


K6 


00433 


03605 


00138 


MM 


00186 


00005 


00150 


L2 


00127 


00000 


00162 


L3 


00005 


00000 


00174 


K6 


00433 


02221 



00430 CFINST CF 

00440 S 
00450 BRINST 8 

00460 DO 
00470* 

00480 L3 M 

00490 TF 

00500 L2 M 

00510 A 

00520 LI M 

00530 A 

00540 A 

00550 X MM 



MOVE PARAMETERS TO WORK AREA 
TR 



CF 
BNF 
CF 
SF 
CHECK 

BNF 

CF 

BNF 

SF 

TDM 



WK AREA, ENTRY 1-1, 11 


00186 


3J 


00000 


OOOON 


Y*U 


00198 


L3 


00445 


00000 


•♦36, BASE 


00210 


M4 


00246 


00004 


BASE 


00222 


33 


00004 


00000 


Y*ll 


00234 


L2 


00445 


00000 



CFINST, C0M*1 




00246 


MM 


00306 


00127 


C0M»1 




00258 


L3 


00127 


00000 


CFINST*12,D1 




00270 


M4 


00318 


00014 


x*u 




00282 


L2 


00433 


00000 


V*l.2t, 


SET OP TO SUBTRACT 


00294 


J5 


00435 


00002 


01 




00306 


33 


00014 


00000 


HOLD, HOLD 




00318 


KK 


00508 


00508 






00330 


49 


00000 


00000 


•-3 




00338 








D3,KK, 11 




00338 


23 


00034 


000 JR 


HOLD, 99 




00350 


K6 


S950S 


00099 


02, J, 11 




00362 


23 


Q0024 


0002R 


HOLD, 99 




©0374 


Kl 


00508 


00099 


01,1,11 




00386 


23 


00014 


0001R 


HOLD, 99 




00398 


Kl 


0030B 


00099 


H0L0,D4 




00410 


Kl 


00506 


00009 


HOLD,*-*, , 


MULTIPLY BY LENGTH 


00622 


J3 


00508 


-0000 



7 82 



00560 


Y 


A 


99, BASE, 11, 




00434 


21 00099 


OOOOM 


00570 




TOM 


•-U.lt, 


INI T OP TO ADO 


00446 


J5 00435 


00001 


00580 




SF 


95 




00458 


32 00095 


00000 


00590 




AM 


ENTRYl-l,»-» 




00470 


Jl 00005 


-0000 


00600 


EXIT 


B 


ENTRYl-1,,6 




00482 


M9 OOOON 


00000 


00610 


WK ARE A 


OSS 


42,0 




00000 


00042 




00620 


HOLD 


DC 


15,0 




00508 


00015 




00630 


BASE 


DS 


5,4 




00004 


00005 




00640 


04 


DS 


5,9 




00009 


00005 




00650 


01 


DS 


5, 14 




00014 


00005 




00660 


I 


DS 


5,19 




00019 


00005 




00670 


D2 


DS 


5,24 




00024 


00005 




00680 


J 


DS 


5,29 




00029 


00005 




00690 


D3 


DS 


5,34 




00034 


00005 




00700 


KK 


DS 


5,39 




00039 


00005 




00710 




DEND 


3 




00003 
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SYMBOL TABLE 



rfKAREA 00000 

BRINST 00330R 

03 00034 

I 00019 

L2 00362R 



FNTRY3 00090R 

BASE 00004 

D* 00009 

J 00029 

L3 00338R 



ENTRY2 00042R 

COM 00126R 

EXIT 00482R 

K 02221 

X 00422R 



ENTRY 1 00006R 

Dl 00014 

FP2 03605 

KK 00039 

Y 00434R 



CFINST 00306R 
02 00024 
HOLD 00508R 
LI 00386R 



783 



00010* 
00020* 



FORTRAN DISK I/O WITHOUT FLOATING POINT HARDWARE 



00030 


A OR 


DSA 


FIND 


.RECORD, FETCH, 


S WD , DR AY , 


»DI OEND 


00004 


00005 


-0072 




















00009 


00005 


-0334 




















00014 


00005 


-0298 




















00019 


00005 


-0216 




















00024 


00005 


-0024 




















00029 


00005 


-0270 


000*0 




DORG 


AOR-4 












00000 








00050 


IUCAL 


DS 


,716 












00716 


00000 






00060 


IORBC 


DS 


,520 












00520 


00000 






00070 


IORT 


DS 


,565 












00565 


00000 






00080 


DIO 


OS 


,816 












00816 


00000 






00090 


IOSK 


DS 


,554 












00554 


00000 






00100 


INDS 


DS 


,610 












00610 


00000 






001 10 


ERRET 


DS 


,602 












00602 


00000 






00120 


IOERR 


DS 


,624 












00624 


00000 






00130 


IOGT 


DS 


, 566 












00566 


00000 






00140 


IOPT 


OS 


,532 












00532 


00000 






00150 


FAC 


DS 


,2492 












02492 


00000 






00160 


DIODDA 


DS 


, 3387 












03387 


00000 






00170 


F INDIN 


DS 


, 3583 












03583 


00000 






00180 


FP2 


DS 


,3605 












03605 


00000 






00190 


FKODD 


OS 


,3427 












03427 


00000 






00200 


PAR 


DS 


,3378 












03378 


00000 






00210 


ERROR 


OS 


,3676 












03676 


00000 






00220 


El 


DS 


,2615 












02615 


00000 






00230 


FIXENO 


DS 


,3760 












03760 


00000 






00240 


FL TEND 


DS 


,3810 












03810 


00000 






00250 


FLOAT 


DS 


,4042 












04042 


00000 






00260 


OKDATA 


DS 


,3379 












03379 


00000 






00270 


ZERO 


DS 


,2700 












02700 


00000 






00280 


FIX 


DS 


, 3854 












03854 


00000 






00290 


RECLG 


DS 


,2243 












02243 


00000 






00300 


W 


DS 


.2240 












02240 


00000 






00310 


N2 


OS 


,2238 












02238 


00000 






00320 


Nl 


DS 


,2233 












02233 


00000 






00330 


K 


DS 


,2221 












02221 


00000 






00340 


F 


DS 


.2219 












02219 


00000 






00350* 
























00360 




TF 


NITEMP, 


Nl 










00000 


K6 00143 


02233 


00370 


TOBB 


B 


DRAY I , , 


0 










00012 


M9 01004 


00000 


00380 


OR AY 


TOM 


TOBB *■ 1 i 


9, , 






SET 


TOBB 


TO BRANCH 
























00024 


J5 00013 


00009 


00390 




BO 


EVEN, FKODD, , 






TEST 


FOR 


EVEN AOORESS 
























00036 


M3 00536 


03427 


00400 




TFM 


DSABLK+5, AGAIN 










00048 


JO 00265 


-0698 


00410 




ft 


SW0*12 












00060 


M9 00228 


00000 


00420 


FINO 


TDM 


FINDIN, 


0,, 




SET 


FINO 


INDICATOR ON . 


























00072 


15 03583 


00000 


00430 




TFM 


RETD2 + 6.SETL. 




BRANCH TO 


COMPUTE AOORESS AND 


TESTI 




















00084 


JO 00150 


-0370 


00440* 


N2 


ERROR ROUTINE II GRT 


N2) 
















00450 


N2CK 


C 


FINO- I, 


ZERO, 6, 


IS 


I ZERO OR 


NEG 




00096 


K4 0007J 


02700 


00460 




BNH 


BE2 












00108 


M7 00156 


01100 


00470 




C 


FINO-l, 


N2.6, 






COMPARE I 


AND N2 


























00120 


R4 0007J 


02238 


00480 




BH 


BE2 












00132 


M6 00156 


01100 
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784 



' 1*90 


fcTD2 


B 






00144 49 00000 


00000 


CI WO 


OF FAR 


OS 


»• 




00155 00000 




00410 BE2 


81 


•♦12*1400 




00156 M6 00168 


01400 


00320 




TFM 


EI, 472, 9, 


I GRT N2 


00168 16 02615 


00M72 


005)0 




80 


ERROR , DDABLK , , BR 


IF CK WAS ENTERED FROM BUFFER ROUTINE 














00180 4L 03676 


00247 


00540 




TFM 


DSAOTR**, ERROR 




00192 J6 00403 


-3676 


00550 




B 


SETRMK 




00204 M9 00354 


00000 


00560* 












00570" 




SWO SUBROUTINE 








00580 


SWDA 


TDM 


SWD*900,0 




00216 J5 01116 


00000 


00590 




TFM 


♦-11,41,10 




00228 J6 00217 


000M1 


00600 




A 


BUFFAR , W, , 


INCREMENT 1 


BUFFAR ARROW 

00240 Kl 00155 


02240 


00610 




8 


SW01 




00252 M9 00406 


00000 


00620 




DORG 


•-4 




00259 




006)0 


1C0N8 


DC 


1*9 




00259 0000 1 




00640 




OS A 


RETFLT 




00264 00005 -0896 


00650 




DORG 


• ♦5 




00269 




00660 


IOEND 


TFM 


DSAQTR*5,DI0END 




00270 JO 00403 


-0270 


00670 




BD 


SETRMK, FRIND, , 


BRANCH IF FETCH 


00282 ML 00354 


00163 


006SO 




c 


N1TEMP,N1 




00294 K4 00143 


02233 


00690 




BE 


SETRMK , , , 


BRANCH IF 


BUFFER EMPTY 




00700 










00306 M6 00354 


01200 




TFM 


I0RT,»*23, , 


WRITE BUFFER TO FILE 














00318 10 00565 


-0341 


00710 




B 


I OPT * DKDATA. 7 




00330 49 00532 


-3379 


00720 




AM 


FIND-1, 1,610 




00342 Jl 0007J 


000- 1 


00730 


SETRMK 


TD 


SWD*900,DK8UFF*200 




00354 KN 01116 


01270 


00740 




TFM 


IORT, I0REF2+11 




00366 10 00565 


-0429 


00750 




B 


IOGT 




00378 49 00566 


00000 


00760 




DORG 


•-4 




00385 




00770 


DOB 


OSC 


1,1 




00385 00001 




00780 




OSA 


200 




00390 00005 -0200 


00790 




DC 


3,9 




00393 00003 




00800 


DSAOTR 


OSA 


SWD.DIQENO 




00398 00005 -0216 
00403 00005 -0270 


00810 




OC 


1.' 




00404 00001 




00820 


SWD1 


BD 


F E TC H I , F R I NO » , 


BRANCH IF 


FETCH 

00406 ML 00718 


00163 


00830** 


RECORD 








00840 


10REF2 


CF 


SWD-l, DATS, 7, 


CLEAR FLAG ON ADDRESS OF DATA 












00418 LL 00215 


-1061 


00850 




SM 


NITEMP.1,10 , 


DECREMENT 


WORD COUNT 

00430 J2 00143 


000-1 


00860 




TF 


BUFFAR , SWD-l * 61 1 , 


SEND WORD 


TO BUFFER 

00442 KO 0015N 


0021N 


00870 




SM 


BUFFAR, 2 




00454 J2 00155 


-0002 


00880 




SM 


SWD-l, 2 




00466 J2 00215 


-0002 


00890 




TF 


BUFFAR, SWD-l. 611 




00478 KO 0015N 


0021N 


00900 




AM 


BUFFAR, 2 




00490 J I 00155 


-0002 


00910 


CK 


CM 


N1TEMP.0, 10, 


CHECK FOR 


FULL BUFFER 

00502 J4 00143 


000-0 


00920 




BNZ 


TOBB 




00514 M7 00012 


01200 


00930 




BD 


T0BB-12.FRIND, , 


BR IF FETCH 


00526 ML 00000 


00163 


00940 




TFM 


L I NKB* 18 » I OPT 




00538 J6 00588 


-0532 


00950 


CKI 


TFM 


RETD2*6,L I NKB 




00550 JO 00150 


-0570 


00960 




B 


N2CK 




00562 M9 00096 


00000 


00970 




DORG 


•-4 




00569 
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785 



00980 LINKB 


TFM 


I0RT,**2),, 


CALL CORRECT IORT 


ROUTINE 










00570 


10 


00565 


-0593 


00990 


B 


, DKDATA, 7 


00582 


49 


00000 


-3379 


01000 


TFM 


BUFFAR ,DKBUFF* 199* , 


INITIALIZE BUFFER 


ARROW 










00594 


JO 


00155 


-1269 


01010 


S 


BUFFAR-2, RECLG 


00606 


K2 


00153 


02243 


01020 


8NF 


•♦24, FRIND 


00618 


MM 


00642 


00163 


01030 


A 


BUFFAR, H 


006)0 


Kl 


00155 


02240 


01040 AOOTOI 


AM 


FIND- I, I, 6 10, 


INCREMENT I 00642 


Jl 


0007J 


000-1 


01050 


A 


DI0DDA4-5,DI0DDA+8,, 


INCREMENT SECTOR ADDRESS 










00654 


21 


03392 


03395 


01060 


BO 


FETCH2 ,FR IND 


00666 


ML 


00762 


00163 


01070 


B 


T08B-12 


00678 


M9 


00000 


00000 


01080 


DORG 


•-4 


00685 








01090 


A 


DRAY-l,FP2 


00686 


Kl 


00023 


03605 


01100 AGAIN 


TF 


SWD-l, ORAY-l 


00698 


KO 


00215 


00023 


Oil 10 


B 


SWO 


00710 


M9 


00216 


00000 


01120 


DORG 


»-4 


00717 








01130 FETCHl 


C 


NITEMP.Nl 


00718 


K4 


00143 


02233 


01140 


BNE 


FETCH2,,, 


BRANCH IF BUFFER NOT 


EMPTY 










00730 


M7 


00762 


01200 


01150 


TFM 


L I NKB* 18, IOGT 


00742 


J6 


00588 


-0566 


01160 


B 


CKI 


00754 


M9 


00550 


00000 


01170 


DORG 


•-4 


00761 








01180 FETCH2 


SM 


NITEMP.1,10 


00762 


J2 


00143 


000-1 


01190* 


SEND THE WORD TO FAC 










01200 


TF 


FAC .BUFF AR ,11 


00774 


20 


02492 


0015N 


01210 


SM 


BUFFAR, 2 


00786 


J2 


00155 


-0002 


01220 


TF 


FAC-2, BUFFAR, 11 


00 798 


20 


02490 


001 5N 


01230 


AM 


BUFFAR, 2 


00810 


Jl 


00155 


-0002 


01240 


BI 


•♦12,1400 


00822 


M6 


00834 


01400 


01250* 


TEST FOR FLOATING ADDRESS 


AT SWD-l 








01260 


BNF 


FETCH), SWD-l 


00834 


MM 


00928 


00215 


01270* 


IT 


IS A FIXED AODRESS 










01280 


CF 


SWO-l 


00846 


L3 


00215 


00000 


01290* 


TEST FOR FLOATING WORD IN 


FAC 








01300 


BNF 


FETCH4.FAC-1 


00858 


M4 


00940 


02491 


01310* 


THE WORD IS FLOATING SET 


UP LINKAGE FOR FIX 








01320 


TF 


FIXEN0*6,ICON7*6 


00870 


20 


03766 


00895 


013)0 


8 


FIX 


00882 


49 


0)854 


00000 


01340 


DORG 


.-4 


00889 








01350 IC0N7 


DC 


1.4 


00889 


00001 




01360 


DSC 


1.9 


00890 


00001 




01370 


DSA 


RETFLT 


00895 


00005 -0896 


01)80 RETFLT 


TDM 


FIXENDM.2 


00896 


15 


0)761 


00002 


01)90 


TDM 


FLTEND-5,2 


00908 


15 


0)805 


00002 


01400* 


BRANCH TO STORE NUMBER 










01410 CKLD 


B 


FETCH4 


00920 


M9 


00940 


00000 


01420 


DORG 




00927 








014)0 FETCH) 


BNF 


FETCH5 .FAC-1 . . 


BRANCH IF FIXED 














00928 


M4 


0Q984 


02491 


01440* 


STORE THE WORD IN MEMORY 










01450 FETCH4 


TF 


SWD-l. FAC. 6 


00940 


K6 


0021N 


02492 


01460 


SM 


SWD-l .2 


00952 


J2 


00215 


-0002 


01470 


TF 


SWO-l. FAC-2 .6 


00964 


K6 


0021N 


02490 


01480* 


CHECK FOR EMPTY BUFFER 










01490 


B 


CK 


00976 


M9 


00502 


00000 


01500 


DORG 


•-4 


00983 
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01510* 


SE1 


UP LINKAGE FOR 


FLOAT 






01520 FETCH5 


TF 


FLTENDt ICONA+5 




0098* 


20 03810 0026* 


01530 


B 


FLOAT 




00996 


*9 0*0*2 00000 


015*0 


OORG 


• -* 




01003 




01SS0 DRAY 1 


SM 


PAR, I, 10, , 




DECREMENT WORD COUNT 










0100* 


12 03378 000-1 


01560 


BNZ 


• ♦1* 




01016 


M7 01030 01200 


01570 


BR 






01028 


*2 00000 00000 


01580 


D0RG 


• -9 




01030 




01590 


nut 


AGAIN- 12, DRAY-1 




01030 


MM 00686 00023 


01600 


s 


DRAY- 1 , K 




010*2 


K2 00023 02221 


01610 


B 


AGAIN 




0105* 


M9 00698 00000 


01620 


DORG 


• -* 




01061 




01630 OATB 


DSC 


2,-00 




01061 


00002 


016*0 


DSA 


DOB 




01067 


00005 -0385 


01650 


DC 


l.' 




01068 


00001 


01660 OKBUFF 


DS 


, DATB+9 




01070 


00000 


01670* 












01680* 












01690* 


WRITE 2ND BLOCK 








01 700* 












01710 LDIRD 


DSC 


2,00 




0 1069 


00002 


01720 


DSA 


DlMl 




01075 


00005 -1077 


01730 


DC 


I , • 




0 1076 


0000 I 


017*0 D1H1 


DSC 


1 , 1 




01077 


0000 1 


01750 


DSA 


209 




0 1082 


00005 -0209 


01760 


DC 


3,9 




01085 


00003 


01770 


OSA 


SWD 




0 1 090 


00005 -0216 


01780 


DC 


l»» 




0 109 1 


00001 


01790 


OORG 


SWDA+902 




01118 




01800 STLDl 


TOM 


DKBUFF»200,0 




01118 


J5 01270 00000 


01810 


DGM 


• 




01129 


0000 1 


01870 


TD 


SW0+900.DKBUFF+200 


01130 


KN 01116 01270 


01830 


CF 


IC0N7+2 




0 1142 


L3 00891 00000 


018*0 


CF 


IC0N8*l 




0115* 


L3 00260 00000 


01850 


TF M 


I0RT,**23 




0 1 166 


10 00565 -1189 


01860 


B 


I0PT,LDIR0, 7 




0 1 178 


*R 00532 -1069 


01870 


TRA 






01190 


10 00565 -1209 










0 1202 


*9 00716 00000 










0 1 209 


00002 2K 










01211 


00005 -1217 












00001 • 










01217 


00006 1J9783 










01223 


00003 -03 












00006 —0000' 


01880 


TCD 


STLDl 




01118 




01890* 












01900* 


BLOCK 1 OF FETCH 


FIND RECORD 






01910 


DORG 


SWDA 




00216 




01920 SWD 


TFM 


QSABLK«-5,SWD 




00216 


JO 00265 -0216 


01930 


TFM 


IORT, IOREF+11 




00228 


10 00565 -0571 


019*0 


U 


IOGT 




002*0 


*9 00566 00000 


01950 


DORG 


»-* 




002*7 




01960 DOABLK 


DSC 


1,1 




002*7 


00001 


01970 


DSA 


209 




00252 


00005 -0209 


01980 


DC 


3,9 




00255 


00003 


01990 DSABLK 


OSA 


SWD, SWD 




00260 


00005 -0216 










00265 


00005 -0216 


02000 


DC 


It 1 




00266 


00001 
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02010 

02020 DIOEND 

02030 

020*0 

02050 DATl 
02060 
02070 
02080 

02090 FETCH 
02100 

02110 

02120* 
02130* 

021*0 RECORD 
02150 

02160 AITEST 

02170 SETl 

02180 

02190 
02200 

02210 SSEEK 
02220 



DORG 

81 

BB 

DORG 

DSC 

OSA 

DC 

DS 

TF 

TDM 



IOEND 
•♦12, 1*00 



»-9 



-00 



ODABLK 
1,« 

5 

FIND-l,FETCH-l, , 
FRIND, 1,11, 

AITEST,, , 



TDM 
TDM 
TFM 



BD 
TFM 



02230 
022*0 
02250 

02260 
02270 
02280 

02290 

02300 

02310 OVER 

02320 
02330 

023*0 EVEN 



02360 IOREF 
02370 



B 

DORG 
TFM 



S 

TF 
TF 

TFM 

S 

TDM 



FIND-l.RECORD-l,, 
FRIND.O, , 

F1NDIN.1,, 

0I0DDA*5,217, , 

FIND-i ,RECLG,6, 

DI0DDA*5,99 
♦♦**,F INDIN, , 
I0RT,*+23 
I0SK,0KDATA,7, 

DIOEND 
• -3 

BUFF AR, OKBUFF* 199, » 

BUFF AR-2 ,RECLG 

N1TEMP,NI»» 

DI0DDA*8,RECLG,, 

DI0DDA*l3,DKBUFF+200 

DIODDA+ll.RECLG, , 

TOBBM ,2,, 



•-9 

TEMPA , FP2 , 



BNF ♦♦36.0RAY-1, 



DRAY-l ,DAT1 , 7 
TEMPA, K,, 



TF DI ODDA* 1 3, DRAY-l , « 



02390 
02*00 



AM 

S 



DI0D0A*13tl 
0I0DDA4-13, TEMPA,, 



EVENU11,DI00DA*13 



00270 

00270 M6 00282 01*00 
00282 *2 00000 00000 
0028* 

0028* 00002 

00290 00005 -02*7 

00291 00001 
00296 00005 

TRANSFER I 00298 KO 00071 00297 
r FETCH-RECORD INOICATOR TO FETCH 

00310 J5 00163 OOOOJ 
BRANCH TO SET FIND INDICATOR OFF , 

00322 M9 00358 00000 
COMPUTE ADDRESS , TEST I , AND TEST 
FOR DEFINE STATEMENT . 

TRANSFER I 0033* KO 00071 00333 
SET FETCH-RECORD INOICATOR TO RECRD 

003*6 J5 00163 00000 
SET FINO INDICATOR OFF 

00358 15 03583 00001 
SET SECTOR ADDRESS IN ODA 

00370 16 03392 -0217 
COMPUTE ADDRESS OF FILE RECORD 

00382 K3 0007J 022*3 
00394 2i 03392 00099 
BRANCH IF NOT FIND 00*06 M3 00*50 03583 
00*18 10 00565 -0**1 
TRANSFER TO I0RT TO SEEK 

00*30 *9 0055* -3379 
00**2 M9 00270 00000 
00*50 

INITIALIZE BUFFER ARROW 

00*50 JO 00155 -1269 
00*62 K2 00153 022*3 
00*7* K6 001*3 02233 

STORE RECORD LENGTH IN DDA 

00*86 26 03395 022*3 
, STORE AODRESS OF BUFFER 

00*98 10 03*00 -1270 
SUB LENGTH OF RECORD TO GET FIRST COR 

00510 22 03398 022*3 

INITIALIZE BRANCH BACK 

00522 J5 00013 00002 
0053* *2 00000 00000 
00536 

STORE FLOATING LENGTH IN TEMPA 

00536 K6 00119 03605 

BRANCH IF FLOATING ARRAY 

005*1 MM 0058* 00023 
00560 LL 00023 -028* 

STORE FIXED LENGTH IN TEMPA 

00572 K6 00119 02221 

STORE AOORESS OF FIRST ELEMENT 

0058* 20 03*00 00023 
00596 11 03*00 -0001 

HIGH ORDER POSITION OF ARRAY 

00608 2K 03*00 00119 
00620 K6 00667 03*00 
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M 


TEMPA » PAR 


00632 


K3 


©0119 


03378 


024)0 




A 


EVEN1*11»99 


00644 


Kl 


00667 


00099 


024*0 EVEN I 


TO 


EVEN2MI 


00656 


K5 


00855 


00000 


32*50* 








EVALUATE SECTOR COUNT 






07460 




TP* 


010DDA+8, 1,9 


00668 


16 


03395 


00*01 


024 70 




A 


0IOODA*8»97 


00680 


21 


03395 


00097 


02480 




CM 


RECLG, 1*9 


00692 


14 


02243 


00-01 


02490 




BE 


• ♦36 


00704 


M6 


00740 


01200 


02500 




MM 


DI00DA»8, 5, 10 


00716 


13 


03395 


000-5 


025 10 * 








IS NOW IN OOA 








02520* 








EVALUATE AND STORE LOW ORDER 




025 30* 








POSITION ♦ 1 OF ARRAY 






0 2540* 




















S 


F IND-l ,98*6 


00728 


K2 


0007J 


00098 


02560 




A 


F I NO- 1 ,DI0DDA+8 ( 6 


00740 


Kl 


0007J 


03395 


02570 




TFM 


RETD2*6.**20 


00752 


JO 


00150 


-0772 


02580 




B 


N2CK 


00764 


M9 


00096 


00000 






OORG 


• -4 


00771 








n 




TFM 


010*35, YTURN, 67, 


INSERT ADDRESS FOR ERROR ENTRY 














00772 


10 


0085J 


-0952 


02610 




BD 


FETCH8.FRIND, , 


BRANCH IF FETCH 

00784 


ML 


00870 


00163 






RECORD 










02630 




TO 


EVENi+ll ,DKBUFF+200 


,6, SET GROUP MARK AT 


END OF ARRAY 










00796 


KN 


0066P 


01270 










WRITE ARRAY ONTO FILE 






02 5 
02650 




TFM 


I0RT,**23 


00808 


10 


00565 


-0831 


02660 




B 


IORBC, NOWLC ,7 


00820 


4R 


00520 


-0995 


026 70 




TDM 


FLTENO-5,2 


00832 


15 


03805 


00002 


02680 


E VEN2 


TOM 


EVENUll, ,6. 


RESTORE DIGIT 

00844 


J5 


0066P 


00000 


02690 




A 


D10D0Af5,DI0DDA»8, , 


INCREMENT SECTOR ADDRESS 
00856 


21 


03392 


03395 


02 700 




BB 




00868 


42 


00000 


00000 


02710 




DORG 


*-9 


00870 








02720 


F E TCH8 


TFM 


I0RT,**23,. 


READ ARRAY FROM FILE 














00870 


10 


00565 


-0893 


02 730 




B 


I OGT , DKDATA , 7 


00882 


49 


00566 


-3379 


02740* 








TEST FOR NO GROUP MARK 






02750 




BNG 


• ♦20,EVEN1*U ,11 


00894 


NN 


00914 


0066P 


02 760 




B 


EVEN2 


00906 


M9 


00844 


00000 


02 7 70 




DORG 


*-4 


00913 








02 780 




TF 


FLTEND,EVENSP*6 


00914 


20 


03810 


00951 


02 790 




TFM 


61 .475,9 


00926 


16 


02615 


OOM75 


02800 




B 


ERROR 


00938 


49 


03676 


00000 


02810 




DORG 




00945 








02820 


E VENSP 


DC 


1,4 


00945 


00001 




028 30 




DSC 


1*9 


00946 


0000 I 




02840 




DSA 


EVEN2-12 


00951 


00005 -0832 


02850 


Y TURN 


BI 


♦♦12,3700 


00952 


M6 


00964 


03700 






BNI 


ERRET, 1900 


00964 


47 


00602 


01900 


02870 




TDM 


INDSM0,6 


00976 


15 


00620 


00006 


02880 




B 


IOERR 


00988 


49 


00624 


00000 


02890 




DORG 


• -4 


00995 








02900 


NOWLC 


DSC 


2,02 


00995 


00002 




02910 




DSA 


OIODDA 


01001 


00005 -3387 


02920 




DC 


It' 


01002 


00001 




02930 


TEMPA 


DS 


2,N2CK^23 


00119 


00002 




02940 


N 1 TEMP 


DS 


2,RETD2-1 


00143 


00002 
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02950 


FRIND 


DS 


l,3E2*7 




00163 


0000 I 


02960* 




WRITE FIRST BLOCK 








02970* 














02980 


DIM2 


DSC 


1,1 




01003 


0000 1 


02990 




DSA 


200 




01008 


00005 -0200 


03000 




DC 


3,9 




OiOll 


00003 


03010 




DSA 


SWD 




01016 


00005 -0216 


03020 




DC 


i, • 




01017 


00001 


03030 


LD2ND 


DSC 


2,00 




01018 


Q0002 


03040 




DSA 


0IM2 




01024 


00005 -1003 


03050 




oc 


I, • 




01025 


00001 


03060 




DORG 


SWD>902 




01118 




03070 


STLD2 


CF 


£VEN$P*2 




01118 


L3 00947 00000 


0 3080 




TFM 


IGRT,**23 




01130 


10 00565 -1153 


03090 




8 


iOPT ,LD2ND,7, 


WRITE OUT 2ND PART BLK 


I 01142 


4R 00532 -1018 


03100 




TRA 






01154 


10 00565 -1173 












01166 


49 00716 00000 












01173 


00002 2K 












01175 


00005 -1181 












01180 


00001 • 












01181 


00006 1J9783 












01187 


00003 -03 












01190 


00006 -0000' 


03110 




TCD 


STLD2 




01118 




03120 




DENO 


6 




00006 





SETRMK 00354R 
FLTEND 03810 
FETCH4 00940R 
DSAOTR 00398R 
DIODOA 03387 
ADR 00004R 
CKLD 00920R 
UI«2 01003R 
FRRE T 00602 
F 02219 
FKODO 03427 
ICONS 00259R 
I0GT 00566 
IOSK 00554 
NOWLC 00995R 
PAR 03378 
STLD1 01U8R 
TEMPA 00119R 



RETFLT 00896R 
FIXEND 03760 
FETCH3 00928R 
DSABLK 00260R 
ODABLK 00247R 
AGAIN 00698R 
DATB 01061R 
DIG 00816 
ERROR 03676 
FAC 02492 
FLOAT 04042 
INDS 00610 
IOPT 00532 
K 02221 
Nl 02233 
RECLG 02243 
STLD2 0H18R 
T08B 000I2R 



SYMBOL 


TABLE 


RECORO 


00334R 


FINDIN 


03583 


FETCH2 


00762R 


DKDATA 


03379 


BUFF AR 


00155R 


BE2 


00156R 


DAT 1 


00284R 


DRAY 


00024R 


EVEN 


00536R 


FETCH 


00298R 


FP2 


03605 


I0CAL 


00716 


IORBC 


00520 


LD1RD 


01069R 


N2 


02238 


RET02 


00144R 


SWD 


00216R 


W 


02240 



Nl TEMP 00143R 
FETCH8 00870R 
FETCHl 00718R 
DKBUFF 01070R 
A I TEST 00358® 
CK 00502R 
DDB 00385R 
DRAY1 01004R 
EVEN1 00656R 
FIND 00072R 
FRIND 00163R 
I0END 002 70 R 
10REF 00S6GR 
LD2N0 01018R 
N2CK 00096R 
SETl 00370R 
SWDA 002 16R 
YTURN 00952R 



I0REF2 0041»R 
FETCH5 00984R 
EVENSP 00945R 
OIOEN0 00270R 
AOOTOI 00642R 
CKI 0055OR 
DIMl 01077R 
EI 02615 
EVEN2 00844R 
FIX 03854 
IC0N7 00889R 
IOERR 00624 
ICR? 00565 
LINKB 00570R 
OVER 00522R 
SSEEK 00418R 
SWD1 00406R 
2ER0 02700 
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FORTRAN Relocatable Sine and 

00010 1620 FORTRAN II-D RELOCATABLE SINE ANO COSINE ROUTINES Cosine Routine 

00020»»»« COSIX) • I - tX*»2>/2 ♦ U»«4)/24 - tX««6)/720 ♦ ... Paae 1 

00030»««« SINfA) « C0SIPIV02 - A) y 

00040 OSA FCOS.FSIN 00004 00005 -0006 

00009 00005 -0042 



00050 




OORC 


• -4 






00005 




00060 


FCOS 


TOM 


CLF* 1 i 


• 0 


.0, 


SET ROUTINE FOR COSINE 
















00006 J5 00149 


00000 


00070 




TF 


FSIN-1 


.FCOS-l 


,01, 


LOAD ADDRESS OF ARGUMENT 
















00018 KO 00041 


00005 


00080 




8 


FSIN*12 


f 


• 0 


00030 M9 00054 


00000 


00090 


FSIN 


TOM 


CLFf 11 


. 1 


• on, 


SET ROUTINE FOR SINE 
















00042 J5 00149 


OOOOJ 


00100 




TF 


F AC 


.FSIN-l 


,111, 


LOAD ARGUMENT 00054 20 02492 


0004J 


001 10 




SM 


FSIN-l 


.02 


,010 


00066 J2 00041 


000-2 


00120 




TF 


FAC-2 


, FSIN-l 


till 


00078 20 02490 


0004J 


001 30 




CF 


FNH 




,6, 


CLEAR HIGH OROER FLAG 
















00090 33 0331L 


00000 


00140 




TDM 


FNHM1 


,0 


,611, 


SET FLAG AT HIGH ORDER DIGIT -I 
















00102 15 03350 


0000- 


00150 




TOM 


CLF* 10 


, I 


,0, 


SET SWITCH ARG POSITIVE, RESULT 


POS 














00114 J5 00148 


00001 


0U160 




fiNF 


• ♦48 


.FAC-2 


,0, 


IS ARG NEGATIVE 00126 M4 00174 


02490 


00170 


CLF 


CF 


F4C-2 




,9, 


YES, REPLACF BY ABSOLUTE VALUE 
















00138 33 02490 


00-00 


00180 




BNF 


• ♦24 


.CLFU 1 


,01 . 


IS ROUTINE SINE OR COSINE 
















00150 MM 00174 


00149 


00190 




TDM 


CLF+ 10 


tO 


, o, 


SINE. SINI-AJ=-SINIA), RESULT NEG 














00162 J5 00148 


00000 


00200 




TF 


IMSAPF 


.9SPFM 


,6, 


IMSA+F * F+2 ZEROS 
















00174 26 0329Q 


02855 


002 10 




CM 


F AC 


iOO 


,10, 


CHECK SIGN OF CHARACTERISTIC 
















00186 14 02492 


000-0 


00220 




RNL 


POZEXP 




,0, 


8R IF POSITIVE, EQUAL TO ZERO 
















00198 M6 00730 


01300 


00230 




C 


F AC 


,MF 




COMPARE CHAR TO -F 
















00210 24 02492 


03473 


00240 




BL 


8RD 




tOi 


BR IF CHAR LESS THAN -F 
















00222 M7 00270 


01300 


00250 




TFM 


• ♦35 


.FAC-1 


,07, 


ADJUST MANTISSA (IN IMSAPF) FOR 
















00234 J6 00269 


-2491 


00260 




A 


• ♦23 


,FAC 


,0, 


CHAR GREATER THAN OR EQUAL TO -F 














00246 Kl 00269 


02492 


00270 




A 


IMSAPF 




,6, 


ANO LESS THAN ZERO 
















00258 21 0329Q 


00000 


00280 


3RD 


80 


• ♦24 


» CLF ♦ I 1 


,01 , 


BR IF ROUTINE IS SINE 
















00270 ML 00294 


00149 


00290 




A 


IMSAPF 


,PI0V2 


.6, 


ADD PI0V2, COS(A) = SINIPI0V2-A) 














00282 21 0329Q 


03163 


00300 






IMSAPF 


, TWOPI 


,6, 


REDUCE ARGUMENT TO PRINCIPAL VALUE 














00294 22 0329Q 


03103 


00310 




BH 


•-12 




,0, 


RANGE, MINUS PI0V2 TO POS PI0V2 
















00306 M6 00294 


01100 


00320 




SF 


IMSA-1 




, » 


SET HIGH OROER FLAG 
















00318 32 02574 


00000 


00330 




A 


IMSAPF 


.PI 


.6 


00330 21 0329Q 


03133 


00340 




BN 


• ♦36 




,0, 


BR ARG NEGATIVE 00342 M7 00378 


01300 


00350 




SM 


CIFMO 


.01 


,010, 


SET SIGN OF RESULT 





00354 J2 00148 000-1 



' I 



00360 




SF 


IMSAPF 




,6, 


00370 




A 


IMSAPF 


,PI0V2 


,6, 


00380 




TF 


79 


,ZERO-40 




00390 




M 


IMSAPF 


, IMSAPF 


,611 


00400 




TF 


IMSAPF 


,98MF 


,611 


00410 




SF 


IMSA-1 






00420 




TF 


FAC 


,0NEZ^2 




00430 




TR 


AAB-3 


,AABS-8 


,01 , 


00440 


OVER 


TDM 


SUM+1 


,2 


,0, 


00450 




TF 


99 


,98MF 


,11, 


00460 




TFM 


97MF . 


,0000 


,68 


00470 




D 


98MF 


, AB 


,16, 


00480 




BZ 


DONE 




,0 


00490 




TF 


SAVE 


,95 


,10, 


00500 


SUM 


S 


FAC 


, SAVE 


, , 


00510 




AM 


AAB-2 


,02 


,010, 


00520 




AM 


AAB 


,02 


,010, 


00530 




M 


AAB 


, AAB-2 


,01, 


00540 




TF 


AB 


.99 


tO 


00550 




TF 


79 


,ZER0-12 




00560 




M 


IMSAPF 


,SAVE 


,6, 


00570 




CM 


SUM* I 


,9521 


,08, 


00580 




BE 


OVER 


t 


,0, 


00590 




TDM 


SUM* I 


,1 


,0, 


00600 




B 


0VER+12 




.0 


00610 




DORG 


• -4 






00620 


DONE 


C 


FAC-l 


,9SPF 


» , 


00630 




BE 


ZERFAC 




, * 


00640 




TFM 


SAVF 


,01 


.10, 


00650 




BO 


NORM72 


,CLF*10 


.01, 


00660 




SF 


99 




, , 


00670 




B 


NORM72 




,0 


00680 




DORG 


• -4 






00690 


POZEXP 


C 


FAC 


,F 


* ( 


00700 




BH 


E9 


* 


,0, 


00710 




TF 


• ♦30 


.ISPFM1 


,0, 



SET SIGN ON ARGUMENT TO MINUS 

00366 32 0329Q 00000 
ADO PI0V2, SIN(A)= C0SIPI0V2-A) 

00378 21 0329Q 03163 
CLEAR PRODUCT AREA 

00390 26 00079 02727 
FIND A»»2 00402 23 0329Q 0329Q 

PUT RESULT IN IMSA+F 

00414 26 0329Q 0332Q 
SET HIGH ORDER FLAG 

00426 32 02574 00000 
FAC = I (F+2 DIGITS) 

00438 26 02492 03040 
SET COUNTERS, AB * 2 FACTORIAL 

00450 LJ 00921 00930 
SET SUM TO SUBTRACT 

00462 J5 00535 00002 
SHIFT PRODUCT 00474 26 00099 0332Q 

00486 16 0332L 0-000 
DIVIDE BY AB 00498 2R 0332Q 00928 

00510 M6 00662 01200 
STORE QUOTIENT 00522 26 02565 000R5 
SUBTRACT QUOTIENT FROM FAC 

00534 22 02492 02565 
AB CONTAINS K FACTORIAL 

00546 Jl 00922 000-2 
FINO K + 2 FACTORIAL MODIFIED FOR 

00558 J I 00924 000-2 
PRODUCT DEVELOPMENT, PUT IN AB 

00570 KL 00924 00922 

00582 K6 00928 00099 

00594 26 00079 02755 
MULTIPLY ARG BY QUOTIENT 

00606 23 0329Q 02565 
ADO OR SUBTRACT AT SUM 

00618 J4 00535 0R521 
SUBTRACT 00630 M6 00462 01200 

SET SUM TO ADO 00642 J5 00535 00001 

00654 M9 00474 00000 

00661 

COMPARE RESULT TO ZERO 

00662 24 02491 02854 
EQUAL, RESULT » ZERO 

00674 46 03584 01200 
SET UP CHARACTERISTIC OF RESULT 

00686 16 02565 000-1 
SET UP SIGN OF RESULT 

00698 ML 00890 00148 
BR TO NORMALIZATION 

00710 32 00099 00000 

00722 M9 00890 00000 

00729 

COMPARE CHAR TO F 

00730 24 02492 02219 
BR TO E9 IF GREATER 

00742 M6 00798 01100 
ADJUST MANTISSA ( IN IMSAPF) FOR 

00754 K6 00784 03303 
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00720 




S 


•♦It 


♦ FAC 


fOt 


CHAR 


GREATER 


THAN OR EQUAL TO ZERO 




















00764 


K2 00784 


02492 


00730 




TF 




tFAC-2 


t • 


ANO 


LESS 


THAN 


OR EQUAL 
00771 


TO F 

26 00000 


02490 


00740 




B 


BRD 


• 


tO 








00790 


N9 00270 


00000 


00750 




OORG 


•-4 












00797 






00760 


E9 


TOM 


99 


• 0 


1 1 


SIT 


SIGN 




00798 


15 00099 


00000 


00770 




TFM 


E I 


1 671 


• 9t 


SIT 


ERROR 


i Fl, 


LOSS OF SIGNIFICANCE 




















00810 


16 026 IS 


00071 


00780 


UNDFLO 


TFM 


FAC 


,-99 


tlOt 


IN FCOS OR FSIN. FAC - 


ZERO 






















00822 


16 02492 


OOORR 


00790 




TF 


FAC-2 


t 9$PF-l 


t 








00834 


26 02490 


02853 


00800 




B 


ERROR 












00846 


49 03676 


00000 


00810 




DORG 


•-4 












00853 






00820 


NORM 36 


TR 


FNH 


,FH 


,611 » 


LEFT 


SHIFT ONCE 00854 


31 0331L 


0330Q 


00810 




TQM 


FAC-l 


tO 


• t 


SET 


LAST 


DIGIT TO ZERO. 






















00866 


15 02491 


00000 


00840 




SF 


FNH 


t 


t6i 








00878 


32 0331L 


00000 


00850 


NORM 72 


BO 


FINISH 


» FNH 


,61 It 


TEST 


LEADING 


ZERO 
























00890 


43 0380L 


0331L 


00860 




SM 


SAVE 


t 1 


.10, 


SUBT 


ONE 


FROM 


EXPONENT. 






















00902 


12 02565 


000-1 


00870 




B 


NORM36 


* 


,0 








00914 


M9 00854 


00000 


00880 




DORG 


*-4 












00921 






00890 


AAB 


OS 


4 












00924 


00004 




00900 


AB 


OS 


4 












00926 


00004 




00910 




OS 


1 












00929 


00001 




00920 




DC 


2,01 












00931 


00002 




00930 




OC 


2,02 












00933 


00002 




00940 


AABS 


DC 


5, 0002' 












00938 


00005 




00950 


FAC 


DS 




.02492 










02492 


00000 




00960 


FNH 


OS 




,03313 










03313 


00000 




00970 


FNHM1 


OS 




,03358 










03358 


00000 




00980 


IMSAPF 


DS 




,03298 










03298 


00000 




00990 


9SPF 


DS 




,02854 










02854 


00000 




01000 


MF 


DS 




, 03473 










03473 


00000 




01010 


P I0V2 


DS 




,03163 










03163 


00000 




01020 


TWOPI 


DS 




,03103 










03103 


00000 




01030 


IMSA 


DS 




,02575 










02575 


00000 




01040 


P I 


DS 




,03133 










03133 


00000 




01050 


ZERO 


DS 




,02767 










02767 


00000 




01060 


98MF 


DS 




,03328 










03328 


00000 




01070 


97MF 


OS 




,03323 










03323 


00000 




01080 


SAVE 


DS 




,02565 










02565 


00000 




01090 


Z ERF AC 


OS 




,03564 










03584 


00000 




01 100 


F 


DS 




,02219 










02219 


00000 




0 1 1 1 0 


I SPFM1 


DS 




,03303 










03303 


00000 




01120 


EI 


DS 




,02615 










02615 


00000 




01130 


ERROR 


DS 




,03676 










03676 


00000 




01140 


FH 


DS 




,03308 










03308 


00000 




01150 


FINISH 


DS 




,03803 










03803 


00000 




01160 


QNEZ 


DS 




,03038 










03038 


00000 




01170 




DENO 


2 












00002 
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ZERFAC 


03584 


UNDFLO 


00822R 


POZEXP 


00730R 


N0RM72 


00890R 


NORM36 


00854R 


ISPFM1 


03303 


IMSAPF 


03298 


FINISH 


03803 


AAB 


00924R 


AABS 


00938R 


AB 


00928R 


BRD 


00270R 


CLF 


00138R 


DONE 


00662R 


El 


02615 


ERROR 


03676 


E9 


00798R 


F 


02219 


FAC 


02492 


FCOS 


00006R 


FH 


03308 


FNH 


03313 


FNHMl 


03358 


FSIN 


00042R 


IMSA 


02575 


MF 


03473 


ONEZ 


03038 


OVER 


00462R 


PI 


03133 


PI0V2 


03163 


SAVE 


02565 


SUM 


0O534R 


TWOPI 


03103 


ZERO 


02767 


9SPF 


02854 


97MF 


03323 


98MF 


03328 
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FORTRAN Relocatable Arctangent 





1620 FORTRAN 


II-O 


RELOCATABLE FLOATING ARCTANGENT ROUTINE 




00020»««« 


ARC TAN ( X ) * 


X - (X»«3)/3 ♦ 


(X»«5)/5 - CX»«7)/7 ♦ 








00030 


OSA 


FATN 






00004 


00005 -0006 


000*0 FATN 


TF 


FAC 


.FATN-l 


.111. 


LOAD ARGUMENT 00006 


20 


02492 


OOOON 


00050 


SM 


• -13 


.02 


.010 


00016 


J2 


00005 


000-2 


00060 


TF 


FAC-2 


.•-25 


.111 


00030 


20 


02490 


OOOON 


00070 


DO 


• ♦20 


t FNH 


.011, 


IS ARG ZERO 00042 


M3 


00062 


0331L 


00080 


B 


ZERFAC 


t 


. . 


YES 00054 


49 


03584 


00000 


00090 


DORP, 


• -4 






00061 








00100 


IFM 


TEST* 1 I 


t 


,08, 


RESET INDICATORS 00062 


J6 


00097 


0-000 


001 1 0 


BNF 


TEST*24 


, FAC-2 


.0. 


BR IF ARG NEGATIVE 


















00074 


M4 


001 10 


02490 


00120 TEST 


SF 


• ♦9 


* 


.0, 


SET INDICATOR, ARG NEG 






001 30 










00066 


L2 


00095 


00000 


CF 


FAC-2 




( 9 


ARG * ABS ARG 00098 


33 


02490 


00000 


00140 


CM 


FAC 


,00 


.10, 


IS CHAR OF ARG 00110 


1 4 


02492 




00150 


RH 


TESTU20 




.0, 


POSITIVE 0012? 


M6 


00894 


01100 


00160 


86 


ALPHM2 




,0, 


EQUAL ZERO 00134 








001 70 


M 


• ♦35 


,F 


' »o, 


NEGATIVE 00146 


K3 


00181 


02219 


OOlflO 


SM 


98 


.05 


. 10, 


FIN0-«5(F-1) 00158 


1 2 


00098 




00190 


SF 


97 


,50 


. 10 


00170 


32 




nnniun 

UUUPIU 


00200 


TF 


• ♦23 


,97 


,0 


00 182 


K6 


00205 


00097 


00210 


CM 


FAC 






IF CHAR UF ARG IS 

00194 


14 


02492 


- 0000 


00220 


BL 


EOO 




,0, 


LESS THAN -.5lF-l),BR 
00206 


M7 


01118 


0 1 300 


00230 


TFM 


ALPH-1 


.FAC-2 


,07, 


SET UP ADJUST MANTISSA 
00218 


J6 


00277 


-2490 


00240 


A 


ALPH-1 


,FAC 


.0, 


00230 


Kl 


00277 




00250 


TF 


F NHM 1 


,9SPF-1 


• 6 


00242 


26 


0335Q 


02853 


00260 


CF 


FNH 




,6 


00254 


33 


0331L 


nnnnn 


002 70 


TF 


FAC-2 






ADJUST MANTISSA 00266 


26 


02490 


nnnnn 


0O2B0 ALPH 


SF 


FNH 




,6 


00278 


32 


0331L 


uuuuu 


00290 


CM 


FH 


.29 


,610, 


COMPARE HI ORD MANTISSA DIGITS 














00290 


14 


0330Q 


000K9 


00300 


BL 


• ♦132 




.0, 


TO 29, IF LESS THAN 29 
00302 


BR 
M7 


00434 


01300 


00310 


TF 


97 


,9SPF-l 




00314 


26 


00097 


02853 


00320 


MM 


FAC-2 


,06 


, 10 , 


FIND 1.6 TIMES MANTISSA 
















00326 


13 


02490 


000-6 


00330 


TOM 


98MF 


, 1 


,611 


00338 


15 


0332Q 


OOOOJ 


00340 


s 


FAC-2 


, SI X 




FIND MANTISSA MINUS .6, 


PUT IN FAC 












00350 


22 


02490 


03219 


00350 


TF 


BETA 


, 99 




STORE 1.6 MANTISSA IN BETA 














00362 


26 


02603 


00099 


00360 


TF 


79 


, ZERO-42 




00374 


26 


00079 


02725 


00370 


LD 


98MF 


, FAC-2 


, 6 , 


FIND (FAC-.6)/( 1.6 X MANTISSA) 














00386 


28 


0332Q 


02490 


00380 


0 


HND 


,8ETA 


. 6 


00398 


29 


0333Q 


02603 


00390 


TF 


FAC-2 


, 97MF 


.11. 


PUT QUOTIENT IN FAC 

00410 


26 


02490 


0332L 


00400 


SF 


TESTM 1 




• 0, 


SET INDICATOR, HI ORD GREATER 29 












00422 


L2 


00097 


00000 


004 10 


TF 


79 


.ZERO-44 




00434 


26 


00079 


02723 


00420 


M 


FAC-2 


.FAC-2 




SQUARE FAC MANTISSA 

00446 


23 


02490 


02490 


00430 


TF 


SAVE 


,PDT 


• lit 


STORE IN SAVE 00458 


26 


02565 


0333L 


00440 


TF 


BETA 


,9SPF 




BETA IS F*l ZEROS 









00470 26 02603 02854 
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00450 




TF 


ATN1+35 


,2FM1 


,0, 


SET DIVISOR EQUAL 2F-1, DENOTE - 


AS W 














00482 K6 


00541 


03429 


00460 




TF 


ALPH+1 1 


,FMl 


,0, 


SET COUNTER EQUAL F-l 


















00494 K6 


00289 


03625 


00470 


ATN1 


TF 


99 


.ZERO-47 




00506 26 


00099 


02720 


00480 




TFM 


98MF 


,10 


,610 


00518 16 


0332Q 


OOOJO 


00490 




DM 


98MF 




.6, 


DIVIDE 10/W 00530 19 


0332Q 


00000 


00500 




S 


96 


, BE T A 




SUBTRACT BETA FROM QUOTIENT 
















00542 22 


00096 


02603 


00510 




TF 


BETA 


.96 




REPLACE BETA BY DIFFERENCE 
















00554 26 


02603 


00096 


00520 




TF 


79 


,ZER0-43 




00566 26 


00079 


02724 


00530 




M 


BETA 


,SAVE 




BETA EQUALS BETA TIMES 


















00578 23 


02603 


02565 


00540 




TF 


BETA 


,P0T 


.11* 


SQUARE OF MANTISSA 


















00590 26 


02603 


0333L 


00550 




SM 


ATN105 


,02 


.010, 


W EQUALS W-2 00602 J2 


00541 


000-2 


00560 




SM 


ALPH+1 1 


.01 


,010, 


REOUCE COUNTER BY ONE 


















00614 J2 


00289 


000- 1 


00570 




BNZ 


ATN1 




,0, 


IS COUNTER ZERO 00626 M7 


00506 


01200 


00580 




TF 


SAVE 


!oNEZ^2 . 


. 1 


YES. SAVE IS ONE (F*2 DIG! 


ITS) 
















00638 26 


02565 


03040 


00590 




S 


SAVE 


, BE T A 


1 . 


FIND I - BETA 00650 22 


02565 


02603 


00600 




TF 


79 


, ZERO-42 




00662 26 


00079 


02725 


00610 




M 


SAVE 


, FAC-2 




00674 23 


02565 


02490 


00620 




BNF 


TEST2 


.TEST+U 


,01 , 


TEST INDICATOR, HI ORD GREATER 29 














00686 MM 


00734 


00097 


00630 




BNN 


TEST2-12 




• 0, 


IS PRODUCT NEGATIVE 


















00698 M6 


00722 


01300 


00640 




SF 


POT 




.6. 


YES, SET SIGN 00710 32 


0333L 


00000 


00650 




A 


PDT 


« TAN6 


• 6, 


ADD ARCTAN OF .6 TO PROOUCT 
















00722 21 


0333L 


03248 


00660 


TEST2 


BNF 


• ♦36 


.TESTMO 


.01. 


TEST INDICATOR, CHAR POSITIVE 
















00734 MM 


00770 


00096 


00670 




SF 


PDT 




• 6, 


SET SIGN 00746 32 


0333L 


00000 


00680 




A 


PDT 


.PI0V2 


• 6, 


SUB PRODUCT FROM PI0V2 


















00758 21 


0333L 


03163 


00690 




TFM 


SAVE 


.01 


,10, 


SET CHARACTERISTIC OF RESULT 
















00770 16 


02565 


000- 1 


00700 




TF 


FAC 


, HND 


.11. 


PUT RESULT IN FAC 


















00782 26 


02492 


0333Q 


00710 




BD 


TEST1-24 


, FNHMl 


.011, 


NORMALIZE 00794 M3 


00850 


0335Q 


00720 




TR 


FNMM1 


,FNH 


,611 


00806 31 


0335Q 


0331L 


00730 




TDM 


FAC 


.0 




00818 15 


02492 


00000 


00740 




SM 


SAVE 


.01 


,10 


00830 12 


02565 


000-1 


00 750 




B 


• -48 




,0 


00842 M9 


00794 


00000 


00760 




DORG 


• -4 






00849 






00770 




SF 


FNHMl 




,6 


00850 32 


0335Q 


00000 


00780 




TF 


FAC-2 


!fAC-3 




00862 26 


02490 


02489 


00790 


TEST1 


TD 


99 


,TEST^9 


* 1 . 


SET SIGN 00874 2N 


00099 


00095 


00800 




B 


ENDD 


. 


. , 


RETURN 00886 49 


03768 


00000 


00810 




DORG 


• -4 






00893 






00820 




SF 


TEST+10 




.0, 


SET INDICATOR, CHAR POSITIVE 
















00894 L2 


00096 


00000 


00830 




TF 


99 


.ZERO-23 




00906 26 


00099 


02744 


00B40 




TF 


PDT 


,ONEZ 


,6 


00918 26 


0333L 


03038 


00850 




D 


PDT 


, FAC-2 


.6, 


FIND RECIPROCAL OF MANTISSA 
















00930 29 


0333L 


02490 



00840 




TF 


FAC-2 


• POT 


• u. 


PUT IN FAC-2 00942 


26 02490 


0333L 


00*70 




m 


• ♦♦4 


•FMHM1 


•on. 


NORMALIZE 00994 


M3 00998 


033 50 


ooaao 




SF 


#m 


• 


• 6 


0096A 


32 03311 


00000 


00890 




SN 


FAC 


• 01 


• 10 


00978 


12 02492 


000-1 


00900 




i 


• ♦32 


• 


tO 


00990 


M9 01022 


00000 


00910 




DORG 


•-4 






00997 






00920 




TF 


FAC-2 


.FAC-3 




00998 


26 02490 


02489 


00930 




SH 


FAC 


,02 


.10 


01010 


12 02492 


000-2 


00940 




BL 


• ♦44 


• 


• Oi 


BR NEW CHAR NEGATIVE 

01022 


M7 01066 


01300 


00950 




BE 




» 


.0, 


BR NEW CHAR ZERO 01034 


M6 00290 


01200 


00960 




SF 


FAX 


• 


I • 


NEW CHAR POSITIVE 

01046 


32 02492 


00000 


00970 




B 


TEST ♦60 




,0 


01058 


M9 00146 


00000 


00980 




00R6 


• -4 






01065 






00990 




TFM 


SAVE 


• 00 


.10 


01066 


16 02565 


000-0 


01000 




TF 


FAC-2 


• P10V4 




01078 


26 02490 


03191 


01010 




B 


TEST 1 


# 


,0 


01090 


M9 00874 


00000 


01020 




DORIG 


*-4 






01097 






01030 




TO 


99 


• TEST>9 


• 1 


01098 


2N 00099 


00095 


01040 




B 


END0>12 






OHIO 


49 03780 


00000 


01050 




DOR 6 


•-4 






01117 






01060 


eod 


BNF 


• -20 


* TEST* 10 


,01 , 


TEST INDICATOR, CHAR POSITIVE 
















01118 


MM 01098 


00096 


01070 




TF 


IMSAPF 


,FAC^2 


• 6. 


CHAR NEG, STORE FAC MANTISSA 
















01130 


26 0329Q 


02490 


01060 




TF 


FAC-2 


, PI 0V2- 1 




FAC MANTISSA IS F+l DIGIT PI0V2 
















01142 


26 02490 


03162 


01090 




C 


FAC 


,MF 


, f 


COMPARE CHAR TO -F 

01154 


24 02492 


03473 


01100 




BNH 


• ♦72 


t 


,0, 


BR IF CHAR NOT GREATER, 
01166 


, EQUAL -f 
M7 01238 


01100 


OHIO 




CF 


IMSA*1 


• 


1 1 


SUB OLD FAC MANTISSA FROM PI0V2 
















01178 


33 02576 


00000 


01120 




TOM 


I MSA 




,11 


01190 


15 02575 


0000- 


01130 




TF 


• ♦35 


•IMSAPF 


,0 


01202 


K6 01237 


03298 


01140 




A 


• ♦23 


,FAC 


,0 


01214 


Ki 01237 


02492 


01150 




S 


FAC-2 






01226 


22 02490 


00000 


01160 




TFM 


SAVE 


• 01 


• 10, 


SET CHAR 01238 


16 02565 


000-1 


01170 




B 


TEST 1-12 




• 0, 


NORM AND RETURN 01250 


M9 00862 


00000 


01180 




DORG 


•-4 






01257 






01 190 


F AC 


OS 




.02492 




02492 


00000 




01200 


FNH 


OS 




.03313 




03313 


00000 




01210 


Z ERF AC 


OS 




.03584 




03584 


00000 




01220 


F 


OS 




.02219 




02219 


00000 




01230 


FNHM1 


OS 




•03358 




03358 


00000 




01240 


9SPF 


OS 




.02854 




02854 


00000 




01250 


FH 


OS 




•03308 




03308 


00000 




01260 


98MF 


OS 




,03328 




03328 


00000 




01270 


SIX 


OS 




.03219 




03219 


00000 




01280 


BETA 


OS 




.02603 




02603 


00000 




01290 


ZERO 


OS 




,02767 




02767 


00000 




01300 


HNO 


OS 




.03338 




03338 


00000 




01310 


97MF 


OS 




•03323 




03323 


00000 




01320 


SAVE 


OS 




,02565 




02565 


00000 




01330 


POT 


OS 




•03333 




03333 


00000 




01340 


2FM1 


OS 




,03429 




03429 


00000 




01350 


FMl 


OS 




,03625 




03625 


00000 




01360 


ONEZ 


OS 




•03038 




0303B 


00000 
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01370 TAN6 
01380 PI0V2 
01390 ENDD 
01400 PI0V4 
01410 IMSAPF 
01420 »F 
01430 IMSA 
01440 



DS 
OS 
DS 
DS 
DS 
DS 
DS 

DEND I 



•03248 
,03163 
,03 768 
•03191 
.03298 
.03473 
,02575 



03248 00000 
03163 00000 
03768 00000 
03191 00000 
03298 00000 
03473 00000 
02575 00000 
0000 1 
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SYMBOL TABLE 



IERFAC 


03584 


IMSAPF 


03298 


ALPH 


00278R 


A TNI 


00506R 


BETA 


02603 


ENDD 


03768 


EDO 


01118R 


F 


02219 


FAC 


02492 


FATN 


00006R 


FH 


03308 


FMl 


0 3625 


FNH 


03313 


FNHM1 


03358 


HNO 


03338 


IMSA 


02575 


MF 


0 3473 


ONEZ 


03038 


POT 


03333 


PI0V2 


03163 


PI0V4 


03191 


SAVE 


02565 


SIX 


03219 


TAN6 


03248 


TEST 


00086R 


TESTl 


00874R 


TEST2 


00734R 


ZERO 


02767 


2FM1 


03429 


9SPF 


02854 


97MF 


03323 


98MF 


03328 















798 



>0010« 




1620 FORTRAN 


1 I -0 


RELOCATABLF SQUARE ROOT ROUTINE 






00020 




DSA 


SORT 






00004 00005 -0006 


000*0 


SORT 


MM 


SQR T- I 


» so 


t 06 1 0 ( 


(HALF THE EXPONENT 


















00006 J 3 


OOOON 


OOONO 


00040 








? 2 


i 0 1 0 i 


GET AOORESS OF MANTISSA 


















00018 J2 


00005 


000-2 


0 00 so 






F AC- 2 


i SQR T- 1 


1 1 1 l i 


MOVE MANTISSA TO FAC-2 


















00030 20 


02490 


OOOON 


00060 








» FNH 


t 0 1 1 1 


TEST FOR ZERO 0004»2 M3 


00062 


0331L 


00070 






/FRFAf 




• * 


RESULT IS ZERO 00054 49 


03584 


00000 


OOORO 




OORG 








0006 1 






00090 


SU 1 


TDM 


FNHM 


i 0 


t 6 I I t 


SET NEXT HIGH OROER OIGIT 


TO ZERO 














00062 15 


03350 


0000- 


0(71 00 




T DM 


SUE X* 1 


, 2 


i 0 , 


SET EXIT TO BRANCH BACK 


















00074 J5 


00475 


0000? 


001 10 






• 


• F AC -2 


• o. 


TEST FOR SIGN 00086 M4 


00134 


02490 


no 1 20 










• • 


REMOVE MINUS SIGN 


















00098 33 


02490 


00000 


00 1 30 




TO 


SUE X ♦ 1 


( q 


i o • 


SET EXIT TO ERROR ROUTINE 


















00110 J5 


00475 


00009 


00 140 




! FM 


f 1 


6 76 


f 9 . 


SET fcRROR MESSAGE F6 


















00122 16 


02615 


00076 


oo I s 0 




MD 


SU ) 




• o , 


BRANCH IF EXPONENT ODD 


















00134 M3 


00482 


00098 


00 160 




TF 


SQ2 ♦ 42 


97MF 


» o , 


SET AOORESS TO 97-F 


















00146 K6 


00212 


03323 


00 1 70 




RNF 


SQ2 ♦ 1 2 


99 


t Of 


TEST FUR SIGN 00158 M4 


00182 


00099 


00180 


SQ2 


SF 


9 7 i 


1 




SF T SIGN 00170 32 


00097 


00000 


00 1 90 




TF 


f AC 




• • 


STORE EXPONENT 00182 26 


02492 


00097 


00200 




L 0 


ao 


• 


» • 


CLEAR PROOUCT AREA 


















00194 28 


00080 


02854 






TF 




i F AC -2 


• • 


MOVE MANTISSA INTO 97-F OR 98-F 
















00206 26 


00000 


02490 


002 70 




T F 


LOOP* 1 b 




• o , 


SET ADDRESS TU 97-2F 


















00218 K6 


00292 


03363 


Q 




T F 


loop* 2 3 




• o , 


SET AOORESS TO FNH- I 


















00230 K6 


00297 


03358 






TF 


LOOP* 102 , 


, 97M2F 


• 0, 


SET ADORE SS TO 97-2F 


















00242 K6 


00376 


03363 






TF 


F AC - 2 




t • 


SF T RESULT TO 100... 


















00254 26 


02490 


03039 






B 


LOOP+108 , 




.0, 


00766 M9 


00382 


00000 






OORG 


• -4 






00273 








L DO 


AM 


loop*2 3 




f 0610, 


ADD 2 TO RESULT 00274 Jl 


0029P 


000-2 












* t 


SUBTRACT RFSULT FROM MANTISSA 
















00286 22 


00000 


00000 


00 00 






l nop , 




tO, 


CONTINUE LOOP IF NOT MINUS 
















00298 M6 


00274 


01300 


00 1 0 




CM 


l UUP*? 3 , 


i F AC - 2 


,07 , 


f.OMPARF WITH TERMINAL AODRFSS 
















00310 J4 


00297 


-2490 






RNl 


SQFX-48 i 




,0, 


GO TO EXIT IF EQUAL 


















00322 M6 


00426 


01300 






A 


LOOP* 18 t 


t L U U k ♦ 2 3 


,01611 


, ADD BACK 00334 KJ 


0029K 


0029P 


00 340 






L OOP * 1 8 ) 




t 06 t 


CLEAR FLAG 00346 L3 


0029K 


00000 


00 3 so 




AM 


•*18 




,010, 


ADD I TO ADDRESS 003S8 Jl 


00376 


000- I 


00360 




SF 








SET FLAG ON MANTISSA ONE PLACE OVER 














00 370 32 


00000 


00000 


00370 




AM 


Looptia , 


,02 


,010, 


ADO 2 TO MANTISSA 


















00382 Jl 


00292 


000-2 
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00380 




AM 


LOOP* 2 3 


,01 


.010, 


ADD 1 TO RESULT ADD 

00394 


Jl 00297 


00 390 




SM 


LOOP*23 


,9 


,0610 


.SUBTRACT 9 FROM RESULT 
00406 


J2 0029P 


00400 




H 


LOOP* 1 2 




,0, 


GO TO LOOP 00418 


M9 00286 


00410 




DORG 


•-4 






0042S 




00420 




L D 


80 


, 9SPF 




CLEAR PRODUCT AREA 

00426 


28 00080 


004 30 




MM 


FAC-2 


,50 


, 10 , 


HAl F THE RESULT 00438 


13 02490 


00440 




TF 


F AC-? 


,97 




STURE RESULT 00450 


26 02490 


004S0 




SF 


FNH 




.6, 


SET FLAG IN HIGH ORDER 
00462 


DIGIT 

3? 0331L 


00460 


SUEX 


BB 


ERROR 






GO BACK OR ERROR TYPE-OUT 














00474 


42 03676 


00470 




DORG 


•-4 






00481 




00480 


SU 3 


AM 


99 


.SO 


,10, 


ADD S TO PROOUCT .00482 


11 00099 


00490 




CF 


FNH 




.6, 


CLEAR HIGH OROER FLAG 
00494 


IN FAC 

33 0331L 


00500 




TF 


SQ2*42 


, 98MF 


.0, 


SET AOORESS TO 98-F 

00S06 


K6 00212 


OOSIO 




BNN 


SQ2*12 




.0, 


BRANCH IF NOT NEGATIVE 
00518 


M6 00182 


00520 




B 


SQ2 




,0, 


GO TO SET SIGN IF NEGATIVE 














00S30 


M9 00170 


00530 




DORG 


• -4 






00537 




O0S4O 


F AC 


DS 




,0249? 




02492 


00000 


OOSSO 


FNH 


DS 




,03313 




03313 


00000 


00S60 


ZERFAC 


OS 




.03584 




03S84 


00000 


00570 


FNHM I 


DS 




,03358 




03358 


00000 


OOSSO 


FI 


OS 




,02615 




02615 


00000 


00590 


97MF 


OS 




,03323 




03323 


00000 


00600 


9SPF 


DS 




,02854 




02854 


00000 


00610 


97M2F 


DS 




.03363 




03363 


00000 


00620 


ONE? 


DS 




,03038 




03038 


00000 


00630 


ERROR 


DS 




,03676 




03676 


00000 


00640 


98MF 


DS 




.03328 




03328 


00000 


00650 




DEND 


1 






00001 
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000-9 
00000 



02854 
OOONO 
00097 

00000 

00000 

OOONO 

00000 

03328 

01300 

00000 



/ERFAC 03584 
FNHM 1 03358 
SOI 00062R 
97M2F 03363 



fcl 02615 

LOOP 00274R 

S02 00170R 

98MF 03328 



SYMBOL TABLE 

ERROR 03676 
ONEZ 030 38 
503 00482R 



FAC 02492 
SQEX 00474R 
9SPF 02854 



FNH 03313 
SORT 00006R 
97MF 03323 



4' 

800 



0001 ••••• 

00010 AOS 
000*0 
06090 
00040 
000 to 

60010 



00 1 00 

001 10 
00120 
001)0 PAC 
00140 



1*20 FORTRAN II-D 

OSA ASS 

TF F AC .A8S-l 

SN ABS-1 ,2 

TF FAC-2 ,ABS-1 

BNF •♦26 .FAC-l 

CF FAC-2 i 

88 

OORG -9 

CF FAG , 

88 

OORG »-9 

OS • 02492 

OEND I 



RELOCATABLE ABSOLUTE VALUE ROUTINE 

00004 00009 -0006 
till 00004 20 02492 OOOON 

•010 00018 J2 00009 000-2 

till 00030 20 02490 OOOON 

•0 00042 M4 00048 02491 

», FLOATING POINT NUMBER 

00094 33 02490 00000 
00066 42 OOOOO 00000 
00068 

,• FIXED POINT NUMBER 

00068 33 02492 OOOOO 
00080 42 OOOOO OOOOO 
00082 

02492 OOOOO 
00001 
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SYMBOL TABLE 

A8S 00006R F AC 02492 



801 



00010* 
00020 



1620 FORTRAN II-D 
OSA FLN 



RELOCATABLE LN ROUTINE 



00004 00009 -0006 



00030 FLN 


TPL 


FAC 


•FLN- I 


.111, 


LOAD ARGUMENT 00006 00 


02492 


OOOON 


00040 


80 


• ♦44 


• FNM 


,011, 


. IS A ZERO 00018 M3 


00062 


0331L 


00050 


TF* 


EI 


• 472 


• 9, 


VES. ERR F2, LOG ZERO 

00030 16 


02615 


00072 


00060 


SF 


99 


• 


»» 


SET SIGN 00042 32 


00099 


OOOOO 


00070 


B 


OVFLOW 


• 




FAC IS NEGAT I V E A LL NINES 
00054 49 


03572 


OOOOO 


00080 


OORG 


•-4 






0006 1 






00090 


TFM 


GOAL ♦18 


• £NDD>12 


• 07 , 


SET UP NO ERR TYPE 

00062 J6 


00780 


-3700 


00100 


fiNF 


• ♦48 


.FAC-2 


• 0, 


IS A NEGATIVE 00074 M4 


00122 


02490 


00110 


TFM 


EI 


,673 


• 9. 


YES, ERR F3, LOG -A 












» ERROR 




00086 16 


02615 


00073 


00120 


TFM 


GOAL+ I 8 


•07> 


SE'T UP ERR TYPE 00098 J6 


00780 


-3596 


00130 


CF 


FAC-2 


» 


" » » 


A EQUALS POSITIVE A 












,9SPF*2 




00110 33 


024^0 


OOOOO 


00140 


TFM 


CORN- 25 


*07, 


SET UP CONSTANT EQUAL ZERO 






TF 


CORN- 13 






00122 J6 


00549 


-2856 


00150 


• FAC 


.0, 


STORE CHAR 00134 K6 


00561 


02492 


00160 


CF 


FNH 




#6. 


FIND I ♦ A MANTISSA 








TDM 


FNHMl 




,611 


00146 33 


033 1 L 


OOOOO 


00170 


.1 


00158 15 


03350 


OOOOJ 


00180 


CM 


FNH 


. 15 


• 610, 


COMPARE TWO HIGH ORDER DIGITS 






BNL 








00170 14 


0331L 


OOOJS 


00190 


• ♦44 


• 


• 0, 


TO 1.5, IF LESS THAN, NO BR 




00200 










00182 N6 


00226 


01300 


*A 


FAC-2 


.FAC-2 




00194 21 


02490 


02490 


00210 


AM 


CORN-25 


• 31 


,010, ADJUST CONSTANT TO LN 2. < 


b, OR 1 


1 


00220 










00206 J I 


00549 


OOOL I 


8 


•-60 


"» 


.0 


00218 M9 


00198 


OOOOO 


00230 


OORG 


•-4 






00225 






00240 


TF 


BETA 


• TM02 


• » 


FIND 1 - A MANTISSA 










BETA 
99 


•FAC-2 
•2ERO-20 




00226 26 


02603 


03013 


00250 


S 




00238 22 


02403 


02490 


00260 


TF 


» » 


F I NO 1-A 'NANT/t+A WANT 







00270 
00280 
00290 
00300 
00310 
00320 
00310 

00340 COUN 
00350 

00340 

00370 
00380 
00 599 
00400 

004 10 
00420 



TF 

0 

TF 

TF 

M 

tF 

A 

TF 

tP 

TP 

TP 
TPM 

im 

A '; 
TF 



97MF 

96MF 

FAC 

79 

FAC 

SAVE 

FAC 

IMSA-4 

C0UN*71 

BETA 



98MP 
BETA 



79 

BETA 



#BETA 
•FAC-2 

• 98MF 
♦2ER0-39 

• FAC 

• 97MF 

• FAC 

• FMl 

• 2PM1 

• 9SPFM 

• 2ERO-19 

• 10 

-'• . 
.97 

•ZERO-39 

• SAVE 



#4 
• 6 



STORE IN FAC 
FIND FAC»»2 



.410 
• 6» 



00250 26 00099 D2747 
00262 26 0332L 02403 
00274 29 0332Q 02490 
00286 26 02492 0332Q 
00298 26 00079 02728 
00310 23 02492 02492 
00322 26 02565 0332L 
FAC EQUALS 2»FAC 00334 21 02492 02492 
SET COUNTER EQUAL F- I 

00344 24 02571 03783 
SET DIVISOR P EQUAL TO 2F-1 

00358 K6 00417 03381 
BETA EQUALS F*2 ZEROS 

00370 24 02403 02855 
PINO 10/P 00382 26 00099 02748 

00344 16 0332Q OOOJO 
DIVIDE BY P 00406 19 01 12Q OOOOO 

ADD QUOTIENT TO BETA 

00418 21 02403 00097 
00430 24 00079 02729 
00442 23 02603 02945 



,11. STORE IN SAVE 



• 0, 
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004 30 




TF 


BETA 


,97MF 


tilt 


BETA EQUALS BET A»S AVE 






















00454 


26 


02603 


0332L 


00440 




sm 


C0UN»71 


.02 


,010, 


P EQUALS P-2 


00466 


J2 


00417 


000-2 


00450 




sm 


IMSA-4 


.01 


1 10, 


REDUCE COUNTER BY ONE 






















00478 


12 


02571 


000-1 


00460 




BNZ 


C0UNO6 


t 


.0, 


IS COUNTER ZERO 


00490 


M7 


00382 


01200 


00470 




TF 


79 


.ZERO-39 




YES 


00502 


26 


00079 


02728 


00480 




M 


BETA 


.FAC 




MULTIPLY BETA BY 


FAC 
00514 


23 


02603 


02492 


00490 




A 


97MF 


tFAC 


,6, 


ADD FAC TO PRODUCT 






















00526 


21 


0332L 


02492 


00500 




TF 


FAC 


t 




SET CONSTANT IN 


FAC 

00538 


26 


02492 


00000 


00510 




SF 


FAC 






NEGATE CONSTANT 


00550 


32 


02492 


00000 


00520 




S 


FAC 


,97MF 


,11, 


SUBTRACT PRODUCT 


FROM CONSTANT 


















00562 


22 


02492 


0332L 


00530 


CURN 


TF 


92 


, 9SPF- I 






00574 


26 


00092 


02853 


00540 




M 


11*10 


, CORN- 1 3 




MULTIPLY CHAR BY 


LN 10 
00586 


2L 


02980 


0056 1 


00550 




A 


99 


tFAC 


* ' 


ADD FAC TO PRODUCT 






















00598 


21 


00099 


02492 


00560 




AM 


97 


i 00 


,10, 


ZERO CHECK 


00610 


11 


00097 


000-0 


00570 




BZ 


GOAL *20 




, 0 




00622 


M6 


00782 


0 1 200 


00580 




TFM 


SAVE 


i 03 


,10, 


SET UP CHAR 


00634 


16 


02565 


000- 3 


00590 




TF 


F AC* 3 


t 99 


' * 


NORMALIZE 


00646 


26 


02495 


00099 


00600 




CF 


FAC*3 








00658 


33 


02495 


00000 


006 1 0 




TO 


F AC*4 


t RECMK 




SET RECORD MARK 


00670 


25 


02496 


0240 3 


00620 




80 




t FNH 


,011 




00682 


M3 


00750 




00630 




TR 


F NH 


« FH 


,611 




00694 


31 


0331L 


0330Q 


00640 




TOM 


F AC ♦ 3 


i 0 






00706 


15 


02495 


nnnnn 
uuuuu 


00650 




SF 


FNH 




* 6 




00718 


32 


0331L 


nnnnn 


00660 




SM 


SA VE 


* 01 


,10, 


ADJUST CHAR 


00730 


12 


02565 


000- 1 


006 70 




R 


•-60 




, o 




00742 


M9 


00682 


nnnnn 

uuu u u 


00680 




□ORG 


• -4 








00749 








00690 




TO 


F AC ♦• I 


i RFC MK 


' * 


REPLACE RECORD MARK 






















00750 


25 


02493 


02403 


00700 


GOAL 


TF 


FAC 


, SAVE 




SET CHAR IN FAC 


00762 


26 02492 


02565 


00 710 






ENDD* 12 








00774 


49 


03700 


nnnnn 
uuuuu 


00 720 




DORG 










00781 








007 30 




TF L 


FAC 


» FLZER 






00782 


06 


02492 


03760 








GOAL ♦• 1 2 




i o 




00794 


M9 


00774 


nnnnn 
uuuuu 


00 750 




DORG 










00801 










FAC 












02492 


00000 




00 7 70 


_ 






' n ff } f 






03313 


00000 




00780 














02615 


00000 




00790 


0 V F L 0 W 






n^fcAft 






03572 


00000 




00800 














03688 


00000 






ERROR 


DS 




03596 






03596 


00000 




00820 


9SPF 


DS 




' 02854 






02854 


00000 




008 30 


FNHM 1 


OS 




* 03358 






03358 


00000 




00840 


BETA 


OS 




'o?603 






02603 


00000 




00850 


TWOZ 


DS 




, 03073 






03073 


00000 




00860 


ZERO 


DS 




,02767 






02767 


00000 




00870 


97MF 


DS 




,03323 






03323 


00000 




00880 


98MF 


DS 




,03328 






03328 


00000 




00890 


FMl 


DS 




,03783 






03783 


00000 




00900 


IMSA 


DS 




,02575 






02575 


00000 




00910 


SAVE 


OS 




,02565 






02565 


00000 




00920 


2FM1 


DS 




,03581 






03581 


00000 
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803 



00930 LNIO 
00940 RECMK 
00950 FH 
00960 FLZER 
00970 



DS 
DS 
OS 
DS 

DEND I 



,02980 
,02403 
,03308 
,03760 



02980 00000 
02403 00000 
03308 00000 
03760 00000 
00001 
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OVFLOW 03572 
ENDD 03688 
FLZER 03760 
IMSA 02575 
ZERO 02767 



BETA 02603 
ERROR 03596 
FMl 03783 
LNIO 02980 
2FMI 03581 



SYMBOL TABLE 



CORN 00574R 
FAC 02492 
FNH 03313 
RECMK 02403 
9SPF 02854 



COUN 00346R 

FH b3308 

FNHM1 03358 

SAVE 02565 

97MF 03323 



EI 02615 

FLN 00006R 

GOAL 00762R 

TWOZ 03073 

98MF 03328 



IP" 

80* 



000 10 • ••• 


1620 FORTRAN 


1 1 1-0 


RELOCATABLE FLOATING EXPONENTIAL ROUTINE 


00020 


OSA 


FEXP 






00004 00005 -0006 


00030 FEXP 


TFL 


FAC 


.FEXP-l 


t lilt 


LOAD ARGUMENT 00006 00 02492 


OOOON 


00040 


TFL 


BETA 


,0NEZ*6 




000 18 06 02603 


03044 


00030 


BO 


• ♦20 


t FNH 


.011, 


ZERO CHECK 00030 M3 00050 


033 1L 


00060 


B 


GOBACK-24 


• 


#0 


00042 M9 00942 


00000 


000 70 


DORG 


•-4 






00049 




00080 


TO 


MU-1 


•FAC-2 


» 1 


STORE SIGN 00050 25 03631 


02490 


00090 


CF 


F*C- ? 






00062 33 02490 


00000 


00 1 00 


TF 


79 


• ZER0-42 


» t 


CLEAR PRODUCT AREA 














00074 26 O0079 


02725 


10110 


M 


FAC- 2 


iLOGE 


* • 


MULTIPLY BY LOGE 00086 23 02490 


03010 


o n 1 2 0 


TF 


SAVE*2 


t FAC 


» t 


STORE CHAR 00098 26 02567 


02492 


001 30 


TO 


FAC + 4 


.FAC+1 


• » 


MOVE RECORD MARK 00 110 25 02496 


02493 


00 140 


TF 


FAC* 3 


• 102NF 


»U. 


MOVE F*5 DIGITS OF PRODUCT 














00122 26 02495 


0334L 


001 50 


BO 


• ♦48 


t FNH 


,011, 


NORMALIZE 00134 M3 00182 


0331L 


00 160 


TR 


FNH 


tFH 


.611 


00146 31 0331L 


03300 


00 1 70 


SM 


SAVE*2 


» 01 


.10 


00158 12 02567 


000- 1 


00180 


SF 


FNH 


» 


,6 


00170 32 0331L 


00000 


00190 


C 


SAV6*2 


♦ *F 


i t 


IS CHAR LESS THAN, EQUAL TO -F 














00182 24 02567 


03666 


00200 


BNH 


GOBACK-24 




.0, 


YES- RESULT IS FLT PT ONE 














00194 MT 00942 


ouoo 


00210 


BV 


• ♦12 


t 


.0, 


TURN OFF OVFL IND 














00206 M6 00218 


01400 


00220 


AM 


SAVE^2 


,00 


.10. 


IS CHAR ZERO 00218 11 02567 


000-0 


00230 


BE 


CALC 


» 


,0, 


YES 00230 M6 00394 


01200 


00240 


BL 


CALC+68 


» 


,0, 


CHAR LESS THAN ZERO 














00242 M7 00462 


01300 


00250 


CM 


SAVE+2 


,02 


.10, 


CHAR POSITIVE 00254 14 02567 


000-2 


00260 


BH 


E12 


* 


.0, 


CHAR GREATER THAN 2. ERROR 














00266 M6 00986 


01100 


00270 


BL 


• ♦44 


t 


.0. 


CHAR LESS THAN 2 00278 M7 00322 


01300 


00280 


A 


BETA 


,FH 


.11. 


CHAR IS 2 00290 21 02603 


0330Q 


00290 


TR 


FNHMl 


t FH 


.611. 


ADJUST MANTISSA 00302 31 0335Q 


0330Q 


00300 


B 


CALC-24 


t 


,0 


00314 M9 00370 


00000 


00310 


DORG 


• -4 






00321 




O0320 


TDM 


FNHMl 


,0 


,611. 


CHAR IS I 00322 15 0335Q 


0000- 


00330 


CF 


FNH 


t 


.6, 


AOJUST MANTISSA 00334 33 0331L 


00000 


00340 


A 


BETA 


, FNH 


,11 


00346 21 02603 


0331L 


00350 


TR 


FNH 


i FH 


.611 


00358 31 0331L 


0330Q 


00360 


BV 


E12 


t 


.0. 


OV ON CHAR ADJUST, ERROR 














00370 M6 00986 


01400 


00370 


SF 


FNH 


* 


,610 


00382 32 0331L 


000-0 


00380 CALC 


TFM 


•- I 


,00 


.010, 


SET COUNTER EQUAL TO ZERO 














00394 J6 00393 


000-0 


00390 


CM 


FH 


,34 


,610, 


ARE HIGH ORDER OIGITS OF MANTISSA 












00406 14 0330Q 


O00L4 


00400 


BL 


GORO 




,0, 


LESS THAN 34, IF YES GO TO GORD 














00418 M7 00534 


01300 


00410 


SM 


FH 


, 34 


• 610, 


SUB 34 FROM HIGH ORD OIGITS 














00430 12 0330Q 


000L4 


00420 


AM 


CALC-1 


,01 


.010, 


ADJUST COUNTER 00442 Jl 00393 


000- I 


004 30 


B 


CALCM2 




• o 


00454 M9 00406 


00000 


00440 


OORG 


•-4 






00461 




00450 


TFM 


• ♦59 


• FAC 


.07, 


ADJUST MANTISSA FOR CASE WHEN 














00462 J6 00521 


-2492 


00460 


A 


•♦47 


•SAVE+2 


.0, 


CHAR LESS THAN ZERO, GREATER THAN 
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FNHMl 






00474 Kl 00521 


02567 


00470 




TF 


,9SPF-l 


.6. 


MINUS F 00486 26 0335Q 


02853 


00480 




CF 


FNH 


* 


,6 


00498 33 0331L 


00000 


00490 




TF 


FAC 






00510 26 02492 


00000 


00500 




SF 


FNH 




,6 


00522 32 0331L 


00000 


00510 


GORD 


TF 


79 


!zER0-20 




00534 26 00079 


02747 


00520 




M 


FAC 


,LN10-l 


. . 


MULTIPLY ADJUSTED ARGUMENT 
















00546 23 02492 


02979 


00530 




SF 


97M2F 




,6, 


BY LN10 00558 32 0336L 


00000 


00540 




TF 


SAVE 


!pot 


• 11, 


SET SAVE EQUAL PROOUCT 
















00570 26 02565 


0333L 


00550 




TF 


FAC*2 


,PDT 


.11, 


STORE PRODUCT IN FAC 
















00582 26 02494 


0333L 


00560 




TFM 


FACT ♦ 1 i 


,02 


,010, 


SET DIVISOR EQUAL 2, DENOTE AS L 














00594 J6 00677 


000-2 


00570 




A 


BETA-2 


, SAVE 


. • 


ADD SAVE TO BETA 00606 21 02601 


02565 


00580 




TF 


79 


,ZER0-38 




00618 26 00079 


02729 


00590 




M 


SAVE 


,FAC+2 


. . 


MULTIPLY SAVE BY PRODUCT IN FAC 














00630 23 02565 


02494 


00600 




TF 


99 


,96MF 


.11 


00642 26 00099 


0331Q 


00610 




TFM 


96MF 


,00 


.610 


00654 16 03310 


000-0 


00620 


FACT 


DM 


97MF 




.6, 


DIVIDE NEW PRODUCT BY L 
















00666 19 0332L 


00000 


00630 




BZ 


FACT+56 


• 


.0, 


BR IF QUOTIENT IS ZERO 
















00678 M6 00722 


01200 


00640 




TF 


SAVE 


,97 




PUT QUOTIENT IN SAVE 
















00690 26 02565 


00097 


00650 




AM 


FACT+11 


,01 


• 010, 


INCREASE L BY ONE 
















00702 Jl 00677 


000- 1 


00660 




B 


FACT-60 


* 


.0 


00714 M9 00606 


00000 


00670 




DORG 


• -4 






00721 




00680 




CM 


CALC-1 


,00 


• 010, 


QUOTIENT WAS ZERO. IS COUNTER 
















00 722 J4 00393 


000-0 


00690 




BE 


• ♦80 




.0, 


ZERO, IF YES BR 00734 M6 00814 


01200 


00700 




TF 


79 


» ZERO- 38 




INDICATOR NOT ZERO 
















00746 26 00079 02729 


00710 




M 


BETA-4 


.TEN34 


• . 


MULTIPLY BETA BY 10 TO .34 
















00758 23 02599 


03278 


00720 




SF 


97M2F 




.6 


00770 32 0336L 


00000 


00730 




TF 


BETA-4 


! 98MF 


.11. 


STORE PROOUCT IN BETA 
















00782 26 02599 


0332Q 


00740 




SM 


CALC-l 


,01 


• 010, 


DECREASE COUNTER BY ONE 
















00794 J2 00393 


000- 1 


00750 




B 


FACT+68 




• 0 


00806 M9 00734 


00000 


00760 




OORG 


•-4 






00813 




00770 




BNF 


GOBACK-24. MU-1 


.0. 


COUNTER WAS ZERO, WAS ORIGINAL 
















00814 M4 00942 


03631 


00780 




TF 


99 


,ZER0-21 


. • 


ARGUMENT NEGATIVE 
















00826 26 00099 


02746 


00790 




TF 


PDT 


, ONE 2*2 


• 6, 


YES. FINO RECIPROCAL 
















00838 26 0333L 


03040 


00800 




D 


HND 


•BETA-4 


.6 


00850 29 0333Q 


02599 


00810 




BV 


• ♦44 




.0 


00862 M6 00906 


01400 


00820 




TF 


BETA-6 


I97MF 


,11 


00874 26 02597 


0332L 


00830 




SM 


BETA 


.01 


.10 


00886 12 02603 


000- 1 


00840 




B 


• ♦20 




.0 


00898 M9 00918 


00000 


00850 




DORG 


• -4 






00905 




00860 




SM 


BETA 


.02 


• 10 


00906 12 02603 


000-2 



00170 




BE 


•♦14 


• 


,0 00918 


N6 00942 


01200 


ooiao 




SF 


If TA 




00930 


12 02*03 


00000 


00190 




TF 


FAC-2 


•8ETA-4 


,, PUT RESULT IN FAC 

00942 


2* 02490 


02597 


00900 




TF 


FAC 


• BETA 


00954 


26 02492 


02403 


00910 


G08ACK 


TO 


FAOl 


• AECMK 


,t REPLACE RECORO MARK 

0096* 


25 02493 


02403 


00920 




B 


ERXVOO 


t 


• 6 00971 


49 0379K 


00000 


00930 




DORG 


• -4 




00985 






00940 


E12 


TO 


FAC*1 


•BETA* I 


00986 


25 02493 


02604 


00950 




TF* 


EI 


• 674 


•9, ERR F4 OVFL IN FEXP 

00998 


16 02615 


00074 


00960 




BNF 


OVFLOX 


»HU-1 


,0 01010 


N4 01030 


03631 


00970 




B 


UNFLO 




01022 


49 03466 


00000 


00980 




DORG 


• -4 




01029 






00990 


□VFlOX 


TF 


FAC-2 


•9SCFF 


01030 


26 02490 


02795 


01000 




TFM 


FAC 


• 99 


•10 01042 


16 02492 


000R9 


01010 




B 


ERXV 24 




01054 


49 03786 


00000 


01020 




OORG 


•-4 




01061 






01030 


FAC 


OS 




•02492 


02492 


00000 




01040 


BETA 


OS 




•02603 


02603 


00000 




01050 


ONEZ 


OS 




.03038 


03038 


00000 




01060 


FNH 


ns 




.03313 


03313 


00000 




01070 


MU 


DS 




.03632 


03632 


00000 




01080 


ZERO 


OS 




,02767 


02767 


00000 




01090 


LOGE 


DS 




•03010 


03010 


00000 




01100 


SAVE 


DS 




,02565 


02565 


00000 




01 1 10 


102MF 


DS 




•03343 


03343 


00000 




01120 


FH 


DS 




•03308 


03308 


00000 




01 130 


MF 


DS 




•03666 


03666 


00000 




01140 


FNHM1 


DS 




•03358 


03358 


00000 




01150 


9SPF 


DS 




•02854 


02854 


00000 




01160 


LNIO 


DS 




•02980 


02980 


00000 




01170 


97M2F 


DS 




•03363 


03363 


00000 




01 180 


POT 


DS 




•03333 


03333 


00000 




01190 


96MF 


DS 




•03318 


03318 


00000 




01200 


97MF 


DS 




•03323 


03323 


00000 




01210 


TEN34 


DS 




.03278 


03278 


00000 




01220 


98MF 


DS 




•03328 


03328 


00000 




01230 


HNO 


OS 




.03338 


03338 


00000 




01240 


RECHK 


DS 




.02403 


02403 


00000 




01250 


EI 


DS 




.02615 


02615 


00000 




01260 


FRXV 


DS 




•03762 


03762 


00000 




01270 


UNFLO 


DS 




.03466 


03466 


00000 




01280 


9SCPF 


DS 




,02795 


02795 


00000 




01290 




DEND 






00001 
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SYMBOL TABLE 



DVFLOX 01030R 
ERXV 03762 



FH 

LNIO 

PDT 

ZERO 



03308 
02980 
03333 
02767 



GOBACK 00966R 
E12 009S6R 
FNH 03313 
LOGE 03010 
RECMK 02403 
102MF 03343 



BETA 02603 

FAC 02492 

FNHM1 03358 

MF 03666 

SAVE 02565 

9SCPF 02795 



CALC 00394R 
FACT 00666R 
GORO 00534R 
MU 03632 
TEN34 03278 
9SPF 02854 



EI 

FEXP 
HNO 



02615 

00006R 

03338 



ONEZ 03038 
UNFLO 03466 
96MF 03318 



807 



00010* 
00020* 
00030* 
00040* 
00050* 
00060* 
00070* 
00080 



SUBSCRIPTING SUBROUTINE - RELOCATABLE- FOR ONE* TWO OR 
THREE DIMENSIONAL SUBSCRIPTED VARIABLES 
BTM ENTRYX,**12, , WHERE X-1,2 OR 3 
DSA BASE,D4,D1,I,D2,J,D3,K,0R/M 
IF Q AOOR FLAGGED BASE IS FIXED 
IF BASE IS FLAGGEO ARRAY IS FORMAL PARAMETER 
IF 01 IS FLAGGED - I/O STMNT 
ENTRY1 .ENTRY2.ENTRY3 00004 

00009 
00014 



L I NK AGE 



DSA 



00005 -0006 
00005 -0042 
00005 -0090 



00090 


DORG 


♦-9 






00005 








00100 ENTRY 1 TFM 


BRINST*6,Ll 






00006 


JO 


00336 


-0386 


00110 


TFM 


EXIT-1,22,10 






00018 


J6 


00481 


000K2 


00120 


B 


COM 






00030 


M9 


00126 


00000 


00130 ENTRY2 TFM 


BRINST*6.L2 






00042 


JO 


00336 


-0362 


00140 


TFM 


EXIT-1,32.10 






00054 


J6 


00481 


000L2 


00150 


TF 


ENTRY1-I.ENTRY2- 


I 




00066 


KO 


00005 


00041 


00160 


B 


COM 






00078 


M9 


00126 


00000 


00170 ENTRY3 TFM 


BRINST*6.L3 






00090 


JO 


00336 


-0338 


00180 


TFM 


EXIT-1,42.10 






00102 


J6 


00481 


000M2 


00190 


TF 


ENTRY1-1.ENTRY3- 


1 




00114 


KO 


00005 


00089 


00200* 


SET LENGTH OF FX OR FL 














00210 COM 


TF 


X+U.FP2 






00126 


K6 


00433 


03664 


00220 


BNF 


♦♦48.ENTRY1-1 






00138 


MM 


00166 


00005 


00230 


SF 


COM* I 






00150 


L2 


00127 


00000 


00240 


CF 


ENTRYl-l 






00162 


L3 


00005 


00000 


00250 


TF 


X*U.K 






00174 


K6 


00433 


02221 


00260* 


















00270* 


MOVE PARAMETERS TO WORK 


AREA 












00280* 


















00290 


TR 


WKAREA , ENTRY 1-1 • 


11 




00186 


3J 


00000 


OOOON 


00300* 


















00310 


CF 


Y*ll 






00198 


L3 


00445 


00000 


00320 


BNF 


•♦36, BASE 






00210 


M4 


00246 


00004 


00330 


CF 


BASE 






00222 


33 


00004 


00000 


00340 


SF 


Y*ll 






00234 


L2 


00445 


00000 


00350* 


CHECK 


IF IN I/O 














00360* 


















00370 


BNF 


CFINST, COM*l 






00246 


MM 


00306 


00127 


00380 


CF 


COM* I 






00258 


L3 


00127 


00000 


00390 


BNF 


CFINST*12,0l 






00270 


M4 


00318 


00014 


00400 


SF 


x*u 






00282 


L2 


004J3 


00000 


00410 


TOM 


Y*l,2 f , 


SET 


OP TO SUBTRACT 


00294 


J5 


00435 


00002 


00420 CFINST CF 


Dl 






00306 


33 


00014 


00000 


00430 


S 


HOLD, HOLD 






00318 


KK 


00508 


00508 


00440 BRINST B 


•-• 






00330 


49 


00000 


ooooo 


00*50 


DORG 


•-3 






00338 








00460* 


















00470 L3 


M 


03, KK, 11 






00338 


23 


00034 


0003R 


00480 


TF 


HOLD »99 






00350 


K6 


00506 


00099 


00490 L2 


M 


02, J, 11 






00362 


23 


00024 


0002R 


00500 


A 


HOLD, 99 






00374 


Kl 


00506 


00099 


00510 LI 


M 


01, I ,11 






00386 


23 


00014 


000 IR 


00520 


A 


HOLD, 99 






00398 


Kl 


00506 


00099 


00530 


A 


HOLD, 04 






00410 


Kl 


00508 


00009 


0O540 X 


MM 


HOLD,*-*, • 


MULTIPLY BY LENGTH 


00422 


J3 


0050B 


-0000 


00550 Y 


A 


99, BASE, 11, 






00434 


21 


00099 


OOOOM 


00560 


TOM 


•-ll.li, 


INIT 


OP TO ADO 


00446 


J5 


00435 


00001 


00570 


SF 


95 






00458 


32 


00095 


OOOOO 
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0058Q 




AM • 


ENTRY I- J 




00470 


J I 00005 *0000 


OOS90 


FXlT 




ENTRY I - 1 




,00492 


M9 OOOON 00000 


00600 


WK ARC A 


DSS 


42.0 




00000 


00042 


006 10 


HOLD 


DC 


15,5 




00508 


00015 


:'06?0 


BASE 


OS 


5 ,4 




00004 


00005 


OOft 10 


04 


OS 


5 ,9 




00009 


00005 


0064 0 


Dl 


OS 


5,14 




000 14 


00005 


00650 


1 


OS 


5,19 




00019 


00005 


00660 


02 


DS 


5,24 




00024 


00005 


0 0670 


J 


DS 


5,29 




00029 


00005 


0 06 80 


D„l 


DS 


5^34 




00014 


,00005 


00690 


KK 


DS 


5.39 




000*9 


00005 


00 700 


FP2 


DS 




#03664 


03664 


00000 


00 710 


K 


DS 




♦02221 


02221 


00000 


00 7.20 




DEND 


3 




00003 





WK AREA 00000 
8RINST 00330R 
03 00034 
I O0019 
L2 00362R 



ENTRY 3 00090R 
vBASE 00004 
D4 00009 
J 00029 
L3 00338R 



SYMBOL TABLE 

EN TRY 2 00042R 
COM 0Q1 26R 
EXIT 004Q2R 
:k 02221 
X 004 22R 



ENTRY I 00006R 

Dl 00014 

FP2 03664 

KK 00039 

Y 004 34 R 



CFINST 00306R 
02 00024 
HOLD 0O508R 
LI 003 86R 



8UB 



00010* 
00020* 



FORTRAN I 1-0 OK 10 WJTM FLT HARDWARE 



000 30 


ADR 


DSA 


FIND 


, RE CORD , FE TCH , SWQ, OR AY t Dl OENO 00004 


00005 


-0072 














00009 


00005 


-0334 














00014 


00005 


-0298 














00019 


00005 


-0216 














00024 


00005 


-0024 














00029 


00005 


-0270 


00040 




DORG 


ADR-* 






OOOOO 






00050 


IOCAL 


DS 


, 716 






00716 


OOOOO 




00060 


IQRBC 


DS 


,520 






00520 


OOOOO 




00070 


IORT 


DS 


,565 






00565 


OOOOO 




00080 


D I Q 


DS 


,816 






00816 


OOOOO 




00090 


IOSK 


DS 


,554 






00554 


OOOOO 




00100 


1NDS 


DS 


,610 






00610 


OOOOO 




001 10 


ERRET 


DS 


,602 






00602 


OOOOO 




00120 


10ERR 


DS 


,624 






00624 


OOOOO 




00130 


IOGT 


DS 


,566 






00566 


OOOOO 




00140 


IOPT 


DS 


.532 






00532 


OOOOO 




00150 


F AC 


DS 


,2492 






02492 


OOOOO 




00160 


DIODDA 


DS 


,3387 






03387 


OOOOO 




001 70 


FIND IN 


DS 


, 3527 






03527 


OOOOO 




00180 


FP2 


DS 


.3664 






03664 


OOOOO 




00190 


fkoDd 


OS 


,3579 






03579 


OOOOO 




00200 


PAR 


DS 


, 3378 






03378 


OOOOO 




00210 


ERROR 


DS 


,3596 






03596 


OOOOO 




00220 


EI 


DS 


,2615 






02615 


OOOOO 




00230 


FUEND 


DS 


, 3680 






03680 


OOOOO 




00240 


FL TEND 


DS 


,3730 






03730 


OOOOO 




0Q250 


FLOAT 


DS 


.4042 






04042 


OOOOO 




00260 


OK DATA 


DS 


,3379 






03379 


OOOOO 




00270 


ZERO 


OS 


,2700 






02700 


OOOOO 




00280 


FIX 


DS 


,3854 






03854 


OOOOO 




00290 


RECLG 


OS 


.2243 






02243 


OOOOO 




00300 


w 


OS 


.2240 






02240 


OOOOO 




00310 


N2 


DS 


,2236 






02238 


OOOOO 




00320 


Nl 


DS 


,2233 






02233 


OOOOO 




00330 


K 


DS 


,2221 






02221 


OOOOO 




00340 


F 


DS 


,2219 






02219 


OOOOO 




00350* 
















00360 




TF 


NlTEMP 


i*l 




OOOOO 


K6 00143 02233 


00370 


T08B 


b 


DRAYl, 


.0 




00012 


M9 00896 OOOOO 


00380 


DRAY 


TON 


TOBB+l 


.9,, 


SET 


TOBB TO BRANCH 
















00024 


J 5 00013 00009 


00 390 




BD 


EVEN, FKODD,, 


TEST 


FOR EVEN ADDRESS 
















00036 


M3 00536 03579 


00400 




TFM 


DSABLK*5, AGAIN 




00048 


JO 00265-0650 


00410 




B 


SW0+12 






00060 


M9 00228 OOOOO 


00420 


FIND 


TDM 


F I NO IN 


tPt. 


SET FIND 


INDICATOR ON . 


















00072 


15 03527 OOOOO 



00430 

00440* N2 
00450 N2CK 
00460 
00470 

00480 

00490 RETD2 



TFM RETD2*6.SET1,, BRANCH TO COMPUTE ADDRESS AND TEST I 

00084 JO 00150 -0370 

ERROR ROUTINE (I GR.T N2 1 

C F1ND-1 .ZERO, 6, IS 1 IERO Oft NE£ . 00096 K4 000 7 J 02700 

BNH BE 2 00108 M7 00156 01100 

C FiND-l,N2,6, COMPARE I AND N2 

00120 K4 0007J 02238 
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BE2 



00132 M6 00156 01100 
00144 49 OOOOO OOOOO 



810 



00500 


BUFFAR 


OS 


• • 






00155 


00000 




00510 


BE 2 


Bl 


•♦12.1400 






00156 


M6 00168 


01400 


00520 




TFM 


EI. 472, 9, 






1 CRT N2 00168 


16 0261S 


00M72 


00530 




BD 


ERROR, ODABLK , , BR 


IF 


CK 


WAS ENTERED FROM BUFFER ROUTINE 
















00180 


4L 03596 


00247 


00540 




TFM 


DSA0TR»5, ERROR 






00192 


J6 00403 


-3596 


00550 




B 


SETRMK 






00204 


M9 00354 


00000 


00560* 




















SWD SUBROUTINE 


















c un ionn n 






00216 


J5 01116 


00000 


00590 












00228 


J6 00217 


000M1 


00600 






ante to lj 
our r»N i»n 






INCREMENT BUFFAR ARROW 
















00240 


Ki 00155 


02240 


006 I 0 






SMD1 






00252 


M9 00406 


00000 


00620 




nnpr 








00259 






006 JO 


I CON 8 


nr 


19 
* 






00259 


00001 




00640 




OSA 


RE TF L T 






00264 


00005 -0812 


00650 












00269 






00660 


! UENO 


TF M^ 


DSA0TR*5»DI0E ND 






00270 


JO 00403 


-0270 


00670 




80 


SETRMK, FRIND, . 


BRANCH 


IF FETCH 00282 


ML 00354 


00163 


00680 




C 


N 1 TEMP ,N I 






00294 


K4 00143 


02233 


00690 












BRANCH IF BUFFER EMPTY 
















003O6 


M6 00354 


01200 


00 700 












WRITE BUFFER TO FILE 
















00318 


10 00565 


-0341 


00710 




8 


IOPT , DKDATAt 7 






00330 


49 00532 


-3379 


00720 




AM 


MND-l , 1,610 






00342 


Jl 0007J 


000-1 


00730 


SFTRMK 


TD 


SWD*900,DKBUFF»200 






00354 


KN 01116 


01162 


00740 




TFM 


IORT , I 0REF2* 1 1 






00366 


10 00565 


-0429 


00750 




B 


I0GT 






00378 


49 00566 


00000 


00760 




□ORG 


• -4 






00385 






00770 


DOB 


osc 


1,1 






00385 


0000 1 




00780 




DSA 


200 






00390 


00005 -0200 


00790 




DC 


3,9 






00393 


00003 




00800 


OSAOTR 


OSA 


S WD , D I OF ND 






00398 
00403 


00005 -0216 
00005 -0270 


00810 




DC 


I.* 






00404 


00001 




00820 


SWD1 


BD 


FETCHl ,FR I ND» , 






BRANCH IF FETCH 

00406 


ML 00670 


00163 


00830** 


RECORD 












00840 


I0REF2 


CF 


SW0-l,DATB,7, 






CLEAR FLAG ON ADDRESS OF DATA 














00418 


LL 00215 


-0953 


00850 




SM 


NITEMP.1,10 , 






DECREMENT WORD COUNT 
















00430 


J2 00143 


000-1 


00860 




TFL 


BUFFAR, SWD-l. 611 






00442 


-0 0015N 


0021N 


00870 


CK 


CM 


N1TFMP ,0, 10, 






CHECK FOR FULL BUFFER 
















00454 


J4 00143 


000-0 


00880 




BNZ 


TOBB 






00466 


M7 00012 


01200 


00890 




BO 


T0BB-12. FRIND, * 


BR 


IF 


FETCH 00478 


ML 00000 


00163 


00900 




TFM 


LINKBM8.I0PT 






00490 


J6 00540 


-0532 


00910 


CKI 


TFM 


RETD2+6, L I NKB 






00502 


JO 00150 


-0522 


00920 




B 


N2CK 






00514 


M9 00096 


00000 


00930 




DORG 


• -4 






00521 






00940 


L INKB 


TFM 


IORT, •♦23, , 






CALL CORRECT IORT 
00522 


ROUTINE 
10 00565 


-0545 


00950 




B 


, DKDAT A , 7 






00534 


49 00000 


-3379 


00960 




TFM 


BUFFAR, DKBUFF+199, 






INITIALIZE BUFFER 
00546 


ARROW 
JO 00155 


-1161 
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00970 


S 


BuFFAR-2,RECLG 






00558 


K2 


00153 


02243 


00980 


BNF 


•♦24, FRIND 






00570 


MM 


00594 


00163 


00990 


A 


BUFFAR, W 






00582 


Kl 


00155 


02240 


01000 AODTOI 


AM 


FIND-1 ,1,610, 




INCREMENT I 


00594 


Jl 


0007J 


000-1 


01010 


A 


0I0DDA*5,DI0D0A*8, , 




INCREMENT 


SECTOR , 


ADDRESS 














00606 


21 


03392 


03395 


01020 


BD 


FETCH2 , FRIND 






00618 


ML 


00714 


00163 


01030 


B 


TOBB-12 






00630 


M9 


00000 


00000 


01040 


DORG 


*-4 






00637 








01050 


A 


OR AY- 1 ,FP2 






00638 


Kl 


00023 


03664 


01060 AGAIN 


TF 


SWD-l ,DRAY-l 






00650 


KO 


00215 


Q0023 


01070 


B 


SWD 






00662 


M9 


00216 


00000 


01080 


OORG 


•-4 






00669 








01090 FETCHl 


C 


Nl TEMP ,N1 






00670 


K4 


00143 


02233 


OUOO 


BNE 


FETCH2,, , 




BRANCH IF 


BUFFER NOT 


EMPTY 














00682 


M7 


00714 


01200 


01110 


TF M 


LINKB*18,I0GT 






00694 


J6 


00540 


-0566 


01120 


B 


CKI 






00706 


M9 


00502 


00000 


01130 


DORG 


• -4 






00713 








01140 FETCH2 


SM 


NlTEMP.1,10 






00714 


J2 


00143 


000- 1 


01150* 


SEND THE WORD TO FAC 














01 160 


TFL 


F AC , BUFF AR , 1 1 






00726 


00 


02492 


0015N 


01 170 


BI 


•♦12, 1400 






00738 


M6 


00750 


01400 


01 180* 


, TEST FOR FLOATING ADDRESS 


AT 


SWD-l 










01 190 


BNF 


FETCH3, SWD-l 






00750 


MM 


00844 


00215 


01200* 


IT 


IS A FIXED ADDRESS 














01210 


CF 


SWD-l 






00762 


L3 


00215 


00000 


01220* 


TEST FOR FLOATING WORD IN 


FAC 












01230 


BNF 


FETCH4,FAC-1 






00774 


M4 


00856 


02491 


01240* 


THE WORD IS FLOATING SET 


UP L 


INKAGE FOR FIX 








01250 


TF 


FIXEND+6, ICON7+6 






00786 


20 


03686 


00811 


01260 


B 


FIX 






00798 


49 


03854 


00000 


01270 


DORG 


• -4 






00805 








01280 IC0N7 


OC 


1.4 






00805 


00001 




01290 


DSC 


1.9 






00806 


00001 




01300 


DSA 


RETFLT 






00811 


00005 -0812 


01310 RETFLT 


TDM 


FIXENDM.2 






00812 


15 


03681 


00002 


01320 


TDM 


FLTEND-5,2 






00824 


15 


03725 


00002 


01330* 


BRANCH TD STORE NUMBER 














01340 CKLD 


B 


FETCH4 






00836 


M9 


00856 


00000 


01350 


DORG 


•-4 






00843 








01360 FETCH3 


BNF 


FETCH5.FAC-1,, 




BRANCH IF FIXED 


















00844 


M4 


00876 


02491 


01370* 


STORE THE WORD IN MEMORY 














01380 FETCH4 


TFL 


SW0-l,FAC,6 






00856 


-6 


0021N 


02492 


01390* 


CHECK FOR EMPTY BUFFER 














01400 


B 


CK 






00868 


M9 


00454 


00000 


01410 


OORG 


•-4 






00875 








01420* 


SET UP LINKAGE FOR FLOAT 














01430 FETCH5 


TF 


FLTEND » IC0N8+5 






00876 


20 


03730 


00264 


01440 


B 


FLOAT 






00888 


49 


04042 


00000 


01450 


DORG 


•-4 






00895 








01460 DRAY 1 


SM 


PAR, 1, 10,, 




DECREMENT 


WORD COUNT 
















00896 


12 


03378 


000-1 


01470 


BNZ 


• ♦14 






00908 


M7 


00922 


01200 


01480 


BB 








00920 


42 


00000 


00000 


01490 


DORG 


• -9 






00922 








01500 


BNF 


AGAIN-l2,0RAV-l 






00922 


MM 


00638 


00023 


01510 


S 


DRAY- I , K 






00934 


K2 


00023 


02221 
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0 \ 92 0 




8 


AG A I N 








UUD3U UOUOO 


01 S JO 




0084 


•-4 






00953 




o 1 940 


04 T 6 


OSC 


2* -00 








00002 


Oil 90 




DSA 


DOB 






00959 


ooons — niAs 

Www7 U JO J 


J 1960 




oc 








00960 


00001 


01S70 


OK BUFF 


DS 


,0ATB*9 






00962 




01980* 
















01990* 
















01600* 




WRITE 2ND BLOCK 










01610* 
















0 1620 


10180 


DSC 


2(00 






00961 


00002 


M 6 30 




DSA 


01 Ml 








norms -.na^a 


0 1640 




OC 


it • 






00968 


00001 


0 1690 


01*1 


OSC 


1 » 1 






a a 't a 




0 1660 




DSA 


209 








UUUU5 — 0«09 


0 1670 




OC 


3,9 






00977 


00003 


01680 




DSA 


SHD 








A rt ft A C U. A * 1 4. 

UUUOS — 0216 


0 1 690 




DC 


It' 






nnoaf 




01700 


STLD1 


CF 


IC0N7>2 








1 * AAAA? AAAAA 

13 OUOU f OOOOO 


01710 




DGM 


0ATR*9*200 






01 162 


0000 1 


01720 




CF 


ICONS* 1 






n?nn« 


1 1 rtrt^XA AAAAA 


01730 




TFM 


I OR T (HERE* 11 






ftl rt^ft 


in- rtrtCit — A rt/1 

lU 00?65 -1043 


0 1 740 




TO 


SW0*900.0K8UFF*200 






01020 


kk Alt 11 A 1' 1 A. O 

KN HI 116 01 162 


01 790 


HERE 


B 


I0PT,L01RD,7 






01032 


AO ft ft C 1*1 ftrtil 

*K 005 32 -0961 


0 1 760 




TRA 








0 1044 


1 A AAC it 1 ft 4. *5 

ID 00565 -1063 














01096 


49 00716 00000 














01063 


00002 2K 














01065 


00005 -1071 














0 1070 


00001 • 














01071 


00006 1 J 9783 














01077 


AArtAl . /Y 1 

OOU03 —03 














0 1080 


00006 -0000* 


_ 




TCD 


STLDl 






00984 




ni ran 
oi ion 




















BLOCK I OF FETCH FIND 


RECORD 








ni »nn 




OORG 


SWOA 






00216 




: _ ' 




TFM 


DSABLK*5,SW0 






002 16 


JO 00265 -0216 


ft! a 




TFM 


I0RT,I0REF*U 






00228 


10 00565 -0571 


0 1 8 30 




B 


IOGT 






00240 


49 00566 00000 


0 1 840 




DORG 


• -4 






00247 




n \ atn 


DUAqI K 


DSC 


i.i 






00247 


00001 






DSA 


209 






00252 


00005 -0209 


01870 




DC 


3.9 






00255 


00003 


0 1 880 


OS ABLK 


DSA 


SWOtSWO 






00260 


00005 -0216 














00265 


00005 -0216 






DC 


1.' 






00266 


0000 1 


n i onn 
n J 




OORG 


IUENO 






00270 




01910 


U 1 UtNU 


BI 


♦♦12,1400 






00270 


M6 00282 01400 






BB 








00282 


42 00000 00000 


01930 




OORG 


• -9 






00284 




01940 


DAT1 


DSC 


2,-00 






00284 


00002 


01950 




DSA 


ODABLK 






00290 


00005 -0247 


01960 




DC 


!(• 






00291 


00001 


01970 




DS 


5 






00296 


00005 


01980 


FETCH 


TF 


FIND-l .FETCH- l, , 




TRANSFER I 


00298 


KO 00071 00297 


01990 




TOM 


FRIND,l,ll, SET 


FETCH- 


RECORD INDICATOR TO 


FETCH 














00310 


J5 00163 0000 J 


0200Q, 




,8 . ... 


A I TEST,*, 


BRANCH TO SET FIND INDICATOR OFF , 



813 



02010* 
02020* 

02030 RECORD TF 
02040 TOM 



FIND- I, RECORD-!,, 
FR I ND, 0, , 



02050 AITEST TOM F I NO I N , 1 , , 



00322 M9 00358 00000 
COMPUTE ADDRESS , TEST I , AND TEST 
FOR DEFINE STATEMENT . 

TRANSFER I 00334 KO 00071 00333 
SET FETCH-RECORD INOICATOR TO RECRD 

00346 J5 00163 00000 
SET FIND INDICATOR OFF 

00358 15 03527 00001 



02060 SETl 


TFM 


OIOOOA+5,217, , 


SET SECTOR ADDRESS IN ODA 








F IND-i »R£CLG»6» 


00370 16 03392 


-0217 


02070 


M 


COMPUTE ADDRESS OF FILE RECORD 
00382 K3 0007J 


02243 


02080 


A 


DI0DDA*5,99 


00 394 21 03392 
BRANCH IF NOT FIND 00406 M3 00450 


00099 


02090 


BO 


•♦44 (FIND IN, , 


03527 


02100 S SEEK 


TFM 


I0RT,*V23 


00418 10 00565 


-0441 


02110 


8 


!0SK,DKDATA,7, 


TRANSFER TO IORT TO SEEK 

00430 49 00554 


-3379 


02120 


B 


OIOEND 


00442 M9 00270 


00000 


02130 


DORG 


• -3 


00450 




02140 


TFM 


BUFFAR,DKBUFF*l'99,, 


INITIALIZE BUFFER ARROW 

00450 JO 00155 


-1161 


02150 


S 


BUFFAR-2 »RECLG 


00462 K2 00153 


02243 


02160 


TF 


NlTEMP ,Nl t f 


00474 K6 00143 


02233 


02170 


TF 


DI0DDA*8,RECLG, , 


STORE RECORO LENGTH IN ODA 








DI0DDA+13.DKb6fF*20O 


00486 26 03395 


02243 


02180 


TFM 


,, STORE ADDRESS OF BUFFER 

00498 10 03400 


-1162 


02190 


S 


DI0DDA*11,RECLG,, 


SUB LENGTH OF RECORD TO GET FIRST 
00510 22 03398 


COR 
02243 


02200 OVER 


TOM 


T0BBM,2,, 


INITIALIZE BRANCH BACK 

00522 J5 00013 


00002 


02210 


BB 




00 534 42 00000 


OttOOO 


02220 


DORG 


• -9 


00536 




022)0 EVEN 


TF 


TEMPA , FP2 ( , 


STORE FLOATING LENGTH IN TEMPA 








00536 K6 00119 


03664 


02240 


BNF 


•♦36,DRAY-lt, 


BRANCH IF FLOATING ARRAY 

00548 MM 00584 


00023 


02250 I0REF 


CF 


DRAY-1 ,DAT1 , 7 


00560 LL 00023 


-0284 


02260 


TF 


TEMPA, K,( 


STORE FIXED LENGTH IN TEMPA 








00572 K6 00119 


02221 


02270 


TF 


DI0DDAM3,DRAY-1,, 


STORE ADDRESS OF FIRST ELEMENT 








00584 20 03400 


00023 


02280 


AM 


DI0DDAM3,! 


00596 11 03400 


-0001 


02290 


S 


0I000A*13, TEMPA,, 


HIGH ORDER POSITION OF ARRAY 






EVENl*ll,DI00bA+l3 


00608 2K 03400 


00119 


02300 


TF 


00620 K6 00667 


03400 


02310 


M 


TEMPA, PAR 


00632 K3 00119 03378 


02320 


A 


EVENIM1.99 


00644 Kl 00667 00099 


02330 EVEN1 


TO 


EVEN2MI 


00656 K5 00843 


00000 


02340* 






EVALUATE SECTOR COUNT 




02350 


TFM 


OIODOA^S, 1,9 


00668 16 03395 


60-01 


02360 


A 


DI0DDA*8,97 


00680 21 03395 


00097 


02370 


CM 


RECLG,l,9 


00692 14 02243 


00-01 


02380 


8E 


• ♦36 


00704 M6 00740 


01200 


02390 


MM 


0I0DDA*8,5,10 


00716 13 03395 000-5 


02400* 






IS NOW IN DDA 




024 10* 






EVALUATE AND STORE LOW ORDER 




02420* 






POSITION ♦ 1 OF ARRAY 




02410* 
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S 


FlND-1.98,6 




00728 


K2 


0007J 


00098 


o:>450 




A 


F!ND-1,DI00DA*«.6 




00 740 


Kl 


000 7 J 


0JJ95 


02460 




TFM 


RETD2*6,»*20 




00752 


JO 


00150 


-0772 


02470 




B 


N2CK 




00764 


M9 


00096 


00000 


02480 




DOUG 


•-4 




00771 








02490 




BD 


FETCH8»FRINDi# 


BRANCH IF 


FETCH 

00772 


ML 


00858 


00163 


02500* 




RECORO 












02510 




TD 


EVENlUl.DKBUFF + 200, 


,6, SET GROUP 


MARK AT 


END OF ARRAY 












00784 


KN 


0066P 


01162 


02520* 








WRITE ARRAY 


ONTO FILE 






02530 




TFM 


IORT,»»23 




00796 


10 


00565 


-0819 


02540 




B 


IORBC. NOWLC ,7 




00808 


4R 


00520 


-0995 


02550 




TDM 


FLTEND-5,2 




00820 


15 


03725 


00002 


02560 


EVEN2 


TDM 


EVENl*ll« , 6, 


RESTORE DIGIT 


















00832 


J5 


0066P 


00000 


02570 




A 


0I0D0A*5tD!0DDA*8f • 


INCREMENT SECTOR 


ADORESS 
00844 


21 


03392 


03395 


02580 




BB 






00856 


42 


00000 


00000 


02590 




OORG 


• -9 




00858 








02600 


FETCH8 


TFM 


DI 0* 35 . YTURN, 67 » 


INSERT ADORESS FOR 


ERROR ENTRY 
















00858 


10 


0085J 


-0952 


02610 




TFM 


I ORT i •♦23 ♦ , 


READ ARRAY FROM FILE 
















00870 


10 


00565 


-0893 


02620 




a 


IOGT tDKDATA, 7 




00882 


49 


00566 


-3379 


02630* 








leal run H\J 


GROUP MARK 






02640 




BNG 


• ♦20 f E VENl* 1 1 ( 1 1 




00894 


NN 


00914 


0066P 


02650 




g 


EVEN2 




00906 


M9 


00832 


00000 


02660 




OORG 


• -4 




00913 








02670 




TF 


FLTENDfEVENSP + 6 




00914 


20 


03730 


00951 


02680 




TFM 


E I *473»9 




00926 


16 


02615 


00M73 


02690 




B 


ERROR 




00938 


49 


03596 


00000 


02700 




DORG 


• -4 




00945 








02710 


EVENSP 


DC 


1.4 




00945 


00001 




02720 




DSC 


1.9 




00946 


00001 




02730 




DSA 


EVEN2-12 




00951 


00005 -0820 


02740 


Y TURN 


BI 


•♦12,3700 




00952 


M6 


00964 


03700 


02750 




BN I 


ERRET.1900 




00964 


47 


00602 


01900 


02760 




TDM 


INDS+10.6 




00976 


15 


00620 


00006 


02770 




B 


IOERR 




00988 


49 


00624 


00000 


02780 




OORG 


•-4 




00995 








02790 


NOWLC 


DSC 


2,02 




00995 


00002 




02800 




DSA 


DIODDA 




01001 


00005 -3387 


02810 




DC 


I, • 




01002 


00001 




02820 


TEMPA 


OS 


2,N2CK*23 




00119 


00002 




02830 


N 1 TEMP 


DS 


2,RETD2-1 




00143 


00002 




02840 


FR1ND 


OS 


I.BE2+7 




00163 


00001 




02850* 


WRITE FIRST BLOCK 












02860* 
















02870 


DIM2 


DSC 


1,1 




01003 


00001 




02880 




DSA 


200 




01008 


00005 -0200 


02890 




DC 


3,9 




01011 


00003 




02900 




DSA 


SWD 




01016 


00005 -0216 


02910 




DC 


l,« 




01017 


00001 




02920 


LD2ND 


DSC 


2,00 




01018 


00002 




02930 




DSA 


DIM2 




01024 


00005 -1003 


02940 




DC 


1. ' 




01025 


00001 




02950 


STLD2 


CF 


EVENSP+2 




01026 


L3 


00947 


00000 
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02960 
02970 
02980 
02990 
03000 



03010 
03020 



TFM I0RT,»*23 

B IOPT ,LD2ND,7, 

8 SWD*902 

DORG SWD*902 

TRA 



TCD STLU2 
DEND 6 



WRITE OUT 2ND PART BLK 1 



01038 10 00565 -1061 
01050 4R 00532 -1018 
01062 M9 01118 00000 
01118 

01118 10 00565 -1137 
01130 49 00716 00000 
01137 00002 2K 
01139 00005 -1145 

01144 00001 • 

01145 00006 1J9783 
01151 00003 -03 
01154 00006 -0000* 
01026 

00006 
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SETRMK 00354R 
FLTEND 03730 
FETCH4 00856R 
DSAOTR 00398R 
DIODDA 03387 
ADR 00004R 
CKLD 00B36R 
DIM2 01003R 
ERRET 00602 
F 02219 
FKODD 03579 
IC0N7 00805R 
IOERR 00624 
IORT 00565 
LINKB 00522R 
OVER 00522R 
SSEEK 00418R 
SWDl 00406R 
ZERO 02700 



RETFLT 00812R 
FIXEND 03680 
FETCH3 00844R 
DSABLK 00260R 
DDABLK 00247R 
AGAIN 00650R 
DATA 00953R 
UIO 00816 
ERROR 03596 
FAC 02492 
FLOAT 04042 
ICONS 00259R 
IOGT 00566 
10SK 00554 
NOWLC 00995R 
PAR 03378 
STLDl 00984R 
TEMPA 00U9R 



SYMBOL 


TABLE 


RECORD 


00334R 


F I NO I N 


03527 


FETCH2 


00714R 


DKDATA 


03379 


BUFF AR 


00155R 


BE2 


00156R 


DAT I 


00284R 


DRAY 


00024R 


EVEN 


00536R 


FETCH 


00298R 


FP2 


03664 


INDS 


00610 


IOPT 


00532 


K 


02221 


Nl 


02233 


RECLG 


02243 


STLD2 


01026R 


TOBB 


00012R 



Nl TEMP 00143R 
FETCH8 00858R 
FETCHl 00670R 
DKBUFF 00962R 
A I TEST 00358R 
CK 00454R 
008 00385R 
DRAY 1 00896R 
EVENl 00656R 
FIND 00072R 
FRIND 00163R 
IOCAL 00716 
IORBC 00520. 
L01RD 00961R 
N2 02238 
RET02 00144R 
SWD 002 16R 
W 02240 



I0REF2 00418R 
FETCH5 00876R 
EVENSP 00945R 
DIOENO 00270R 
ADDTOI 00594R 
CKI 00502R 
DIM1 00969R 
EI 02615 
EVEN2 00832R 
FIX 03854 
HERE 01032R 
IOEND 00270R 
IOREF 00560R 
L02ND 01018R 
N2CK 00096R 
SETl 00370R 
SWOA 00216R 
YTURN 00952R 



8I« 



QQ01O" ••• 

00020*»»* 

00030»»»» 

noo*o 



DSA FCOS.FSIN 



1620 FORTRAN 1I-D RELOCATABLE SINE AND COSINE ROUTINES 
COSIXI • I - (X»»2)/2 ♦ <X««4)/24 - CX»»6)/720 ♦ ... 
SIN(A) • C0SIPI0V2 - A) 

00004 00005 -0006 
00009 00005 -0062 
00005 

SET ROUTINE FOR COSINE 

00006 J 5 00125 00000 
LOAD ARGUMENT 00018 00 02692 OOOON 
00030 M9 00066 00000 
SET ROUTINE FOR SINE 

00042 J5 00125 OOOOJ 
LOAD ARGUMENT 00054 00 02692 0004J 
CLEAR HIGH ORDER FLAG 

00066 33 0331L 00000 
SET FLAG AT HIGH ORDER DIGIT -1 

00078 15 03350 0000- 
SET SWITCH ARG POSITIVE, RESULT POS 

00090 J5 00124 00001 
IS ARG NEGATIVE 00102 M4 00150 02490 
YES, REPLACE BY ABSOLUTE VALUE 

00114 33 02490 00-00 
IS ROUTINE SINE OR COSINE 

00126 MM 00150 00125 
SINE, SINI-AI—SINIA), RESULT NEG 

00138 J5 00124 00000 
IMSA*F • F*2 ZEROS 

00150 26 03290 02855 
CHECK SIGN OF CHARACTERISTIC 

00162 14 02492 000-0 
BR IF POSITIVE, EQUAL TO ZERO 

00174 M6 00706 01300 
COMPARE CHAR TO -F 

00186 24 02492 03666 
BR IF CHAR LESS THAN -F 

00198 M7 00246 01300 
ADJUST MANTISSA (IN IHSAPF) FOR 

00210 J6 00245 -2491 
CHAR GREATER THAN OR EQUAL TO -F 

00222 Kl 00245 02492 
AND LESS THAN ZERO 

00234 21 0329Q 00000 
BR IF ROUTINE IS SINE 

00246 ML 00270 00125 
ADD PI0V2, COS(A) * SIN(PI0V2-A) 

00256 21 0329Q 03163 
REDUCE ARGUMENT TO PRINCIPAL VALUE 

00270 22 0329Q 03103 
RANGE, MINUS PI0V2 TO POS PI0V2 

00282 M6 00270 01100 
SET HIGH ORDER FLAG 

00294 32 02574 00000 
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IMSAPF 03298 
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PUZEXP 00706R 
FINISH 03723 
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ZERO 02767 ZEROM 03445 9SPF 02854 97MF 03323 
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03191 


00990 




B 


TE ST 1 


» 


»0 


01066 


M9 


00850 


00000 


0 1 000 




DORG 


• -4 






01073 








01010 




TO 


99 


t TEST^9 


, I 


01074 


2N 


00099 


00071 


0 1 020 




B 


ENDD + 1 2 






01086 


49 


03700 


00000 


010 30 




DORG 


• -4 






01093 








01040 


E00 


BNF 


• -20 


,TESTM0 


.01 , 


TEST INDICATOR. CHAR POSITIVE 
















01094 


MM 


01074 


00072 


0 1 oso 




TF 


I MSAPF 


t FAC-2 


,6. 


CHAR MEG, STORE FAC MANTISSA 
















01106 


26 


0329Q 


02490 


0 1060 




TF 


FAC-2 


,PI0V2-l 


t * 


FAC MANTISSA IS F*l DIGIT 


P10V2 
















01118 


26 


02490 


03162 


01070 




C 


FAC 


f MF 


, . 


COMPARE CHAR TO -F 

01130 


24 


02492 


03666 


01080 




BNH 


•♦72 


» 


,0, 


BR IF CHAR NOT GREATER 


» EQUAL -t 
















01142 


M7 


01214 


01100 


0 1090 




CF 


IMSA+ 1 


* 




SUB OLD F AC MANTISSA FROM 


PI0V2 
















01154 


33 


02576 


00000 


01 100 




TDM 


1MSA 


* 


,11 


01166 


15 


02575 


0000- 


01 1 10 




TF 


• ♦35 


i IMSAPF 


.0 


01178 


K6 


01213 


03298 


01120 




A 


• ♦23 


.FAC 


,0 


01190 


Kl 


01213 


02492 


01 1 30 




S 


FAC-2 






01202 


22 


02490 


00000 


01 140 




TFM 


SAVE 


• 01 


.10. 


SET CHAR 01214 


16 


02565 


000-1 


01 150 




0 


TEST1-12 


* 


,0, 


NORM AND RETURN 01226 


M9 


00838 


00000 


01 160 




DORG 


• -4 






01233 








01 I 70 


F AC 


DS 




, 02492 




02492 


00000 




01 180 


FNH 


DS 




,03313 




03313 


00000 




01 190 


ZfcRFAC 


DS 




,03422 




03422 


00000 




01200 


F 


DS 




,02219 




02219 


00000 




01210 


FNHMl 


DS 




,03358 




03358 


00000 




01220 


9SPF 


DS 




,02854 




02854 


00000 




01230 


FH 


DS 




,03308 




03308 


00000 




01240 


98MF 


DS 




,03328 




03328 


00000 




01250 


SIX 


DS 




,03219 




03219 


00000 




01260 


BETA 


DS 




,02603 




02603 


00000 




01270 


ZERO 


OS 




,02767 




02 767 


00000 




01280 


HNQ 


DS 




,03338 




03338 


00000 




01290 


97MF 


DS 




,03323 




03323 


00000 




01300 


SAVE 


DS 




,02565 




02565 


00000 




01310 


POT 


DS 




,03333 




03333 


00000 




01320 


2FMI 


DS 




♦03581 




03581 


00000 




01330 


FMl 


DS 




,03783 




03783 


00000 




01340 


ONEZ 


DS 




,03038 




03038 


00000 




01350 


TAN6 


DS 




,03248 




03248 


00000 





01360 PI0V2 
01370 ENDD 
01380 PI0V4 
01390 IMSAPF 
01400 MF 
01410 IMSA 
01420 



DS 
DS 
OS 
DS 
DS 
OS 

OEND 



,03163 
,03688 
,03191 
,03298 
,03666 
,02575 



03163 00000 
03688 00000 
03191 00000 
03298 00000 
03666 00000 
02575 00000 
00001 
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ZERFAC 03422 
ENDD 03688 
FH 03308 
IMSA 02575 
PI0V4 03191 
TE ST I 00850R 
97MF 03323 



IMSAPF 03298 

EOD 01094R 

FMl 03783 

MF 03666 

SAVE 02565 

TEST2 00710R 

98MF 03328 



SYMROL TABLE 

ALPH 00254R 

F 02219 

FNH 03313 

ONEZ 03038 

SIX 03219 

ZERO 02767 



ATNl 00482R 

FAC 02492 

FNHM1 03358 

POT 03333 

TAN6 03248 

2FMI 03581 



BETA 02603 

FATN 00006R 

HNO 03338 

P10V2 03163 

TEST 00062R 

9SPF 02854 



824 







1620 FORTRAN 


11-0 


RELOCATABLE SQUARE ROOT ROUTINE 




ooo ;o 




DSA 


SORT 






00004 00005 -0006 


000 10 


SQRT 


MM 


SQRT-l 


• 50 


,0610, 


iHALF THE EXPONENT 
















00006 J3 OOOON 


OOONO 


000«»0 




TFL 


FAC 


, SQRT-l 


illli 


MOVE MANTISSA TO FAC-2 
















00018 00 02492 OOOON 


00050 




BO 


$31 


• F NH 


,011, 


TEST FOR ZERO 00030 M3 00050 


0331L 


00060 




B 


ZERFAC 


» 


» t 


RESULT IS ZERO 00042 49 03422 


00000 


00070 




DORG 


• -4 






00049 




00080 


SOI 


TDM 


FNHM1 


,0 


,611, 


SET NEXT HIGH ORDER DIGIT TO ZERO 














00050 15 0335Q 


0000- 


00090 




TDM 


SQEXM 


.2 


.0, 


SET EXIT TO BRANCH BACK 
















00062 J5 00463 


00002 


00100 




BNF 


♦ ♦48 


.FAC-2 


,0, 


TEST FOR SIGN 00074 M4 00122 


02490 


001 10 




CF 


FAC-2 


t 


( , 


REMOVE MINUS SIGN 
















00086 33 02490 


00000 


00120 




TDM 


SQEX+l 


,9 


,0, 


SET EXIT TO ERROR ROUTINE 
















00098 J5 00463 


00009 


00130 




TF" 


E I 


,676 


,9, 


SET ERROR MESSAGE F6 
















00110 16 02615 


00076 


001*0 




BD 


SQ3 


, 98 


• Of 


BRANCH IF EXPONENT ODD 
















00122 M3 00470 


00098 


00150 




TF 


SQ2*42 


,97MF 


,0, 


SET ADDRESS TO 97-F 
















00134 K6 00200 


03323 


00160 




BNF 


SQ2*12 


,99 


,0. 


TEST FOR SIGN 00146 M4 00170 


00099 


00170 


'SO 2 


SF 


9 7 


t 




SET SIGN 00158 32 00097 


00000 


00180 




TF 


FAC 


t97 


1 * 


STORE EXPONENT 00170 26 02492 


00097 


00190 




LD 


80 


,9SPF 


f , 


CLEAR PRODUCT AREA 
















00182 28 00080 


02854 


00200 




TF 




, FAC-2 


f f 


MOVE MANTISSA INTO 97-F OR 98-F 
















00194 26 00000 


02490 


00210 




TF 


LU0PM8 


, 97M2F 


,0, 


SET ADDRESS TO 97 - 2F 
















00206 K6 00280 


03363 


00220 




TF 


L00P*23 


, FNHMl 


• 0, 


SET AODRESS TO FNH - 1 


03358 














00218 K6 00285 


00230 




TF 


L00P+102 


.97M2F 


,0, 


SET ADDRESS TO 97-2F 
















00230 K6 00364 


03363 


00240 




TF 


FAC-2 


,0NEZ+1 


t 


SET RESULT TO 100... 
















00242 26 02490 


03039 


00250 




R 


L00P*108 




,0, 


00254 M9 00370 


00000 


00260 




DORG 








00261 




00270 


LOOP 


AM 


tOOP*23 


,2 


,0610, 


i ADD 2 TO RESULT 00262 Jl 0O28N 


000-2 


00280 




S 








SUBTRACT RESULT FROM MANTISSA 
















00274 22 00000 


00000 


00290 




BNN 


LOOP 


t 


,0, 


CONTINUE LOOP IF NOT MINUS 
















00286 M6 00262 


01300 


00300 




CM 


L00P+-23 


, FAC-2 


,07, 


COMPARE WITH TERMINAL ADDRESS 
















00298 J4 00285 


-2490 


00310 




BNL 


SQEX-48 


t 


,0, 


GO TO EXIT IF EQUAL 
















00310 M6 00414 


01300 


00320 




A 


L00P+18 


.LOOP+23 


,01611, ADD BACK 00322 KJ 0028- 


0028N 


00330 




CF 


L00P+18 




,06, 


CLEAR FLAG 00334 L3 0028- 


00000 


00340 




AM 


• ♦18 


, 1 


,010, 


ADD 1 TO ADDRESS 00346 Jl 00364 


000-1 


00350 




SF 








SET FLAG ON MANTISSA ONE PLACE OVER 














00358 32 00000 


00000 


00360 




AM 


LOOP+18 


,02 


,010, 


ADD 2 TO MANTISSA 
















00370 Jl 00280 


000-2 


00370 




AM 


L00P+23 


.01 


,010, 


ADD 1 TO RESULT ADD 
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825 















00382 


Jl 00285 


000-1 


00380 




SM 


LOOP+23 


,9 


,0610 


.SUBTRACT 9 FROM RESULT 
00394 


J2 0028N 


000-9 


00390 




B 


LOOP+12 




,0, 


GO TO LOOP 00406 


M9 00274 


00000 


00400 




DORG 


«~4 






00413 






00410 




LD 


80 


,9SPF 




CLEAR PRODUCT AREA 

00414 


28 00080 


02854 


00420 




MM 


FAC-2 


,50 


• 10, 


HALF THE RESULT 00426 


13 02490 


OOONO 


00430 




TF 


FAC-2 


,97 




STORE RESULT 00438 


26 02490 


00097 


00440 




SF 


FNH 




,6, 


SET FLAG IN HIGH ORDER 
00450 


DIGIT 
32 0331L 


00000 


00450 


SQEX 


BB 


ERROR 




» , 


GO BACK OR ERROR TYPE-OUT 
















00462 


42 03596 


00000 


00460 




DORG 


• -4 






00469 






004 7 0 


SQ3 


AM 


J 9 


,50 


, 10, 


ADD 5 TO PRODUCT 00470 


11 00099 


OOONO 


00480 




CF 


FNH 


• 


,6, 


CLEAR HIGH ORDER FLAG 
00482 


IN FAC 
33 0331L 


00000 


00490 




TF 


SQ2+42 


,98MF 


• 0, 


SET ADDRESS TO 98-F 

00494 


K6 00200 


03328 


00500 




BNN 


SQ2*12 


» 


,0, 


BRANCH IF NOT NEGATIVE 
00506 


M6 00170 


01300 


00510 




B 


SQ2 


» 


,0, 


GO TO SET SIGN IF NEGATIVE 
















00518 


M9 00158 


00000 


00520 




DORG 


*-4 






00525 






005 30 


FAC 


DS 




,02492 




02492 


00000 




00540 


FNH 


DS 




,03313 




03313 


00000 




00550 


I ERF AC 


DS 




,03422 




03422 


00000 




00560 


FNHM I 


DS 




,03358 




03358 


00000 




00570 


EI 


DS 




•02615 




02615 


00000 




00580 


97MF 


DS 




,03323 




03323 


00000 




00590 


9SPF 


DS 




♦02854 




02854 


00000 




00600 


97M2F 


DS 




,03363 




03363 


00000 




00610 


ONEZ 


OS 




,03038 




03038 


00000 




00620 


ERROR 


DS 




,03596 




03596 


00000 




00630 


98MF 


OS 




,03328 




03328 


00000 




00640 




DEND 


1 






00001 
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SYMBOL TABLE 



ZERFAC 03422 
FNHMl 03358 
SOI 00050R 
97M2F 03363 



EI 02615 

LOOP 00262R 

SQ2 00158R 

98MF 03328 



ERROR 03596 
ONEZ 03038 
SQ3 00470R 



FAC 
SQEX 



02492 
00462R 



9SPF 02854 



FNH 03313 
SQRT 00006R 
97MF 03323 



82« 



00010* 




1620 FORTRAN 


tl-D 


ooo?o 




DSA 


ABS 




00010 


ABS 


TFL 


FAC 


»ABS-i 


00040 




6NF 


•♦26 


.FAC-l 


00050 




CF 


FAC-2 


t 


00040 




BB 






00070 




DORG 


•-9 




oooao 




CF 


FAC 


t 


00090 




BB 






00100 




DORG 


♦-9 




001 10 


F AC 


OS 




,02492 


00120 




DENO 







RELOCATABLE ABSOLUTE VALUE ROUTINE 

00004 00005 -0006 
till 00006 00 02492 OOOON 

.0 00011 M4 00044 02491 

tt FLOATING POINT NUMBER 

00030 33 02490 00000 
0004| 42 00000 00000 
00044 

tt FIXED POINT NUMBER 

00044 33 02492 00000 
00056 42 00000 00000 
0005B 

02492 00000 
00001 
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SYMBOL TABLE 



827 



1620 MONITOR I SYSTEM FORTRAN II-D FLOW CHARTS 



828 



1620 FORTRAN I I-D PHASE l-A 



PAGE I OF I 



j DETERMINE 



SUE OF MEM 
FOR_TOP_S¥M 



IB 

INITIALIZE*"" 



SYMBOL T8L 
TO FIELDS 
WITH FIVE 
R/M FIVE 0 



1C 



RE AU DOWN 
FIRST 
SECTOR 
OF DIM 



OF EQUlV 
TABLE 



I DETERMINE 


I SECTOR ADDR 


I OF EQUIV 


I TABLE 






it; 


GET E 


GHT 



•* Intr? 0 ! 

• NINES 



NO 



VT8L 

ill' ' 



IH 



VES 
PGP 1 



MOVE LIB. 
SUBR. NAME 
TO SYMBOL 
TABLE 



1J 

"calculate 
subr. entry 
addr frcm 
dim ano put 

IN TABLE 



* HAS EQUIV 
• TABLE BEEN 

• PROCESSED 



NO 

Nil* 



I 
I 
I 
I 

I iL 



INIT.READIN 
AREA TO 
FLAG ZERO 
ZERO 



DETERMINE 
INPUT DE- 



VICE AND 

Aw* 



N12 I IP 

gIiIsysTIm** 

"'*°"vJ§-_ 



tion u se£tor 



1Q 



DETERMINE 
CORE SHE 
STORE IN 
AND 



IR 



DETERMINE 
STANDARD F 
AND K, STORE 
IN FLNG AND 
KLNG 



READ AN 

INPUT 

RECORD 



82 U 



1620 FORTRAN I I-D PHASE 
PGP2 



I 
I 
I 
I 

I 2R 



SF CMl+3,5, 
7,9-MOVE 
RECORD IF 
CARD INPUT 
TO CHI5 



CALCULATE 
FP2» W AND 



I 
I 
I 
I 

I 2D_ 

~pu7"systIm"" 
communicat- 
ion sector 



REAO IN 
PHASE B 
AND 

GO TO IT 



* IS THIS A 
♦ PSTSN 

* RECORD 



TYPECUT 
RECORD- 



IS CHI*12 
A 72 OR TV 



YES 
PGPA 



2K 



TYPEOUT 
ERROR t INVA- 
LID OUTPUT 
UNIT COOE 
HALT 



PGP* 
SET 



PAGE 2 OF 3 
2U 



PUSTSN 
TO 2 OR 



# IS. THIS A • PGP5 
ORD •* 2U 



NO 



• IS THIS A • PGP7 
V RF?CORD •* 3A 



TYPE OUT 
RECORD 



• I S CHI* 12 
• EQUAL TO 

• 72 OR 74 



I__2R 

"set'scs to" 

1 OR 0 



GOTO 



IS 



IS 



MOVE PROG 
NAME AND 

OIM SCS 




830 



1620 FORTRAN I I~D PHASE l-A 



RAGE 3 OF 3 



• IS THIS AN • PGPB 
• #A— 



FANOK 
• RiCORO 



NO 
PGR 

3G 



TVPCOUT 
RECORD 



ROM _1G 

" m3r " 



JTA L T 
~GOTO " ~H2l~ 



IS 



• FANOK 
• VALID 



NO 
PGP9 



MOVIE FANOK 
TO FLNG 
AND KLNG 



TYPE MSSG 
ERROH.F OR 
K OL TSIDE 
RANGE 
HALT 

"gOT0*~*"n2T~ 



831 



1620 FORTRAN I I-D PHASE l-B 
IG 



INI T SVMTBL 
SWS FOR 
CORE SIZE 
AND WORD 
LENGTH 



BEGIN 


IB 


OUTPU 


r 


i 


SYMBOl 






FOR END OF 


I 


STATEMENT 


i 






i 



SET 

PARCNT-0 



ID 

• SINGST ON 
• 

• • 

NO I 
I 
I 

GL1 I IE 



• YES 

• MOOA 

• ILL 



IS • MOOAFT 



INI T ALL 
SWITCHES 
TO OFF 



• INPUT FROM • BA 
• CARD 



• NO 
"A 

1H 



HFT I 
CORD 
15 TO 



NPUT 
FROM 

0 CHI 



IH 

"rIao~1nput"~ 
from typemr 
or paper tp 

* 



_1J_ 

_ AT NT 
SW 1 ON 



~LIST~STATMT~ 



• COMMENT 
• CARD 



NO 
REAOl 



• YES 

• BEGINA 

• IC 
LEADBL IN 

11 



CARO 



•*IS THIS A *• rIadI 
• BLANK CARO • 



leadbl in 
~~elIminatI"*~ 

LEADING 
BLANKS 



! >p 



• • NO 

• GL3 
STATEMENT • 
NUMBER • 2E 



10 
T AND* 



OUTPUT 
STATEMENT 
NUMBER 



SET NOIND 
INDICATING 
STATEMENT 
HAD NUMBER 



• • NO 

• WAS NO USED • GLS 
• BEFORE • 

• • 2A 



IT 



• • IV 



NO 
GL7 
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1U 



! fi 



ERROR 06 

TIPLV 

"NED 



EMENT 
ER 



NUMBER 

"goto" begTn" 



• NO APPEARED • 
• IN 00 • 



YES r 

I 



i ?0 TEST FOR 
I TRANSFER 



I 

I ^ I 



• NO APPEAREO • LEADZ 
• IN I/O • 

• STATEMENT • 2B 



IV 

f ATEMfNT 



• 'format *• fKmat 

• STA " 



YES 



BEGIN 



TO IU 



83 2 



IN0ICATE IN I 

'-SYMBOL TBL I 

NO APPEARED J 

AS LABEL I 



1620 FORTRAN II -D PHASE l-B 

DECODE _£C__ 

AND ~" 
FOR 

0 MARK 



LEADZ 


28 


. SHIFT I 
OFF I 
BLANKS I 




2C 



w ?M # 

• NEXT 

YES I * 
I 



GOTO 
Gill 



GL9 
2P 



2H 



NARI 



• RIGHT PAR EN • 
• • 

YES 



i 

2H 



20 



• • NO 

* FIRST • GL8 
• CHARACTER ♦ 

• F • 2F 



YES 
GL9 



I CLEAR 
I NOIND 
I 



I 
I 
I 
I 

8 I 2F 

~SCAN~AND~~ 
ELIMINATE 
BLANKS 



• ALPHAMERIC • 



SUBT ONE 
FROM PAREN 
COUNT 



• PAREN COUNT • DECODA 
• ZERO • 

• • 2R 



• NO 
• GUI 



• LEFT PAREN • 2P 



• COMMA 

NO 



YES 

DOLOOP 



28T 



NO 

DECODA 



• LEFT PAREN • 
• » 
• • # 

YES I 

TO 2U 



PAGE 2 OF IB 

GL12 __2U^ 

•'input prom *• aIIan 

• CARDS • 
• • 22A 



I TEST fop 



TEST FOR 

mi 



GOTO 



if 05 



ASCAN 



22A 



CKCNTU 2W 
READ* CARP™" 
CONTINUE 





• 


• • 








YES I 
I 




NO I * 

1 


G0TcT~*~GL9 "" 2H 






I 


2D 


I 

I 2K 


DECODA 


2R 




2X 


• • NO 

• FORMAT • GL8 
• STATEMENT • 

• • 2F 

• * 


* 

• 

*• EQUAL 
* 

* 4 


• NO 
• GLIO 

SIGN • 2M 
* 

» — — • 


• • YES 

• RECORD MARK • GL12 
• NEXT • 

• • 2U 
» • 


•*CONTINUA- 
• TION CARD 
• 

• 


YES 


FORMAT 1«A 


YES 




NO 




NO 




GL 3 


2E 


• 


2 i» 








2Y 



• YES 

• CKl 

• 2Z 



i 



BB ASCAN 22A 

CKl _ 21 

•* * • NO 

• CONTINUE • CK2 
• COUNT • 

• EQUAL * • 38 



YES I 
I 
I 

TO 3 A 
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CK3 3G 
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ERROR 


43 


GOTO 


BEGIN 


CK2 


38 


I PLACE R/M I 
I AT END OF I 
I STATEMENT I 

! i 




3C 


I TYPE OUT I 
I STATEMENT I 
I IF SN 1 ON I 

I i 



MOVE 
BEHI 



I D 



I 3D 
# — — # 

YES • 
CKCNTU • 

2W • CUMMENF 



• CONTINUED • 
• FORMAT 

• STATEMENT • 
• • 

• • 

NO I 



I 3F 

""eliminate 
blanks and 
move behind 
previous 
statement 

"goto *"ckcnt 



2M 
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1620 FORTRAN 1 1-0 PHASE l-B 



NONARI 



mi- \IH 

• UN 



I AS 



• • NO 

• CARD • Nl 
• INFUT • 

• • AO 



AC 

t'sUn to" 



If T StSN Tl 

lf88f*WS2 



RANSFER •* AL 



• DID STMNT. 
• HAVE NO 



I 

Nl I AO 

I scantbst" 

I WITH FIRST 
I THREE CHAR 



• FIRST THREE • ERR01 
• CHARACTERS • 

• ON TABLE • AH 



I 
I 
I 
I 

I AF 



• YES 
IS STMNT. A • N3 
FORTRAN • 
DECLARATIVE • AL 



I AL 

TRANSFER I 

TO SEC LKGE I 

ING I 

. THAT I 

NS STHNT I 



FACE A OF St 



•LOCK I AN 



•LOCK 2 AF 



BLOCK) AO 



BLOCKA AR 

OUTSCICOPV) 

NON DISK- 
I/O 



BLOCKS 

UTSC( 



OUTSCICQPY) 
RETURNtlF, 

CGoVfiJcALL 



835 
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NITIAL 
NSTRUC 
IONS 



IZE 
T- 



• RECORD 
• MARK 

• NEXT 



\ I!! 



I SUBTRACT 2 

I FROM NO OF 

I CHARACTERS 

I TO BE 

I COLLECTED 



• YES 
• Alt 



CSTNO 5G 

~ sIt'up" 

RETURN 
AODRESS AT 
CSORN-l 



SHIFT OFF 
ZEROS 

COLLECT NO 
IN SYM 



NO GREATER • CS1 
THAN 9999 • 



CS2 5N 

~~set~fxorfl" 

TO 2 FOR 

FIX CONST 



SET VARSW 
TO L TO 



IN S?N§i 
FOR STf 
NUMBER 



T 

MNT. 



I SET FXORFL 
TO ZERO 



• YES 
• NUMBER 



• FIRST 
• CHAR A 

* DEC. FT. • 6K 



• *~ * *• YES 

• FIRST • NUMBER 

*• NUMERIC •* AK 

• • 

NO ~ # * 



NO 
FLC 

5Z 



CHARACTERS 
IN SYM 



Pi 

SYM 



• STATl 



NSION 
EMENT 



CSORN 5S 



.MMWBt \ nini 

• • 5U 



J 



to §u 



S^T_FX0RFL 



TWO 



to** 



TO AA 



8U 
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RACE A OR H 



FLCH3 6 

~i Movi" two" 

I CHAR TO 

| SYM 



I 
I 
I 
I 

I 6B 



66 



! 


T SET~VARSW I 


I 

! 

I 


I TO ZEI 

j mi 


10 TO I 






6H 



CHARACTER 



6A 







•*NEXT 




• ALPHAMERIC 


• 












YES 






60 






•*COUNT 


LESS 


• THAN 12 


• 




• 




NO 






6E 


! ERROR 


08 



• NO 
• FLCH4 



FLCH* 

""right 

USUI 
VMBOL IN 



6F 



JUSTIFY 
SYMBOL IN 
SYM AREA I 



• IN EQU 
• STMNT 



6J 

, F~~ 
OLLECTED 



SHIFT OFF 
COLLECT 
SYMBOLS 



SMTLU 



6K 



set varsw 
l8ok-5p 

CONSTANT 





6L 


I MOVE 
I MASK 1 
I TO COI 
I CONSTi 


N A 

ro SYM 

.LECT 

INT 











C0NS1 



INSTR 

ttf 1 



TO 6N 



FXWUMt 



] m 


.r | 


FLCH6 


6P 



• OECII 



IMAL • FLNU 

"IT • 

# 6V 







6V 



• IS 
• ATI 



NUN CRE 
£R THAN 

k ems 



FLCH7 



6Q 



• NEXT CHAR • FXNUMB 
• NUMERIC • 



• YES 
• HAVE F ♦ FLCH5 

• 6T 



FLCH5 I 6T 



i : 

I ERROR 17 I 

COTo""*"bIgTn IB 
FLCH7 6X 

I right* 

I JUHTIFV 
I NUMBER IN 
I SYM 



GOTO 
FLNU MB 



SHIFT OFF 
INSIGNIFI- 
CANT ZEROS 



• NEXT 
• NUMERIC 



• NO 

• CMPAR 

• 7B 
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7G 



I COLLECT 
I NUMBER 



I 



FLCH8 
7B 



» NO 
• FLCH9 



SYM 

"goto"* 



SMTLU 



I ADJU 
I CHAR 

; Iu& 



7C 



TERI- 
Y 

INENT 



FLCH9 70 

•*VALIO *• FL?H10 

• NUMBER • 
• • 7F 



7E 



I ERROR IB j 
""~Sto~~*~BEGIN IB 
FICH10 7F 

• • BA 

# . — • 

YES I 
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PACE 8 OF 98 



INITIALIZE 
TABLE 
SEARCH 

ADDRESSES 



VES 

SMLOOP 



TABLE ENTRY 
A CONSTANT 



A2 

VES 

FCTST • 
10S • NAME 



WAS ENTRY A • 
SUBROUTINE • 



MODIFY 
TABLE 

SEARCH FOR 
NEXT ENTRY 



SMLOOP • TABLE ENTRY 
• » SYM 
8B • 



VES 
A3 



• NEXT A 
• LEFT PA 



I 
I 
I 
I 

I 8C 



* .» 



• • YES 

TABLE ENTRY • Al 
USfcO • 

• 8F 



8J 



80 



SET DIGIT 
IN INSW TO 
INDICATE 
VAR WAS IN 
TABLE 



NO 

LUX IT 



• WAS VAR 

• DIMENSION 




IN DIM 
STATEMENT 



YES I 
I 
I 
I 

A7 I 8M 



NO 
A2 



• LOOKING UP 
• CONSTANT 



• YES 
• LITERL 



RETURN TO 
ADDRESS IN 
CSORN-l 



YES 
LUX IT 



YES 
COME 



* IN CALL 
• STATEMEN 



• IN COMMON 
• STATEMENT 



NO I 
I 
I 

TO BG 



ves 

A4 • IN 

• EQ( 



• EQUIVALENCE • 
82 • STATEMENT • 
• e 

NO 



IN COMMON 
STATEMENT 



NO 


80 




8K 




YES 


I 

a* 




NO 


8X 


* 

• SYMBOl 
• TABLE 
• 

• 


• NO 

• ADVAR 

FULL ♦ 

• 9X 

• 


YES • • 
FCTEST • WAS SYM A • 

• LIBRARY • 
11C • FUNCTION • 
• • 


YES 
LUX IT 

9A 


•*IN I/O *» 
• STATEMENT • 
• • 
• • 


NO 
A5 

8V 


• *WAS 

*• dim!nsi"on 

• 


YES 




» * « 

NO I 
I 
I 
I 

I 8L 




NO 












8E 






BS 




A4 


BY 



SET DMVAR 
TO INDICATE 
DIMENSION 
VARIABLE 
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2? 

8M 



• IS SYMBOL 
• TO BE 

• OUTPUTTED 



OUTPUT 
SYMBOL 



WAS • 
VARIABLE • 
DIMENSION • 



MOVE ADDR 
IN CSORN-l 
TO OUTSC-l 



GOTO 


OUTSC 


A8 


9E 


• • 

• WAS • 
• VARIABLE A • 

• FUNCT.NAME • 

• • 


YES 


9F 


I 0PERA1 

I 


88 


GOTO A 7* 



PHASE l-B 
9G 



• WAS VARIABL • 
• AN ARITH • 

• FUNCTION • 
• • 

• » » 



• IN ARITH 
• FUNCTION 

• DEFINE 



OUTPUT 
ARITH FUNCT 
OPERATOR 



NO • • 

SMLOOP • TABLE ENTRY • 
• A CONSTANT • 
8B • • 
• ♦ 
— _«.—_« 

YES I 



I 



9M 



luItno •'looking FOR*« 

• STMNT NO • 



YES • • 

FXLIT • LOOKING FOR 
• FIXED 
9S • CONSTANT 



YES • • 

SMLOOP • TABLE ENTRY • 
• A FIX • 
86 • CONSTANT • 



SMLOOP ♦ TABLE ENTRY * 
• - SYM • 
8B • ♦ 



9R 



SET INSW TO 
INDICATE 
CONSTANT 
WAS FOUND 



GOTO 
FXLIT 



LUXIT 



9S 



NO 

SMLOOP 



• TABLE ENTRY • 
A FIX * 

• CONSTANT • 
• • 



YES 



38. 

8B 



MLOOP • TABLE ENTRY • LUXIT 



YES 
LUXI 

9A 
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LUSTNO 9U 



SMLOOP • TABLE ENTRY • 
* A STMNT NO • 
8B • • 



SMLOOP * TABLE ENTRY 
• * SYM 
8B » 



I SET 2§R0 IN 
I STNOSW 



SET INSW TO 
ZERO TO 

j?e£ c ,* Te 

OCCURRENCE 



SET FXORFL 
INDICATOR 
IN TABLE 



9Z 



VES 

AOr 



AOL IT • NfW SYMBOL 
A CONSTANT 



840 



V 
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PAGE 10 OF It 



NQOIFY SYM 
STORAGE ADO 
BY NUMBER 
OF CHARS IN 
SYMBOL 



10B 



MOVE 

SYMBOL INTO 
SYMBOL 

STORAGE 



MOVE 
SYMBOL 
ADDRESS TO 



NO • • 

All • IN • 

• OIMENSION ♦ 

10F • STATEMENT • 



YES I 



MOVE SYMBOL 
ADDRESS TO 
NEXT TABLE 
ENTRY 



I 
I 
I 
I 

I 10F 



A12 • IN FCT OR • 

• SUBRT STMNT • 
10H • • 



10G 



Al2 » ■ l 2!! # 

SifOM #*IN 



!I- S 



12G 



• IN 

* 91' 

• STi 



MENS ION 
MNT 



10J 



LUXIT • NEXT LEFT • 
• PARENTHESIS • 



I 

I 10K 



NO 
A13 



• * EQI 
• STI 



Ul VALENCE • 
MNT • 



I 10L 
ERROR 10 



LUXIT • IN FCT. OR • 
• SUBRT STMNT • 
9A • • 



ff V /iMIMff 

MOO • • 
• • 

YES j 

I J£P__ 

I ERROR 32 



10Q 



?S T i5* T5 * 
Mi 1 



^biCATE 



.12! 

YES ' • . NO 

ASC21 • ON LEFT OF ♦ LUXIT 

• EQUAL SIGN • 
24A • ♦ 9A 



FCTST 10S 

YES • * ♦ 

A15 » NEXT EQUAL • 

• SIGN • 
10U • • 



NO 



I ERROR 09 



NAME 



i25L- 

MT1 NE 



LUXIT • IS SYMBOL • 
• A FUNCTION • 
9A • • 



YES 



SET F 
FNT 



ION 



AG AT 



GOTO LUXIT 9 

AOLIT 10X 

•* * *• YES 

• SYM STMNT • ADST 
• NUMBER • 

• • 10Z 



CONSTANT 



10Z 



ADD 4 TO 
SYMBOL LOG 
ADDRESS, SET 
STNODW TO 
ZERO 



UA 
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IIG 



MOVE STMNT. 
NUMBER TO 
SYMBOL 
STORAGE 



I 
I 
I 
I 

I I IB 



I SYMBOL 
I ADDRESS 
I IN TABLE 



IN COMMON 
STATEMENT 



• YES 
• ERR34 



• • UK 



• IN DIMEN. • ERR 34 
• STATEMENT • 



* • YES 

• ON LEFT OF * ERR34 
• EQUAL SIGN • 

* * UK 



• LEFT 
• NEXT 



NO 

ERR34 



1 1 J 

~SET~USED~~~ 
FUNCTION 
INDICATOR 



GOTO LUXIT 
RR34 IIK 
ERROR 34 

OOAFT UL 

"niuauze 



SINGST 

PAr* — 



ARAMETER 
TABLE 



• • YES 

• IN I/O • ERR34 

• STATEMENT • 



• IN SUBPROG. • • 

• • ♦! 

• • 110 

YES I 
I 

TO* UN 



UN 



• • YES 

CONTAIN • • 

RETURN • + 2 

* HQ 
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i iv, 



STRING 
BUFFER 



UP 



I 

I UV 

go~to"d(T~" 

STORAGE 
ALLOCATION 



TURN OFF 
OVERFLOW 



UR 



TYPE I 
ERROR IN 
PROGRAM 



* *2 
UT 



m8n< 

NO 
ALL 



OCAT 



_ ;AGE 
AT I ON 



.ill. 

"output'Ind" 

SYMBOL. 
DUMMY SYM, 
AND SEMI- 
COLON SYM. 



COLLECT 6 
CHARACTERS 
IN SVM 



BLOCK1 CONTAINS 01 MENS I ON, COMMON ANO FORMAT 

SETOM 12G 

• * * *• YES 

• MAS SYMBOL • DIM2 
• IN TABLE • 

• • 12Y 



12B 



• • YES 

• • BL 

• SYM*ENSION • 

• L20 



DIM I I I 2C 



SET DIGIT 
IN OIMSW 



• * NO 

• NEXT • B2 
• ALPA.H8ETIC ♦ 

• • 12M 



12H 



save Symbol i 
storage i 

ADDRESS IN I 
ADSAVE I 
I 



12J 



SET A 1 IN I 

THE SYMBOL I 

TABLE FOR I 

ONE 01 MEN- I 

SION I 



I 

I 12K 



• LEFT PAREN • DIM1 
• NEXT • 

• • 12C 



/ mi" 



• # 12M 



L20 



MOVE INDEX 
TO SYMBOL 
STORAGE 
AREA 



• RIGHT 
• PAREN 

• NEXT 



• YES 
• B5 



12S 



• NO 
COMMA * B2 

NEXT • 

♦ 12M 



iS 



YES 
B6 
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\ dim 



12U 

*• YES 
NO- • B2 
N • 
0 • 12M 



MOVE toTAL 
ARRAY SIZE 
TO SYMBOL 
TABLE 



• STATEMENT 
• END 



• YES 
• BEGINA 



Hi 

1C 



COMMA 
NEXT 



• NO 
• B2 



01 M2 



12Y 



• • YES 

• DID VAR • B7 
• APPEAR AS • 

• SUBRT. PAR • 13A 



I 
I 
I 
I 

I 12T 



MODIFY SYM 
TABLE FOR 
2 OR 3 
DIMENSIONS 



I 
I 

I 12Z 



PLACE VAR 
NAME IN 
SYMBOL 
MEMORY 



BLOCKl CONTAINS DIMENSION, COMMON AND FORMAT 

C3 _13G_ 

i i i 

i i i 

I I ERROR 32 I 

I I _ _ I 

12G j 

I 

C2 I 13H 



COLLECT 3 
CHARACTERS 
IN SYM 



13C 
• 

MON 



CI 13E 



• • YES 

• NEXT • C2 
• ALPHABETIC • 

• • 13H 



NO I 

TO 13G 



COLLECT 
SYMBOL AND 
PLACE IN 
TABLE 



• LEFT 
PAREN 

• NEXT 

• — — • — — » 
NO I 
I 



* WAS SYMBOL 
• IN TABLE 



• YES 
• COMIN 



MOVE _ 
AOORES 



COMMON 

SS TO 

NAME TABLE 



13M 

"MODI FY 
COMMON 
ADDRESS FOR 
FIX OR 
FLOAT 



YES 
C4 



YES 
C6 



YES 
CI 



13E 



COMMA 
NEXT 



BEGIN IB 
13P 



• * NO 

SYM • C5 

PREVIOUSLY • 
IN COMMON • 13R 



I 13Q 



SYM 

EQUI VALENCD 



PLACE 
COMMON 
ADDRESS IN 
NAME TABLE 



• NO 
COMMA • BEGINA 

NEXT • 

• 1C 



YES 
C6 
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13U 



SYM 

PREVIOUSLY 
IN COMMON 
m • 
• •- • 



GENERATE 
COMMON AREA 
FOR THE 
ARRAY 



PLACE 
COMMON 
ADDRESS 
SYMBOL 
TABLE 



I 
I 
I 
I 

I 13X 



COMMA 
NEXT 



• NO 
• BEGINA 



8*'l 



FORMAT 



14A 



BLOCK1 CONTAINS Dt MENS ION, COMMON ANO FORMAT 
14G 



• • YES 

• MAS STMNT • • 



NO* "j 

I 
I 

I 14B 

~~set~dIg7"~ 

IN TABLE 
TO INDICATE 
I/O NUMBER 



• HAS NO 

- 'CEO ... 
BV I/O 



• PLACED IN 
TBL " 



NO 



140 
ERROR 27 



1 46 

"clear* out" 

R/M AT END 
OF STMNT 



I 
I 

I 14F 



CHECK FOR 
CONTINUAT- 
ION CARDS 
IF USING 
CARDS 



• YES 



♦ *2 
• 14J 



NO 1 

1_14M 
ERROR 35 



FORMAT ANO 
LEFT PAREN 



14K 

"add~onI~to"~ 

PARCNTt INIT 
RECORD LGTH 
FOR FORMAT 

SPECS 



FORMl 

SH. 

BLANKS 



SHIFT OFF 
- AN " 



NEXT *A 

• — — • — 

YES I 
I 
I 



• NO 

* • 

• *2 

• 14P 




14Z 



• NEXT 
• NUMERIC • 16C 



140 



NEXT 
SLASH 



*• FORM? 
• *15Z 



NO 
F0RM2 



14R 



• NO 
• FTYPE 
NEXT • 
I • 14T 



• * 



14S 



I OUTPUT I 

I SYMBOL 

I SET DIGIT 

I IN IATYPE 
I 



GOTO F0RM3 



NEXT 
F 



• NO 
• ETYPE 




• »2 
• 14X 



NO 








14N 




! ERROR 




1 


1 




I 



OUTPUT 
E SYMBOL 



SET IATYPE 
TO ZERO 



F0RM3 I 14Z 
BLANKS 



8 45 



15A 



BL0CK1 CONTAINS DIMENSION* COMMON AND FORMAT 
15G 



• YES 
NEXT • • 

NUMERIC • +2 
• 15C 

• 

I 
I 
I 

I 



15B 





15C 


c S\b! 


!CT I 

'" ! 



T65 • • 

• • WIDTH • 

-2 • ZERO 
151 • • 



NO 


15E 


I OUTPU 
j MID 


r 

rH 



• NO 
WAS THERE • • 
MULTI-SPEC • *2 
• 15H 



GENERATE 
TOTAL 
WIDTH 



• WIDTH 

• GREATER 

• THAN 87 



• NO 
• 15K 



YES 

15J 
ERROR 35 



• DIGIT IN • • 
• IATYPE 



YES 
• 15K 



NO 

15L 



DECIMAL 
NFXT 



15M 

output"^ 

iSi- 



IfclR" 



NO 
15N 



NEXT 
NUMERIC 



COJ.J.ECT 
OUTP 



OUTPUT 
WIDTH 



I 150 



SHIFT OFF 
BLANKS 



I 15S 

"output rt"~ 

PAREN 
SUBTRACT 
ONE FROM 
PARCNT 



• FCMA 

• *15W 



I 

m IJ5T^ 

• ^"" * "" » NO 

• PARCNT • F0RM5 
• ZERO •,. 

• • 15Q 
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15U 

•*" *~ "~ ♦ YES 

• ENO OF • BEGIN 
• STATEMENT • 

• • IB 



• COMMA 
• NEXT 



• NO 

• • 

• *2 

# 15Y 



OUTPUT 
COMMA 



FORMl 
15Y 



• SLASH • FORMl 

• NEXT 



NO 
FOR 

• 14L 



F0RM7 
I OUTPUT 

I BLANKS 



TO 15N 



BL0CK1 CONTAINS DIMENSION, COMMON AND FORMAT 



FACE 16 OF 31 



• LEFT 
♦ NEXT 



16A 

PAREN *• Ihl* 



• NEXT 
• NUMFKIC 



• 15Q 



YES 
FQRM8 



CULl ECT 
NUMBER 



RM4 16G 

~ADp~l* TO 
PARCNT 
OUTPUT LEFT 
PAREN 



• NEXT X TYPE • HOLL 

• • 16K 



OUTPUT 
NUMBER ANO 
X SYMBOL 



OUTPUT I 
NUMBER ANO I 
H SYMBOL I 
I 
I 



• ENO OF 
• STATEMENT 



\'ftii» 



16P 
ERROR 35 



SETFRQ 160 



OUTPUT 
NUMBER 







goto"" 


FORMS 15Q 








160 


HOLL 


16K 




16R 


• • YES 
NEXT P TYPE • F TYPE 

» • I AT 

• • 


•*NEXT » 

• 

• 

• 


• NO 
H TYPE • SETFRQ 

• 160 

• 


• •NO 

• NEXT LEFT • FORMl 
• PAREN • 

• • 14L 

• • 


NO 




YES 




YES 


FORM* 16G 




16E 




16L 







OUTPUT 
NUMBER 



OUTPUT 
HOLLERITH 



8>i7 



COLLECT 9 
CHAR IN 
SYM 



BLOCK 2 CONTAINS-EQUIV,CONT,PSE,STOP,FUNC.SUBR,DEF. 

FQl 17G 
YES * ~" *• 



17B 

• ~ * • YES 

♦ SYM = # • 

* UI VALENCE • + 2 

• ♦ 170 



_17C_ 
ERROR 01 



"set'digTt' 



I INDICATE 
I FIRST^VAR I 



YES 



17E 

• # ?1fT PAREN 



NO 



17F 
ERROR 02 



♦ 2 
17J 



• WAS 

• PREVIOUS 

• EQUIV 



17H_ 
ERROK 17 



YES 
EQ21 

*17R 



• YES 
• E021 



17J 

T 

YMBOL 



COLLECT 



TABLE AND 
SAVE ROOM 
FOR OFFSE" 



• • YES 

• WAS SYM IN • • 

• TABLE • *2 

• • 17M 



17L 



• VAR A • • 

• FUNCTION • *2 

• NAME • 17T 



ADD 5 TO 
NXLOC TO 
SAVE R0Q7 



..... -IZL 

ERROR 11 



EQ21 
17M 



17R 



• WAS VAR • Eoll 
• DIMENSIONED • 

• • 17R 



YES • 



*-i s ffiUH \ 

ITS • • 
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17U 



YES • 

EQ7 • FIRST VAR 

• IN LIST 
18U • 



• • YES 

• VAR HAVE • • 

• SAME MOOE • +3 

• • 17Y 













NO 




EQR 17D 


• . 


l7K » 


EQ21 


17R 




17X 



• *2 
• 17Y 



• • YES 

• WAS VAR • EQ22 
• PREVIOUSLY • 

• EQUIV • 16R 



• VAR IN 
• COMMON 



• YES 
• EQ24 



TO ITN 



TO X7U 



848 



BLOCK a COMTAU$-fOUIV,COHT,PSI,SW,FUI*CtfUt*,B*F. 



• PREVIOUS • • 

» VAR IN • *2 

• COMMON • ISC 



NO 



ISB 

• NO 
• MAS PREV • E07 
• VAR EQUIV 



YES 



! ERROR 13 



EQ24 I BO 



VAR. 

OIMENSION 



YES • 



EQ4 
• END 



OF 



• YES 
• EQL 



LIST • 19C 
NO I 



18F 



• COMMA 
• NEXT 



• YES 

• EQl 

• ITC 



ERROR 02 



ISN 



/ mi 



• *2 
ISM 



ERROR 05 



Iff 



• PREV VAR • 
• DIMENSION*© • 



UN 



IBf • • 



I ISP 

i5 /aw/* \ 



I_ISQ 

OP NEW 
VARIABLE 

"C0T0~"*~EQ™ 



EQ22 

™5as"p*Iv"" 7 
var equiv 1 

• V !*-! - 2 _ 1 
™ SBO •"-™~~ 



_18S_ 

I "*PRfv"vI*""" 
I IN COMMON 



vis 



13 



PMC It OP IB 



est 

f im"5T 

Oft 



VAlIiftLS 



• Til 



.'hukm v.* 

• • I If 



NO 



i isx 

U T t8l ;5?r 



GOTO fS4|M> 1BJ 
ISV 





ES+I10 ^ 


!... 



isc • . • 



TfS 



TO 1 AG 



TO ItA 

849 



BLOCK 2 COMTAINS-E04JlV,CONT t PSI,STOP,PUNC.SUBftrOCP- PAGE IB OP IS 




BLOCK 2 CONTAlNS-EQUlV,CONT,PSE,STOP,FUNC,SUBR»DEF. 
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_20A_ 

ERROR 01 



OUTPUT 
DUMMY SVM 



• • YES 

• RECORD MAKK • BEGIN 
• NFXT • 

• • IB 



• • YES 

• NEXT • • 

• NUMERIC • +2 

• • 20F 



I ERROR 


53 I 


GOTO 


BEGIN 




20F 


OUTPUT 




NUMBERS 


GUTO 


BEGIN 



STOP 20G 

Sharon svm 



20N 



YES I 
I 
I 
I 

I 20J 

I OUTPUT I 

I STOP I 

I SYMBOL I 

I GOTO« P I 

* 

I 



FUNCT I 20K 

C0LLECT~6~ 
CHAR IN SYM 



20L 



• • YES 

• SYM = • • 

♦ NCTION • +2 

• • 20N 



NO I 
I 
I 



SET UP TO 
OUTPUT 
FUNCTION 
SYMBOL 



20P 



1 N 
PROG 



♦2 • SUBPROGRAM 
OR • 

c * » 

YES 



SET FLAG I 
IN SUBRCT 
TO INDICATE 
SUBPROGRAM 



SUSP 20S 

C0LLECT~8~~ 
CHAR IN SYM 



• * YES 

• SYM * ♦ • 

» BROUTINE • *2 

• • 20V 



20U 
ERROR 01 



20V 

SETUP To"""" 

?UTPUT 
UBROUT I NE 
OPERATOR 



20W 

• " • NO 

IN • • 

SUBPROGRAM • +2 
• 20Y 



20Y 



SET SUBRCT 
TO ONE TO 
INDICATE 
SUBROUTINE 

I 
I 
I 

XX2 I 20Z 



FIRST 
STATEMENT 



851 



♦ 3 
21J 



21A 



BLOCK 2 CONTAlNS-EQUIV,CONT,PSE,STOP,FUNC,SUBR.DEF. 
21G 



SET SUBSW 
TO ONE TO 
INDICATE 
SUBR OR FCT 
STATEMENT 



♦ 2 
210 



„ 210 
OUTPUT 
SUBROUTINE 
OR FUNCTION 
OPERATOR 
AND NAME 
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FUNCTION 
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• PAREN 

* NEXT 
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• • 
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• • 
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I 
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OUTPUT 
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21Q 
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-2 
21T 



-A 
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22F 
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r 
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22H 
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I" 
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"H 
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22K 
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22L 
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i 
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I 
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« 




-1! 


22Q 
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MINUS 

SIGN 


ZJ 


NO__«> 




vis 


22R 


I OUTPuf I 


GOTO 
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22S 


• • YES 
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• PLUS • -3 

• SIGN • 22P 
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• PAREN 
• 


22T 
. • 

• NO 

• • 

• 22V 

• 


• 
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i— — • 

L 
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AK23 M 12U 
" fTO* 




• # 22X 
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22X 



• • NO 
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NO 
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I 
I 



NO 

ASC7 I 23B 

• • YES 

• I* § A kL • CALL2 
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• • 37X 



23C_ 
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|ND.OF 
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• BEGIN 
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_23E_ 

"ERROR *3t 
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T0 ! 23G 
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• NEXT 
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• PAREN 
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N 



*22U 



• *2 

23L 



YES 



23K 
SIGN 
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23L 



•' Mb* 
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• *2 



YES I 

I 

1 23M 

""OUTPuf """"' 

?IVIDE 
IGN 

"g0T0""*"aSC24~ 



• •NO 

• NEXT • ASC25 
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• SIGN • 23T 



_23P 

•* Allowing 
• multiply 



T outpu 

| EXPOTI 


230 

NTIAL j 


GOTO ASC24 
23R 


I OUTPU 
| MULTII 


r i 

»LY I 


ASC24 


23S 



•*NEXT *• a!?3 

• ALPHAMERIC • 
• • 22Y 
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• *2 
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_23U_ 
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OUTPuf I 

RIGHT I 

PAREN t I 
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FROM PARCNT I 
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• 23V 



— — -£2f- 
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• PARCNT 
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22T 
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ASC2S 23T^ 
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OMM 

TO ZERO 



TABLE 
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I 
I 
I 
I 

I 24E 



OUTPUT 

ARITHMETIC 

STATEMENT 

DEFINITION 

OPERATOR 



OUTPUT 

FUNCTION 
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SET 
PCNT 

is m 

PARAMET 



RO 

'1NT 
ERS 



I 

I 24H 

• • NO 
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• OF STATEMEN • *2 

• T • 24K 




• NEXT 
• ALPHA 



• NO 

• • 

• -I 

• 24J 



24L 



1 COLLECT 

I ANO 

I OUTPUT 

I PARAMETERS 

I 



PARAMETER 
VALID 



• -3 

24J 



A^tiSlSK IN 

itttE«ii? 

PARAMTER 



♦ 2 
24W 
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TO PCNT 



240 



• • YES 

• RIGHT « • 

• PAREN • *3 

• NEXT • 24T 

• • 
• 



• COMMA • • 

• NEXT • -7 

• • 24J 




• — — 

*NEXT 
QUAL 
IGN 



RIGHT PAREN 
MOVE PCNT 
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VES 



• SUBPROG 
• FUNCTION 
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24V 

• *26S 
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PARAMETERS 
FOR ARITH 
STMNT FCT 
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I OUTPUT 

I LEFT 

I PAREN 
I 
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25G 



SET UP 

TEMPORARY 

PAREN 

COUNT 



• NEXT 
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• SIGN 



• NO 

• +2 
• 25D 



I OUTPUT 
I UNARY 
I MINUS 



• NEXT 
• PLUS 

• SIGN 



• +2 
• 25F 
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25E 

SHIFT OFF 
I NG 
SIGN 



NEXT 

ALPHAMERIC 



• OECIMAL 
• POINT 

♦ NEXT 



♦ LEFT 

* PAREN 

• NEXT 
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ASC27 
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* *2 



25J 
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I 
I 
I 
I 
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OUTPUT I 

LEFT PAREN, I 
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TEMPORARY 1 
PAREN COUNT 



GOTO 


*~A$C12 
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25L 


SET 
DIGIT 




l 

CALLS* 




25M 
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I OU?PUT { 
| SYMBOL j 


J 


- 



• CALL FUR • • 

• ARITH STMNT • *3 

• FCT • 25R 



SUBT ONE 
FROM NO OF 
PARAMETERS 



25Q 



• • YES 

• NOPRAM • • 
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• • 25Q 
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• VARIABLE • 

• FCT NAME ♦ 25T 



25S 
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PARAMETER 
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• 25V 
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I OUTPUT I 
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26K 
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26B 



23F 
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PAREN COUNT 



26C 
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• T PARCT 
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• NEXT 
• COMMA 
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ATI MINT • 24J 



VIS 
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! 


26 J 


I SET DI( 
j IN FNT 
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goto""* 
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• 


26K 
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• IN • • 
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• FCT CALL • 26N 



26L 
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ASC7 



_i*!U 
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I SUBPROGRAM 
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• NUMERIC 
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fS T o8'" s- 
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• 




• 
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27F 
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27M 
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27J 




• 


• 
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• 
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• 


• 
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27K 
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• 


• ALPHA 




• 


• 


• 


• 
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YES 






27L 
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27M 
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•*NAME 


• 


• FIXED 


• 


• 


• 


• 


• 
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TO 
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YES 



I_27Q _ 

i siT~id22 1 
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• EQUAL RE AO * *2 
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TO 


OUTPUT 
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28G 

SET UP~TO~~ 
OUTPUT 
PRINT 
SYMBOL 



Zl 
28H 



• DOES SYM • • 

• EQUAL TYPE • *2 

• • 28K 



28J 

SET UP TO " 
OUTPUT 
PRINT 
SYMBOL 



• DOES SYM • • 

♦ EQUAL ACCE • +2 

• • 28F 



SET UP 


TO 


OUTPUT 
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TAPE 


SYMBOL 




GOTO 


CK tape 
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• OOES SYM 
• EQl 



•UAL PR IN • +2 
• 28H 



28K 
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• OOES SYM * • 

• EQUAL PUNC • +2 

• • 28M 
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I 

I 28L 



28M 
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OUTPUT 

PUNCH 

SYMBOL 
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• CHARACTI 
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28N 
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I 
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• 28L 
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28U 
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28V 
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• EQUAL DO • 28Y 
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28X 
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Zl I 28S 
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YMBOL 



OUTPUT I/O 
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• ♦ — — • 
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• • YES 

• NEXT • • 

• NUMERIC • *2 

• • 29C 
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12 29G 
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OUTPUT ~ 



29H 

T~AN 

DO 



• IS INOEX • Z2 
• FIX POINT • 

• • 29G 



29K 

•* *~ *• NO 

• IS EQUAL • Z2 
• SIGN NEXT • 

• • 29G 
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I 
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I 
I 

I 29E 




29L 



• IS NEXT • Z2 
• ALPHMERIC • 

• • 29G 
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DOA 29F 




29M 
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• NEXT • • 






• ALPHABETIC • +2 


INITIALIZE 


• • 29H 


INDEX 
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TO 29G 


TO 


29N 



• IS INDEX 
• VALID 



IS COMMA 
NEXT 
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OUTPUT 

COMMA 

SYMBOL 



• IS NEXT 
• ALPHMERIC 
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IUTPUT 
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29S 
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30G 
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Z4 

• 29Z 
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30C 
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• • NO 

• IS INOEX • Z4 
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• • 29Z 



I 

I 30k 



• IN I/O 
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• I OF 
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• iNjO OF • BEGIN 
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• • IB 
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BEGIN 
30H 
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• 30K 
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ERROR * 26 



INDICATE 
I/O 
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I OUTPU 
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I NUMBE 



IUTPUT 
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SET FORMAT 
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• NEXT • *2 
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• IS LEFT 
* PAREN 
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• YES 

• + 2 
• 31B 
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• NO 
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IOE 31J 
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I 
I 
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• EQUAL SIGN • 
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I OUTPUT I 
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I 
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GOTO 


100 




32C 
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I 
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I 
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I 
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• VALIO LIST • DKB1 
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| 
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• 


GOTO OKO 
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; 
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I 
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DKG 34R 

PARCNT ♦ I I 
DKLOOP ♦ I I 



_34S 
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NO 

— 350 
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_ 
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35V 

• • • 

• • NO 

• WAS NUMBER • • 

• PLACED IN • *2 

• BY I/O • 35X 



YES I 



35W 
ERROR 17 



• IN COMPUTED • 0UTSN2 
• GOTO • 

• • 36F 



• i 

NO 


35Y 


SUBT ONE 
FROM 

STATEMENT 
NUMBER 




352 



• £9W*t • • 

• greater • ♦! 

• THAN 2ER0 • 3*£ 



811 



♦ 2 
16E 



36A 



BLOCK 6-C0NTAIn$-0UT5C (COPY) t RETURN* IF, IFSS, GOTO. CGOTO. CALL 

36N 



• • YES 

• STATEMENT • BEGIN 
• END • 

• • IB 



BEGIN 

36C 



• • NO 

• FND OF • CUTSN 
• STATEMENT • 

• • 3!>R 



YES 

36E 
ERROR 15 



I 
I 
I 
I 

OUTSN2 I 36F 



• NEXT 
• RTPAREN 



36G 

~SUBT ONE 
FROM PAREN 
COUNT OUT- 
PUT RTPAREN 



-2 
36J 



• *2 
• 36K 



36K 

COLLECT AND 
OUTPUT 
INDEX FOR 
COMPUTED 

GOTO 



• WAS INDEX 
• VALID 



END OF 
STATEMENT 



YES BEGIN 

NO I 
I 
I 



ERROR 53 
'GOTO~~*~BiG7N~ 
)TO _36P 

"shift* OFF~~ 

GO AND 
COLLECT TWO 
CHAR INSVM 



• SYM EQUAL • • 
• TO TO • ♦ 



SET TRIND 
TO ON 



• END OF DO 
• LOOP 



PAGE 36 OF 31 
34U 



ERROR 51 



• LEFT PAREN 
• NEXT 



• YES 
• COMPUT 



SET STC 
TO ONE 



COMPUT 36X 

output's™" 

FOR 

COMPUTED 
GOTO AND 
LPAREN 



GOTO 
CALL 



OUTSN 
36Z 



COLLECT 
TWO 

CHAR IN SYM 





36Y 


I SET D 
IN CG 
TO INI 
COMPU 

I GOTO 


GIT 

ro 

)ICATE 

rED 



867 



BLOCK 6-C0NTAINS-0UTSC (COPY), RETURN, IF, IFSS, GOTO, CGOTO, CALL 
37G 



PAGE 37 OF 38 



♦ • YES 

• SYM EQUAL ♦ • 

• LL • +2 

♦ ♦ 37C 



• • - • 



37C 



SET CALLSW 
TO ONE 
OUTPUT 
CALL 
SYMBOL 



I 



NEXT 
ALPHA 



• YES 



♦ WAS NAME 
* IN TABLE 



• YES 

• +2 
• 37J 



I 
I 

I 37H 



OUTPUT 
FUNCTION 
OF'ERATOR 
SET TBL I NO 
FOR FST NAM 



37J 



• • YES 

• WAS NAME A * • 

• FUNCTION • *2 

• • 37L 

• • 
• * • 

NO I 
I 
I 
I 

I 37K 



37L « 
TATEMENT 



• END OF 

• S — 



• YES 
• BEGIN 



•- 

NO I 
I 



37N 
ERROR 29 



OUTPUT 
LPAREN 
ADD ONE TO 
PARCNT 



YES ♦ 

• ♦ RIGHT 

-2 • PAREN 

37N • NEXT 



NEXT 
ALPHA 



_YES_» _ 2 



GOTO 

IFSCAN+12 
IN BLOCK 3 





37U 




• • 

• WAS VAR AN « 
• ARITH FCT 

• NAME • 

• • 


YES 
ASCII 

» 

26S 


NO 


37V 




• *WAS VAR *• 
• SUBRT NAME 

* • 
• • 


NO 

CALL2 

• 

37X 


YES 


! 

37W 




ERROR 


29 




CALL2 


37X 




• • 

• COMMA • 
• NEXT 

• • 

• • 


NO 

• +2 
37Z 


YES 


37Y 





OUTPUT 
COMMA 

GOTO» 



37F 

t"ano" 



COLLEd 

?UTPUT 
UBROUTINE 
NAME 



LEFT 

PAREN 

NEXT 



• YES 
• *37P 



ANO L OUTPUT 
SYMBOL 



NO 
• ASCI 



• RIGHT 
• PAREN 

• NEXT • ?3F 



8C8 



BLOCK 4-C0NTAINS-0UTSC (COPV)t MTURN, IF, IMS, GOTO, CCOTO, CALL 



PAGI SI OP II 



_3IA_ 

OUTPUT " 
RTPAREN 
SUIT ONE 
FROM PAREN 



COUNT 



38B 

•* " *• YES 

• PAREN COUNT • • 

• EQUAL TO • *3 

• ZERO • 38E 



38C 

l" END OF 

I STATEMENT 

I NO CALL2 



38E 



• • YES 

• END OF • BEGIN 

• STATEMENT • 



I 38F 
ERROR 29 



869 



E86440_ 1A 

• NO 

iUB"PROG *»**3 
• ID 



1620 FORTRAN II-O PHASE 1-C STORAGE ALLOCATION 
1G 



• IN A 

• SU~ ~ 



• PROG 
• CONTAIN 

• RETURN 



• +2 
• ID 



•— — « 
NO 


i— — • 

1C 


ERROR 58 




10 


1 I*PE • 

Jar* 
1 ml 


4ESSGE I 
IWI ON I 
fMBOL j 

'start 1 



IF 

TO SACN SYM 



ASSIGN 
CONSTANTS 



ASSIGN 
NO 



E872ip_ I 1 
IN 

SUB PROG 

• • — — 

NO 



• IN 

• SU~ 



• YES 
• E92210 



SET TBASE 
EQUAL T(^ 

beyonB N last 

LIB FCT ENT 



WWH- 



EI7310 


1M 






n 









• YES 
• E93010 



• HAS ENTRY • E87310 
• BEEN • 

• ASSIGNED • IM 

— • — — » 
NO I 
I 



1Q 



• SUB PROG • E87310 
• CA 



CALL NAME 



IR 



• Cr 



• NO 
• E8" 



VAR • E89820 

~N • 
OHMON • 3A 

— • • 



• • YES 

• VAR • E87670 
• DIMENSIONED • 

• • 2A 



• VAR 
• VALENC 



» YES 

§8 UI ~ \ E8966 ° 

♦ 2V 
~X2 IU 



PAGE 

1U 

LN 
OR 



FLOAT WORD 
LEN 





IV 


PLACE 
ADDRESS 
SYMBOL 
TABLE 


IN 


! 

I 
I 
I 



TYPE 

"~DRE._ 
SWl ON 



ADDRESS^ 



• FLAG 
• AT 

• OUTCE 



• YES 
• E91250 



• FLAG AT • EI8470 
• E89460 PLUS • 

2G 



NG 



• FLAG AT • eI!*70 
• E 89640 • 

• • 2G 
• • 

NO # ~Ei7310 1M 



870 



1620 FORTRAN II-O PHASE l-C STORAGE ALLOCATION 



PAGE 2 OF 3 



• WAS 

• ARRAY 

• EQUIV 



• YES 
• E88420 



MOVE 

OBJECT TIME 
AOORESS 
INTO TABLE 





2C 


1 MOVE 




I DIMENSIONS I 


I INTO TABLE I 



TYPE 
ACDRESS 
IF SWL ON 



SET FLAG AT 
E89660 PLUS 
I 



CALCULATE 
TABLE r~ 
NUMBER 



2G 
E 

REF 



SCAN TABLE 
FOR VAR 
EQUIVALENCE 
TO TABLE 
REF NUMBER 




GOTO 


E89740 


IX 


YES 




E88420 


2E 




E89610 


2L 


♦*IS VAR 
• EQUIV 1 
• 

• 


• 

THE • 

JASF 


NO 

E90620 
2P 


I RESTORE I 
I AOORESSES I 
I TO CONTINUE I 
I SCAN FOR I 
I OTHER VAR I 


YES I 
I 






I 
I 


I 
I 
I 


2F 






2M 



FLAG 

AT TELSW 



NO 

E87310 



2N 

LAG 
TELSW 



CLEARFLAG 



• BASE AN 
• ARRAY 



YES 
XJ 



SAVE TABLE 
AOORESSES 
TO SCAN 
AHEAD FOR 
EQUIV VAR 



SET UP BASE 
REF NUMBER 



IS VAR 
THE BASE 



— • • 



♦ 6 
2W 



BASE 



I 2W 

"scan" TABLE* 
TO FIND 
EQUIV VAR 
WITH MOST 
NEGJDFFSET 

! 
I 
I 

I 2X 



END OF 
TABLE 



• BASE IN • E91320 
• COMMON • 

• • 2V 



IS VAR THE 
EQUIV BASE 



NO 

E90620 



SET FLAG 
AT OUTCE 



SET FLAG AT 
E89660 



871 



1620 FORTRAN 1 1 -0 PHASE l-C STORAGE ALLOCATION 



• • YES 

• WAS VAR • E90620 
• EQUIV • 

• • 2P 



NO I 
I 
I 
I 

I 3B 

• * * YES 

• IS VARIABLE * E90010 
• AN ARRAY • 

• • 3D 



ASSIGN ADD 
TO VARIABLE 



FOR ARI 



RAY 



ASSIGN AOO 
FOR ARRAY 

TYPE AOD 
IF SWL ON 



• FLAG AT 
• TELSW 



HItm 

• 1M 



» FLAG AT • E87310 
• EQRET • 



YES E91810 3K 



3H 



RESTORE 
SCAN ADD 
AND RETURN 
TO OUTPUT 
EQUIV VAR 



GOTO 



X3 



RESTORE 
SCAN AOO 

imtt 



ill 



UF OFF- 
ANO 

_.URN TO 
OUTPUT 
EQUIV VAR 



.'WMnit v., 

• • 3Q 



SET FLAG 
AT TELSW 



SAVE TABLE 
ADDRESSES 



SAVE AOD 
OF BASE, 



ASSIGN 
STORAGE FOR 
FUNCTION 



— 3S 

lpC» "~ 

IF SW1 ON 



3T 

. jES 

UMENT *»**2 
• SV 



PAGE 3 OF 3 
3U 



ASSIGN 

ADDRESS 

FOR 

ARGUMENT 



3V 



I SET TBASE 

I TO LAST ARG 

I ADDRESS IN 

I TBL. RTN TO 

I OUTPUT VAR 



GCTO 



XI 



3W 



SCAN FOR 
ANY CALLEO 
SUBPROGRAM 
AND OUTPUT 
CALL REC. 



GCTO PHASE2 ••• 



872 



1620 FORTRAN lf~0 



PHASE 2 



FACE 1 OF t 





JUST 




R I 


CLEAR 


IB 


• • Y 

• HAS DO • C 
• SWITCH • 

• BEEN SET • 

• • 


NO 




• 


IC 



CLEAR 
SWITCHES 
AND STRING 
MEMORY AREA 



ID 

PUT INPUT 
SYMBOLS ON 
STRING AND 
CLEAR 

TEMPORARIES 





COOES 



IN 



BRANCH TO 
WHATEVER 
CODE IS 
INOICATEO 



INCREMENT I 
THE I VALUE I 



I BY ONE 
I 
I 



IM 

OUTPUT 
STATEMENT 
NUMBER 
ADDRESSES 



• A 00 t 
• 

• » 


rnis • c 
• 


YES 






IF 


wins 



ADJUST 



KFNT 




MtFCT 







• — — t 
YES 




L3 


IK 




1R 



OUTPUT 
BRANCH- 
AROUND 
CODING 



SETFCT I IS 

1 STATEMENT 

I ADDRESS IN 

I SYMBOL 

I TABLE 



NO 

EXIT 



• IS THIS A 
• FORMAT 

• STATEMENT 



YES 

CODE 17 




OFSR 



IV 



GENERATE 

maw 

OPERATOR 
SYMBOL 

. 

1 
I 

I IW 



FIxio'fcofNT 



♦2 
IV 



• — 

NO 


i • 

! 




\ u 


I DECREMENT 


I AODRESS TO 


I PREVIOUS 


I ENTRY 






IV 


~~ RE MOV 


I 



ENTRY FROM 
TABLE AND 
RETURN 



12 



GENERATE 
TABLE LOCA- 
TION FROM 
SYMBOL 



TO IN 



an* fl 



1620 FORTRAN II-D 



GET OBJECT 
TIME 
ADDRESS 
FROM TABLE 



SET FXORFL, 
DMSW. COMSW 
AND PI 
FROM TABLE 
AND RETURN 



FORCE _ 2C 

GENERATE 
LOCATION 
FOR LEFT 
SYMBOL 



I 
I 

I 2D 



FROM T 



VALUE 
TABLE 





2E 


""fix 

FROM 1 





SYMBOL 
■.■■■ «t— 

J . 




REMOVE 

RIGHT V 

FROM TABLE 



• • YES 

• # SX SSeaVeR° *»**2 
• THAN LV • 2K 



?S T zi88 e 



iS?8 

RETURN 



GETX 2L 



• • 2N 



YES 


t m 


pis 









PICK 

1ST 



OFF 
._. SYMBOL 
AVAILABLE 
AND RETURN 



OPEN STRING 
FOUR 

LOCATIONS 





20 


PLACE NEW I 
SYMBOL AT 
END OF 
STRING AND 
RETURN 


BB 
RMNS 


2R 


I SET RMSW I 
I SWITCH TO I 

! Lt 1 


GOTO 
GTNS 


RGR 

25 




GOTO 
RFNS 


RGR 

2T 


SET RFNS 

| S jtch?o 


TO 


1 

2U 



PAGE 2 OF 9 
RGR 2U 



I CETERMI 
I LOCATIO 

j IttSSo 



DETERMINE 
"ION OF 
■ ON 



• NO 
• REMGET 



MOVE NEW 
SYMBOL INTO 
PLACE OF 
OLO ONE AND 
RETURN 



REMGET 2X 

j" us lm~ 

I 

I 



• IS RMNS 

• SWITCH SET 



• NO 



21 



IUR 
URN 



873 



1620 FORTRAN I I-D PHASE 2 



PAGE 3 OF 



RETURN TO 
MAIN PART 
OF PROGRAM 




SEARCH FOR 
FAC ON THE 
STRING 



IS THERE A 

TEMPORARY 

AVAILABLE 



YES 
■ • 



I SET FLAGS 

I WHERE 

I INDICATEO 

I FOR RELOCA 



BUFFER FULL 



GENERATE 
A NEW 
TEMPORARY 



3E 



OUTPUT 
INSTRUCTION 
TO STORE 
FAC IN THE 
TEMPORARY 



3F 



REPLACE FAC 
ON STRING 
WITH THE 
TEMPORARY 
AND RETURN 



MOVE 
OUTPU 
ANO RETURN 



OUTPUT 3 
SECTOR 
BUFFER LOAD 



INITIALIZE 

OUTPUT 

ROUTINE 



PUTNXT-H 3K 



PICK-UP 

2!!nsVant 



GOTO 



PUTNXT 



3P 



3J 



PICK-UP 
LOAD 

AOORESS AND 
DSA ADDRESS 

~G0 TO # ~PUTNX T~ 



10 

THE FOLLOW- 
ING CODES 
ARITHMETIC 



IS OPERATOR 
AN EQUAL 

SIGN 



YES 

CODEIC 



C00E1C 



• FUNCTION ♦ 



YES 
FCTIE 



• ARE BOTH • • 
SIOES SAME 



• MODE 

•- 

NO 



• *2 
3X 



OUTPUT FIX 
TO FLOAT OR 
FLOAT TO 
FIX CODING 



• IS SENSE • • 
• SWITCH 2 ON • *2 



NO I 
I 
I 
I 

I 3S 

* * • YES 

IS OPERATOR • CODEID 
AN EXPONEN- * 
TIAL • 4A 

• • 
• • • 



3T 



OUTPUT ADD, 
SUBTRACT, 
MULTIPLY OR 
DIVIDE 
CODING 

goto" 



CODING TO 
TRACE THE 



OUTPUT 
CODING TO 
STORE THE 
RESULT 



EXIT 



1620 FORTRAN I I-D PHASE 2 



OUTPUT 
EXP CODING 



4B 



OUTPUT 

STATEMENT 

FUNCTION 

RETURN 

CODING_ 

~GOTO CLE 



• IS IT AN IF * C0DE7 
• STATEMENT * 



I REMOVE 
I PARENS 



OUTPUT 
FUNCTION 
LINKAGE OR 
REMOVE 
PARENS 



• IS IT A • • 

• HORARY • +2 

• CALL • 4F 
• • 

*— — • 

YES I 



OUTPUT 

SUBPROGRAM 

LINKAGE 



I 

I 4K 



IS IT A 
CALL 

STATEMENT 
NO EXIT 
YES *~CLEAR~ 



SUBROU T I 
L INKAG6 



GOTO EXIT 



4L 



OUTPUT RE- 

FOR UNARY 
MINUS 



• IS IT A • CODflV 
• SUBPROGRAM • 

• CALL • 4J 
t • 

«._-•-...« 

N ° j 

TO 4G 



OPERATOR 



PAGE 4 OF 



♦ IS THE • • 

• VALUE IN • *2 

• ACCUMULATOR • 40 



YES I 
I 
I 
I 

C0DE4A I 4P 

output" 

RVSN 

INSTRUCTION 



4Q_ 

"output 
instruction 

TO PLACE 
VALUE IN 
ACCUMULATOR 



ASSIGN 1 
TO CALLSW 



nam! 



COLON 



• NO 
• EXIT 



ASSIGN 1 
TO CALLX 



4V 

OUTPUT 
VARIABLE 
SUBSCRIPT 
CODING 



• IS IT 
• SINGLE 

• SUBSCRIP 



• FORMAL PAR- • • 

• AMETERS OR • *2 

• ARITHMETIC • 42 



QUTPU 
L INK AG 



"out put 



ON 

ex7t~ 



875 



1620 FtJUTMN 11-0 PHASE 2 



• IS IT • • 

• OOUBLE • +2 

• SUBSCRIPT • 5C 



YES I 
I 
I 
I 

I 58 



OUTPUT 

tuiisc'RIPT 
LINKAGE 



EXIT 
5C 



TRIPLE 

SUBSCRIPT 

LINKAGE 



50 

OUTPUT COO- 
ING FOR GO 
TO, STOP, 
PAUSE, AND 
END 



C0DE6 I 5E 



• • NO 

• OPERATOR * • 

• EQUAL TO • *2 

• GOTO ♦ * 5G 



OUTPUT 
BRANCH 
INSTRUCTION 



• QPERATQ 



16 

NO 

R • • 

0 • *2 
• 5J 



WIWieWK 



5J 

• * • YES 

• OPERATOR • • 

• EQUAL TO • *2 

• STOP ♦ 



• 5L 



END, OUTPUT 
A HALT ANO 
BRANCH TO 
MCNCAL 



5L 



OUTPUT 
INSTRUCTION 
TO TYPE THE 
WORD STOP 



I _5N_ 

"output'a 

HALT ANO 
BRANCH TO 
MONCAL 



COI 



JTPUT IF 
ATEMENT 
OOING 



C00E7 I 5P 



• • YES 

• IF SENSE • C0DE78 
• SWITCH • 

• STATEMENT • 52 



• IS SENSE • • 

• SWITCH 3 ON • *2 

• • 5S 



• • NO 

• IS THE • • 

• VALUE • *2 

• FIXED POINT • 5U 



OUTPUT 
FIXED POINT 
IF TEST 



PACE 9 OF 9 
5U 



GOTO 



OUT PUT 
CONFUTE 
GOTO CO 

} 

I 
I 



ED 
COOING 



NSTANT 
ON STRING 



I 
I 
I 

I 5X 



OUTPUT 

COMPUTATION 

CODING 



OUTPuf 
BRANCH AND 
ADDRESSES 



C0DE7B 5Z 

OUTPUT IF "~ 
CH TEST 



SENSE 
SWITC 



1620 FORTRAN II-D PHASE 2 



PAGE 6 OF 9 



OUTPUT 
FORMAT 
SPECIFICA- 
TIONS 



I 
I 
I 

C0DE17 I 68 



SAVE REDO 
ADORESS IN 
REP3 



CD17A__ I 6C 

remove"! 

" FL_. 

RING 



RENOVE NEXT 
SYMBOL 



•*IS THIS *• llll 
• X TYPE • 



• IS THIS 
• L PAREN 



YES 
C0170 



YES 
C017E 



SAVE 





6K 


i i 


GOTO 
C0I7E 


C017B 
6L 






L 






.. 



I SAVE 

I FREQUENCY 

I IN FREO 2 




• IS THIS 
• SLASr 



6U 

* *• YES 

* IS THIS • CD17J 
• A TYPE • 

• • 7G 



NC I 
I 



• • YES 

• IS THIS • C017K 

• I TYPE 



Sit 

• 7H 



• • YES 

• IS THIS • C017L 

• F TYPE • 



• • YES 

• IS THIS A • CD17SC 
• SEMI-COLON • 



NO 



6Y 



• • NO 

• IS THIS • C017A 
• L PAREN ♦ 

• • 6C 



GOTO C017A 



877 



1620 FORTRAN 1 1-0 PHASE 2 



PAGE 7 OF 9 



• NO 

CDl 

6C 



YES j 
1 



OUTPUT 
REPEAT 
COOING 



i 7. 



GOTO 
CD17H 



C017A 

7C 



OUTPUT 
E TYPE 
COOING 



I 
I 
I 
I 

I 70 



C017N 

•*IS FREQ 1 
• FULL 



• CD17A 

• 6C 



I OUTPUT I 

I COD?NG f 

I I 

I ^ I 

GOTO CD17A 6C 



C017J__ 7G 

OUTPyf"""~ 
H TYPE 
COOING 

~~GOTO~* 

CD17K 



C017N 
7H 



I TYPE 
COOING 



OUTPUT 
f TYPE 
CODING 



GOTO C017N 
C017SC 7K 



I OUTPUT 
I RE 00 

I CODING 



I 



I OUTPUT 




ADJUST I 


I REPEAT 




AOCQW I 


I COOING 




FILL IN I 






JUMP I 






ADDRESS I 


GOTO CD17A 


6C 


"goto CLEAR 


C017I 7F 




FCTRT 7M 



OUTPUT 
SUBPROGRAM 
RETURN 



70 



7N 



C0DE1A I 

OUTPUT 
BRANCH Tl 
10 ROUTII 



CD1JA __7Q^ 

• • 8D 

• • 

• • 

NO I 
I 



♦ IS SL EQUAL • CODOA 
• TO OOA 



• YES 

CODO 

8C 



• • YES 

• IS SL EQUAL • CODEPA 
• TO L PAREN • 

• * 7Z 



• • YES 

• IS CMSW ON • CODARR 



7U 

TPUT 
- E VAR. 



GCTO 
CODARR 



COIAA 

7V 



7Q 



• • 8E 



Hit 



I 
I 
I 

i TX 



NO • • YES 

CODESS • IS • CDSSA8 
• SUBSCRIPT • 

4W • ABSOLUTE • 9D 



OUTPUT 

DIMENSION 

VARIABLE 

TO 10 



CODEPA _ 7Z 

l"~ DETERMINE 

I LOOP 

I INOICIES 

I 

I 
I 
I 

TO 8A 

878 



1620 FORTRAN II-D PHASE 2 

CDCALL 8G 



* CALL EXIT 
• STATEMENT 



GOTO 
CD14E 



PLACE OOA 
ON STRING 



iii. 



CD MNP _ 8D __ 

'""output""" " 

COMPLETE 
INSTRUCTION 



GOTO CLEAR 



COOMAT 8E 



OUTPUT 
MATRIX 
TO 10 



CD1AA 



70 



7Q 



• YES 
• COXIT 



COLLECT 
LINK NAME 



8J 



OUTPUT 
LINKAGE TO 
BRING IN 
NEW LINK 



CLEAR 
8K 



OUTPUT 
BRANCH TO 
MONCAL 



GOTO CLEAR 
8L 

OUTPUT 
SUBROUTINE 
JNITIAL- 



INI 

M 



I 
I 



CALL EXIT 
AND CALL 

ROUTINES 



• IS THIS A • • 

• SUBPROGRAM • *A 

• • BR 



SET UP 
RETURN 
SET SUBSW 



• IS THIS A 

• SUBROUTINE • +2 

• SUBPROGRAM • 8R 



SET 

SUBPSW 



SET UP 


RETURN FOR 


STATEMENT 


FUNCTIONS 




8S 








•rv 



•* iuB SM ON *«%2 
• • 8V 

• • 

YES f * 



PAGE 8 OF 9 
8U 



OUTPUT 

SUBPROGRAM 

LINKAGE 



OUTPUT 
STATEMENT 
FUNCTION 
LINKAGE 



• IS THIS THE • FCT1A 
• LAST • 

• PARAMETER • 8T 



i I 



S 

UBSW ON 



I YES CLEAR 



ill-*" 1 



JCOROS ano 
RITE AT 
" OF 
GRAM 



PRO 



MUNICAT IONS 

ih Iris® 

OF PROGRAM 



TO IU 



879 



1620 FORTRAN II-D RHASt 2 



RAM 9 OR 9 



BE PUNCHED 



YES 

.•a 



I 9B 



• I 
•I 



TYPE END OF 
JOB 

MESSAGES 
ANO SET 
SYSCAL 



GOTO 



MONCAL 

9C 



PUNCH 
STATEMENT 
NUMBER 
CARDS 



CDSSA8_ 90 

T COMPUTE 
I UBJ" * ' 
j AOO 

I 



addrIss 



9F 
NUMBER 



PLACE 
GT NUMB_ . 
ON STRING 



2S« 

1 *• cBf 4B 
• 7Y 

NO *"ixTT 1L 



C0DE12 



9H 



ABIE 



9J 



OUTPUT 

Initialize 
instructicn 



• • YES 

• IS 101 • C014E 
♦ EQUAL TO 1 • 

• « 8B 



CLEAR 
9L 





9M 




iT 




9N 



• • so 



880 



1620 FORTRAN 1 1-0 I/O ROUTINES 
RMA2 1G 



SWF - AOR 

OF FORMAT 
MAX • 87 
MAX- 2 ■ 06 



IB 



I 



SWF • AOR. 

OF FORMAT 
MAX • 87 
MAX-2 • US 



SWF * AOR. 

OF FORMAT 
MAX » 80 
MAX-2 > 10 



I 

WRTALP I 10 

~~ RWEFSw"- 

WR I 
E ■ 



IE 



0AT1NK>2 • 

MAX-2 
REPS W • 00 
MATSW • 0 
AEPSWl • 00 



MAX2 ■ INM* 
2«MAX 
LAST • 1NH 



I COMPSW » -1 I 

I mB« s 



• NO 

♦ 2 
IX 



• NO 

• BSWF 

• 10 



1L 



IN 

• • NO 

• # TYPEWRITER "«**2 
• • IP 



IN 

• • YES 

• • RWA2 
• SW 4 ON • *2 

• . IJ 



GOTO 


WRTALP ID 


• YES 


»— — — • 




WACO 


1C 




1J 


BSWF 



FL TEND— 5 » 
42 



1Q__ 
SWF « SWF*5 



I 
I 
I 
I 

I 1R 



BRANCH TO 
AOR. 

INDICATED 
BY FORMAT 
SPEC. 
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1U 



SWF « AOR. 

OF FORMAT 
PAX « 87 
MAX— 2 » 06 



GCTO 


ROALP 


RAPT 


IV 


SWF • AOR. 

OF FORMAT 
PAX « 87 
MAX— 2 » 08 


GCTO 


RDALP 


RACO 


_1W 


7~~ SWF «' 
I OF f 
I MAX ■ 
I MAX-2 


adrT 

ORMAT 
80 

« 10 


RDALP 




I RWEFSW • I 
I REAO I 

i *° ! 


GOTO 


RWA 



TO 1G 



TO IN 
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PAGE 2 OF U 



2G 



• VES 
• MATRX2 



• SWL ■ 49 



I 2B 



SWL » 41 • 20 



.NO 






2C 


I 0BJEC1 


r i 


1 PROGRAM I 


I FOR NEXT I 


I DATA 




I LOCATION I 


SWC 


20 



I 

I 
I 
I 

I 2E 



YES 
.2G 



I COMPSW » 0 
I CLEAR FLAG 
I AT LOC 



l~ 
I 



RETURN TO 
FORMAT 
MACRO IN 

CONTROL 



TRIX _2H_ 

~MATSW°» I 
SWL ■ 49 

LOCAOJ »FP2 

I 
I 
I 
I 

I 2J 



• NO 
• .20 



__2P 
MATSW*« 0 



♦ FIXEO 
• POINT 

• SPEC. 



NO 
.2L 



I 2K_ 
LOCAOJ - — K 



MATRIX-1 - 
MATRIX-1 - 
LOCACJ 



__2Q 

• • NO 

• • SWC 
• PAR LESS • *l 

• THAN 0 * 2E 

• • 
• 



OBJECT 
PROGRAM 
FOR NEXT 
OATA 

LOCATION 



MATRX2 



2M 



I MATRIX-1 = 

I MATRIX-1 ♦ 

I LOCAOJ 

I PAR =PAR-1 
I 



SLASH 2U__ 

C0MEN&~-~49~ I 



I 
I 
I 

I 2V 



COMPSW« -1 



TYPEWRITER 



.YES I 
I 
I 
I 

I 2Y 



• YES 
• COMENO 



YES 
IOCR 



• NO 
• WRITE 



SET RECORD 
PARK AT 
END OF LAST 
NONBLANK 
FIELD 
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1620 FORTRAN II-O I/C ROUTINES 
REOOA 3G 



• * NO 

• • RWA2 
• COMENO * 42 • 

• ♦ 1G 



OBJECT I 
PROGRAM TO t 
CONTINUE I 



IOCR 3C 

•* TYPEWRITER 

• • 

YES 



* NO 
• WRITE 



• 22 

» 

COM END 3 A 



COMPLT 



30 



COMEND * 42 j 

~GOTO *~SLASh"7 2 V 

REDO 3E 

• • YES 

• • REOOA 

• MATSW « 1 • ♦! 



• 3H 



SWC _ 
REOOA 



c8Slsw 

WCADJ * 



SWL » 41 
RESTORE 
COMPSW 



3H 

SWF= SWF*5~ 



GOTO 
REP 



SWF «SWF*7 
REPSW * 
REPSW-1 



• REPSW 
• POSITIVE 



• YES 
• REP2 



.NO I 
I 
I 
I 

I 3L 



• REPSW - 0 



• YES 
• BSWF 



.NO I 
I 
I 
I 

I 3M 



REPSW - 
REPSW* 
SUF(I) 



3N 

• • NO 

• REPSW • BSWF 
• POSITIVE » 

• • 10 



.YES 






REP2 




3P 




« SWF-2 I 


1 Ihf 

I 

1 


«SWF(I) I 
I 

i 



REP3 

"set'flag" 

REPSW-1 
SWF «SWF*7 
REPSW3 * 

REPSW 3- I 

~I 

I 

I 

I 3R 



BSWF +1 1R 
3Q 



• • YES 

# • REP2 
• REPSW3 • 

• POSITIVE • 3P 



• YES 
• BSWF 



REPSW3 » 0 • 

* 1Q 



'HflP 



3T 
W3 ♦ 
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3U 



I SWCAOJ * 

I ERC0M2 

I LAST « MAX2 

I EI « F9 



SWF » SWF*3 
LAST FROM 
FORMAT 



GCTO 
ERCCM2 



RCTY 

WATY OUDH 
RCTY 

RESTORE RM 



F TYPE 
= NO FLAG 



EFCOM 
3Y 



f TYPE 
- FLAG 



GOTO SWL 



GOTO REP2 -1 3N 
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1620 FORTRAN II-D I/O ROUTINES 



PAGE * OF 11 



WIDTH 

MS; 



ANO 
FROM 



FORMAT 
INPLUS-LAST 



WI0TM2 - 

2#WIDTH 
LAST-LAST 
♦ HIDTH2 



•*L AST TOO *• ERpS 
• LARGE 



• 3U 



40 



TERM-LAST-2 
CHAR-WIDTH 
WA.FNH 
INITIALIZE 
OEC. DIGU 

"T" 
I 
I 
I 



ANO SIGN 
INDICATORS 



b 4 C 

alfma'zeros" 





AH 


j mm- 







• INPLUSCI) • FCHNB 
• -00 • 

• • AN 



CHAR-CHAR-1 
INPLUS * 
INPLUS+2 



• INPLUS » • EFEND 
• LAST • *2 

* • 6A 



• • YES 

^ INPLUSU) »^£FMIN 



VES I 
I 
I 

TO AG 



• INPLUS! I) 
• MO • 



• INPLUSU) • EFDIG 
• GTR THAN • 

• TO • 5U 



• • VES 

^ INPLUSU) ^LDGDIG 



* INPLUSU ) • EFDEC 
• * 03 • 

• • AT 



NO I 
I 





AV 


char-c^ar-i 


GCTO 


EFTERN 


EFMIN 


AM 



I " SET SIGN" 
I INDICATO 



EFPLUS AX 
I CHAR-CHAR- l~ 



GOTO EFTYPE 5A 



ERRF7E I AS 



I ZERO FAC 
I EI - -7 



GOTO EFEND 5Y 



• YES 
• * DEC VI PT S \E** F7 E 
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EFTYPE 5A 
LUS ♦ 2 



I INPLUS » 
I INPf " 



I 



• * YES 

INPLUSU) • LDGDIG 
-00 • 

• 6D 



• • YES 

• INPLUSU) • EFDIG 
• GTR THAN • 



\ 9o 

NO 



• • YES 

• INPLUSU) • LDGDIG 
• ■ 70 • 



• *INPLU5U) *• IH*C 
• «03 • 



5F 



• ETVPE 

• • AS 
VIS I * 



I/O ROUTINES 
5G 



exp-ooo 

EEXPAD - 21 



I 5H 

• • • 

• • YES 

INPLUSU) • EEXP 
- A5 • 

• 5R 



NO I 
EEXP2 I 5J 

U 



• INPLUSU) • EEXPM 
• « 20 



YES 
EEXP 

5Q 



NO 



1 5K 



• • YES 

• INPLUSU) • EEXP 
• » 10 • 

• • 5R 



5L^ 

• DEC. PT. *• xEi 
• INOICATOR • 

• ON • 5N 



NO 
XBA 



~CMAR«CHAR-1~ 



TO 5C 



TO 5N 



• • YES 

• LAST CHAR » EEXPAE 



5P 

MOVE DIGIT"" 



. .PLUS « 
INPLUS +2 



GOTO XBA 



I EEXPAD-22 



I CHAR 
I 



INPLUS • 
INPLUS+2 
-CHAR-1 



?8 v lxg 



IGIT 



CHAR - 
CHAR*EXP 



GOTO EFEND 



SET DIGIT 
INDICA" 



PAGE 5 OF LI 

5U 

T~~ 
TOR 



•*F DIGITS *• EFTE 
• COLLECTED • 



I 

I 5H 

POVE 6Tg7t T 

FN I/C REC I 

TO FAC I 

t»A « WA*1 I 



GOTO 


EEXP2 5J 


YES 




EEXPAE 


5S 


EFEND 





• ♦ NO 

• LAST OF I/O • EFTYPE 
• REC. EXAM • 



• YES 

• XCA 

• 6C 



«? e S8 c 



NO 
EFEN02 



c 2ft:»:tocG 



TO 6A 

I8S 
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• CHARACTER ♦ ERRF7E 
• OVERFLOW • 



F AC * CHAR 
DEFINE AND 
SIGN 

MANTISSA 



CONVERT TO 
FLOAT ING 
ZERO 



I CHAR»CHAR-l 

I 
I 
I 



GOTO 
REAOEF 



EF TERM 
6F 



• ♦ YES 

• FIXER DATA • FIX 
* FIELD • 

• • 6Y 



MOVE DATA 
FROM F AC TO 
SELECTED 
LOCATION 



• F LESS THAN • XCB 
• LOCO 



NO 
XCB 

• 6K 



6K 

L0CD2 * ■ 
2«L0CC 
ZERO GA^MA 
WA « GAM 
WA2 » FAC-1 



SWCADJ * 

EFMH 
WIDTH » 

WIOTH-2 



• NO 
• SWL 



6N 

TlRM»TERM-8 



I TERM-TERM- 



• • 6Z 



EFALPH 



6Q 



I DPT « 

I TERM-L0CD2 

I DPG » 

I GAM-L0CD2 

I 



DPTM2 « 

DPT -2 



MOVE DATA 
FM FAC TO 
GAM IN 
ALPHA FORM 



I 6T 

"TnIIrt 

ALPHA SIGN 
CKW > 

LOCD+FAC 
CHAR«CKW-F 

* 

I 
I 
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6U 

" *• YES 

• LOCC • ERF6E 
• GTR THAN • 

• WIDTH » 8G 
» • 

• • — — • 

NO 



IS DATA 

ZERO 



I INDICATOR 
I CHAR • -99 
I 
I 



NEXT 

INSTRUCTION 



FLOAT AND 
RETURN TO 
NEXT 

INSTRUCTION 
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1620 FORTRAN I 1-0 I/O ROUTINES 

WRTE2 7G 

CHARACTER- 
ISTIC 
MASK TC 
GAM 



♦ -NO 

# WIDTH • WRTE2 
• NEGATIVE • 

♦ • 7G 



• INDICATOR 
• SET 



• YES 
• XOA 



NO 






70 


I CHAR « 


j CHAR-WIDTH 



• llh 



• CHARACTER • ERF8E 
• OVERFLOW • 

• • 8G 



SHRINK 
DATA FIELD 



# CHARACTER 
• OVERFLCW 



• YES 
• ERF8E 



• • • 

NO I 
I 
I 

I _7J 

MOVE CHAR 
AND SIGN TO 
GAM 

MOVE LEFT 
GAM AND 

I 

I 7K _ 

7 rTght'gan" 

I TO I/O REC. 



I _ 

""goto"" 

FZERO 



WEFDEC 
7L 



8E 



INSERT ZERO 
LEFT OF OfC 
PT IN I/O 

DEFINE NO* 



ibst 



• ♦ YFS 

* ZERO • FZERO 
• INDICATOR • 

* SET » 7L 



• CHARACTER • ERF8E 
♦ OVERF - 



• YES 

• ERF8 

• * 8G 



# _7Q. 
•* * • YES 

• CKW « OR • FZERO 
• LESS THAN • 

• 0 • 7L 



• YES 
• ERF8 



• CKW GTR • ERF8E 
• THAN WIDTH • 

• • 8G 



NO 










7S 

- 


I CHAR2*» 




I 9KHAK 






7T 

— — • 



• • 8A 
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7U 



SHIFT DATA 
RIGHT BY 
2 CHARACTER 

POSITIONS 



I 
I 
I 
I 

I 7V 

• *~ * • YES 

• CORE EXP • WRTFPE 
• POSITIVE • 

• • 7Z 



MOVE RIGHT 
GAM TO I/O 



REC 



ITION 
GN 



INSERT 
SIGN , 



EN 
AND 



HIGH ORDER 
DIGIT 



GOTO WEFOEC 
RTFPE 7Z 



REC* 



GOTO 



CLR70S 



GOTO WEFOEC 
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1620 FORTRAN 1 1-0 I/O ROUTINGS 



PAGE • OF 11 



MRTFFC SA 

r~ move'right" 
fX lie 



IRPIE 



MTYPE 



IN 



• LOCO LESS 
• THAN CHAR 



• YES 
• C * 



LR70S 



— — — — • 



I 

moverigh™ 

$AM*CHAR2 ) 



I/O REC 



Sg§|g T z^gSs 



INSERT OEC. 
FT AND CLR 
RM IN I/O 
REC. 



BSWF 



F8I__ 8F 

"CLR VAR 
OUTPUT AREA 
MOVE DATA 
FROM GAM TO 

OUTPUT 



GOTO 



ERCOM 



..J^naJk 1 * 
8vS A Exr ♦ 



m 

TO J 



SIGN TO GAM 
MOVE GAM TO 
OUTPUT AREA 

rwi S,0N 



i w ec - 



i 
i 
i 

ERCOM { 

~ei~b" 



VES 

ERCOM2 



PUNCH CARO 

OR TAPE 

AS REQUIRED 



WIDTH2 



• RECORD 
• LENGTH 



YES 



NO 
XAA 



• NO 
• XAB 



8R 

READ FROM 
I/O REC TO 
FORMAT 
WIDTH2 
DIGITS 

I 
I 



SMF « SWF ♦ 



WIDTH2 
M I DTH2« 



I SMF » SWF ♦ 
I WIDTH2 



GOTO ERCOM2 3W 



• ^ IU 

lm?Yf 

01 GITS 



SWF ♦ 



MVS', -z 



BSWF 



f4rma? FRCH 

INPLUS-LAST 
LAST-WIDTH2 



ex 

• • YES 

• LAST TOO • ERF9 
• LARGE • 

• • 3U 



I TERM«LAST-2 

i s SSf? E V 



• NO 
• SWL 



I 

TO 9A 

68o 



1620 FORTRAN II-D 



SWCADJ - 
REAOA 



SWL 



• FIXED 
• OATA 

• FIELD 



• NO 
• RDAFL 



CUTOFF - K2 

2ER0GAMMA 

WA-GPIHK 



BLANKS 



90 
HIGH 



— I _9E_ 

"step~6qwn " 

I NHL US 



INPLUJ"" 
• INPLUS-1 



I/O ROUTINES 
9G 



• WIDTH2 GTR • ERF7A 
• THAN 



YES 
RF7 

9L 



NO 
R0A2 



9H 



MOVE WIDTH2 I 
DIGITS FROM I 
I/O REC TO I 
GAM I 
I 



_XEA I 

I defTne"" 

FIELD ANO 

mi He. 



Gprb 

ERF7A 


ERF7 
9L 


CLRGAM TO I 


GOTO 
ROAFL 


XEA 
9M 


w< 

OATA 1 


f • «" 
tAMMA 
MF 

)0 TO 

.OC. ♦ I 




I 



I LOC. ADR. 



GOTO RDA 

WRITEA 9P 

I MOVE FROM 
f DATA LOC. 
I TO FAC 



I 9Q 
^ # 

• FI*ED DATA • WAFX 



NO 


► • 

9R 


I WIDTH2 « I 
I WIDTH2 - F j 



WRTA 



9S 



• • 9U 



vis 


»— - • 
9T 


j mi 

j LOC. i 


.jnTTj 

*0R. j 
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9U 



REMOVE LOW 

OROER 

BLANKS 



r-\~~ 



I 9V 
TO I/O REC 



GOTO BSWF 
WAFX 9W 



; -Biros:* : 
I i 



GOTO 



WRTA 



I TYPE 9X 



• • NO 

• RECORD • ERF9 

• LENGTH OK 



VES 



INPLUI • 

1 'fit 1 " 

I 
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SWCADJ * 
WRITE I 



* NO 
• SWL 



I/O ROUTINES 
10G 



• 69 

N0~ 



• INPLUS (I) 
• -00 



YES 
IROI 

• 10M 



• YES 
• IRBLNK 



YES I 
I 
I 

I 

I 1 OC 

TERM=FPIMK 
FAC = KZERt)S 
SWCADJ * 
READI 



WIDIH2 » 
WIDTH2 -2 



♦ • YES 

WI0TH2 • SWL 

NEGATIVE ♦ 



INPLUS = 
INPLUS -2 



I NPLUS ( I ) 
- 20 



• •- 

NO I 
I 
I 



• I NPLUS m 
• =10 



• YES 
• IMINUS 



• YES 
• SWL 



(IRDIG+6) I 

(i) r 

•INPLUSU) I 



ION 

• " • YES 

• K*l DIGITS • ERF 7 1 
• MOVER • 

• • 10L 



• EI LESS 
• THAN 0 



PAGE 10 OF U 
10U 

• YES 

• ERC0H2 

• 3W 



IREAD 100 



BSWF -1 IP 



< IRDIG*6)» 
( IRDIG*6)-l 



GOTO * IREAD 10D 



_IMINUS 10Q 

MAKE FAC 
MINUS 



GOTO SWL 



DEFINE 
LENGTH 



• FIXED DATA # FLOAT 
• FIELD • 

• • 6Z 



MOVE DATA 
FROM FAC TO 
LOCI I ) 



WRITEI 10V 

WA«GAM*2 I 

FAC«LOC(f) f 
I 
I 



• NO 
• FIX 



GAM»10 70 S 
H0*GAM*1 



I 
I 
I 
I 

I 10Y 



ALPHA EACH 
DIGIT IN 
FAC AND 
MOVE TO GAM 



I 
I 

I 10Z 



RIGHT TO 
LEFT OMIT 
LCW ORDER 
ZEROS 
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1620 FORTRAN II-D I/O ROUTINES 



AFFIX 

PROPER SIGN 



• WIDTH OK 



• NO 
• E RF 8 I 



I 
I 

I 

I 11U 



MOVE DATA 
FROM GAM TO 
I/O REC 
REMOVE REC 
MARK 



GOTO 



BSWF 



INSERT 
ZERO 
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1620 FORTRAN 1 1-0 LOADER 1L0CK 1 

1G 



READ IN I 

BLOCK 2, I 

INITIALIZE I 

MAINLINE I 

LOCAL TABLE I 



• LONG FORM 

• OF SU8R0UT. 

• REQUESTED 



• YES 
• TWO 



NO 






1C 








Ik 7 " "j 


"MI! 


IS T0 1 


GOTO 


LOOPRO 


TWO 


10 



COUNTER TO 
13999 



LODFRO 


IE 


INITIALIZE 
COUNTERS 
AND DOAS 




IF 



• ANV LOCAL 
• CONTROL 

• CAROS 



*. !?00N 
♦ 1Y 



mi 

m 



TIALUE 
OGRAM 



1, 



IS IT A 
CONTROL 
RECORD 



• YES 
• COf 



LNAF 
IL 



TYPE OUT 
ERROR Lit 
THEN GO TO 
MONITOR 



• RECORD 



1L 
— • 

RO 



YES 
SUBS 



NAME 
IRRECT 
IRM 



IN 

• NO 

IN • ER2 

• 2E 



I 

I IF 



•*IS NAME IN *• ER3 
• TABLE • 



PUT NAMe'Tn 
MAIN' " 



OR 
AM 



• NO 

• COL 

_ -__ . • *1 

• COLLECTED • 1M 



• HAS LAST • COLNAM 
* NAME BEEN • ♦ ! 



I 



• * CHARACTI 
• COMMA 



IS 
TER A 



NO 

DECCT 



PAGE i 

DECCT 1U 


LOAD 
AREA 


:h 

IV 


I CECREI 
I RECORI 

\ 

i 


«ENT 

) 

BY 




1M 



/kill BiSr"*/ 848 " 



IX 



LOAD I 

MAINLINE I 

TABLE IN I 

SCRATCH I 

AREA I 



XEQON 

i TnT 

AND 



! SUBPROGR 
I TABLE 



• IS MAINLINE • XEQCN2 
• PROGRAM ON • 

• OISK • 2C 



YES I 

TO 2A 



1620 FORTRAN I 1-0 LOADER BLOCK 1 



PAGE 2 OF 4 



• DOES • TSTV 
• MAINLINE * 

• HAVE A NAME • 3H 



2B 
TYPING 



MOVE NAME 
INTO T' 
BUFFER 



SET CARD OR 
TAPE 

INDICATOR 



20 



• • YES 

• HAS HEADER • TSTVLO 
• RECORD BEEN • 

• REAO IN • 3H 



TYPE OUT 
ERROR L2. 
THEN GO TO 



TYPE fluT 
ERROR L3. 
THEN GO tO 
MONITOR 



8S3 



1620 FORTRAN II-D 



LOADER BLOCK 2 



PAGE 3 OF 4 



YEN T 3A 

INI T IALIZE 
COUNTERS 
ANO DOAS 
FOR LINK 
PROCESSING 



I 
I 
I 

I 3B 



INITIALIZE 
ANO STORE 
IN CORE 
SUBPROGRAM 
TABLE 



SEARCH 
EQUIVALENCE 
TABLE FOR 
EQUAL ENTRY 



EQUAL ENTRY 
FOUND 



GET 

CORRESPOND. 
DIM ENTRY 



SET UP 
PROGRAM CDA 
USING DIM 
ENTRY 



E AQ IN 
EADER 



3U 



READ 

HEAD... 
RECORO 



• HILL PROG 
• FIT INTO 

• CORE 



• NO 
• ERML 



3H 



• • YES 

RELOCATION • RELFRM 
TYPE HEADER • 
RECORD • 3W 



*SHITCH 1 



3P 
— » 

ON* 



NO 

ROPROG 



• • NO 

CORE IMAGE • ER5 
TYPE HEADER • 
RECORD • 3Y 



SET UP CDA 
FOR CORE 
IMAGE LOAD 



COMLD 



3L 



I INITIALIZE 
I FORTRAN 
I COMMUNIC. 
I AREA 
I 

I 
I 
I 
I 
I 



3M 



PUT UP TO 
21 SECTORS 
OF COMMCN 
IN SCRATCH 
AREA 



TYPE NAME, 
START ADDR. 
, ANO 

LENGTH 



I 
I 
I 

RDPROG I 3R 



• CARD OR 

• TAPE IND. 

• ON 
• 

NO I 
I 
I 
I 

I 3S 

LOAtT* 
PROGRAM 
FROM DISK 



• YES 
• COTPLD 



3T 



CALL IN 
BLOCK 3 
AND EXECUTE 
STARTING AT 
RMTBL 



INITIALIZ 
AREAS USE 



. Ml 

BY IORT TO 
LOAD PROGS. 



3V 

load" 

PROGRAM 
FROM CARD 
OR TAPE 



3W 



MOVE HEADER 
RECORD TC 
CONFORM TO 
CORE IMAGE 



SET UP DDA 
FOR RELOC. 
LOAD 



TYPE OUT 
ERROR L5, 
THEN GO TO 
MONITOR 



3Z 



TYPE OUT I* 
NAME, I» 
OVERLAP, AND I» 
JOB I» 
ABANDONED I» 
. 1 . 

I 
I 

TO 4A 
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1620 FORTRAN II-D LOADER BLOCK 2 



PAGE 4 CF 



BRANCH TO 
MONITOR 



CDORTP 


I 4B 


TYPE 


OUT 


LOAC 


NAME 



I 
I 
I 

I 

I 4C 

READ IN ONE 
CARO OR 
TAPE RECORD 



IS IT 

OATA 

CARO 



• YES 
• CDORTP 



IS IT A 

VALID 

HEADER 



CDORTP* I AC 



895 



V 



1620 FORTRAN II-O LOAOER BLOCK 3 



MTBL 
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IOGT,DDA2,7 




02746 


49 


00566 


-5327 


00770 




TDM 


REPLAC,0,10 




02758 


15 


02200 


000-0 


00780 


CALCOM 


TFM 


IORT,»*23,, 


CALL IN COMMON ROUTINES 


02770 


16 


00565 


-2793 


00 790 




B 


I OGT, COM2, 7 




02782 


49 


00566 


-5373 


00800 




TFM 


I0RT,**23 




02794 


16 


00565 


-2817 


00810 




B 


I0GT,0DA4,7 




02806 


49 


00566 


-5350 


00820 




TFM 


S6LEC+30, 05800 




02818 


16 


02432 


-5800 


00830 




TR 


D0A,0DA5tt 


SET UP LAST CALL SEQUENCE 


02830 


31 


02434 


05396 


00840 




TR 


DCF,DCF5., 


SP LIST SUBROUTINES 


02842 


31 


02442 


05404 


00850 




B 


SELEC 




02854 


49 


02402 


00000 


00860 




DORG 


•-3 




028*2 








00870 


CALRPL 


BNF 


•♦32tMAP*l9 




028*2 


44 


02894 


05326 


00880 




TFM 


DIMERR*22,7578,8 




02874 


I* 


03875 


0P578 


00890 




B 


UP I 




02886 


49 


05198 


00000 


00900 




DORG 


• -3 




02894 








00910 




C 


MCS+35.ZER012 




02894 


24 


17813 


05924 


00920 




BE 


• ♦24 




02906 


46 


02930 


01200 


00930 




HTM 


EQUIV,**12 




02918 


17 


04910 


-2930 


00940 




TFM 


IORT,*«23»t 


CALL IN REPLACE ROUTINE 


02930 


16 


00565 


-2953 


00950 




B 


I0GT,00A3,7 




02942 


49 


00566 


-5419 


00960 




TDM 


REPLAC.l 




02954 


15 


02200 


0000 1 


00970 




B 


CALCOM 




02966 


49 


02770 


00000 


00980 




DORG 


•-3 




02974 








00990 


SELERR 


TFM 


DI ME RR+22, 7579,8 




02974 


16 


05875 


0P579 


01000 




B 


UP I 




02986 


49 


05198 


00000 


01010 




DORG 


• -3 




02994 








01020 


OMP 


BNF 


M0NCAL,MCS*23 




02994 


44 


00796 


17801 


01030 




TR 


0OA.DDA6,, 


SET UP CALL FOR DUMP ROUTINE 


03006 


31 


02434 


05442 


01040 




TR 


DCF, DCF 6 




03018 


31 


02442 


05450 


01050 




TFM 


SELECOO, 02500 




03030 


1* 


02432 


-2500 


01060 




B 


SELEC 




03042 


49 


02402 


00000 


01070 




DORG 


•-3 




03050 








01080 


CONTCD 


TFM 


CARDIOL, 0,10 




03050 


1* 


05931 


000-0 


01090 




TD 


CARDIO+2,426 




03062 


25 


05931 


00426 


01100 




CF 


CARDI0+2 




03074 


33 


05931 


00000 


OHIO 




AM 


CARDIO*2f9tlO 




03086 


11 


05931 


000-5 


01120 




CM 


CARDI0*2,06,10 




03098 


14 


05931 


000-6 


01130 




BNE 


• ♦60 




03110 


47 


03170 


01200 


01140 




RCTY 






03122 


34 


00000 


00102 


01150 




TFM 


I0RT,«+23 




031)4 


1* 


005*5 


-3197 


01160 




B 


10PT,£NTNES-4,7 




03146 


49 


00532 


-9769 


01170 




RCTY 






0)158 


34 


00000 


00102 


01180 




TFM 


I0RT,«*23 




03170 


1* 


005*9 


-3193 


01190 




8 


I0GT,CAA0l0-4,7 




0)112 


69 


009** 


-9929 


01200 




CM 


CAADI 0*2, 06,10 




0319* 


14 


099)1 


000-6 


01210 




BNE 


•♦24 




0)20* 


*? 


0)2)0 


01200 


01220 




BC4 


C0NTCDW2 




0)218 


** 


0)122 


00*00 


01230 




TFM 


•♦23tINPUT419t 




0)2)0 


1* 


0)29) 


J3772 


01240 


BOTEST 


80 


•♦lit INPUT 




0)2*2 


*3 


0)274 


1)*1) 


01250 




SM 


•-l»2tlO 




0)29* 


12 


0)29) 


000-2 


01260 




8 


•-24 




0)2** 


49 


0)242 


00000 



91 A 



4<s 



01270 


DOUG 


•-3 


03274 








01280 


AM 


6DTESTH 1 ,3, 10 


03274 


|1 


01253 


000*1 


01290 


CM 


BOTE ST* 1 1 » INPUT* 10 


0328* 


14 


03253 


J1621 


01300 


BH 


• ♦32 


03298 


4* 


03330 


01100 


01310 


TOM 


INPUT+12,,, 


03310 


is 


13625 


00000 


01320 


OSC 
• 


If • ♦• 


* 03321 




1 




01330 


8 


• ♦20 


03322 


49 


03342 


00000 


01 340 


DORG 


•-3 


03330 








01350 


TOM 


BDTEST+l 1 1 # 6 


03310 


15 


0325L 


00000 


01360 


OSC 
• 


It • »• 


03341 




I 




01370 


CM 


CARDIO+2,06,10 


03342 


14 


05931 


000-6 


01380 


BE 


• ♦72 


03354 


46 


03426 


01200 


01390 


TFM 


CARD 1 0*2,06*10 


03386 


16 


05931 


000- 6 


01400 


RCTY 




03378 


34 


00000 


00102 


01410 


TFM 


I0RT,*+23 


03390 


16 


00565 


-3413 


01420 


B 


I0PT,CARDi0-4,7 


03402 


49 


00532 


-5925 


01430 


RCTY 




03414 


. 34 


00000 


00102 


01440 


CM 


BDTEST+ll,INPUTMO 


03426 


|4 


03253 


J3623 


01450 


BH 


• ♦32 


03438 


46 


03470 


01 100 


01460 


TDM 


INPUT+12,0 


03450 


15 


1 3625 




01470 


B 


• ♦20 


03462 


49 


03482 




01480 


DORG 


•-3 


03470 








01490 


TOM 


BDTEST+1 1 ( Ot 6 


03470 


|} 


0325L 


00000 


01500 


TOM 


MCS+23, Of 10 


03482 


15 


1 7801 


000—0 


01510 


SF 


INPUT-1 


03494 


32 


13612 


00000 


01520 


c 


I NPUT+ 10 , WRAD 


03506 


24 


13623 


05476 


0 1530 


BNE 


• ♦56 


03518 


47 


03574 


01200 


01540 


TR 


DDAfOOAPl 


03530 


3 1 


02434 


05477 


0 1 550 


TR 


DCF t DCFPl 


03542 


31 


02442 


05485 


01 560 


TFM 


SELEC+30, 02502 


03554 


16 


02432 


-2502 


01570 


g 


SELEC 


03566 


49 


02402 


00000 


0 1 580 


DORG 


• -3 


03574 








01 590 


c 


I NPUT* 10 t ALTR 


03574 


24 


13623 


0551 1 


01600 


BNE 


• ♦56 


03566 


47 


03642 


01200 


01610 


TR 


DOAf 0DAP2 


03598 


3| 


02434 


05512 


01620 


TR 


DCF ,DCFP2 


03610 


31 


02442 


05520 


01630 


TFM 


SELEC+30,3000 


03622 


16 


02432 


-3000 


01640 


B 


SELEC 


03634 


49 


02402 


00000 


01650 


DORG 


•-3 


03642 








0 1660 




I NPUT+10»DUMP 


0 3642 


24 


1 3623 


05546 


01670 


BE 


DMP+ 12 


03654 


46 


03006 


01200 


01680 


c 


INPUT* 10 , LOAD 


03666 


24 


13623 


05558 


01690 


BF 


CALLD 


03678 


46 


02734 


01200 


01700 


c 


I NPUT* 10 t REPL 


03690 


24 


1 3623 


05570 


01710 


BE 


CALRPL*68 


03702 


46 


02930 


01200 


01 720 


c 


INPUT*10«C0PY 


03714 


24 


13623 


05582 


01730 


BNE 


• *56 


03726 


47 


03782 


01200 


01 740 


TR 


DDA t DDAP5 


03738 


31 


02434 


05583 


0 1 750 


TR 


DCF,DCFP5 


03750 


31 


02442 


05591 


01 760 


TFM 


SELEC* 30, 02700 


03762 


16 


02432 


-2700 


01770 


B 


SELEC 


03774 


49 


02402 


00000 


01780 


DORG 


•-3 


03782 








01790 


C 


INPUT* 10 »D£LET 


03782 


24 


13623 


05617 


01800 


BNE 


• ♦92 


03794 


47 


03886 


01200 
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01810 




TFM 


I0RT,»*23 




03806 


16 


00565 


-3829 


01820 




B 


I0GT,D0AP6,7 




03818 


49 


00566 


-5618 


01830 




TFM 


I0RT,»*23 




03830 


16 


00565 


-3853 


01840 




B 


I0GT.EQUDDA.7 




03842 


49 


00566 


-5641 


01850 




TFM 


I0RT,»*23 




03854 


16 


00565 


-3877 


01860 




B 


IOGT,COM2,7 




03866 


49 


00566 


-5373 


01870 




B 


CALC0M*48 




03878 


49 


02818 


00000 


01880 




DORG 


•-3 




03886 








01890 




C 


INPUT*10,FINE 




03886 


24 


13623 


05675 


01900 




BNE 


• ♦56 




03898 


47 


03954 


01200 


01910 




TR 


DDA.DDAP7 




03910 


31 


02434 


05676 


01920 




TR 


DCF,DCFP7 




03922 


31 


02442 


05684 


01930 




TFM 


SELEC+30, 05000 




03934 


16 


02432 


-5000 


01940 




B 


SELEC 




03946 


49 


02402 


00000 


01950 




DORG 


•-3 




03954 








01960 




C 


INPUT+IO.LABL 




03954 


24 


13623 


05710 


01970 




BNE 


• ♦56 




03966 


47 


04022 


01200 


01980 




TR 


DDA t DDAP8 




03978 


31 


02434 


05711 


01990 




TR 


DCF,DCFP8 




03990 


31 


02442 


05719 


02000 




TFM 


SELEC+30, 02502 




04002 


16 


02432 


-2502 


02010 




B 


SELEC 




04014 


49 


02402 


00000 


02020 




DORG 


•-3 




04022 








02030 




C 


INPUT*10,FLI8 




04022 


24 


13623 


05745 


02040 




ONE 


• ♦56 




04034 


47 


04090 


01200 


02050 




TR 


DDA.DDAP9 




04046 


31 


02434 


05746 


02060 




TR 


0CF,DCFP9 




04058 


31 


02442 


05754 


02070 




TFM 


SELEC+30, 03040 




04070 


16 


02432 


-3040 


02080 




B 


SELEC 




04082 


49 


02402 


00000 


02090 




DORG 


•-3 




04090 








02100 




RCTY 






04090 


34 


00000 


00102 


021 10 




TFM 


I0RT,»+23 




04102 


16 


00565 


-4125 


02120 




B 


I0PT,ERCD-4,7 




04114 


49 


00532 


-5820 


02130 




H 






04126 


48 


00000 


00000 


02140 




B 


MONCAL 




04138 


4<# 


00796 


00000 


02150 




OORG 


•-3 




04146 








02160 


NOCOMP 


CM 


H0LD2,5,10 




04146 


14 


05279 


000-5 


021 70 




BNE 


NOCOMP-56 




04158 


47 


04090 


01200 


02180 


RTURNL 


BNF 


MONCAL, 428,, 


CHANGE TO ERROR MESS. LATER 


04170 


44 


00796 


00428 


02190 




TO 


UP1+14,REPLAC 




04162 


25 


05212 


02200 


02200 




TFM 


I0RT,»*23, V 


GET TWO SECTORS RD , WR 


04194 


16 


00565 


-4217 


02210 




8 


I0GT,SEC2,7 




04206 


49 


00566 


-4536 


02220 




TD 


REPLAC,UP1*14 




04218 


25 


02200 


05212 


02230 




TFM 


H0L02t0,10 




04230 


16 


05279 


000-0 


02240 




TD 


M0LD2,MCS*88 




04242 


25 


05279 


17866 


02250 




MM 


H0LD2.5,10 




04254 


13 


05279 


000-5 


02260 




80 


•♦20,99 




04266 


43 


04266 


00099 


02270 




8 


• ♦20 




04278 


49 


04296 


00000 


02280 




OORG 


•-3 




04286 








02290 




SM 


MCS*88,1,10 




04286 


12 


17866 


000-1 


02300 




TF 


M0LD5,434,, 


COMPUTE SECTOR COUNT 


04296 


26 


05269 


00434 


02310 




S 


H0LD5,MCS*88 




04310 


22 


05269 


17864 


02320 




BD 


•*32,M0L05 




04322 


43 


04354 


05269 


02330 




80 


•*20,HOLOS-1 




04334 


43 


04354 


05266 


02340 




8 


• ♦20 




04346 


49 


04366 


00000 


02350 




OORG 


•-3 




04354 








02360 




AM 


H0L05-2,1,10 




04354 


11 


05267 


600-1 



912 
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02370 




TF 


WR2«8,M0LD5-2 


04346 


26 


02265 


05267 


02380 




CM 


MCS*68. 02302 


04371 


14 


17866 


-2302 


02190 




BNl 


■ ♦56 


04390 


46 


04446 


01300 


02400 




TFM 


DIMf RR*22 t Tl79,8 


04402 


16 


09879 


0P1 79 


02410 




RCTY 




04414 


34 


00000 


00102 


02*20 




MATY 


DINERR 


04424 


39 


09893 


00100 


02430 




8 


N0C0MP-20 


04438 


49 


04126 


00000 


02440 




DORG 


•-1 


04446 








02450 




TF 


WR2M3,MCS*88 


04444 


26 


02270 


17866 


02451 




BNF 


•♦24,MCS*12 


04458 


44 


04482 


17790 


02452 




SF 


NR2M3 


04470 


32 


02270 


00000 


02460 




TFM 


WR2*5, 00800 


04482 


16 


02262 


-0800 


02470 




TFM 


JORTfRDWR 


04494 


16 


00965 


-2205 


U2480 




U 1 


I OGT 


04506 


49 


00566 




02490 


HOI 


DSC 


2,02 


04513 




2 








02 












o? son 




0 S A 


RD2 


04519 




5 


X 1 














-4521 




02510 




osc 


It* 






1 




02520 


RD2 


osc 


Itl 


04521 




1 




02530 




OL 


5,01400 


04526 




5 








-1400 










02540 




DC 


3,177 


04529 




3 








J77 












02550 




OC 


5,02302 


04534 












-2302 










02560 




DSC 
• 


I,* 


04535 




1 




02570 


SEC2 


DSC 
22 


2,22 


04536 




2 




02580 




DSA 


SEC22 


04542 




5 


X 1 










04542 




-4544 




02590 




DSC 
t 


l.» 


04543 








02600 


SEC22 


DSC 
1 


1,1 


04544 








0261 0 




DC 


5,18260 


04549 




5 








J8260 










02620 




DC 


3,1 


04552 




3 








-01 












02630 




DC 


5,02200 


04557 




5 








-2200 










02640 




DSC 


!»• 


04558 




1 




02650 


SQL DON 


TFM 


IORT,»+23 


04560 


16 


00565 


-4583 


02660 




B 


I0GT.DDA1.7 


04572 


49 


00566 


-5280 


02670 




TF 


INPUT+74.2ER012 


04584 


26 


13687 


05924 


02680 




BNF 


•♦20,MCS+22 


04596 


44 


04616 


17800 


02690 




B 


• ♦32 


04608 


49 


04640 


00000 


02700 




DORG 


•-3 


04616 








02710 




TFM 


I0RT,^23 


04616 


16 


00565 


-4639 


02720 




B 


I OGT, CCD, 7 


04628 


49 


00566 


-4684 



9H 
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02730 


TFM 


INPUT*96,44,10 


04640 


16 


13709 


000M4 


02740 


TFM 


INPUT^98,49,10 . 


04652 


16 


13711 


000M9 


02750 


BD 


CALRPL+68, REPLAC 


04664 


43 


02930 


02200 


02760 


8 


CALLD 


04676 


49 


02734 


00000 


02770 


OORG 


•-3 


04684 








02780 CCD 


DSC 
02 


2,02 


04684 




2 




02790 


DSA 


CCD2 


04690 




5 


X 1 








04690 




-4692 




02800 


DSC 


lt« 


04691 








02810 CCD2 


OSC 
1 


1,1 


04692 




1 




02820 


DC 


5,00798 


04697 




5 






-0798 










02830 


DC 


3,2 


04700 




3 






-02 












02840 


DSA 


INPUT-1 


04705 




5 


X 1 








04705 




J3612 




02850 


DSC 


i,» 


04706 




I 




02860 REPLAC 


DSC 
0 


1,0,2200 


02200 




I 




02870 


OC 


5,0 


04711 




5 






-0000 










02860 


DC 


5,0 


04716 




5 






-0000 










02890 OIMMER 


CM 


NEWDIM,4994 


04718 


14 


05306 


-4994 


02900 


BH 


SELERR 


04730 


46 


02974 


01100 


02910 


TF 


HOL06,ZER06 


04742 


26 


05883 


09869 


02920 


TF 


H0LD6,NEWDIM 


04754 


26 


05883 


09306 


02930 


A 


H0LD6 ,H0LD6 


04766 


21 


09883 


09883 


02940 


CF 


H0LD6-3 


04778 


33 


05880 


00000 


02950 


SF 


H0L06-4 


04790 


32 


09879 


00000 


02960 


AM 


HOLD6,48000,7 


04102 


11 


09883 


M8000 


02970 


TF 


DMRE AD+5 , H0LD6-1 


04814 


26 


09903 


09882 


02980 


TFM 


IORT,«*23 


04826 


16 


00965 


-4849 


02990 


B 


IOGT , ODREAO, 7 


04838 


49 


00566 


-9890 


03000 


TFM 


TREC* 1 1 ,READI N 


04890 


16 


04897 


-9936 


04010 


TD 


•+23,H0LD6 


04842 


29 


04885 


09883 


03020 


AM 


TREC+10,0,10 


04874 


11 


04896 


000-0 


03030 TREC 


TR 


DIMMER-6,,6 


04886 


31 


0471K 


00000 


03040 


8 


DIMMER-1,,6 


04898 


49 


0471P 


00000 


03050 EOUIV 


TFM 


NEWDIM.0002,8 


04910 


16 


09306 


0-002 


03060 


TFM 


0IMMER-6.MAP 


04922 


16 


04712 


-9307 


03070 


8TM 


DIMMER, •♦12 


04934 


17 


04718 


-4944 


03080 


TFM 


MAP*B,4,9 


04946 


16 


05319 


00-04 


03090 


TFM 


MAP*13»READ!N 


04998 


16 


09320 


-9936 


03100 


TDM 


MAP*14,, 


04970 


19 


09321 


00000 


03110 


DSC 


1,S» 


04481 




1 




03120 


TFM 


I0RT,«*23 


04982 


16 


00969 


-9009 


03130 


8 


I0GT,NAP00A,7 


04994 


49 


00966 


-9270 


03140 


TFM 


•♦47,READIN*ll 


09006 


14 


09093 


-9947 
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RA« I 







CM 


BNK*l I« KB AO I N*% II 


05016 


14 


05053 


-6347 


03160 








05030 


46 


05116 


01200 


03170 


BNR 


AMQ 


Act KCAUIN*!! 


05042 


45 


05074 


05947 


nil on 








05054 


16 


05875 


0P577 






B 


UP I 


05066 


49 


05198 


00000 


03200 




OORG 


•-3 


05074 








03210 




Q 


Mr 14.HMB* 1 1.11 


05074 


24 


17«613 


0505L 


03220 






ERREPL 


05066 


46 


05138 


01200 


03230 




AM 
* 


BklB Alt 1 A. ■ A 

BNR* I 1 , lO# 10 


05098 


11 


05053 


000J6 


03240 




B 


BNR— 24 


05110 


49 


05016 


00000 


03250 




DORG 


•-3 


05116 








03260 


RD 


AM 


MAP*5,4t 10 


05116 


11 


05312 


000-4 


03270 




B 


BNR-60 


05130 


49 


04982 


00000 


03260 




OORG 


•-3 


05136 








03290 


ERREPL 


AM 


BNR*11«4,10 


05138 


11 


05053 


000-4 






C 


(i ia ■ y a a I t it 
Nt 5*39 1 BNR* 1 1 til 


05150 


24 


17617 


05051 


03310 




BE 


EQUI V-l t »6 


05162 


46 


0490R 


01200 


03320 




TFM 


D I ME RR* 22, 7576,8 


05174 


16 


05875 


0P576 


03330 




TF 


MCS+35, ZER012 


05186 


26 


17613 


05924 


033*0 


UP1 


TFM 


MCS*39,0t8 


05198 


16 


17817 


0-000 


03350 




RCTY 




05210 


34 


00000 


00102 


03360 




WATV 


DIMERR 


05222 


39 


05853 


00 1 00 


03370 




TFM 


I0RT,**23 


05234 


16 


00565 


-5257 


03380 




B 


I0PT.DDA1.7 


05246 


49 


00532 


-5260 


03390 




B 


CALICO 


05258 


49 


02734 


00000 


03400 


H0L05 


OC 


5,0,» 


05269 




5 








-0000 










03410 


IORT 


DS 


,565 


00565 




0 




03420 


IOPT 


OS 


.532 


00532 




0 




03430 


MAPDDA 


DSC 
22 


2,22 


05270 




2 




03440 




DSA 


MAP 


05276 




5 


X 1 



03450 




DSC 


It' 


03460 


10GT 


OS 


,566 


03470 


H0L02 


OC 


2,0 






-0 




03480 


SYSCAL 


OS 


.475 


03490 


D0A1 


DSC 


2,22 






22 




03500 




DSA 


DCFi 


03510 




DSC 


It' 



03520 DCFi DSC 1,1,, 
1 

03530 OC 5,19663 

J9663 

03540 OC 3,001 

-01 

03550 DSA MCS 



MONITOR COMM. SECTOR 



05276 -5307 

05277 1 

00566 0 

05279 2 

00475 0 

05280 2 

05286 5 X I 

05286 -5288 

05287 1 

05288 1 
05291 5 
05296 3 
05301 5 X 1 



05301 J7778 

flIS / 
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03560 




osc 


l»» 


05302 


1 




03570 


MCS 


DS 


.17778 


17778 


0 




03580 


NEWOIM 


DC 


4,0 


05306 


4 








-000 










03590 


MAP 


DSC 


20,0 


05307 


20 








00000000000000000000 








03600 


0DA2 


osc 


2,22 


05327 


2 








22 










03610 




DSA 


DCF2 


05333 


5 


X 










05333 


-5335 




03620 




DSC 


It* 


05334 


1 




03630 


DCF2 


DSC 
1 


I . 1 . . OLOAD 


05335 


1 




03640 




OC 


5,18369 


05340 


5 








J8369 








03650 




OC 


3,027 


05343 


3 








-27 










03660 




DC 


5,05800 


05348 


5 








-5800 








03670 




DSC 


lt« 


05349 


1 




03680 


DDA4 


DSC 


2,22 


05350 


2 








22 










03690 




DSA 


0CF4 


05356 


5 


X 










05356 


-5358 




03700 




DSC 


It 1 


05357 


I 




03710 


DCF4 


OSC 
I 


1 1 1 1 . COMMON 


05358 


1 




03720 




DC 


5,16480 


05363 


5 








J6460 








03730 




OC 


3,040 


05366 


3 








-40 










03740 




OC 


5,06600 


05371 


5 








-6600 






03730 




OSC 
1 




05372 


I 




03760 


COM2 


osc 


2.22 


05373 


2 








22 








03770 




DSA 


COM 22 


05379 


5 


X 


03780 








05379 


-5381 






?«c 


l.« 


05380 


1 




03790 


COM22 


OSC 

1 


Itl 


05361 


1 




03600 




OC 


5,16520 


05366 


5 








J6520 






03810 




OC 


3,029 


05369 


3 








-29 










03620 




OC 


5,10600 


05394 


5 








J0400 
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03830 




DSC 


l.« 




05395 


03M0 


DDA5 


DSC 


2.22 




05394 






22 








0 3850 




DSA 


DCF 5 




05602 












05402 


03860 




DSC 


I,' 




05603 


038 70 


DCr 5 


DSC 


1.1.. 




05606 


03880 




1 

DC 


5,18298 




05609 






J8298 






0 3890 




DC 


3.033 




05412 






-33 








03900 




UC 


5,02458 




05417 






-2458 






03910 




DSC 


li 1 




05418 


03920 


DDA3 


DSC 


2,22 




05619 






?? 








0 39 30 




DSA 


DCF3 




05625 












05425 


0 39<i0 




DSC 


1. • 




05626 


0 3950 


DCF 3 


DSC 


l.l*. 


ORE PL 


05627 


03960 




I 

oc 


5, 18400 




05432 






J8400 






0 39 70 




DC 


3.028 




05435 






-28 








03980 




DC 


5,05800 




05440 






-5800 






03990 




DSC 






05441 


04000 


MONCAL 


DS 


,796 




00796 


04010 


INPUT 


DAS 


81,13613 




13613 


04020 


DDA6 


DSC 


2,22 




05442 






22 








04030 




DSA 


UCF6 




05448 












n 


04040 




DSC 


1»« 




05449 


04050 


DCF 6 


DSC 


1*1.. 


DDUMP 


05450 


04060 




1 

DC 


5, 16430 




05455 






J8430 






04070 




DC 


3,050 




05458 






-50 








04080 




OSC 


5,02500 




05459 






02500 






04090 




DSC 


1.' 




05464 


04100 


WR AD 


DC 


12,144466594144 




05476 



J44466594144 



91 7 
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04110 DDAP1 DSC 2,22 
22 

04120 DSA DCFPl 



05477 
05483 
05483 



04130 




DSC 1,' 


05484 


04140 


DCFPl 


DSC 1,1 


05485 


04150 




I 

DC 5,18220 


05490 






J8220 




04160 




DC 3,027 


05493 






-27 




04 170 




DSC 5,02502 


05494 






02502 




04180 




DSC l,« 


05499 


04190 


ALTR 


DC 12,144441536359 


05511 






J44441536359 




04200 


DDAP2 


DSC 2,22 


05512 






22 




04210 




DSA 0CFP2 


05518 








05518 


04220 




DSC 1 , • 


05519 


04230 


DCFP2 


DSC 1,1 


05520 


04240 




1 

DC 5,19300 


05525 






J9300 




04250 




DC 3,038 


05528 






-38 




04260 




USC 5,03000 


05329 






03000 




04270 




DSC 1,» 


03534 


04280 


DUMP 


DC 12,144444645637 


05566 






J66446665657 




04290 


LOAD 


DC 12,164453564144 


05558 






J44453564144 




06300 


REPL 


DC 12,166659635733 


03370 






J44459455753 




04310 


COPY 


DC 12,144663565768 


05582 






J44443565768 




04320 


DDAP5 


DSC 2,22 


05583 






22 




04330 




DSA 0CFP5 


05589 








05589 


04340 




DSC It* 


05390 


04350 


DCFP5 


DSC 1*1 


05391 


06360 




1 

DC 3,19363 


0339* 






J9363 




06370 




DC 3*037 


03599 






-37 





-5591 



918 
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04110 




oc 


9,02700 


05604 


5 








-2700 










04190 




DSC 
« 


It* 


09609 


1 




04400 


Of LET 


OC 


12*144449514961 


09617 


12 








J44445514561 








04410 


00AP6 


osc 


2.22 


09618 


2 








22 










04420 




0SA 


DCFP6 


09624 


9 


X 










05624 


-9626 




04430 




OSC 


!*• 


09629 


1 




04440 


0CFP6 


osc 


i*i 


05626 


1 




04450 




I 

oc 


5,18247 


09611 


5 








J8247 








04460 




DC 


3,013 


09614 


3 








-13 










04470 




OC 


5,05800 


09619 


5 








-S800 








04480 




OSC 


It" 


05640 


1 




04490 


EOUDDA 


osc 


2,22 


05641 


2 








22 










04500 




OSA 


EQUOCF 


09647 


5 


X 










05647 


-5649 




04510 




OSC 


lt» 


09648 


I 




04520 


EQUDCF 


DSC 


1*1 


05649 


1 




04530 




1 

OC 


5,18278 


05654 


5 








J8278 








04540 




DC 


3,020 


05657 


3 








-20 










04550 




OC 


5,08600 


05662 


5 








-8600 








04560 




OSC 
• 


It" 


05661 


I 




04570 


FINE 


DC 


12,144446495545 


05675 


12 








J44446495545 








04580 


D0AP7 


DSC 


2,22 


05676 


2 








22 










04590 




DSA 


DCFP7 


05682 


5 


X 










05682 


-5684 




04600 




DSC 


It" 


05681 


1 




046 10 


DCFP 7 


DSC 


1,1 


05684 


i 




04620 




1 

DC 


5,18139 


05689 


5 








J8139 








04630 




DC 


3,038 


05692 


3 








-38 










04640 




DSC 


5,05000 


05693 


5 








05000 
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04650 




DSC 


1." 


05698 


1 




04660 


LABL 


DC 


12,144453414253 


05710 


12 








J44453414253 








04670 


DDAP8 


DSC 


2,22 


05711 


2 








22 










04680 




DSA 


0CFP8 


05717 


5 


X 










05717 


-5719 




04690 




DSC 


It* 


05718 


1 




04700 


DCFP8 


DSC 


1,1 


05719 


1 




04710 




I 

DC 


5,18200 


05724 


5 








J 8200 








04720 




OC 


3,020 


05727 


1 








-20 










04730 




DSC 


5,02502 


05728 


5 








02502 








04740 




DSC 


It* 


05713 


1 




04750 


FLIB 


OC 


12,144446514942 


05745 


12 








J44446534942 








04760 


DDAP9 


DSC 


2,22 


05746 


2 








22 










04770 




DSA 


0CFP9 


05752 


5 


X 










05752 


-5754 




04780 




DSC 
* 


It" 


05753 


1 




04790 


0CFP9 


DSC 


1,1 


05754 


I 




04800 




1 

DC 


5,18261 


05759 


5 








J8261 










0*810 




OC 


3,017 


05742 


3 








-17 










04820 




OC 


5,03000 


05767 


5 








-3000 








04830 




OSC 
• 


It" 


05768 


I 




04840 




OSC 


13775 


13775 


1 




04850 


ENTMES 


OSA 


ENTER 


05771 


5 


X 










05771 


-5779 




04860 




OC 
-6» 


3,06* 


05776 


1 




04870 


ENTER 


OAC 


21, ENTER OUP CNTRL RfC.» 


05779 


21 


X 






ENTER 


OUP CNTRL REG." 








04880 


ERCO 


OSA 


ERRCO 


05824 


5 


X 










05824 


-5629 




04890 




OC 


3,06* 


05627 


1 




04900 


ERRCO 


-6» 
OAC 


12, ERR CONTROL * 


65629 


12 


X 



ERR CONTROL" 
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04410 


01MI88 


OAC 


13, OUR -ERROR 00* 


04841 




1) 


X 2 






008*18808 00* 






04420 


HOLD* 


OC 


4,0 


Mill 




4 








-ooooo 








04410 


11804 


OC 


4,0 


04889 




* 








-ooooo 








04440 


008 E AO 


osc 


2,22 


onto 




2 








22 










04440 




DSA 


OMR IAD 


0989* 




5 


8 1 










0tf44 




•9198 




04440 




DSC 
• 


!•• 


ottt? 




I 




04470 


OMR £ AO 


OSC 

1 


1,1 


01 Iff 




1 




04480 




or 


5,04800 


04905 




5 








-4800 










04440 




DC 


S,001 


04404 




1 








-01 












04000 




DSA 


READIN 


04911 




3 


X 1 










054H 




-591* 








DSC 
• 


1,» 


09912 




1 




04020 


JER012 


OC 


12,0 


05924 




12 








-00000000000 








040 )0 


CAA01U 


OSA 


INRUT 


05424 




3 


X 1 










05929 




J 1*1 3 




04040 




DC 


1,10* 


09912 




3 








JO* 










t 






OAC 

0 


1,0 


059)5 




1 


X 2 


04060 


ASAOIN 


OSS 


400 


05914 




400 






Sfcl 


TFM 


I0RT,*>*21 


04114 


I* 


005*5 


-*334 


04080 




8 


10RT.SEL1.7 


06144 


44 


00512 


-6384 


04040 




TRA 




0*140 


34 


OOOOO 


00300 










0*172 


49 


OOOOO 


OOOOO 


04100 


sen 


OSC 


2,22 


0*184 




2 








2? 












OS 1 10 




DSA 


SE12 


0*140 




5 


X I 










0*140 




-*392 




0*» 120 




OC 


l.« 


0*191 




1 




041)0 


SE12 


DSC 
I 


1.1 


0*192 




1 








DC 


4,18540 






3 








J8550 










0M50 




DC 


3,036 


0*400 




3 








-36 












05160 




DC 


5,02402 


0*405 




5 








-2402 










04170 




DC 
t 


1,* 


0*40* 




1 




04180 




TCD 


SEL 


0*11* 









92! 
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•SELECTION ROUT INC 



RACE 14 



BOTES! 


03242 


8NR 


09042 


0CFR8 


05719 


EQUIV 


04910 


REPL 


05570 


CALCOM 


02770 


CALLO 


02714 


0CFR9 


05794 


ERCD 


05824 


SEC22 


04544 


CALAPL 


02862 


CC02 


04492 


OCF 


02442 


ERRCO 


09829 


SEC2 


04536 


CAROIO 


05929 


CCO 


04484 


00A1 


05280 


FINE 


09479 


SELl 


06384 


CONTCD 


03050 


C0M22 


09)81 


00A2 


05327 


Ft IB 


09749 


SEL2 


06392 


DDREAD 


05890 


COM2 


09973 


00A3 


09419 


M0LD2 


09279 


SELEC 


02402 


DIMERR 


05853 


CORY 


09982 


0DA4 


05390 


H0LD5 


09249 


SEL 


06336 


01MNER 


04718 


CORl 


02949 


00A5 


05396 


H0LD6 


05883 


SL1 


02272 


DM RE AD 


05898 


C0R2 


02396 


D0A6 


09442 


INPUT 


13413 


SL2 


02280 


EN THE S 


05773 


COR 


02300 


0DAP1 


09477 


IOCAL 


00716 


TREC 


04886 


EOUOCF 


05649 


0CF1 


09288 


DDAP2 


05512 


IOGT 


00566 


UP I 


05198 


EQUDDA 


05641 


0CF2 


09339 


DDAP5 


05583 


IOPT 


00532 


HR2 


02257 


ERREPL 


05138 


0CP3 


09427 


0DAP6 


05618 


IORT 


00565 


WRAO 


05476 


MAPDOA 


05270 


0CF4 


09398 


DDAP7 


05676 


LABI- 


05710 


MR 


02249 


MONCAL 


00796 


DCF5 


09404 


00AP8 


05711 


LOAD 


05558 


ZER06 


05889 


NEWDiM 


05306 


0CF6 


09450 


0OAP9 


05746 


MAP 


05307 


SELECT 


02458 


NOCOMP 


04146 


OCFPl 


05489 


OOA 


02434 


MCS 


17778 


SELERR 


02974 


READIN 


05936 


0CFP2 


05520 


DELET 


05617 


RDl 


04513 


SOLDON 


04560 


REPLAC 


02200 


DCFP5 


05591 


OMR 


02994 


R02 


04521 


SYSCAL 


00475 


RTURNL 


04170 


0CFP6 


05626 


DUMP 


05546 


RO 


05118 


2ER012 


05924 


ALTR 


05511 


0CFP7 


05684 


ENTER 


05779 


RDWR 


02205 







END OF ONE ASSEMBLY. 
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000 10 




DORG 


2502 


02502 








00020 


OWRAD 


SF 


CARD+31 


02502 


32 


13644 


00000 


00030 




SF 


CARD»33 


02514 


32 


13646 


00000 


00040 




TFM 


CNT,0,10 


02526 


16 


05132 


000-0 


00050 




CM 


CARDO2,57,10 


02538 


14 


13645 


000N7 


00060 




BNE 


ZS 


02550 


47 


02582 


01200 


00070 




SF 


RDONLY 


02562 


32 


05135 


00000 


00080 




B 


• ♦20 


02574 


49 


02594 


00000 


00090 




DORG 


•-3 


02582 








00100 


ZS 


CF 


RDONLY 


02582 


33 


05135 


00000 


001 10 




CM 


CARD+34,69, 10 


02594 


14 


13647 


00009 


00120 




BNE 


NOZ 


02606 


47 


02638 


01200 


00130 




SF 


ZERO 


02618 


32 


05138 


00000 


00140 




B 


• ♦20 


02630 


49 


02650 


00000 


00150 




DORG 


• -3 


02638 








00160 


NOZ 


CF 


ZERO 


02638 


33 


05138 


00000 


00170 




TFM 


AN+6.NUMER 


02650 


16 


02680 


-5091 


00180 




TFM 


ANM1,CARD*12 


02662 


16 


02685 


J3625 


00190 


AN 


TD 


NUMER*CARDM2 


02674 


25 


05091 


13625 


00200 




AM 


AN*6,l,10 


02686 


11 


02680 


000-1 


00210 




AM 


AN+11,2,10 


02698 


11 


02685 


000-2 


00220 




CM 


AN*6,NUMER^26 


02710 


14 


02680 


-5117 


00230 




BNE 


AN 


02722 


47 


02674 


01200 


00240 




SF 


NUMER 


02734 


32 


05091 


00000 


00250 




SF 


NUMER+14 


02746 


32 


05105 


00000 


00260 




SF 


NUMER+20 


02758 


32 


05111 


00000 


00270 




TFM 


SETFLG*U,CARD+ll 


02770 


16 


04555 


J3624 


00280 




TFM 


C0MFLG+1UCARD+23 


02782 


16 


04615 


J3636 


00290 




BTM 


SETFLGt •♦ 12 


02794 


17 


04544 


-2806 


00300 




TFM 


SETFLG*ll,CARD*39 


02806 


16 


04555 


J3652 


00310 




TFM 


C0MFLG*11»CARD*63 


02818 


16 


04615 


J3676 


00320 




BTM 


SETFLG,»*12 


02830 


17 


04544 


-2842 


00330 




TF 


H0LD5, ENCAD 


02842 


26 


05123 


05116 


00340 




S 


H0LD5.STARTA 


02854 


22 


05123 


05110 


00350 




BL 


ERAODR 


02866 


47 


04482 


01300 


00360 


INI T 


RCTY 




02878 


34 


00000 


00102 


00 3 70 




SF 


BUTTON 


02890 


32 


00455 


00000 


ooaeo 




SF 


ADDRS-4 


02902 


32 


05092 


00000 


00390 




SF 


STARTA-4 


02914 


32 


05106 


00000 


00400 




SF 


ENDAD-4 


02926 


32 


05112 


00000 


00410 




RCTY 




02938 


34 


00000 


00102 


00420 




WATY 


MES1 


02950 


39 


04767 


00100 


00430 




BNF 


•♦32, ZERO 


02962 


44 


02994 


05138 


00440 




WAT V 


ME S3 


02974 


39 


04799 
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03286 


33 


0324M 


00000 


00770 




AM 


SEV+6,3,10 
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2,22 


04170 


2 
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01660 




DSA 


DDAL8 


04176 


5 


X 










04176 


-4178 




01670 




OSC 


l,» 


04177 


I 




01680 


D0AL8 


DSC 
0 


1,0 


04178 


I 




01690 




DC 


5,19801 


04183 


5 








J9801 








01700 




DC 


3,010 


04186 


3 








-10 










01710 




OSA 


RDAREA 


04191 
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X 










04191 


J3776 




01720 




OSC 


It' 


04192 


1 




01730 


DDALl 


OSC 


2,22 


04193 


2 








22 










01 740 




OSA 


DDAL2 


04199 


5 


X 










04199 


-4201 




01750 




OSC 


l,» 


04200 


I 




01760 


DDAL2 


OSC 
0 


1,0 


04201 


1 




01770 




DC 


5,04800 


04206 


5 








-4800 








01780 




DC 


3,002 


04209 


3 








-02 










01 790 




OSA 


RDAREA 


04214 


5 


X 










04214 


J3776 




01800 




OSC 


It" 


04215 


1 




01810 


I0RT 


OS 


,565 


00565 


0 




01820 


IOGT 


DS 


,566 


00566 


0 
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01840 


IEK010 


oc 


10t0 


04219 
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01150 


PACK 


oc 


5.0 


04230 




5 








-oooo 










0lt60 


MOMPK 


osc 

0 


1.0 


06231 




1 




01870 


MONCAL 


OS 


,796 


00796 
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01680 


BUTTON 


osc 


1.0,655 


00415 




1 




01190 


10PT 


0 

OS 


,532 






0 




01900 


LSTENT 


oc 


25 , 70990 I 58000690990 1 660 162 • 


04256 




25 
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01910 




OSC 


3 ,000 


04257 




3 








000 












01920 




OSA 


DIMERR 


04266 




5 


X 1 














—4099 




01930 




OC 
-6« 


3,06* 


04267 




3 




01940 


MESS 


DSA 


KEYMES 


04272 




5 


X 1 










04272 




-4021 




01950 




OC 
-6« 


3,06* 


04275 




3 




01960 


AODRS 


DSA 


RDAREA*71 


04280 




5 


X 1 










04280 




J3847 




01970 


MOD 


OS 


f DLABL+1 1 


02513 




0 




01980 


SYSCAL 


OS 


,675 


00475 




0 




01990 


LABL 


TFM 


IORT,»*23 


04282 


16 


00565 


-4305 






B 


I0PT.LABL1.7 




49 


00532 


—4330 


02010 




TRA 




04306 


36 


00000 


00500 










04318 


49 


00000 


00000 


02020 


LABL I 


OSC 


2,22 


04330 




2 








22 












02030 




OSA 


LABL2 


04336 




5 


X I 










04336 




-4338 




02040 




DC 


It 1 


04337 




1 




02050 


L ABL2 


OSC 


1,1 


04338 




1 




02060 




1 

OC 


5,18200 


04343 




5 








J82O0 










02070 




DC 


3,020 


04346 




3 








-20 












02080 




DC 


5,02502 


04351 




5 








-2502 










02090 




DC 


It" 


04352 




1 




02100 




TCD 


LABL 


04282 
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BUTTON 


00455 
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04280 


00AL8 


04178 


LABL 1 


04330 


RSPT 


03178 


DIMERR 


04099 


D0AL1 


04193 


OLABL 


02502 


LABL2 


04338 


SEV 


03238 


ERRMES 


04264 


0DAL2 


04201 


ERRIO 


03842 


LABL 


04282 


SETFLG 


02730 


KEYMES 


04021 


00AL3 


04124 


ERR1 


03822 


LAB 


03574 


SYSCAL 


00475 


KYMESS 


03916 


0DAL4 


04132 


INPUT 


13613 


MESS 


04272 


TEST48 


03078 


LSTENT 


04256 


DDAL5 


04147 


IOGT 


00566 


MOO 


02513 


2ER010 


04225 


MONCAL 


00796 


0DAL6 


04155 


10PT 


00532 


MONPK 


04231 






RDAREA 


13776 


0DAL7 


04170 


IORT 


00565 


PACK 


04230 
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00020 




DORG 


3000 


03000 








00030 


IORT 


OS 


,565 


00565 


0 






00040 


MONCAL 


OS 


,796 


00796 


0 






00050 


IOGT 


OS 


,566 


00566 


0 






00060 


I OPT 


OS 


,532 


00532 


0 






00070 


04800 


osc 


2,22 


03000 


2 










22 












00080 




DSA 


DIMDOA 


03006 


5 


X 


1 










03006 


-3008 






00090 




DC 


1,' 


03007 


I 






00100 


DIMDOA 


DSC 


1,1 


03008 


1 






00110 




1 

OSA 


4800 


03013 


5 


X 


1 










03013 


-4800 






00120 




DC 


3,1 


03016 


3 










-oi 












00 1 30 




DSA 


DSEC 


0 3021 


5 


X 


1 










03021 


-9900 






001*0 




DC 
1 


1 , ' 


03022 


I 






00 1 50 


DEQU 


DSC 


2,22 


03023 


2 










22 












00160 




DSA 


EQUIV 


03029 


5 


X 


1 










03029 


-9940 






001 70 




DC 


1 » ' 


03030 


1 






00180 


I IBEF 


DSC 


2,22 


03031 


2 










22 












00190 




DSA 


DSEC 


03037 


5 


X 


I 



00200 




OC 


It* 








03038 




1 




00210 


• 




















00^20 


INEOU 


DS 


,10000 








10000 




0 




00230 


DSEC 


OS 


,9900 








09900 




0 




00240 


CC 


OS 


,13613 








13613 




0 




002">0 


DFL IB 


SF 


CC*25,,, SET 


FLAG 


ON 


NUMBER 


03040 


32 


13638 


00000 


00260 




SF 


CC+ll,,, SET 


FLAG 


ON 


NAME 


03052 


32 


13624 


00000 


00270 




BO 


ERTEN, CC^23 








03064 


43 


03740 


13636 


00280 




BD 


ERTEN, CC^24 








03076 


A3 


03740 


13637 


00290 




BD 


•♦20,CC+25 








0 3088 


43 


03108 


13638 


00300 




87 


ER1EN 








03100 


49 


03740 




00310 




BD 


•+20,CC*27 








03108 


43 


03128 


13640 


00320 




87 


ERTfcN 








03120 


49 


03740 




00330 




TFM 


8M*U,CC-2 








03128 


16 


03187 


J3611 


00340 


AM 


AM 


BM*ll,l 








03140 


11 


03187 


-0001 


00350 




CM 


BM+U ,CC*29,7 








03152 


14 


03187 


J3642 


00360 




BE 


RMOK 








03164 


46 


03196 


01200 


00370 


8M 


BNR 


AM, 0*0 








03176 


45 


03140 


00000 
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87 


ERTEN 




03188 


49 


03740 




00390 


• 
















00400 


RMOK 


BTM 


CKZRO.00,10 




0 3196 


17 


03552 


000-0 


00410 




TFM 


IORT, •♦23,, READ 


EQU TABLE DIM 


0 3208 


16 


00565 


-3231 


00420 




B 


IOGT, 04800, 7 




03220 


49 


00566 


-3000 


00430 




TF 


CNT,EQUIV+8,, SAVE 


NUMB SECTORS IN DIM 


03232 


26 


03051 


09948 


00440 




TFM 


EQUIV+13,INEQU 




0 3244 


16 


09953 


JOOOO 


00450 




TFM 


EQUIV+8,8,9, SET 


NUM SECTOR TO 8 


03256 


16 


09948 


00-08 


00460 




TR 


DSEC, EQUIV 




0 3268 


31 


09900 


09940 


00470 




SM 


CNT, 8, 9 




03280 


12 


03051 


00-08 


00480 


RDEQU 


TFM 


IORT, •♦23, , READ 


FIGHT SECTORS OF TABLE 


03292 


16 


00565 


-3315 


00490 




B 


IOGT, DEQU, 7 




03304 


49 


00566 


-3023 


00500 




TFM 


COMPN+ll, INEQU-5 




03316 


16 


03395 


-9995 


00510 


ADEOU 


AM 


COMPN+ll, 16 




03328 


U 


03395 


-0016 


00520 




BNR 


•♦20 ,COMPN+ll,ll 




03340 


45 


03360 


0339N 


00530 




B7 


OKALL 




03352 


49 


04162 




00540 




CM 


C0MPNMl,INEQU+800 




03360 


14 


03395 


JOBOO 


00550 




BH 


TESTL 




03372 


46 


03506 


01100 


00560 


COMPN 


C 


CC+22,0»0 




03384 


24 


13635 


00000 


00570 




BNE 


ADEQU 




03396 


47 


03328 


01200 


00580 




RCTY 






03408 


34 


00000 


00102 


00590 




TFM 


STERR+24,7571,8 




03420 


16 


03501 


0P571 


00600 




WATY 


STERR 




03432 


39 


03477 


00100 


00610 


NAMER 


TDM 


CC+24,0 




03444 


15 


13637 


00000 


00620 




DC 


!,',• 




03455 




1 




00630 




WATY 


CCU2 




03456 


39 


13625 


00100 


00640 




B7 


EXITE 




03468 


49 


03636 




00650 


STERR 


DAC 


15,DUP« ERROR 51 * 




03477 




15 


X 2 






DUP» 


ERROR 51 • 












00660 


TESTL 


CM 


CNT, 0,9 




03506 


14 


03051 


00-00 


00670 


EQUIV 


OS 


,DS£C+40 




09940 




0 




00680 




BNH 


OKALL 




03518 


47 


04162 


ouoo 


00690 




A 


EQUI V+5,EQUm8 




03530 


21 


09945 


09948 


00700 




87 


RDEQU-12 




03542 


49 


03280 




00710 


CNT 


DS 


,DFLIB*ll 




03051 




0 




00720 




OS 


2 




03550 




2 




00730 


CK2R0 


C 


CC+22,ZER0,, TEST 


FOR INVALID OPERAND OR OPERAND MISSING 


03552 


24 


13635 


03794 


00740 




BE 


ERONE 




03564 


46 


03600 


01200 


00750 




C 


CC+28,ZERD-8 




03576 


24 


13641 


03786 


00760 




BNE 


OVERR 




03588 


47 


03656 


01200 


00770 


ERONE 


RCTY 






03600 


34 


00000 


00102 


00780 




TFM 


STERR^24,0071,8 




03612 


16 


03501 


0-071 


00 790 




WATY 


STERR 




03624 


39 


03477 


00100 


00800 


SYSCAL 


DS 


,475 




00475 




0 




00810 


EXITE 


H 






03636 


48 


00000 


00000 


00820 




87 


MONCAL 




03648 


49 


00796 




00830 


OVERR 


TO 


DIG.CC+25 




03656 


25 


03688 


13638 


00840 




CF 


DIG 




03668 


33 


03688 


00000 


00850 




CM 


DIG, 7, 710 




03680 


14 


03688 


-00-7 


00860 




BNE 


ERTEN 




03692 


47 


03740 


01200 


00870 




TO 


0IG,CC*27 




03704 


25 


03688 


13640 


00880 




CM 


DIG, 7,10 




03716 


14 


03688 


000-7 


00890 




BE 


OVTEN 




03728 


46 


03796 


01200 


00900 


ERTEN 


RCTY 






03740 


34 


00000 


00102 


00910 




TFM 


STERR*24,7170,8 




03752 


16 


03501 


0P170 
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WATY 


STERR 


03764 


39 


03477 


00100 


00930 




B7 


EXITE 


03776 


49 


03636 
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OS 
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03666 
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/pan 


OC 


12,0 


03794 




12 








-00000000000 










00960 


* 
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OVTEN 


TPM 


SFVAL*6 9 COll 


03796 


16 


03638 


J3624 


00910 




TFM 


CVAL , C012 




16 


03643 


J3625 


00990 




TOM 


SFVAL*13,9 




15 




00009 


01000 


SFVAL 


SF 


0*0 


03812 


32 


00000 


nnnnn 


01010 


CVAL 


OS 


, SFVAL* 11 










01020 




49 


CRIST 


03844 


49 


03984 


ouooo 


01030 


CKSP 


CM 


CVAL . 41,610 


03856 


14 


0384L 


000M1 


01040 




BL 


EATEN 


03666 


47 


03740 


01 300 


01050 




AM 


CVAL ,2 


03880 


1 1 


03843 


—0002 


01060 




CF 


SFVAL*6,,6 


03892 


33 


03B3Q 


00000 


01070 




AM 


SFVAL*6,2,10 


03904 


1 1 


03838 


000—2 


01060 




SF 


SFVAL*6,,6 


03916 


32 


03830 


ooooo 


01090 




CM 


CVAL ,00,610 


03928 


14 


0384L 


000-0 


01 100 




BE 


CKBLK 


03940 


46 


04052 


01 200 


Oil 10 




CM 


CVAL ,CC*22 


03952 


1 4 


03843 


J 3635 


01 120 




ANN 


RNGECK 


03964 


* 6 




01300 


01 130 




97 


SFVAL 


03976 


49 


03832 




01140 


CK1ST 


TOM 


SFVAL*13,l 


03984 


15 


03845 


0000 1 


01 150 




CM 


CVAL, 79,610 


03996 


14 


0384L 


O00P9 


01 160 




BH 


ERTEN 




?t 






01170 




CM 


CVAL ,70,610 




14 




ooopo 


01 180 




BL 


CKSP 


04032 


47 


03856 


01300 


01 190 




87 


ERTEN 


04044 


49 


03740 




01200 
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01210 


CKBLK 


C 


CC*22,ZERD 


04052 


24 


1 3635 




01220 




BI 


•♦12,1400 


04064 


46 


04076 


01400 
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BNE 


ERTEN 
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03740 


01200 
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CHECK RANGE OF DIM NUMB 
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04088 


33 


0383Q 


OOOOO 


01270 




CM 


CC*28,7170,8 


04 100 


14 


13641 




01260 




BL 


ERTEN 


04 112 


4 7 


03740 


01 300 


01290 




CM 


CC*28, 7379,8 


04124 


14 


1 3641 


0P379 


01300 




BH 


ERTEN 


04136 


46 


03740 


01 100 


01310 




SF 


CC*ll 


04148 


32 


13624 


OOOOO 


01320 




BB2 




04160 


42 






01330 


• 


END OF VALIDITY CHECKS 
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00565 
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B 
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49 


00566 


-3031 


01360 


CO 


DS 


, RNGECK 


04086 




0 




01370 




TFM 


C0+ll,INEQU-5. 


04166 


16 


04099 


-9995 






AM 


C 0+11,16 










01390 




C 


CO*ll, NINES, 67 


04210 


24 


0409R 


-4312 


01400 




BE 


PUT 


04222 


46 


04314 


01200 


01410 




CM 


C0*ll,INEQU*779 


04234 


14 


04099 


J0779 


01420 




BNH 


A2E0U 


04246 


47 


04198 


01100 


01430 




RCTY 




04258 


34 


00000 


00102 


01440 




TFM 


STERR*24, 7574,8 


04270 


16 


03501 


0P574 


01450 




WATY 


STERR 


04282 


39 


03477 


00100 


01460 




B7 


NAMER 


04294 


49 


03444 
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NINES 
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04312 
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01480 


PUT 


TF 
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04314 


26 


0409R 


13635 


01490 




AM 
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04326 


11 


04099 


-0004 


01500 




TFM 


CO* 11,0,68 


04338 


16 


0409R 


0-000 


01510 




TD 


C0*U,CC*28,6 


043*0 


25 


0409R 


13641 


01520 




SM 


CO*ll,l 


04362 


12 


04099 


-0001 


01530 




TD 


C0*ll,CC*26,6 


04374 


25 


0409R 


13639 


01540 




TFM 


IORT,»*23 


04386 


16 


00565 


-4409 


01550 




B 


I0PT,LIBEF,7, WR LIBRAY NAMES 


04398 


49 


00532 


-3031 


01560 


• 


HI 
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01570 




RCTY 




04410 


34 


OOOOO 


00102 


01580 




WATY 


PLACE 


04422 


39 


04575 


00100 


01590 




SM 


CO*ll,l 


04434 


12 


04099 


-0001 


01600 




TOM 


C0*U,0,6 


04446 


15 


0409R 


OOOOO 


01610 




DC 
• 


1,',« 


04457 




I 




01620 




SM 


C0*U,12 


04458 


12 


04099 


-0012 


01630 




WATY 


CO* 11 ,,6 


04470 


39 


0409R 


00100 


01640 




AM 


com, 12 


04482 


11 


04099 


-0012 


01650 




TFM 


com, 0,610 


04494 


14 


0409R 


000-0 


01660 




AM 


C0*U,3 


04506 


11 


04099 


-0003 


01670 




TOM 


C0*ll,0,6 


04518 


15 


0409R 


ooooo 


01680 




DC 




04529 








01690 




SM 


C0*ll,4 


04530 


12 


04099 


-0004 


01700 




WNTY 


C0*ll,,6 


04542 


38 


0409R 


00100 


01710 




TOM 


SYSCAL.3 


04554 


15 


00475 


00003 


01720 




87 


EXITEM2 


04566 


49 


03648 




01730 


PLACE 


DAC 
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04575 




26 


X 2 



FORTRAN LIB NAME ENTEREO • 
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DIMDDA 


03008 


CKBLK 


04082 


DEL IB 


03040 






PUT 


04314 


MONCAL 


00796 


CKSP 


03836 


OIG 


03688 


IORT 


00965 


AOEQU 


02292 


ANGECK 


04088 


CKIRO 


03112 


OSEC 


09900 


LI BEE 


03031 


AMOK 


03196 


A2E0U 


04198 


CNT 


03051 


EQUIV 


09940 


NAMER 


03444 


SFyAL 


03832 


AOEQU 


03328 


COMPN 


03384 


ERONE 


03600 


NINES 


04312 


STERR 


03477 


AM 


03140 


CO 


040S8 


ERTEN 


03740 


OK ALL 


04|62 


TESTL 


03506 


BM 


03176 


CVAL 


03843 


EXITE 


03636 


OVEAR 


03696 


ZERO 


03794 


CC 


13613 


06800 


03000 


INEQU 


1 0000 


OVTEN 


03796 


SVSCAL 


00475 


CK1ST 


03984 


DEQU 


03023 


I OCT 


00566 


PLACE 


04575 
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2,-11,6301 
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00030 
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OC 


2,-33,6303 
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00040 




11 

DC 


2,-55,6305 
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00050 




NN 

DC 


2,-77,6307 
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00060 




PP 

DC 
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RR 

DS 


,6300 


06300 
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00080 


LASTNU 


DC 


5,9,6314 


06314 
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DC 


3,100,6317 
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DS 
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00120 


CC 


OS 
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13613 




0 




00130 


IOPT 


OS 
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00532 




0 




00140 


IOGT 


DS 
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0 




00150 


IORT 


DS 


,565 


00565 




0 




00160 


IORBC 


OS 


,520 


00520 




0 




00170 


MONCAL 


DS 


,796 


00 796 




0 




00180 


SYSCAL 


OS 


,475 


00475 




0 




00190 


• 


CK FOR RK MK IN CONTROL RECORD 










00200 


OCOPY 


TFM 


TRM+ll.CC-2 


02700 


16 


02759 


J36U 


00210 


8AKT 


AM 


TRM*ll,2 


02712 


11 


02759 


-0002 


00220 




CM 


TRM*ll,CC*5W 


02724 


14 


02759 


J3715 


00230 




BH 


GOONT 


02736 


46 


02780 


01100 


00240 


TRM 


8NR 


BAKT,0*0 


02748 


45 


02712 


00000 


00250 




TFM 


STERR*24, 7170,8 


02760 


16 


03633 


OP 170 


00260 




87 


ERONE ♦ 12 


02772 


49 


03552 




00270 


• 














00280 


• 














00290 


GOONT 


BO 


•♦20.CC+73,, BR IF TO SECTOR GIVEN 


02780 


43 


02800 


13686 


00300 




87 


ERONE,,, OPERAND MISSING 


02792 


49 


03540 




00310 




SF 


CC*99,,, SET UP ANO CHECK FOR FILE PROTECTION DESIRED 


02800 


32 


13712 


00000 


00320 




CM 


CC*100, 57,10 


02812 


14 


13713 


000N7 


00330 




BNE 


• ♦24 


02824 


47 


02848 


01200 


00340 




SF 


STCHG*1.,, SET INO IF FILE PROTECTION DESIRED 


02836 


32 


02861 


00000 


00350 




RD 


SFSECL,CC*61,,BR IF SECTOR LIMITS GIVEN 


02848 


43 


03176 


13674 


00360 


• 


ROUTINE TO CONVERT ALPHA TO NUMERIC 










00370 


STCHG 


TFM 


STU6,CC*23 


02860 


16 


02890 


J3636 


00380 




TFM 


STI*lltCC*24 


02872 


16 


02895 


J3637 


00390 


STl 


TO 


CC*23.CC+24 


02884 


25 


13636 


13637 


00400 




AM 


ST1*6,1 


02896 


11 


02890 


-0001 


00410 


• 


CK FOR NO N- NUMERIC SECTOR ADDRESS 










00420 




CM 


STl*ll,CC*40 


02908 


14 


02895 


J3653 


00430 




BL 


ON 


02920 


47 


03036 


01300 


00440 




SM 


SU + Ufl 


02932 


12 


02895 


-0001 


00450 




TO 


•♦35,STmitll 


02944 


25 


02979 


0289N 


00460 




AM 


STUU.l 


02956 


U 


02895 


-0001 


00470 




CM 


•♦8,07000,710 


02968 


14 


02976 


-70-0 


00480 




BE 


ON 


02990 


46 


03036 


01200 


00490 




CM 


•-13,0,10 


02992 


16 


02979 


000-0 
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BE ' 


ON 


03004 


46 


03036 


01200 


00 s I o 




TFM 


STERR* 24 ,7175,8 


03014 


16 


03633 


OP 175 


00520 




B7 


E RONE* 12 


03028 


49 


03952 




00530 


ON 


AM 


STI*l 1,2 


03038 


|1 


02895 


-0002 


00540 




CM 




03088 


|4 


02895 


J3689 


00550 




BL 


STl 


03080 


47 


02884 


01300 


00S60 




B TM 




03072 


17 


03268 


-3207 


00570 




MM 


DCDPY+68 ,5 , 10 


03088 


13 


02768 


000-5 


00580 




TF 


lA^TMD.QQ.. PUT IARCFST 1 FT.il DIM MtJMft+1 IN LA&TNO 


03098 


26 


06314 


00099 


00590 




SAVE 


SCRATCH AREA OIM 










00600 


rnpv 






02700 




o 




00610 




TR 


WUrIT 1UU ,l*U— f— 4CU 


03108 


31 


02800 


02720 


00620 




TOM 




03120 


|5 


02810 


00000 


006 30 




TOM 


f hp v* i no. n 


03132 


15 


02809 


00000 






* 


rnavi ina.rriPv+iflA 

tUrTf tUD|LUrT»lUD 


03144 


2| 


02808 


02808 


00650 


_ 




r no v i i i a 


02810 




o 




00660 


L fcN>L 




rLUK T ♦ I 1 U 


02810 




o 




















006 HO 




BNF 


nnAriw 'cir nr.*i i . rb if md ^Ffrna i imit^ 


03156 


44 


03452 


02873 






B 7 


i<^Hn| f | Lint i ) uiicn wu bncin Lint id 


03168 


49 


03196 




00700 






c rr Ljr.* \ ~\ . . . PBF^FAVF TMHirATlDM THAT ^FfTOR 1 IMIT£ filVFN 


03176 


32 


02873 


Ooooo 




N 


OS 




1 3639 




o 








87 


STCHG 




49 






oo no 


M 


SF 


cc+3i,2,8, Check for valid limits q has num eou dim 


03196 


32 


1 3644 


0-002 






SF 


CC07 


03208 


32 


1 3650 


nnnnn 






c 


CC*36.CC*42 




24 


1 3649 


1 3655 






BNH 


GOON 


03232 


47 


03968 


01 100 






TFM 


STERR+24,7177,8, EN0 A00RESS GREATER THAN BEGINNING ADDRESS 








0P1 77 






B7 


ERONE+12 


03296 


49 


03552 




00790 




GET DIM ROUTINE - ENTER USING BTM BAK , OIMAOR 














GET OIM ROUTINE - UPON EXIT DIM IS IN AOOR At RMCIUll 














OS 


5 


03267 




5 




00820 


B AK 


c 


•-1,LASTN0,6, CK FOR DIM IN RANGE 


03268 


24 


0326P 


06314 


008 30 




BL 


•♦32,,, BR IF OIM OK 


03280 


47 


0331 2 


01 300 


00 840 




TFM 


STERR+24,0076, 8, DIM TOO LARGE 


03292 


16 


03633 


0—076 


00850 




B / 


ER0NE+12, 


03304 


49 


03552 




00860 




TFM 


CALC1.4800,, CALCULATE THE FROM ADDRESS DIM ADDRESS 


03312 


1 6 


03642 


—4800 


00870 




TDM 


CALC 1*1,0 


03324 


15 


03643 


OUOOU 


00880 




A 


CALCl + l,BAK-l,U 


03336 


21 


03643 


0326P 


00890 




A 


CALCl+l,BAK-l,ll 




?I 






00900 




fF 


DDADIMfCALCl , , PUT SECTOR AOORESS IN DDA 




~* 






009 1 0 




TFM 


IORT,»+23 


03372 


16 


00565 


— 3395 


00920 




B 


I0GT,DEFl,7, GET DIM 


03384 


49 


00566 


- 3644 


00930 




TO 


•♦22,CALCl*l 


03396 


25 


03418 


03643 


00940 


RMCK 


BNR 


BBDIM ,R0DIM,7,BR IF DIM IS OK 


03408 


45 


03440 


-2700 


00950 




TFM 


STERR+24,0074,8, ERROR-DIM NOT IN USE 


03420 


16 


03633 


0—074 


00960 




B7 


ERONE+12 


03432 


49 


03552 




00970 


WBD I M 


8B 




03440 


42 


00000 


00000 


00980 
















00990 


GOAGIN 


SF 


DIMNO-3 


03452 


32 


13636 


00000 


01000 




CM 


CC*26,0,8 


03464 


14 


13639 


0-000 


01010 




BNE 


BTMD 


03476 


47 


03496 


01200 


01020 




B7 


EQUTLU, ,, GO GET DIM NUMBER 


03488 


49 


03676 




01030 


BTMD 


TFM 


0DADIM*8,DC0PY-100,, ALTER THE LINKAGE TO RO DIMS 


03496 


16 


03665 


-2600 


01040 




TFM 


RMCK+1I .OCOPY-lOO, , ALTER THE OIM GET ROUTINE 


03508 


16 


03419 


-2600 


01050 




BTM 


BAK »DIMN0, , GET DIM 


03520 


17 


03268 


J3639 



1620 MONITOR I DUP ROUTINE 



01060 




B7 


0KG00N 


03532 


49 


04084 




01070 


• 














01080 


ERONE 


TFM 


STERR*24,0071,8, ERROR-TO SECTOR NOT GIVEN 


03540 


16 


03633 


0-071 


01090 




RCTY 




03552 


34 


OOOOO 


00102 


01 100 




WATY 


STERR 


03564 


39 


03609 


00100 


01110 


EXIT 


H 




03576 


48 


00000 


00000 


01120 


OKEXIT 


BI 


•♦12, 1400 


03588 


46 


03600 


01400 


01130 




87 


MONCAL , , , ONLY EXIT FROM ROUTINE 


03600 


49 


00796 




01140 


S TERR 


DAC 


15, DUP* ERROR XX « 


03609 




15 


X 2 






DUP» 


ERROR XX • 










01150 


• 














01160 


CALCl 


DC 


5,0 


03642 




5 








-0000 










01170 




DS 


1 


03643 




1 




01180 


DEFl 


DSC 


2,22 


0 3644 




2 




01190 




22 
DSA 


DDAOIM-5 


03650 




5 


X 1 










03650 




-3652 




01200 




DC 


It* 


03651 




1 




01210 




DSC 
I 


1,1 


03652 




1 




01220 


RDDIM 


DS 


.OCOPY 


02700 




0 




01230 


00A0IM 


uc 


5,0 


03657 




5 








-0000 










01240 




DC 


3,1 


03660 




3 




01250 




-01 
OSA 


RDDIM 


03665 




5 


X I 










03665 




-2700 




01260 




DC 


1,' 


03666 




i 




01270 


• 














01280 


OEQU 


DSC 


2,22 


03667 




2 




01290 




22 
OSA 


OCOPY*40 


03673 




5 


X 1 










03673 




-2740 




01300 




DC 
t 


it* 


03674 




1 




01310 


• 














01320 


• 


TLU EQUIVALENCE TABLE 










01330 


EQUTLU 


BD 


•♦20,CC+ll 


03676 


43 


03696 


13624 


01340 




87 


ERONE * , , ERROR - ESSENTIAL OPERAND BLANK 


03688 


49 


03540 




01350 


CNT 


DS 


,ERONE+18 


03558 




0 




01360 




TF 


CNT, DC0PY*48,, SAVE NUM SECTORS IN EOU TABLE 


03696 


26 


03558 


02748 


01370 




TFM 


DC0PY*53,INEQU,7, FILL IN CORE AOORESS 


03708 


16 


02753 


J0000 


01380 




TFM 


DC0PY*48,16,9, SET NUN SECTORS TO 18 


03720 


16 


02748 


00-16 


01390 




SF 


CC^ll 


03732 


32 


13624 


00000 


01400 




SM 


CNT, 16,9 


03744 


12 


03556 


00-16 


01410 


RDEQU 


TFM 


!0RT,«*23,, RO 16 SECTORS EQ TAB 


03716 


16 


00569 


-3779 


01420 




B 


IOGT,DE0U,7 


03768 


49 


00966 


-3667 


01430 




TFM 


CQMPNM1, INEOU-5 


03780 


14 


03899 


-9993 


01440 


AOEQU 


AM 


COMPN+11,16 


03792 


11 


03899 


-0016 


01450 




BNR 


• ♦20,CONPNMl,ll 


03804 


49 


03824 


03858 



95* 
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01*60 




8? 


ERR20 1 » , ERROR - NAME NOT IN EOU TA8 


03816 


49 


03948 




01470 




CM 


COMPN* 11, I NEQU* 1600 


0)824 


14 


03859 


J 1600 


01480 




BM 


TESTL 1 1 1 BR IP END OF 16 SECTORS 


03836 


46 


03904 


01100 


01*90 


• 














01500 


COMPN 


C 


CC*22,0»0 


03848 


24 


13635 


00000 


01510 




8NE 


AOEQUt.t BR NOT FOUND, TRY AGAIN 


03860 


4? 


03792 


01200 


01520 


FOUND 


AM 


C0MPN*11.4 


03872 


11 


03839 


-0004 


01530 




TF 


DIMNO,C0MPN*ll,li, NAME FOUNO - MOVE NUMBER 


03884 


26 


13639 


0385R 


015*0 




B7 


BTMD, , , TAKE SAME PATH AS IF DIM NUM GIVEN 


03896 


49 


03496 




01550 


• 














01560 


T6STL 


CM 


CNT,0,9 


03904 


14 


03558 


00*00 


01570 




BNH 


ERR20,»» ERROR - NAME NOT IN EQ TAB 


03916 


47 


03948 


01100 


01580 




A 


DCOPY*45,DC0PY*48 


03928 


21 


02745 


02748 


01590 




87 


RDEQU-12 


03940 


49 


03744 




01600 


ERR20 


TFM 


STERR»2*,7270 ,8, NOT IN EQ TAB 


03948 


16 


03633 


OP270 


01610 




B7 


ER0NEM2 


03960 


49 


03552 




01620 


• 














01630 


• 














016*0 


GOON 


S 


CC**2,CC*36, , CHANGE SECTOR LIMITS TO SECTOR COUNT 


03968 


22 


13655 


13649 


01650 




AM 


CC**2.l 


03980 


11 


13655 


-0001 


01660 




TF 


SAVSCT, CC**2,, SAVE THE SECTOR COUNT 


03992 


26 


04312 


13655 






SF 


CC**0 


04004 


32 


13653 


00000 


01680 




TF 


CC*39,CC**2 


04016 


26 


13652 


13655 


01690 


8AK3 


CF 


CC*31,., MOVE 


04028 


33 


13644 


ooooo 


01700 




SF 


CC02.., FLAG 


04040 


32 


13645 


00000 


01710 




TOM 


CC**0,0 


0*052 


15 


13653 


ooooo 


01720 




OC 
• 


If • »• 


0*063 




1 




01730 




TR 


RDDIM,CC*3l 


0*064 


31 


02700 


13644 


017*0 




B7 


LOK 


0*076 


*9 


04120 




01 750 


OKGOON 


TR 


RDDIM,RMCK+U,ll, MOVE FROM DIM 


0*08* 


31 


02700 


0341R 


01 760 




TF 


SAVSCT, RDDI M*8 » , SAVE SECTOR COUNT 


0*096 


26 


04312 


02708 


017 70 




CF 


SAVSCT-2 


0*108 


33 


0*310 


ooooo 


01 780 


SAV2 


OS 


, * 


0*119 




0 




01 790 


I OK 


TF M 


R0DIM+13.INE0U 


0*120 


16 


02713 


J00OO 


01 800 


• 




THE NUMB SECTORS NEEOED IS IN SAVSCT 










0 I 8 1 0 
















01820 




SF 


CC*** 


0*132 


32 


13657 


ooooo 


01 830 




TF 


RDDIM*60+5,CC**8,, MOVE THE 


0*144 


26 


02765 


13661 


0181.0 




TO 


RDDIM*60,CC**3 TO SECTOR 


04156 


25 


02760 


13656 


01850 




TDM 


RDDIM+1*,0 


0*168 


15 


0271* 


ooooo 


01 860 




OC 
i 


1 1 ' t * 


0*179 




1 




01870 




TR 


R0DIM*60+6,RD0IM*6, .PUT SECTOR COUNT ♦ CORE ADDR IN TO DDA 


0*180 


31 


02766 


02706 


01880 


• 




GET SP LIST 










01890 




TO 


0DASPL,RDDIM*60, , GET CORRECT MOOULE AND 


0*192 


25 


0*327 


02760 


01900 




TO 


•♦35 ,RD0IM+6l,, AODRESS SCHEME FOR SP LIST 


0*20* 


25 


0*239 


02761 


omo 




CF 


•♦23 


0*216 


33 


0*239 


OOOOO 


01920 




TD 


OOASPL+l, POINT 


0*228 


25 


0*328 


06300 


01930 




TFM 


l0RT,»+23 ,, READ THE 


0*2*0 


16 


00565 


-*263 


01940 




8 


I0GT.0EFSPL, 7, SP LIST 


0*252 


*9 


00566 


-*319 


01950 






SEARCH FOR CYLINDER 










01960 


CYLCMP 


MM 


R0OIM*65,5 


0*26* 


13 


02765 


-0005 


01970 




TFM 


9*, 70,10, SET UP THE SP LIST CYL ENTRY 


0*276 


16 


0009* 


000P0 


01980 




TF 


CYLCMP+3,96 


0*288 


26 


04267 


00096 


01990 


# 




CYLINDER DESIREO IS AT CYLCMP+3 IN 70XX FORMAT 
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02000 




87 


CKSPL 


0*300 


49 


0*3*2 




02010 


SAVSCT 


OC 


6,0 


0*312 




6 








-OOOOO 










02020 


SAVCPY 


DC 


6,0 


0*318 




6 








-OOOOO 










02030 


DEFSPL 


DSC 


2,22 


0*319 




2 




020*0 




22 
DSA 


ODASPL 


0*325 




5 


X 1 










0*325 




-*327 




02050 




DC 


l»' 


0*326 




I 




02060 


DDASPL 


DS 




0*327 




1 




02070 




DSA 


19B01 


0*332 




5 


X 1 










0*332 




J9801 




02080 




OC 


3,100 


0*335 




3 








JOO 












02090 




DSA 


INEOU 


0*3*0 




5 


X 1 










0*3*0 




JOOOO 




02100 




OC 


1 , • 


0*3*1 




1 




021 10 






LOOK FOR CYLINOER ENTRY OF TO CYLINDER 










02120 


CKSPL 


SF 


INEOU ,,2 


0*3*2 


32 


JOOOO 


ooooo 


02130 




AM 


CKSPL*6,* 


04354 


11 


0*3*8 


-0004 


021*0 




AM 


CKSPL+*2,* 


04366 


11 


0*38* 


-0004 


02150 




C 


INE0U-l,CYLCMP+3,2 


04378 


2* 


-9999 


04267 


02160 




BNE 


CKSPL 


04390 


*7 


04342 


01200 


02170 


• 




SP POINTER IN CKSPL**2 HAS ADDR OF CYL ENTRY FOR THE 










02180 


• 




CYLINDER CONTAINING THE TO SECTOR 










02190 




TF 


WKl,CKSPL**2,ll, MOVE THE 70XX 


04402 


26 


04556 


0438M 


02200 




TOM 


WKl-2,0,11, MAKE FIELO OXX 


04*14 


15 


04554 


0000- 


02210 




A 


WK1,WK1,, FIVE DIGIT SECTOR AODR OF CYL IS AT WK2 


04426 


21 


04556 


04556 


02220 


• 




WK2 CONTAINS THE 5 DIGIT SECTOR ADDRESS OF THE TO CYL 










02230 


• 




RDDIM+65 CONTAINS THE 5 DIGIT TO SECTOR ADDRESS 










022*0 


• 




CKSPL**2 CONTAINS THE ADDRESS OR THE TO CYL ENTRY IN SP LIST 










02250 


• 














02260 


LAB 


SF 


CKSPL+6,,6 


04438 


32 


04340 


OOOOO 


02270 




AM 


CKSPL+6,* 


04450 


U 


04348 


-0004 


02280 




AM 


CKSPL**2,* 


04462 


11 


04384 


-0004 


02290 




CM 


CKSPL**2,9000,68 


04474 


I* 


0438M 


OROOO 


02300 




BH 


A VLENT 


04486 


*6 


04560 


01100 


02310 




CM 


CKSPL**2, 7000,68 


04*98 


1* 


0438M 


OPOOO 


02320 




8H 


ERUNA 


04510 


46 


04648 


01 100 


02 3 30 




CM 


CKSPL**2,0O0l,68 


04522 


14 


0438M 


0-00 1 


023*0 




8E 


SCRENT 


04534 


46 


04668 


01200 


02350 




87 


DIMENT 


04546 


49 


04728 




02360 


«K1 


DC 


*,0 


04556 




4 








-000 










02370 




DSC 


1,0 


04557 




1 




02380 


WK2 


0 

DSC 
0 


1*0 


04558 




1 




02390 






SAVSCT CONTAINS THE SECTOR COUNT TO BE COPIEO 










02*00 


• 




SENSC CONTAINS THE SECTOR COUNT OF SCRATCH AREA 











956 
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02410 • 



02*20 


AVLENT 


TF 


WKA,CKSPL**2,ll 


0*560 


26 


06227 


0438H 


02*30 




SF 


WKA-? 


0*572 


12 


06225 


00000 


02**0 




A 


WK2 , WKA, t ADO THE AVAIL SECTORS TO START OF CYLINDER 


0*586 


21 


0*558 


06227 


02**0 


UUTF1 


C 


WK2,RD0IM*65 


0*596 


2* 


04558 


02765 


02*60 




BH 


• ♦20 


0*608 


66 


04628 


01100 


02*70 




87 


LAB 


04620 


*9 


04438 




02*80 


OUTF 


SM 


WK2.1 


0*628 


12 


04558 


-0001 


02*90 




87 


FOUNDS 


0*660 


69 


04808 




02500 


ERUNA 


TFM 


STERR*2*,0078,8 


0*668 


16 


03633 


0-078 


02510 




B7 


ER0NE+12 


0*660 


*9 


03552 




02520 


SCRENT 


TF 


WK2,COPY*25 


0*668 


26 


04558 


02725 


02530 




A 


WK2.LENSC 


0*680 


21 


04558 


02810 


025*0 




CF 


STCHGM 


0*692 


33 


02861 


00000 


02550 




TFM 


STERR*2*,7176,8 


0*70* 


16 


03633 


OP 176 


02560 




B 


OUTF 


0*716 


*9 


04628 


00000 


02570 


• 














02580 


• 














02590 


DIMfcNT 


TF 


WKA,CKSPL**2,U 


0*728 


26 


06227 


0438M 


02600 




RTM 


BAK , WKA 


0*7*0 


17 


03268 


-6227 


02610 




T" 


WKDIM, RMCKfll.ll 


0*752 


31 


06228 


03*1R 


026?0 




A 


WK2,WKDIM*8, , AOO SECTOR COUNT TO BEGIN OF CYL 


0*76* 


21 


04558 


06236 


026 30 




C 


WK2.RDDIM+65 


0*776 


2* 


04558 


02765 


026*0 




BH 


ERUNA 


0*788 


*6 


04648 


01100 


02650 




B7 


LAB 


0*800 


*9 


0**38 




02660 


• 














02670 


• 




WHEN FOUNDS IS ENTERED WK2 CONTAINS AODR OF LAST SECT AVAIL 










02680 


FOUNDS 


TF 


WKHICP, R001M+65 


0*808 


26 


06223 


02765 


02690 




A 


WKHICP, RDDIM*68,, ADD SECTOR COUNT TO THE TO SECTOR ADDR 


0*820 


21 


06223 


02768 


02 700 




SM 


WKHICP, I,, OBTAIN THE LAST SECTOR TO BE COPIED 


0*832 


12 


06223 


-0001 


02 no 


CKIT 


C 


WK2, WKHICP 


0*8** 


2* 


0*558 


06223 


02 720 




BNL 


COPYI T 


0*856 


*6 


0506* 


CI 300 


02730 




CM 


CKSPL+*2,000i,68 


0*868 


I* 


0*38M 


0-001 


02 7*0 




BE 


ERONE+12 


0*880 


*6 


03552 


01200 


02750 
















02760 


I ABZ 


AM 


CKSPL**2,l,lO 


0*892 


11 


0*38* 


000-1 


02 770 




SF 


CKSPL**2, ,6 


0*90* 


32 


0*38N 


00000 


02780 




AM 


CKSPL*6,* 


0*916 


11 


0*3*8 


-000* 


02790 




AM 


CKSPL**2,3 


0*928 


11 


0*38* 


-0003 


02800 




CM 


CKSPL»*2 f 9000,68 


0*9*0 


I* 


0*38M 


OROOO 


02810 




BH 


AVL 


0*952 


*6 


0*996 


01100 


02820 




CM 


CKSPL**2, 7000,68 


0*96* 


1* 


0*38* 


OPOOO 


028 30 




BH 


LAB Z 


0*976 


*6 


0*892 


01100 


028*0 




B7 


ERUNA 


0*988 


*9 


0*6*8 




02850 


AVL 


TF 


WKA, CKSPL+*2 , 11 


0*996 


26 


06227 


0*38M 


02860 




SF 


WKA-2 


05008 


32 


06225 


00000 


028 70 




A 


WK2 r WKA 


05020 


21 


0*558 


06227 


02880 




r. 


WK2 f WKHICP, , WKHICP IS LAST SECTOR TO BE COPIED 


05032 


2* 


0*558 


06223 


02890 




BH 


COPYIT 


050** 


*6 


0506* 


01100 


02900 




B7 


LAB2 


05056 


*9 


0*892 




029L0 
















02920 






COPY SUBROUTINE 










02930 


COPY I T 


TF 


SAVCPY.SAVSCT, , SAVE THE NUM OF SECTORS 


0506* 


26 


0*318 


0*312 


02940 




TFM 


RD0tM*33,INEQU 


05076 


16 


02733 


JOOOO 


02950 




TF 


RDDIM+25,RDDIM*65 


05088 


26 


02725 


02765 


02960 




TO 


RDDIM+20,R00IM#60 


05100 


25 


02720 


02760 



02970 


SAVRD 


DS 


, FOUNDS 


0*808 




0 




02980 


SAVWR 


DS 


,RDEOU 


03756 




0 




02990 




TR 


SAVRD, RDDIM 


05112 


31 


0*808 


02700 


03000 




TR 


SAVWR.RDDIM+20 


0512* 


31 


03756 


02720 


03010 


REPEAT 


S 


SAVCPY.NUMSEC 


05136 


22 


0*318 


06317 


03020 


CHOP 


BL 


ADJUST 


051*8 


*7 


05192 


01300 


03030 




TF 


RDDIM*8,NUMSEC 


05160 


26 


02708 


06317 


030*0 




TF 


RDDIM+28.NUMSEC 


05172 


26 


02728 


06317 


03050 




07 


RDWR 


0518* 


*9 


05252 




03060 


ADJUST 


A 


SAVCPY.NUMSEC 


05192 


21 


0*318 


06317 


03070 




S«= 


SAVCPY-2 


0520* 


32 


0*316 


00000 


03080 




TF 


RD0IM*8,SAVCPY 


05216 


26 


02708 


0*318 


03090 




TF 


ROD I M+28 , SAVCPY 


05228 


26 


02728 


0*318 


03100 




S 


SAVCPY.SAVCPY 


052*0 


22 


0*318 


0*318 


03110 


RDWR 


TFM 


10RT,»*23 


05252 


16 


00565 


-5275 


03120 




B 


I0GT.DEFIN.7, READ IN NUMSEC - OR LAST REMAINDER RECORD 


0526* 


*9 


00566 


-5379 


03130 




BD 


SETFPR,CHGP*7,, BR WHILE FLIP PROTECTION IS OCCURRING 


05276 


*3 


06036 


05155 


031*0 


WRDSKF 


TFM 


I0RT,»+23 


05288 


16 


00565 


-5311 


03150 




a 


I0PT,DEF0UT,7. WRITE COPY 


05300 


*9 


00532 


-5387 


03160 




A 


RDDIM*5,R0DIM*8 


05312 


21 


02705 


02708 


03170 




A 


RDDIM+25,RD0IM*28 


0532* 


21 


02725 


02728 


03180 


CFINS 


CF 


SAVCPY-2 


05336 


33 


0*316 


00000 


03190 




CM 


SAVCPY.O,, IS RD-WR FINISHED 


053*8 


1* 


0*318 


-0000 


03200 




BNZ 


REPEAT 


05360 


*7 


05136 


01200 


03210 


• 


TRANSFER OF DATA IS COMPLETE 










03220 




B7 


LC0PY-12 


05372 


*9 


05396 




03230 


OEFIN 


DSC 


2.22 


05379 




2 




032*0 




22 
DSA 


ROD I M 


05385 




5 


X I 










05385 




-2700 




03250 




DC 


l.« 


05386 




I 




03260 


OEFOUT 


DSC 


2,22 


05387 




2 




03270 




22 
OSA 


RDDIM+20 


05393 




5 


X I 










05393 




-2720 




03280 




DC 


I.* 


05394 




1 




03290 


• 


CHECK FOR FILE PROTECTION DESIREO 










03300 




BNF 


• ♦20.STCHGM 


05396 


** 


05*16 


02861 


03310 


LCOPY 


B7 


FILPRO 


05408 


*9 


0571* 




03320 


• 


END ROUTINE 










03330 


ENDC 


TDM 


SAVRD+6,0 


05416 


15 


0*81* 


00000 


033*0 




DC 


lt*.« 


05427 




I 




03350 




TDM 


SAVWR*6,0 


05428 


15 


03762 


00000 


03360 




DC 
• 




05439 




1 




03370 




TDM 


SAvscm 


05440 


15 


0*313 


00000 


03380 




OC 




0S4S1 




1 




03390 




RCTY 




05452 


3* 


00000 


00102 


03*00 




WNTY 


SAVSCT-* 


05464 


38 


0*308 


00100 


03*10 




MATY 


FINMES 


05476 


39 


05605 


00100 
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03*20 




BNF 


•*36»STCHG*1 


054it 


44 


05524 


02861 


01*30 




WNTY 


SAVR0*5 


05500 


38 


05743 


00100 


034*0 




R 


•♦24 


0S5I2 


49 


05536 


00000 


03450 




WNTY 


SAVRO 


05524 


38 


04808 


00100 


03460 




WATY 


FINMS2 


05536 


39 


05665 


00100 


03470 




WNTY 


SAVWR 


05548 


38 


03756 


00100 


03480 




BNF 


•♦24.STCHGM 


05560 


44 


05584 


02861 


03490 




WATY 


FL 


05572 


39 


05675 


00100 






TOM 


SYSCALt3 


05584 


15 


00475 


00003 


03510 




87 


OKEXIT 


05596 


49 


03588 




03520 


• 














03530 


FINMES 


DAC 


30 c SECTORS OF OATA COPIEO FROM • 


05605 




30 


X 2 






SECTORS OF OATA COPIED PROM • 










03540 


F INMS2 


DAC 

TO 1 


5i TO • 

i 


05665 




5 


x 2 


03550 


FL 


DAC 


?n. iNn eii c oDDTcrrcri* 


05675 




20 


X 2 






AND 


rlLC rKUICbltU' 










03560 


• 




tic DBflTFrTtniU BnilTfMC 










03570 


FILPRO 


RC TY 




05714 


34 


00000 


00102 


03580 




WATY 


KEYMES 


05726 


39 


05915 


00100 


03590 


SAVRO 




0*0*7 


05738 


48 


00000 


-0000 


03600 




DC 


I » • » • 


05749 




1 




03610 






Mint Jt^H| «»0*>0 f o 


05750 


16 


05939 


0M646 


03620 






l\Ct f IkJ A. 1 i 


05762 


15 


05380 


00006 


03630 




TDM 


DEFQUT*l t 6 


05774 


15 


05388 


00006 


03640 




TDM 


CHGP+7,1,, SET INO FOR FILE PROTECTION BRANCH 


05786 


15 


05155 


00001 


03650 




TF 


CFINSHltOUMl+ll 


05798 


26 


05347 


05913 


03660 




TF 


CFINS*l8,DUM+6 


05810 


26 


05354 


05900 


03670 




TR 


RDOIM, SAVWR 


05822 


31 


02700 


03756 


03680 




TR 


RDDIM*20, SAVWR 


05834 


31 


02720 


03756 


03690 




TFM 


RDOIM*8,20,9 


05846 


16 


02 708 


00-20 


03700 




TFM 


RDDIM*28,20,9 


05858 


16 


02728 


00-20 


03710 




TF 


SAVRO*10,SAVRD*5 


05870 


26 


05748 


04813 


03720 




TD 


SAVROt5,SAVRD 


05882 


25 


05743 


04808 


03730 


DUM 


B7 


RDWRt t 0 


05894 


M9 


05252 




03740 


DUMl 


80 


ENDMES, SETX*10,0 


05902 


M3 


0S992 


06210 


03750 


• 














03760 


KEYMES 


DAC 


39, DUP* TURN ON WRITE ADORESS KEY, START* 


05915 




39 


X 2 






DUP» 


TURN ON WRITE ADDRESS KEY , START * 










03770 
















03780 


ENDMES 


RC TY 




05992 


34 


00000 


00102 


03790 




WATY 


KEYMES 


06004 


39 


05915 


00100 


03800 




H 




06016 


48 


00000 


00000 


03810 




B7 


ENDC 


06028 


49 


05416 




03820 


» 














03830 


• 


SELECT AND FILE PROTECT THE SECTORS COPIED 










03840 


SETFPR 


TFM 


SFFL*ll,INEQU,7 


06036 


16 


06083 


JOOOO 


03850 




AM 


SFFL*> L 1 ,4 


06048 


1 1 


06083 


-0004 


03860 


CFH 


TFM 


FLAGU.41,10 


06060 


16 


06145 


000M1 


03870 


SFFL 


C 


SAVWR+5, INEQU.7 


06072 


24 


03761 


JOOOO 


03880 




BH 


FLAG- 12 


06084 


46 


06132 


01100 


03890 


PNT 


OS 


,SFFL+11 


06083 




0 




03900 




C 


WKHICP,PNT,U 


06096 


24 


06223 


0608L 


03910 




Bl 


SETX 


06108 


47 


06200 


01300 


03920 




TFM 


FLAG*1,32.10 


06120 


16 


06145 


0OOL2 
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03930 




SM 


PNT, 4 


06132 


12 


06083 


-0004 


03940 


FLAG 


SF 


PNT, ,6, 


THIS IS THE SET OR CLEAR FLAG INSTRUCTION 06144 


32 


0608L 


00000 


03950 




AM 


PNT, 105 


06156 


U 


06083 


-0105 


03960 




CM 


PNT,105»20*INEQU 


06166 


14 


06083 


J2100 


03970 




BNH 


SETFPRM2 


06180 


47 


06048 


01100 


03980 




87 


WRDSKF 


06192 


49 


05288 




03990 
















04000 


SETX 


TDM 


SETX+10,9 


06200 


15 


06210 


00009 


04010 




87 


WROSKF 


06212 


49 


05288 




04020 


WKHICP 


OS 


5 


06223 




5 




04030 


WKA 


DS 


4 


06227 




4 




04040 


WKDIM 


DSS 


20 


06228 




20 




04050 




DEND 




00000 









9«e 
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ADJUST 


05192 


OKGOON 


04084 


DEE 1 


03644 


LAB 


04438 


STl 


02884 


AVLENT 


04560 


REPEAT 


0513* 


OEEIN 


05379 


LABI 


04892 


STCHG 


02860 


COPYIT 


05064 


AOEQU 


03792 


OCQU 


03667 


LCOPY 


05408 


STERR 


03609 


CYLCMP 


04264 


AVI 


04996 


DIMNO 


13639 


LENCS 


02810 


TESTL 


03904 


D0AD1N 


03657 


BAK3 


04028 


DUM1 


05902 


LENSC 


02810 


TRM 


02748 


DOASPL 


04327 


BAR 


03268 


OUM 


05894 


LOR 


04120 


WKl 


04556 


DEFOUT 


05387 


BART 


02712 


ENDC 


05416 


ON 


03036 


WR2 


04558 


OEFSPL 


04319 


BBDIN 


01440 


ERONE 


0 3540 


OUTFl 


04596 


WRA 


06227 


DIMENT 


04728 


BTND 


03496 


ERR20 


03948 


OUTF 


04628 


WRDIM 


06228 


ENDMES 


05992 


CALC1 


03642 


ERUNA 


04648 


PNT 


06083 


SAVCPV 


04318 


EOUTLU 


03676 


CC 


13613 


EXIT 


03576 


POINT 


06300 


SAVSCT 


04312 


FILPRO 


0«>714 


CFH 


06060 


FLAG 


06144 


RODIN 


02700 


SCRENT 


04*68 


FINMES 


05605 


CFINS 


05336 


FL 


05675 


RDEOU 


03756 


SETFPR 


06036 


F INMS2 


05t>65 


CHGP 


05148 


FOUND 


03872 


RDWR 


05232 


SFSECL 


03176 


FOUNDS 


04808 


CK1T 


04844 


GOON 


03968 


RMCK 


03408 


SYSCAL 


00475 


CO AG IN 


03452 


CKLIM 


03196 


GOONT 


02780 


SAV2 


04U9 


WKHICP 


06223 


KEYMES 


05915 


CRSPL 


04342 


INEQU 


10000 


SAVRD 


04808 


WRDSKF 


05288 


LASTNO 


06314 


CNT 


03558 


IOGT 


00566 


SAVRO 


05738 






MUNCAL 


00796 


COMPN 


03848 


IOPT 


00532 


SAVWR 


03756 






NUMSEC 


0/.31 7 


COPY 


02700 


IORBC 


00520 


SETX 


06200 






UKE X I T 


0 iS88 


OCOPY 


02700 


IORT 


00565 


SFFL 


06072 







i NO OF ONfc ASSEMBLY. 



961 



1620 MONITOR I DUP ROUTINE •DLOAD. •DREPL, •OELET PAGE I 

00010 ••• 
00020 ••• 

00030 ••» SUBROUTINES-DIMMER, GETR.GETL, INSERT, REMOVE, FIND 

00040 
00050 



00060 




DORG 


2458 


02458 








00070 


I OP T 


DS 


.532 


00532 




0 




00080 


IOGT 


OS 


,566 


00566 




0 




00090 


IORT 


OS 


,565 


00565 




0 




00100 


KING 


DSC 


2,02,, DDA TO FLIP CORE WHEN MOVING PROGRAMS 


02458 




2 








02 












OOilO 




DSA 


QUEEN 


02464 




5 


X I 










02464 




-2466 




00120 




DC 


!»' 


02465 




1 




00130 


OUEEN 


DSC 


1,1 


02466 




1 




00140 




1 

DC 


5,02000 


02471 




5 








-2000 










00150 




UC 


3, 140 


02474 




3 








J40 












00160 




DC 


6,05800* 


02480 




6 








-5800* 










00170 


CORSIZ 


DC 


3,080,, THE CURRENT SIZE OF THE SPL 


02483 




3 








-80 












00180 


OIMERR 


DAC 


14,DUP»ERRQR 00 • 


02465 




14 


X 2 






DUP«ERROR 00 • 










00190 




TFM 


DIMERR+22,0071,8 


02512 


16 


02507 


0-071 


00200 


ERRD 


KCTY 




02524 


34 


00000 


00102 


0U210 




WATY 


DIMERR 


02536 


39 


02485 


00100 


00220 




H 




02548 


48 


00000 


00000 


00230 




B 


MONCAL 


02560 


49 


00796 


00000 


00240 




DORG 


e-3 


02568 








00250 


OMDDA 


DSC 


2,22, , DDA USED BY DIMMER TO READ IN ONE SECTOR 


02568 




2 








22 












00260 




DSA 


DMREAD 


02574 




5 


X 1 










02574 




-2576 




002 70 




DSC 




02573 




1 




00280 


OMR E AD 


DSC 


1,0 


02576 




1 




00290 




0 

DC 


5,0 


02581 




5 








-0000 










00300 




DC 


3,1 


02584 




3 








-01 












00310 




DC 


5,19900 


02589 




5 








J9900 










00320 




DSC 


l.» 


02590 




1 




00330 


R OMDDA 


OSC 


2, 22,, DDA USED BY THE MOVER TO MOVE PROGRAMS 


02591 




2 








22 












00340 




DSA 


RDMOVE 


02597 




5 


X I 










02397 




-2399 
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RACE 2 



00350 




osc 

t 


It* 








0259R 


00360 


ROMOVE 


use 

0 


ItO 








02599 


00370 




oc 


5,0 








02604 






-oobo 








00380 




oc 


3.140 








02607 






J40 












00390 




oc 


5,05800 








02612 






-5800 










00400 




osc 


It* 








02611 


00410 


wrmoda 


osc 


2.22,. 


ODA 


USED BY THE MOVER TO 


TRANSFER PROGRAMS 


02616 


















00420 




DSA 


WRMOVE 








02620 
















02620 


00430 




OSC 


It* 








02621 


00440 


WKHUVk 


OSC 

0 


1.0 








02622 


00450 




DC 


5.0 








02627 






-0000 










00460 




DC 


3,140 








02630 






J40 












004 70 




OC 


5,05800 








02635 






-5800 










00*80 




use 


1. ' 








02636 


00490 


PKODDA 


DSC 


2,22,, 


DDA 


FOR HANDLING THE SPL 


ON MODULE ZERO 


02637 






S2 












00500 




OS A 


SPtPKO 








02643 
















02643 


00510 




DSC 


It * 






« 


02644 


00520 


SPLPKO 


DSC 
I 


l.l 








02645 






DC 


5, 19801 








02650 






J9801 












00540 




DC 


3,080 








02653 






-00 
















DC 


5,05800 








02658 






-5800 










005C>0 




DSC 


I, • 








02659 


00570 


PK 100A 


DSC 


2,22,, 


ODA 


FOR HANDLING THE SPL 


ON NOOULE ONE 


02660 






22 












00580 




DSA 


SPLPKl 








02666 
















02666 


00590 




DSC 










02667 


00600 


SPl PK1 


DSC 
3 


1,3 








02668 


00610 




DC 


5,39801 








02673 



-2622 
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006?0 




DC 


3,080 


02676 






-80 






00630 




DC 


5,05800 


02681 






-5800 




00640 




DSC 


1 . 1 


02682 


00650 


PK2DDA 


DSC 


2,22,, DDA FOR HANDLING THE SPL ON MODULE TWO 


02683 






22 






00660 




DSA 


SPLPK2 


02689 










02689 


00670 




DSC 


l,' 


02690 


00680 


SPL PK 2 


DSC 
5 


1.5 


02691 


00690 




OC 


5,59801 


02696 






N<*801 






00700 




DC 


3,080 


02699 






-80 






00710 




DC 


5,05800 


02704 






-5800 




00720 




DSC 




02 705 


007 30 


PK3DDA 


DSC 


2,22,, DOA FOR HANDLING THE SPL ON MODULE THREE 


02 706 






22 






00740 




DSA 


SPLPK3 


02712 










02712 


00750 




DSC 


1,' 


02713 


00760 


SPL PK 3 


OSC 
7 


1,7 


02714 


00770 




OC 


5,79801 


02719 






P9801 






00780 




DC 


3,080 


02722 






-80 






00790 




DC 


5,05800 


02727 






-5800 




00800 




DSC 


it* 


02728 


00810 


THRDDA 


DSC 


2,22, ,DOA TO EXCHANGE CORE WHEN USING THE SPL 


02729 






22 






00820 




OSA 


THROWS 


02735 










02735 


00830 




OSC 
, 


lt« 


02736 


00840 


THROWS 


DSC 


1,1 


02737 


00850 




1 

OC 


5,19881 


02742 






J9881 






00860 




OC 


3,080 


02745 






-80 






00870 




OC 


5,05800 


02750 






-5800 




00880 




DSC 


1.' 


02751 



964 
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00890 


BAVAIL 


DC 1 


0«« ACCUMULATES AVAILABLE BLANK SfCTOftS FOUND IN MOVE 


02194 






-oo 






00900 


CALC2 


DC 5 


0 


02799 






-0000 






00910 


GOLDEN 


DC 1 


,0,,LISTER-4 


027*0 


00920 


LIST€R 


DC 4 


0. •HOLDS PRESENT SPL POSITION 


027*9 






-000 






00930 


N48000 


DC 6 


048000,, FIRST SECTOR Of DIM MAP 


02770 






-48000 






00940 




DC I 


0,,PACK CONTINUEO 


02771 


00950 


PACK 


DC 1 


0,,PACK NUM FOR SPLIST 


02772 


00960 




DC 1 


' 


02773 


00970 


CALC3 


DC 6 


0 


02779 






-ooooo 






00980 


CALC4 


DC 4 


0«, CALCULATION AREA 


02783 






-000 






00990 




DC 1 


0,,SET UP THE OVERRIDE CODE FOR COMPARISION 


02784 


01000 


LISTES 


DC 6 


0, , DESIRED SECTOR ADDRESS FINO 


02790 






-OOOOO 






010 10 


L ISTET 


DC 4 


0, t NUMBER TO BE INSERTED SPL INSERT 


02 794 






-000 






01020 


HEX 


DSC 1 


0 


02799 


01030 


coNsn 


0 

DC 6 


0,»WORK AREAS 


02801 






-OOOOO 






01040 


C0NST2 


OC 6 


0. , 


02807 






-OOOOO 






01050 


QCARR Y 


DC 6 


0,i WHERE TO LOAD NEXT MOVEO SECTORS 


0281 3 






-OOOOO 






01060 


QHOLO 


DC 6 


0 


02819 






-OOOOO 






01070 


CDNST5 


DC 6 


o 








-OOOOO 






01080 


CONS T6 


DC 6 


o 


02831 






- nnnnn 






01090 


C0NST7 


DC 6 


o 


02837 






— nnnnn 




* 


01 100 


K ACKE T 


DC 4 


o 


02841 












OHIO 


STEAL 


DC 4 


0 


02849 






-000 






01120 


CALC7 


DC 3 


0 


02848 






-00 






01 I 30 


FAKSEV 


DC 4 


0,, HAS SEVEN FROM LISTER 


02892 






-000 






01 140 


COMMON 


DC 1, 


0 


02893 


01 150 


NOMMON 


DC 2, 

-0 


0 


0289S 


01 160 


NOSECA 


DC I. 


0 


02896 
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01170 


MOVESA DC 


6,0,, FOR SECTOR ADDRESS 


02862 




6 






-OOOOO 












01180 


MOVESC DC 


3,0,, FOR SECTOR COUNT 


02865 




3 




01190 


-00 
C0NST8 DC 


5,0 




02870 




5 






-0000 












01200 


• *« 














01210 


SUBROUTINE-GETR 












01220 


SUBROUTINE FOR SHIFTING 


ONE TO RIGHT IN THE SPL 










01230 
















01240 


GETR TDM 


NOMMON, 1,, INITIALIZE TO SAVE CORE FOR EXCHANGE OF SPL 


02872 


15 


02855 


00001 


01250 


CLIPPP TF 


94, PACK 




02884 


26 


00094 


02772 


01260 


TFM 


I0RT,»*23 




02896 


16 


00565 


-2919 


01270 


B 


I OPT , THRODA, 7 




02908 


49 


00532 


-2729 


01280 


B 


REDSPL 




02920 


49 


04696 


OOOOO 


012^0 


DORG 


• -3 




02928 








01300 


GETRTK TF 


C ALC2 , SPLCOR , , 


LEFT PRESENT SPL C.A. 


02928 


26 


02759 


03151 


01310 


AM 


SPLCOR, 04,10, LEF1 


END NEW ENTRY 


02940 


11 


03151 


000-4 


01320 


SF 


SPLCOR, ,6, NEW FLAG 


02952 


32 


03 15 J 


OOOOO 


01330 


NEMOIM DC 


4,0,* , DESIRED DIM 


ENTRY 


02963 




4 






-000 














01340 


AM 


CALC2, 07*10, RIGHT 


END OF NEW ENTRY 


02964 


11 


02759 


000-7 


01350 


TF 


LISTER, CALC2, 11 




02976 


26 


02764 


0275R 


01360 


B 


WHYNOT 




02988 


49 


03388 


OOOOO 


01370 


DORG 


•-3 




02996 








01380 


• •• 














01390 


• SUBROUT I NE-GE TL 












01400 


SUBROUTINE FOR SHIFTING 


ONE TO LEFT IN SPL 










01410 


• •• 














01420 


GETL TDM 


NOMMON, 2, 




02996 


15 


02895 


00002 


01430 


B 


CLIPPP 




03008 


49 


02984 


OOOOO 


01440 


DORG 


•-3 




03016 








01450 


GETLTR TF 


CALC2, SPLCOR 




03016 


26 


02759 


03151 


01460 


SM 


SPLCOR, 04, 10, LEFT 


END OF NEW ENTRY 


03028 


12 


03191 


000-4 


01470 


SF 


SPLCOR, ,6, 




03040 


32 


0319J 


OOOOO 


01480 


SM 


CALC2,0l,10,RIGHT 


ENO NEW ENTRY 


03092 


12 


02799 


000-1 


01490 


TF 


LISTER, CALC2, 11 




03064 


26 


02764 


0279R 


01500 


B 


WHYNOT 




03076 


49 


03386 


OOOOO 


01510 


DORG 


— 3 




03094 








01520 


• •• 














01530 


••• SUBROUTINE-REMOVE 












01540 


••• REMOVES THE PRESENT ENTRY IN LISTER AND CLOSES THE LIST 










01550 


• •• 














01560 


REMOVE TDM 


NOMMON, 3, , 




03084 


IS 


02999 


00003 


01570 


B 


CLIPPP 




03096 


49 


029*4 


OOOOO 


01580 


DORG 


• -3 




03104 








01590 


REMOTR TF 


CALC2, SPLCOR 




03104 


24 


02799 


03191 


01600 


AM 


CALC2, 04*10, 




03116 


11 


02799 


000-4 


01610 


TR 


SPLCOR, CALC2, 611, CLOSES HOLE 


03128 


31 


0319J 


0279R 


01620 


SF 


SPLCOR , ,6 




03140 


32 


0119J 


OOOOO 


01630 


SPLCOR OC 


5,0, • ,01 M ADDRESS 


SPL 


03191 




3 






-0000 












01640 


SM 


CALC2,01,10 




03112 


12 


02799 


000-1 


01650 


TF 


LISTER, CALC2, 11 




01164 


26 


02764 


0275R 


01660 


CF 


SPLCOR, ,6 




0117* 


13 


0119J 


OOOOO 


01670 


SPLCVL DC 


5, 0,«, CYLINDER SPL 




03187 




9 





-0000 
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0 1 680 


STOMP CM 


PACK, 00, 101 1 » PACK ZERO 


03188 


I* 


02772 


000 — 


0 1690 


BE 


WRTSPO 


03200 


66 


03268 


01200 


0 1 700 


CM 


PACK, 01.1011, PACK ONE 


03212 


I* 


02772 


000- J 


01710 


BE 


WRTSPl 


0322* 


*6 


03300 


01200 


01720 


CM 


PACK, 02,1011, PACK TWO 


03236 


I* 


02772 


000-K 


01 730 


BE 


WRTSP2 


032*8 


66 


03332 


01200 


0 1 7*0 


B 


WRTSP3,,, PACK THREE 


03260 


69 


03364 


00000 


01 750 


DORG 


• -3 


03268 








0 1 760 


• • ROUTINE FOR RETURNING APPRO I ATE SPl TO OISK 










01 770 


WRTSPO TFM 


l0RT,»+23 


03268 


16 


00965 


-3291 


0 1 780 


B 


IOPT,PKO00A,7 


03280 


*9 


00932 


-2637 


01 790 


B 


WHYNOT 


03292 


69 


03388 


00000 


01 800 


DORG 


• -3 


03300 








01810 


WRTSPl TFM 


I0RT,»+23 


03300 


16 


00565 


-3323 


01820 


B 


I0PT,PK1D0A,7 


03312 


69 


00532 


-2660 


01830 


B 


WHYNOT 


0332* 


*9 


03388 


00000 


018*0 


DORG 


• -3 


03332 








01850 


WRTSP2 TFM 


IORT,»*23 


03332 


16 


00565 


-3355 


01 860 


B 


I0PT,PK2D0A, 7 


033** 


*9 


00532 


^2683 


01870 


8 


WHYNOT 


03356 


*9 


03388 


00000 


01880 


DORG 


♦-3 


0336* 








01890 


WRTSP3 TFM 


I0RT,»*23 


0336* 


16 


00565 


-3387 


01900 


B 


IOPT,PK300A,7 


03376 


*9 


00532 


-2706 


01910 


WHYNOT TFM 


IORT, •♦23,, RESTORES CORE BEFORE RETURNING TO MAINLINE 


0338B 


16 


00565 


-3*11 


01920 


• •• 












01930 


• •• SUBROUTINE-INSERT 










019*0 


INSERTS TO THE LEFT OF THE PRESENT ENTRYANO OPENS LIST 










01950 


B 


I OGT , THRDDA , 7 


03*00 


*9 


00566 


-2729 


01960 


BB 




03*12 


*2 


00000 


00000 


01970 


DORG 


•-9 


03*1* 








01980 


INSERT TDM 


N0MM0N,4, , 


03*1* 


15 


02855 


0000* 


01990 


B 


CLIPPP 


03*26 


*9 


0288* 


00000 


02000 


DORG 


• -3 


03*3* 








02010 


INSETR SF 


SPLC0R,,6 


03*3* 


32 


0315J 


00000 


02020 


FOUND DC 


5,0, ♦.FIND SECTOR TOTAL 


03**5 




5 






-0000 










02030 


• • ROUTINE TO SEE IF LIST IS ALREAOY FULL 










020*0 


TFM 


•♦35,05800,7 


03**6 


16 


03*81 


-5800 


02050 


AM 


•♦23,0*, 10 


03*58 


11 


03*81 


000-* 


02060 


TIPSY «NR 


•-12,99999, .FINDS RECORD MARK AT ENO OF LIST 


03*70 


*5 


03*58 


99999 


02070 


TF 


C0NST2,TIPSY*U 


03*82 


26 


02807 


03*81 


02080 


AM 


C0NST2,0*,10 


03*9* 


11 


02807 


000-* 


02090 


TF 


CONST 3 ,C0NST2 , , 


03506 


26 


08815 


02807 


02100 


SM 


CONST3,05800,7 


03518 


12 


08815 


-5800 


02110 


C 


C ON ST 3- 2, COR SI Z, , COM PA RES PRESENT SIZE TO DEFINED LIMIT 


03530 


2* 


08813 


02*83 


02120 


BL 


NERR 


035*2 


*7 


0357* 


01300 


021 30 


TFM 


OlMERR+22,7178,8 


0355* 


16 


02507 


0P178 


021*0 


B 


ERRD 


03566 


*9 


0252* 


00000 


02150 


DORG 


• -3 


0357* 








02160 


NERR TF 


C ON ST2,TIPSY*ll, 611, OPENS THE LIST 


0357* 


26 


0280P 


03*8J 


02170 


TF 


CALC2 , SPLCOR 


03586 


26 


02759 


03151 


02180 


AM 


CALC2,03,10 


03598 


11 


02759 


000-3 


02190 


TF 


CALC2,LISTET,6, INSERTS THE ENTRY FROM LISTET 


03610 


26 


0275R 


02 79* 


02200 


CF 


SPLCOR, ,6, 


03622 


33 


0315J 


00000 


02210 


DRESTR DC 


5, 19880,*, 


03633 




5 






J9880 











967 
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02220 




AM 


SPLCOR,*, 10, 




0363* 


11 


03151 


000-* 


02230 




CF 


SPLCOR, ,6 




036*6 


33 


0315J 


00000 


022*0 




B 


STOMP,,, 




03658 


*9 


03188 


00000 


02250 




DORG 


• -3 




03666 








02260 


• •• 
















02270 


• •• 


THE DIMMER SUBROUTINE FOR BRINGING IN A DIM 


ENTRY 










02280 


• •• 


SPECIFIED IN -NEWDIM- TO BEGIN AT CORE POSITION 19880 










02290 


• •* 
















02300 


DIMMER 


C 


NEWDIM, MAXDIM 




03666 


2* 


02963 


038*3 


02310 




BNH 


• ♦32 




03678 


*7 


03710 


01100 


02320 




TFM 


DIMERR+22,0076,8 




03690 


16 


02507 


0-076 


02330 




87 


ERRD 




03702 


*9 


02524 




023*0 




TT 


CALC2, NEWDIM 




03710 


26 


02759 


02963 


02350 




A 


CALC2,CALC2 . 




03722 


21 


02759 


02759 


02360 




TF 


CALC3.N*8000 




0373* 


26 


02779 


02770 


02370 




A 


CALC3.CALC2, .NEW DIM SECTOR AOORESS 




037*6 


21 


02779 


02759 


02380 




TF 


DMREAD^13, DRESTR 




03758 


26 


02589 


03633 


02390 




TO 


•♦23.CALC3 




03770 


25 


03793 


02779 


02*00 




SM • 


DMREAD*12,0» 10. ADJUST DIM READER S A 




03782 


12 


02588 


000-0 


02*10 




TF 


DMREAD^5,CALC3-L 




0379* 


26 


02581 


02778 


02*20 




TFM 


I0RT,»+23 




03806 


16 


00565 


-3829 


02*30 




B 


I0GT,DM0DA,7 




03818 


*9 


00566 


-2568 


02**0 




BB 






03830 


*2 


00000 


00000 


02*50 




DORG 


• -9 




03832 








02*60 


• •• 
















02*70 




THE FIND SUBROUTINE FOR LOCATING A POINT ON A PARTICULAR 










02*80 




SPL FROM AN ADDRESS GIVEN IN -LISTES- 












02*90 


















02500 


FIND 


SF 


LISTES-5,,8 




03832 


32 


02785 


0-000 


02510 




CF 


L1STES-* 




038** 


33 


02786 


00000 


02520 




TF 


1 9885, LISTES,, ACCEPTS SECTOR ARGUMENT 




03656 


26 


19885 


02790 


025 30 




b T 


SPLIST,SPLIST-1,,FIN0START OF CYLINDER 




03868 


27 


0432* 


0*323 


02540 




TOM 


N0MM0N,5 




03880 


15 


02855 


00005 


02550 




b 


CLIPPP 




03892 


49 


02884 


00000 


02560 




DORG 


•-3 




03900 








02570 


F INDTR 


TF 


CALC2-1, NEWDIM 




03900 


26 


02758 


02963 


02580 




TDM 


CALC2-*,,11,FLAG ZERO 




03912 


15 


02 755 


0000- 


02590 




MM 


CALC2-1,02,10,FIN0 SECTOR 




03926 


13 


02758 


000-2 


02600 




TFM 


A0RSPL,,7, ZERO THE FIELD 




03936 


16 


04514 


-0000 


02610 




SF 


97, , .PICK UP COUNT 




0 3948 


32 


00097 


00000 


02620 




TF 


ADRSPL-2,99, , MOVE SECTOR CYL AOORESS 




03960 


26 


04512 


00099 


02630 




TD 


ADRSPL-*,LISTES-* 




03972 


25 


04510 


02786 


026*0 




SF 


AORSPL-* 




03984 


32 


04510 


00000 


02650 


TRYAGN 


TF 


CALC2 , SPLCOR , , LEFT PRESENT SPL C.A. 




03996 


26 


02759 


03151 


02660 




AM 


SPLCOR, 0*. 10, LEFT END NEW ENTRY 




04008 


11 


03151 


000-4 


02670 




SF 


SPLCOR. ,6, NEW FLAG 




04020 


32 


0315J 


00000 


02680 




AM 


CALC2,07,10,RIGHT ENO OF NEW ENTRY 




04032 


11 


02759 


000-7 


02690 




TF 


LISTER. CALC2, 11 




04044 


26 


02764 


0275R 


02 700 




TO 


CALC*,SPLCOR,ll, 




04056 


25 


02783 


0315J 


02710 




CM 


CALC*, 09,1011, 8LANK SECTORS 




04066 


14 


02783 


000-R 


02720 




BE 


AODBLK 




04060 


46 


04280 


01200 


02730 




TF 


NEWOIM, LISTER 




04092 


26 


02963 


02764 


027*0 




BT 


DIMMER, DIMMER-1 




04104 


2? 


03666 


03665 


02750 




C 


19885, A OR SPL,, DOES THIS PROGRAM BEGIN ON 


THIS CYLINDER 


04116 


24 


19685 


04514 


02760 




BNL 


• ♦*8 




04128 


46 


04176 


01300 


02770 




S 


19885, ADRSPL 




04140 


22 


19685 


04514 



968 



02780 




SF 


19883 


04152 


32 


19883 


00000 


02790 




A 


19888,19885 


04144 


21 


19888 


1 9885 


02800 




A 


AORSPL, 19888,, ADD SECTOR TOTAL, ADJUSTED IF NECESSARY 


04174 


21 


04514 


1 9888 


02810 


PLUSSR 


SF 


LISTES-4 


041BB 


32 


02786 


00000 


02820 




c 


AORSPL, LISTES, ,HAS THE CORRECT ENTRY BEEN REACHED 


04200 


24 


04514 


02790 


02830 




CF 


LISTE S-4 


04212 


33 


02786 


00000 


028*0 




BNM 


TRYAGN 


04224 


47 


03996 


01 100 


02850 




TF 


FOUND, AORSPL 


04234 


26 


03445 


04514 


02860 


RLGONE 


TFM 


I0RT,**23 


0424B 


14 


00565 


-4271 


02870 




B 


IOGT, THRD0A t 7 


04240 


49 


00564 


-2729 


02880 




B 


•,,2, EXIT TO BE FILLED 


04272 


49 


-4272 


00000 


02890 




DORG 


•-3 


042B0 








02900 


AODBLK 


SF 


LISTER-2 


042B0 


32 


02762 


00000 


02910 




A 


AORSPL, LI STERf »AOD IN THE COUNT FOR BLANK SECTORS 


04292 


21 


04514 


02764 


02920 




CF 


LISTER-2 


04304 


33 


02762 


00000 


02930 




B 


PLUSSR 


04314 


49 


041B8 


00000 


02940 




OORG 


•-3 


04324 








02950 


NEVER 


DC 


2,0, ADDBLK*! 1 


04291 




2 




02960 


CLEVER 


-0 

oc 


i,0,ADDBLK*35 


04315 




1 




02970 


• •• i 


ROUTINE FOR BRINGING IN THE PROPER LIST AND 










02980 




SCANNING TO THE CORRECT CYLINDER ENTRY 










0^990 


SPLIST 




IORT , *+23 


04324 


16 


00565 


-4347 


03000 






i opt . THRnnA- 7 


04336 


49 


00532 


-2729 


03010 






i aim. . u .ci ic 7 con 


04348 


15 


19880 


0000- 


03020 




MM 


1 9oB9 iU?t 10 


04360 


1 3 


19885 


000-5 


03030 




CF 


COMMON 


04372 


33 


02853 


00000 


03040 




SF 


94,,, DESIRED CYLINDER 


043B4 


32 


00094 


00000 


03050 




SF 


93 


04396 


32 


00093 


00000 


03060 




TO 


STARDT+10, 95,, SET-UP SEARCH FOR THE CORRECT CYLINDER 


04408 


25 


05026 


00095 


03070 




TO 


STARDmi ,96 


04420 


25 


05027 


00096 


03080 




MM 


LISTES-5,50000,7,USE OVERRIDE CODE TO DETERMINE MODULE 


04432 


13 


02785 


NOOOO 


03090 




SF 


94 


04444 


32 


00094 


00000 


03100 




8 


RDSPL 


04456 


49 


04588 


00000 


03110 




DORG 


•-3 


04464 








03120 


SPLINI 


BNF 


•♦20, COMMON 


04464 


44 


04484 


02853 


03130 




B 


GETBAK 


04474 


49 


05164 


00000 


03140 




OORG 


•-3 


04484 








03150 




TDM 


CALC4-l,0,li»SET-UP CALC4 


04484 


15 


02782 


0000- 


03160 




TFM 


ADR SPL ,05800 


04496 


16 


04514 


-5800 


03170 


LPSRDA 


NOP 


,,, HOLDS COUNT POSITION FOR SPL LIST 


04508 


41 


00000 


00000 


03180 




TD 


C ALC4 t ADRSPL ,11, PREPARE TO COMPARE 


04520 


25 


02783 


0451M 


0 3190 




CF 


CALC4 


04532 


33 


02783 


00000 


03700 




CM 


CALC4.7, 10 


04544 


14 


02783 


000-7 


03210 




8E 


COMCYL 


04556 


46 


04980 


01200 


03220 


SPLAOD 


AM 


ADRSPL ,04, 10,, NEXT ENTRY 


04568 


11 


04514 


000-4 


03230 




B 


ADRSPL+6 


04580 


49 


04520 


00000 


03240 




OORG 


•-3 


04588 








03250 


RDSPL 


TF 


KEVE,94 


04588 


26 


05003 


00094 


03760 




TF 


NEVER tLI STE S-4 ,, CORRECT TENTHOUSANDS POSITION 


04600 


26 


04291 


02786 


03270 




TDM 


NEVER-l.,11 


04612 


15 


04290 


0000- 


03280 




MM 


NEVFR ,05, 10 


04624 


1 3 






03290 




BO 


•♦24,99 


04636 


43 


04660 


00099 


03300 




AM 


NEVER, 1,10 


04648 


11 


04291 


000-1 


03310 




TD 


CLEVER, NEVER 


04660 


25 


04315 


04291 



96 9 
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03320 




SF 


CLEVER 


04672 


32 


04315 


00000 


03330 


• •• i 


ROUTINE TO READ IN CORRECT SPL 










03340 




TF 


94, KEVE 


04684 


26 


00094 


05003 


03350 


REDSPL 


CM 


94,0,1011, PACK ZERO 


04696 


14 


00094 


000— 


03360 




TF 


PACK, 94,, SAVE PACK NUM 


04708 


26 


02772 


00094 


03370 




BE 


REDSPO 


04720 


46 


04804 


01200 


03380 




CM 


94, 1, 101 1, PACK ONE 


04732 


14 


00094 


000- J 


03390 




BE 


REDSPl 


04744 


46 


04848 


01200 


03400 




CM 


94,2,1011, PACK TWO 


04756 


14 


00094 


000-K 


03410 




BF 


REDSP2 


04768 


46 


04892 


01200 


03420 




CM 


94,3,1011, PACK THREE 


04780 


14 


00094 


000-L 


03430 




BE 


REDSP3 


04792 


46 


04936 


01200 


03440 


REDSPO 


TD 


SPLPKO+1, CLEVER 


04804 


25 


02646 


04315 


03450 




TFM 


IORT,»*23 


04816 


16 


00565 


-4839 


03460 




B 


10GT,PK0DDA,7 


04828 


49 


00566 


-2637 


03470 




B 


SPL I NT 


04840 


49 


04464 


00000 


03480 




DORG 


• -3 


04848 








03490 


REDSPl 


TD 


SPLPKUl, CLEVER 


04848 


25 


02669 


04315 


03500 




TFM 


IORT,«*23 


04860 


16 


00565 


-4883 


03510 




B 


I0GT,PK1DDA,7 


04872 


49 


00566 


-2660 


03520 




B 


SPLINI 


04884 


49 


04464 


00000 


03530 




DORG 


•-3 


04892 








03540 


REDSP2 


TD 


SPLPK2* 1 , CLEVER 


04892 


25 


02692 


04315 


03550 




TFM 


IORT,»+23 


04904 


16 


00565 


-4927 


03560 




8 


IOGT,PK2DDA,7 


04916 


49 


00566 


-2683 


03570 




8 


SPLINI 


04928 


49 


04464 


00000 


03580 




DORG 


•-3 


04936 








03590 


RE0SP3 


TD 


SPLPK3*1, CLEVER 


04936 


25 


02715 


04315 


03600 




TFM 


!ORT,o*23 


04948 


16 


00565 


-4971 


03610 




B 


I0GT,PK3D0A,7 


04960 


49 


00566 


-2 706 


03620 




8 


SPLINI 


04972 


49 


04464 


00000 


03630 




DORG 


•-3 


04980 








03640 


COMCYL 


TF 


SPLCYL, ADRSPL ,,CYLCORE POSITION 


04980 


26 


03187 


04514 


03650 




SF 


ADRSPL, ,6 


04992 


32 


0451M 


00000 


03660 


KEVE 


OS 


,COMCYL*23 


05003 




0 




03670 




AM 


SPLCYL, 03, 10 


05004 


11 


03187 


000-3 


03680 


STAROT 


CM 


SPLCYL, 7000, 68, IS THIS THE RIGHT CYLINDER 


05014 


14 


0318P 


OPOOO 


03690 




BE 


SPLEXT 


05028 


46 


05060 


01200 


03700 




CF 


ADRSPL, ,6 


05040 


33 


0451M 


00000 


03710 




B 


SPLADD 


05052 


49 


04568 


00000 


03720 




OORG 


•-3 


05060 








03730 


SPLEXT 


TF 


SPLCOR, SPLCYL., FIND DIM NUM LOCATION 


05060 


26 


03151 


03167 


03740 




SM 


SPLCYL, 03 ,10, BACK TO HIGH ORDER POSITION 


05072 


12 


03187 


000-3 


03750 




SF 


SPLCYL, ,6 


05084 


32 


0318P 


00000 


03760 




TF 


NfcWDIM, SPLCOR, 11, CYLINDER DESIRED 


05096 


26 


02963 


0315J 


03770 




TF 


LISTER, SPLCOR, 11, 


05108 


26 


02764 


0315J 


03780 




TF 


SPLCOR, SPLCYL 


05120 


26 


03151 


03187 


03790 




TF 


SPLCYL, ADRSPL 


05132 


26 


03187 


04514 


03800 




SF 


COMMON 


05144 


32 


02853 


ooooo 


03810 




B 


WHVNOT 


05156 


49 


033B8 


00000 


03820 




DORG 


•-3 


05144 








03830 


• •• 1 


LINKAGE TO RETURN TO PROPIR SUBROUTINE AFTER SAVING CORE 










03840 


GETBAK 


CM 


N0MM0N,01,10 


05144 


14 


02855 


000-1 


03850 




BE 


GETRTR 


09174 


46 


02928 


01200 


03860 




CH 


N0MM0N,02«10 


051BB 


14 


02893 


000-2 


03870 




BE 


GETLTR 


05200 


46 


09016 


01200 



970 
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RAGE 10 



03880 




CM 




05212 


14 


02855 


000*" 5 


03890 




BE 


REMOTR 


05224 


44 


03104 


01200 


03900 




CM 


NOMMON.04,10 


05234 


14 


02855 


000" 4 


0)910 




BE 


INSETR 


05241 


44 


05454 


01200 


03920 




B 


FINDTR 


05240 


69 


01900 


00000 


03930 




OORG 


•-3 


0524S 








03940 


ADRSPL 


OS 


,LPSRDA*6 


04514 




0 




03950 


• •• 1 


PORTION OF THE MOVER SUBROUTINE WHICH MOVES THE DATA 










03960 


COMPFR 


TFM 


I0RT,^23 


05248 


14 


00545 


-5291 


03970 




B 


I0PT,KING,7,SAVE THE INFORMATION IN CORE 


05280 


49 


00532 


•2458 


03980 




CM 


CAlC7f 140 ( 9f REGULAR READ 


05292 


14 


02848 


00J40 


03990 




BL 


SPCREO 


05304 


47 


05454 


01300 


04000 




SM 


RDMOVE+5, 140,9 


05316 


12 


02604 


00J40 


04010 




SM 


WRM0VE*5, 140,9 


05328 


12 


02627 


00J40 


04020 


WHIPIT 


TFM 


IORT,**23 


05340 


16 


00565 


-5343 


04030 




8 


IOGT.RDMODA, 7 


05352 


49 


00566 


-2591 


04040 




TFM 


IORT,»*23 


05344 


16 


00565 


-5387 


0*050 




8 


I0PT,WRHDDA,7 


05376 


49 


00532 


-2614 


04060 




SM 


CALC7,140t 9 


05388 


12 


02848 


OOJ40 


04070 




CM 


CALC7, 140,9 


05400 


14 


02848 


00J40 


04080 




BMH 


SPCRED 


05412 


47 


05456 


01100 


04090 




SM 


WR MOVE* 5, 140,9, ADJUST COUNT AND DOA AFTER TRANSFER I NG 140 SE 


05424 


12 


02627 


00J40 


04100 




SM 


RDM0VE*5, 140,9 


05436 


12 


02604 


00J40 


041 10 




B 


WHIP! T 


05448 


49 


05340 


00000 


04120 




DORG 


•-3 


05456 








041 30 


SPCRED 


TF 


RDM0VE*8 »CALC7» , TRANSFER LAST PORTION OF PROGRAM 


05456 


26 


02607 


02848 


04140 




TF 


WRM0VE*8,CALC7 


05468 


26 


02630 


02848 


04150 




s 


WRM0VE*5»CALC7 


05480 


22 


02627 


02848 


04160 




S 


RDM0VE+5,CALC7 


05492 


22 


02604 


02848 


04170 




TFM 


I0RT,»*23 


05504 


16 


00565 


-5527 


04180 




B 


I OGT , RDMOOA , 7 


05516 


49 


00566 


-t2591 


0*190 




TFM 


I0RT,»+23 


05528 


16 


00565 


-5551 


042G0 




B 


IOPT.WRMODA, 7 


05540 


49 


00532 


-2614 


04210 




TFM 


WRMOVE+8, 140,9, RESTORE CONSTANTS TO 140 


05552 


16 


02630 


00J40 


04220 




TFM 


RDMOVE+8, 140,9 


05564 


16 


02607 


00J40 


042 30 




TF 


MPT, 19885,, SAVE ADDRESS OF LAST PROGRAMS ORIGINAL SECTOR A 


05576 


26 


08636 


19885 


04240 




TF 


19885 , WRMOVE+5, , CORRECT SECTOR ADORESS IN DIM ENTRY 


05588 


26 


19885 


02627 


04250 




TFM 


I0RT,«+23 


05600 


16 


00565 


-5623 


04260 




8 


I0PT,DMDDA,7 


05612 


49 


00532 


-2568 


04270 




TFM 


IORT,**23 


05624 


16 


00565 


-5647 


04280 




8 


I OCT, KING, 7 


05636 


49 


00566 


-2458 


04290 




B 


MARVEL 


05648 


49 


10892 


00000 


04300 




DOR& 


• -3 


05656 








041 10 


ERR 


8NF 


•♦68, FORT,, CHECK FOR ERROR 60 IN OLOAD 


05656 


44 


05724 


13062 


04320 




TFM 


DIMERR*22,7670,8 


05668 


16 


02507 


0P670 


04330 




RCTY 




05680 


34 


00000 


00102 


04340 




WATV 


DIMERR 


05692 


39 


02485 


00100 


04350 




BNF 


ERR0*24,DUMP 


05704 


44 


02548 


13388 


04 360 




B 


L0A0RE-36 


05716 


49 


07188 


00000 


04370 




JORG 


— 3 


05724 








04 380 




TFM 


DIMERR+22,0078,8 


05724 


16 


02507 


0-076 


04390 




8 


ERRD 


05736 


49 


02524 


00000 


04400 




DORG 


•-3 


05744 








04410 


SPLFL 


TFM 


I0RT,«+23,, LINKAGE FOR THROWING SACREO SIX TO OISK WHEN LOA 


05744 


16 


00565 


-5767 


04420 




B 


I0PT,SPCR2.7 


05756 


49 


00532 


-5807 


04430 




TRA 




05768 


36 


00000 


00500 
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04440 SPLRl 

04450 

04460 

04470 

04480 



DSC 1,1 
1 

DC 5,18298 
J8298 

DC 3,033 

-33 

DC 5,02458 

-2458 

DSC 1,« 



04490 SPLR2 DSC 2,22 
22 

04500 DSA SPLRl 



05780 49 00000 00000 

05792 I 

05797 5 

05800 3 

05805 5 

05806 1 

05807 2 
05813 5 X 1 



04510 
04520 



DSC 1,' 
TCD SPLFL 



05813 
05814 



05744 



04530 DORG 8500 

04540 MOVFL TFM !0RT,«*23,, LINKAGE FOR THROWING MOVER TO DISK WHEN LOAOING 

04550 B I0PT,M0VFLl,7 

04560 TRA 

04570 MOVFL 1 DSC 2,22 
22 

04580 DSA M0VFL2 



04590 DSC 

04600 MOVFL 2 DSC 
1 

04610 
04620 
04630 
04640 



la' 
1,1 

1 

DC 5,18331 
J8331 

DC 3,038 
-38 

DC 5,08600 
-8600 
DSC l,» 



-5792 
1 



08500 

08500 16 00565 -8523 

08512 49 00532 -8548 

08524 36 00000 00500 

08536 49 00000 00000 

08548 2 

08554 5 X I 



08554 
08555 

08556 

08561 

08564 

08569 

08570 



-8556 
1 

1 

S 

3 

5 

1 



THE MOVER SUBROUTINE FOR PREPARING A PLACE TO PUT A PROGRAM GIVE 
A STARTING SECTOR AOORESS -MOVESA- AND A SECTOR COUNT -MOVESC- 



04650 ••• 
04660 ••• 
04670 »•• 
04680 ••• 
04690 ••• 
04700 ••• 

04 710 OORG 8600 

04720 SFSUCE SF SUCESS 

04721 TF HOVESC,SFSUCE*lltt RESTORE MOVE SECTOR COUNT 
04730 EXITMR B ••••TO BE TFM BY CALLING PROGRAM 

04740 DORG «-3 

04750 MPT DC 5,0 
-0000 

04760 PRE 7 TFM !0RT,«*23 



08600 

08600 32 13066 00000 

08612 26 02865 08611 

08624 49 08624 00000 
06632 

08634 5 

08438 14 00565 -8441 



97* 
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04770 B IOGT t N0MA»7t LINKAGE FOR BRINGING IN THE SECOND HALE OF MOV 086S0 49 00966 -8670 

06780 6 PRE7A 08662 69 09000 00000 

06790 OORG 08670 



06600 NOMA 


DSC 


2,22 






08670 




2 






22 
















06610 


OSA 


NOMB 






08676 




5 


X 1 












08676 




-8678 




06820 


OC 
1 


l.« 






08677 




I 




04830 NOMB 


osc 
1 


l.l 






06678 




1 




04860 


oc 


5,17106 






08683 




5 






J7106 














04850 


OC 


3.022 






08686 




3 






-22 
















04860 


OC 


6.09000* 






08692 




6 






-9000' 














04870 TRWCAR 


OSC 


2,22., DDA FOR MOVING DATA 






08693 




2 






22 
















04880 


DSA 


MOVCAR 






08699 




5 


X 1 












08699 




01 




04890 


DC 


It' 






08700 








04900 MOVCAR 


OSC 


itO 






08701 




1 




04910 


0 

OC 


5,0 






08706 




5 






-0000 
















OC 


3,060 
















-60 


















DC 


5,13776 






08714 




5 






J3776 














04940 


L)C 


It' 






08715 




I 




04950 TRWBUS 


DSC 


2,22,, OOA FOR MOVING DATA 






08716 




2 






22 
















04960 


DSA 


MOVBUS 






08722 




5 


X 1 












08722 




—8724 




04970 


DC 
• 


li • 






08723 




1 




04980 MOVBUS 


DSC 


1.0 






08724 




I 




04990 


0 

DC 


5,0 






08729 




5 






-0000 














05000 


DC 


3,060 






08732 




3 






-60 
















05010 


OC 


5,13776 






08737 




5 






J3776 














05020 


DC 


1.* 






08738 




1 




05030 T«WA 


OSC 


2,22,, OOA FOR MOVINGOATA 






08739 




2 






22 
















05040 


DSA 


LOPEZA 






08745 




5 


X 1 
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, «OELET 








PAGE 












08745 




-8747 




05050 


DC 


It • 






08746 




1 




05060 LOPEZA 


OSC 


1.0 






08747 




1 




05070 


0 

OC 


5,0 






08752 




5 






-0000 














05080 


OC 


3,060 






08 755 




3 






-60 
















05090 


OC 


5,13776 






08760 




5 






J3776 














05100 


DC 
t 


I. • 






08761 




i 




05110 TRWB 


OSC 


2,22,, ODA FOR MOVING DATA 






08762 




2 






22 
















05120 


DSA 


LOPEZB 






08768 




5 


X I 












08768 




-8770 




05130 


OC 
t 


lt» 






08769 




I 




05140 LOPEZB 


OSC 
0 


ItO 






08770 




I 




05150 


OC 


5,0 






08775 




5 






-0000 














05160 


OC 


3,060 






08778 




3 






-60 
















05170 


OC 


5,13776 






08783 




5 






J3776 














05180 


DC 
t 


It' 






08784 




I 




05190 MONITR 


OS 


.796 






00796 




0 




05200 KEY5 


OSC 


1.0 






08785 




1 




05210 CAIC6 


0 

DC 


5,0 






06790 




5 






-0000 














05220 CALC5 


DC 


6,0 






08796 




6 






-00000 














05230 ZEROES 


DC 


10,0 






08806 




10 






-000000000 














05240 C0NST4 


OC 


6,0 






08812 




6 






-00000 














05250 CONST 3 


OC 


3,0,, 






08815 




3 






-00 
















05260 CURREN 


OC 


3,0 






08818 




3 






-00 
















052 70 LIMIT 


DC 
-99 


3,099 






08621 




3 




05280 KEY1 


DSC 


1,0 






08822 




1 




05290 OIMHLO 


0 

OC 


9,0 






08831 




9 






-00000000 














05300 01MENT 


OS 


,19880, CONTROL FIELO FOR NOWOIM 






19880 




0 




05110 MOVER 


SF 


MO VESA- 9 






08632 


32 


02657 


00000 


05320 


CF 


MOVESA-6 






06866 


33 


02698 


00000 


05321 


TF 


SFSUCEm.MOVESC, STORE 


MOVE SECTOR 


COUNT. 


06856 


26 


08611 


02863 


05330 


TF 


LI STES.MOVf IAf » PINO POINT IN LIST 


WHERE PROGRAM IS TO BEGI 


08668 


26 


02790 


02662 



973 



97 4 
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PACE 16 



05340 




TFM 


RLGONE*30,»*20 


OBBBO 


16 


0*278 


-8900 


05350 




B 


FINO 


08892 


69 


03832 


00000 


05360 




DDRG 


•-3 


08900 








05370 




CM 


LISTER-3, 09,1011, LOOK FOR BLANK ENTRY 


08900 


I* 


02761 


000-R 


05380 




BE 


MIDNIT 


08912 


*6 


09360 


01200 


05390 




TF 


NENDIM, LISTER, t MOVESA IS IN THE MIDDLE OF A PROGRAM 


0892* 


26 


02963 


0276* 


05*00 




BT 


DIMMER, DIMMER- I 


08936 


27 


03666 


03665 


05*10 




SF 


MOVESA-* 


089*8 


32 


02858 


00000 


05*20 




TF 


C0NST5, 19885 


08960 


26 


02825 


19885 


05*30 




S 


C0NST5, MOVESA 


08972 


22 


02825 


02862 


05**0 




CF 


MOVESA-* 


0898* 


33 


02858 


00000 


05*50 




SF 


C0NST5-2 


08996 


32 


02823 


00000 


05*60 




TF 


BAVAIL,C0NST5,, ADJUST BLANK AVAIL TO MINUS TO ALLOW FOR DIM 


09008 


26 


0275* 


02825 


05*70 




BNF 


FILTST, 19899,, IS THE PROGRAM FILE PROTECTEO 


09020 


6* 


10212 


19899 


05*80 


MSTAKE 


CF 


SUCESSt i »ERROR EXIT 


09032 


33 


13066 


00000 


05*81 




TF 


MOVESC.SFSUCEUl,, RESTORE MOVE SECTOR COUNT. 


090** 


26 


02865 


08611 


05*90 




B 


EXITMR 


09056 


*9 


0862* 


00000 


05500 




DORG 


• -3 


0906* 




02786 




05510 


DSEVEN 


SF 


LISTES-* 


0906* 


32 


00000 


05520 




S 


FOUND, LISTES 


09076 


22 


03**5 


02790 


05530 




SF 


FOUND-2 


09088 


32 


03**3 


00000 


055*0 




TF 


C0NST2, FOUND 


09100 


26 


02807 


03**5 


05550 


ACTA J 


C 


C0NST2,M0VESC, ENOUGH SECTORS AVAILABLE 


09112 


2* 


02807 


02865 


05560 




BNL 


ACTAG 


0912* 


*6 


09268 


01300 


05570 


ACTAH 


BT 


GETR»GETR-l » , LOOK FOR MORE ROOM 


09136 


27 


02872 


02871 


05580 




CM 


LISTER-3, 7,1011 


091*8 


I* 


02761 


000-P 


05590 




BE 


ACTAH 


09160 


*6 


09136 


01200 


05600 




CM 


LlSTER-3,9,1011 


09172 


1* 


02761 


000-R 


05610 




3NE 


ACTAK 


0918* 


*7 


09228 


01200 


05620 




SF 


LISTER-2 


09196 


32 


02 762 


00000 


05630 




A 


C0NST2,LI STER 


09208 


21 


02807 


0276* 


05640 




8 


ACTAJ 


09220 


*9 


09112 


00000 


05650 




DORG 


• -3 


09228 








05660 


ACTAK 


TF 


LISTES, MOVESA, , REPOSITION LISTER TO MOVESA 


09228 


26 


02790 


02862 


05670 




TFM 


RLG0NE+30,»+20 


092*0 


16 


0*278 


-9260 


05680 




B 


F IND 


09252 


49 


03832 


00000 


05690 




DORG 


•-3 


09260 








05700 




B 


BLANK T , , , PROGRAMS MUST BE MOVED 


09260 


*9 


10356 


00000 


05710 




DORG 


• -3 


09268 








05720 


ACT AG 


TF 


LISTES, MOVESA, , REPOSITION FIND TO MOVESA 


09268 


26 


02790 


02862 


05730 




TFM 


RLGONE+30»»+20 


09280 


16 


0*278 


-9300 


05740 




B 


FIND 


09292 


*9 


03832 


00000 


05750 




DDRG 


• -3 


09300 








05760 




BT 


GE TR , GE TR- 1 


09300 


27 


02872 


02871 


05770 




SF 


LISTER-2 


09312 


32 


02762 


00000 


05780 




MM 


L I STER ,200,9 


0932* 


13 


0276* 


OOKOO 


05790 




TF 


C0NST1,99 


09336 


26 


02801 


00099 


05800 




BT 


GE TL » GETL— 1 


093*8 


27 


02996 


02995 


05810 




SF 


LI STER-2 


09360 


32 


02762 


00000 


05820 




B 


ACTAA 


09372 


*9 


09560 


00000 


05830 




DORG 


•-3 


09380 








05840 


MI ON I T 


SF 


MOVESA-*,,, MOVESA IS AT AN AREA COVERED BY BLANK SECTORS 


09380 


32 


02858 


00000 


05850 




SF 


LISTER-2 


09392 


32 


02762 


00000 


05860 




BT 


GETR.GETR-l 


09*0* 


27 


02872 


02871 


05870 




CM 


LISTER-3, 7,1011 


09*16 


I* 


02761 


000-P 


05880 




BF 


DSEVEN 


09*28 


*6 


0906* 


01200 
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05890 




TF 


NEWDIM, LISTER,, POSITION END OF BLANKS FROM THIS DIMS SECTOR 


09**0 


26 


02963 


02764 


05900 




H T 


DIMMER, DIMMER-i 


09*52 


27 


03666 


03665 


05910 




TF 


CONSTl, 19885 


0946* 


26 


02801 


19885 


05920 


ZSFVEN 


TF 


C0NST6, MOVESA 


09*76 


26 


02831 


02862 


05930 




TF 


CONST 3 , CONST 1 


09*88 


26 


08815 


02801 


05940 




3T 


GETL, GETL— 1 


09500 


27 


02996 


02995 


05950 




SF 


LISTER-2 


09512 


32 


02762 


00000 


05960 




A 


C0NST6,M0VESC 


0952* 


21 


02831 


02865 


05970 




C 


C0NST6, CONSTl, , IS THERE ENOUGH ROOM TO LOAD THE MOVESC 


09536 


2* 


02831 


02801 


05980 




BH 


BLANK T 


095*8 


*6 


10356 


01100 


05990 


ACTAA 


S 


CONSTl, LISTER,, ENOUGH ROOM HAS BEEN FOUND WITHOUT MOVING PRO 


09560 


22 


02801 


0276* 


06000 




TF 


C0NST2, MOVESA 


09572 


26 


02807 


02862 


06010 




S 


C0NST2, CONSTl 


0958* 


22 


02807 


02801 


06020 




SF 


C0NST2-2 


09596 


32 


02805 


00000 


06030 




TF 


•♦35,CONST2,, PREPARE THE TRAILING NINES ENTRY 


09608 


26 


096*3 


02807 


06040 




CF 


• ♦21 


09620 


33 


096*1 


00000 


06050 




TFM 


LISTET.9000,8 


09632 


16 


0279* 


OROOO 


06060 




CM 


LISTET.9000,8 


096** 


1* 


02 79* 


OROOO 


06070 




BE 


• ♦2* 


09656 


46 


09680 


01200 


06080 




8T 


INSERT, INSERT-1 


09668 


27 


03*1* 


03*13 


06090 


NONAME 


BT 


REMOVE , REMOVE- I 


09680 


27 


0308* 


03083 


06100 




CM 


LISTER-3,7,1011 


09692 


I* 


02761 


000-P 


061 10 




BNE 


ACTAD 


0970* 


*7 


0990* 


01200 


06120 




SF 


LISTER-2 


09716 


32 


02762 


00000 


06130 




MM 


LISTER, 200, 9 


09728 


13 


02 76* 


OOKOO 


061 40 




TFM 


95,99,10, TO COMPENSATE FOR PACK ADDRESSING 


097*0 


16 


00095 


000R9 


06150 




TF 


C0NST3,99 


09752 


26 


08815 


00099 


06160 




S 


99, MOVESA 


0976* 


22 


00099 


02862 


061 70 




SF 


97 


09776 


32 


00097 


00000 


06180 




C 


99, MOVESC 


09788 


2* 


00099 


02865 


06190 




BNL 


ACTAC 


09800 


*6 


09976 


01300 


06200 




A 


MOVESA, 99 


09812 


21 


02862 


00099 


06210 




S 


MOVESC, 99 


0982* 


22 


02865 


00099 


0A2?0 




TF 


•♦35,99,, PREPARE EIGHTS ENTRY OF MOVESC 


09836 


26 


09871 


00099 


06230 




CF 


•♦21 


098*8 


33 


09869 


00000 


06240 




TFM 


L I STET, 8999,8 


09860 


16 


0279* 


00999 


06250 




BT 


INSERT, INSERT-l 


09872 


27 


03*1* 


03*13 


06260 




BT 


GETR,GETR-l 


0988* 


27 


02872 


02871 


06270 




a 


NONAME 


09896 


*9 


09680 


00000 


06280 




DURG 


•-3 


0990* 








06290 


ACTAO 


TF 


NEWDIM, LISTER, .USE DIM ENTRY TO FINO SECTOR ADRESS 


0990* 


26 


02963 


0276* 


06300 




BT 


DIMMER, DIMMER- I 


09916 


27 


03666 


03665 


06310 




TF 


C0NST3, 19885 


09928 


26 


08815 


19885 


06320 




TO 


C0NST3-5, 19860 


099*0 


25 


08810 


19880 


06330 




CF 


C0NST3-* 


09952 


33 


08811 


00000 


06340 




SF 


C0NST3-5 


0996* 


32 


08810 


00000 


06350 


ACTAC 


TF 


• ♦35, MOVESC, PREPARE AN EIGHTS ENTRY OF MOVESC 


09976 


26 


10011 


02865 


06360 




CF 


•♦21 


09988 


33 


10009 


00000 


06370 




TFM 


LISTET, 8000,8 


10000 


16 


0279* 


OQOOO 


06380 




BT 


INSERT, INSERT-1 


10012 


27 


03*1* 


03*13 


06390 




TF 


C0NST2, MOVESA 


1002* 


26 


02807 


02862 


06*00 




A 


C0NST2, MOVESC 


10036 


21 


02807 


02865 


06*10 




S 


CONST3.CONST2 


100*8 


22 


08815 


02807 


06*20 




SF 


C0NST3-2 


10060 


32 


06613 


00000 


06*30 




TF 


•♦35, C0NST3,, PREPARE THE LEADING NINES ENTRY 


10072 


26 


10107 


0B615 


06*40 




CF 


•♦21 


1008* 


33 


10105 


00000 
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06450 




TFM 


LI STET,9000»8 




10096 


16 


02794 


OR 000 


06460 




CM 


LJSTET.9000,8 




10108 


14 


02794 


OROOO 


06470 




BE 


• ♦24 




10120 


46 


10144 


01200 


06480 




BT 


I NSERT, INSERT-l t 




10132 


27 


03414 


03413 


06490 


REMSIL 


CF 


MOVESA-4, , ,POSI TION LISTER FOR EXIT 




10164 


33 


02858 


00000 


06500 




BT 


GETLiGETL-1 




10196 


27 


02996 


02995 


06510 




CM 


LlSTER-3,08,1011 




10168 


14 


02761 


000-0 


06520 




BNE 






10180 


47 


10196 


01200 


065 30 




BT 


GETR,GETR-l 




10192 


27 


02872 


02871 


06540 




a 


SFSUCE 




10204 


49 


08600 


00000 


06550 




OORG 


•-3 




10212 








06560 


F II TST 


BNG 


GORT, 19899,, CHECK FOR FILE PROTECTION 




10212 


59 


10232 


19899 


06570 




D 


MSTAKE 




10224 


49 


09032 


00000 


06580 




OORG 


•-3 




10232 






02871 


06590 


GQRT 


b r 


GETR tGETR-l , , SEARCH FOR MORE BLANK SECTORS 


10232 


27 


02872 






CM 


LISTER-3, 07,1011, CYL REPRESENTED 




10244 


14 


02 761 


000-P 


06M0 




HE 


GORT 




10296 


46 


10232 


01200 


06620 




CM 


LISTER-3, 09, 101 I, BLANKS 




10268 


14 


02761 


000-R 








BAVAOO 




10280 


46 


10472 


01200 


06640 






NEWDIM, LISTER 




10292 


26 


02963 


02764 








DIMMER, DIMMER-1 




10304 


27 


03666 


03665 


06660 




BNG 


•♦20, 19899,, FILE PROTECTED PROGRAM 




10316 


55 


10336 


19899 






g 


FILTST*12 




10328 


49 


10224 


00000 


Uoool) 






• -3 




10336 












BNF 


GORT, 19899,, IMMOVABLE PROGRAM 




10336 


44 


10232 


19899 


06700 




g 


MSTAKE 




10348 


49 


09032 


00000 


06 710 




DORG 


• -3 




10356 














LISTES-3 




10356 


32 


02787 


00000 


06730 




TF 


C0NST5, FOUND 




10368 


26 


02825 


03445 








FOUND, LISTES 




10380 


22 


03445 


02790 


n 7tn 




re 


LISTES-3 




10392 


33 


02787 


00000 








FOUNO-2 




10404 


32 


03443 


00000 


n i to 






BAVAIL, FOUND 




10416 


26 


02754 


03445 








FOUND-2 




10428 


33 


03443 


00000 


790 


B A VC OM 




MOVESC,BAVAIL,,IS HOLE BIG ENOUGH 




10440 


24 


02865 


02754 


06800 




BNH 


MOVNOW 




10452 


4 7 


10504 


01 100 


068 10 






GORT 




10464 


49 


10232 


oonnn 






nn 

DORG 


• -3 




10472 








068 0 


D A V A UU 




LISTER-2,,, ADD IN COUNT OF BLANK SECTORS FOUND 


10472 


32 


02762 


00000 


06840 






BAVAIL, LISTER 




10484 


2 1 


02754 


02764 


06850 






BAVCOM 




10496 


49 


10440 


flflnnn 

\J\J\J\JU 


06860 




no 

DORG 


• -3 




10504 








06870 






BAVAIL, MOVESC,, ADJUST LAST NINES ENTRY 


FOR FINAL OUTPUT 


10504 


22 


02754 


02865 


06 8 80 




r m 


BAVAIL, 000, 9, 




10516 


14 


02754 


00—00 






BE 


REMBLK 




10528 


46 


10636 


01200 


06900 




SF 


LISTER-2 




10540 


32 


02762 


00000 


06910 




TF 


•♦35, BAVAIL 




10552 


26 


10587 


02754 


06920 




CF 


• ♦21 




10564 


33 


10585 


00000 


06930 




TFM 


LISTET,9000,8 




10*576 


16 


02794 


OROOO 


06940 




BT 


INSERT, INSERT-1 




10588 


27 


03414 


03413 


06950 




TFM 


WRM0VE+5,,,ZER0 FIELD 




10600 


16 


02627 


-0000 


06960 




S 


WRMQVE+5, BAVAIL 




10612 


22 


02627 


02754 


06970 




TDM 


HEX,,, RECORD MARK 




10624 


15 


02795 


00000 


06980 




DC 


1,' ,» 




10635 




1 




06990 


REMBLK 


BT 


REMOVE , REMOVE- 1 , , REMOVE LAST NINES ENTRY 


IF IT IS A PERFECT 


10636 


27 


03084 


03083 



977 
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07000 
07010 
07020 
070 30 
07040 
07050 
07060 
07070 
07080 
07090 
07100 
07110 
07120 
07130 
07140 
07150 
07160 
07170 
07180 
07190 
07200 
07210 
07220 
07230 
07240 
07250 
07260 
07270 
07280 
07290 
07300 
07310 
07320 
07330 
07340 
07350 
07360 
07370 
07380 
07390 
07400 
07410 
07420 
07430 



CM 

Be 

TF 
BT 



DORG 
KSEVEN SF 
MM 
A 

SF 
S 

AM 

CF 
B 

DORG 
R SEVEN BT 
TOPPRO BNR 

BT 

TF 

A 

SF 
TFM 
MARVEL BT 

C 

BNH 
CM 



WASH 



BH 
BT 
8 

DORG 

C 

BF 
TF 
BT 
TF 
TF 
TD 
A 

TF 
TD 

B 

OORG 
TCO 



LISTER-3, 07, 1011 
KSEVEN 

NEWDIM,LISTER,,SET MOVER DDA FROM DIM ENTRY 
DIMMER, DIMMER-l 
WRM0VE+5, 19885 
TOPPRO 

• -3 

LISTER-1,,,SET MOVER DDA FROM CYLINDER ENTRY 

LISTER, 200, 9 

WRMOVE+5,99 

WRMOVE 

WRMOVEM, NEVER 
WRMOVE+1 ,01 , 10 
WRMOVE 
TOPPRO 

• -3 

REMOVE , RE MOVE- 1 
•♦24, HEX 

GETL.GETL-l, .ADJUST THE LISTER FOR NO EXACT FIT 

C0NST5,M0VESA 

C0NST5, MOVESC 

C0NST5-4,,, SECTOR ADORES OF LAST SECTOR TO BE MOVEO TOWARD 

NEWDIM,9999,8 

GETL.GETL-l 

WRM0VE^5,C0NST5,,HAS THE LAST PROGRAM JUST BEEN MOVEO 
PRE 7 

LISTER-3, 6, 1011, FLAGGED ABOVE SIX 

•♦32*,, BOTH NUMBERS ARE MINUS 

REMOVE, REMOVE- I 

MARVEL 

•-3 

LISTER, NEWOIM 
WASH 

NE WD I M, LISTER,, BEGIN- MOVE PROGRAMS DOWN 

DIMMER, DIMMER-l 

CALC7, 19888,, SECTOR COUNT 

CALC3, 19885,, INIT READ ANO WRITE 

RDMOVE, 19880 

CALC3.CALC7 

RDM0VE+5.CALC3 

WRMOVE ,RDMOVE 

COMPFR 

•-3 

MOVFL 



07440 DORG 09000 

07450 ••• ROUTINE TO COMPLETE THE REMOVAL OF NON-PROGRAM ENTRIES 
07460 PRE7A BT GETR,GETR-1 

C0NST9, LISTER 

GETL,GETL-1,, SEARCH TOWARD THE LEFT FOR NEW DIM NUMBER 
LISTER-3, 7,1011 
SEVENT 

LISTER-3, 9, 1011 
NINE NT 

LISTER, C0NST9 

CHOICE 



07470 TF 
07480 LOOPSY BT 

07490 CM 

07500 BE 

07510 CM 

07520 BE 

07530 C 

07540 BNE 



10648 


14 


02761 


000-P 


10660 


46 


10716 


01200 


10672 


26 


02963 


02764 


10684 


27 


03666 


03665 


10696 


21 


02627 


19885 


10 708 


49 


10820 


00000 


10716 








10716 


32 


02763 


00000 


10728 


13 


02764 


OOKOO 


10740 


21 


02627 


00099 


10752 


32 


02622 


00000 


10764 


22 


02623 


04291 


10776 


11 


02623 


000- 1 


10788 


33 


02622 


00000 


10800 


49 


10820 


00000 


10808 








10808 


27 


03084 


03083 


10820 


45 


10844 


02795 


10832 


27 


02996 


02995 


10844 


26 


02825 


02862 


10856 


21 


02825 


02865 


10868 


32 


02821 


00000 


10880 


16 


02963 


0R999 


10892 


27 


02996 


02995 


10904 


24 


02627 


02825 


10916 


47 


08638 


01100 


10928 


14 


02761 


000-0 


10940 


46 


10972 


01100 


10952 


27 


03084 


03083 


10964 


49 


10892 


00000 


10972 








10972 


24 


02764 


02963 


10984 


46 


10952 


01200 


10996 


26 


02963 


02764 


11008 


2? 


03666 


03665 


11020 


26 


02848 


19888 


11032 


26 


02779 


19885 


11044 


25 


02599 


19880 


11096 


21 


02779 


02848 


11068 


26 


02604 


02779 


11080 


25 


02622 


02599 


11092 


49 


05268 


00000 


11 100 








08900 








09000 








09000 


27 


02872 


02871 


09012 


26 


02829 


02764 


09024 


27 


02996 


02995 


09036 


14 


02761 


000-P 


09048 


46 


09108 


01200 


09060 


14 


02761 


000-R 


09072 


46 


09132 


01200 


090B4 


24 


02764 


02B29 


09096 


47 


09196 


01200 



978 
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PACE It 



07550 


SEVENT 


CM 


LISTERt 7000 •••CHECK FOR SPECIAL CASE OF CYLINDER 1ER0 


09108 


14 


02764 


OPOOO 


07560 




BF 


SPECAS 


09120 


46 


09152 


01200 


07570 


N1NENT 


BT 


REMOVE •REMOVE-! 


09132 


27 


03084 


03083 


07560 




B 


LOORSY 


09164 


69 


09024 


00000 


07590 




OORG 


•-3 


09152 








07600 


SPECAS 


TFM 


19185,, , 


09152 


16 


19885 


-0000 


07610 




BT 


REMOVE. REMOVE- 1 


09166 


27 


03084 


03083 


07620 




TFM 


MAMY*l,41,i0,N0R THE GETR IN THIS SPECIAL CASE 


09176 


16 


09497 


OOOMl 


07610 




B 


MEAT 


09188 


49 


09292 


00000 


076*0 




OORG 


•-3 


09196 








07650 


CHOICE 


TF 


NEMDIM, LISTER 


09196 


26 


02963 


02764 


07660 




BT 


DIMMER •DIMMER-l 


09208 


27 


03666 


03665 


07670 




CM 


LISTER t 000l»8« CHECK FOR WORK REPRESENTED BY CYLINDER COUNT 


09220 


16 


02764 


0-001 


07680 




BNE 


• ♦48 


09232 


47 


09280 


01200 


07690 




MM 


19888,200,9 


09266 


13 


19888 


OOKOO 


07700 




SF 


95 


09256 


32 


0009S 


00000 


07710 




A 


19885*99 


09268 


21 


19885 


00099 


07720 




A 


19885,19888 


09280 


21 


19885 


19888 


07730 




SET-UP FAKSEV A NO RACKET 










07740 


MEAT 


MM 


MOVESA-4,05.10 


09292 


13 


02858 


000-5 


07750 




TDM 


MOVESA-4,1,11 


09304 


15 


02858 


OOOOJ 


07760 




80 


•♦24, 99 


09316 


43 


09340 


00099 


07770 




TOM 


MOVESA-4,0,11 


09328 


15 


02858 


0000- 


07780 




TO 


19881 ,M0VESA-4 


09340 


25 


19881 


02858 


07790 




TFM 


FAKSEV, 7000,8 


09352 


16 


02852 


OPOOO 


07800 




SF 


19883 


09364 


32 


19883 


00000 


07810 


DEL TA 


OC 


5,00200,* 


09375 




5 








-0200 










07820 




TFM 


RACKET, ,8 


09376 


16 


02841 


0-000 


07830 




TF 


RACKET, 19885, .ESTABLISH THE NUMBER OF SECTORS USED ON THIS C 


09388 


26 


02841 


19885 


07840 




CF 


19883 


09400 


33 


19883 


00000 


07850 




TDM 


RACKET-2,1 


09412 


15 


02839 


00001 


07860 




MM 


19883,05,10 


09424 


13 


19883 


000-5 


07870 




BO 


•♦24,99 


09436 


43 


09460 


00099 


07880 




TOM 


RACKET-2,0 


09448 


15 


02839 


00000 


07890 




TO 


FAKSEV, 98 


09460 


25 


02852 


00098 


07900 




TO 


FAKSEV-1,97 


09472 


25 


02851 


00097 


07910 




S 


OELTA, RACKET,, INIT TO 200 MINUS RACKET 


09484 


22 


09375 


02841 


07920 


MAMY 


BT 


GETR.GETR-l,, SHIFT OFF OF ANCHOR PROGRAM 


09496 


27 


02872 


02871 


07930 




TF 


C0NST5,M0VESA 


09508 


26 


02825 


02862 


07940 




S 


C0NST5, 19885 


09520 


22 


02825 


19885 


07950 




CM 


RACKET, 0000, 8 


09532 


14 


02841 


0-000 


07960 




BNE 


CONCUD 


09544 


47 


09952 


01200 


07970 




TF 


LISTET, FAKSEV,, REPLACE THE CYLINDER MARKER 


09556 


26 


02794 


02852 


07980 




BT 


INSERT, I NSERT-l 


09568 


2? 


03414 


03413 


07990 




CM 


C0NST5,,7, 


09580 


14 


02825 


-0000 


08000 




BE 


EIGHTS 


09592 


46 


09984 


01200 


08010 


DELNT5 


C 


DELTA, C0NST5,, IS THERE ENOUGH ROOM FOR REMAINING NINES ENT 


09604 


24 


09375 


02825 


08020 




BL 


TAG 


09616 


47 


09812 


01300 


08030 




BH 


TIC 


09628 


46 


09744 


01100 


08040 




SF 


C0NST5-2,,, A PERFECT FIT, INSERT THE NINES ENTRY 


09640 


32 


02823 


00000 


08050 




TF 


•♦35.C0NST5 


09652 


26 


09687 


02825 


08060 




CF 


• ♦21 


09664 


33 


09685 


00000 


08070 




TFM 


LISTET, 9000, 8 


09676 


16 


02794 


OROOO 


08080 




R T 


INSERT, INSERT-l 


09688 


27 


03414 


03413 


08090 




AM 


FAKSEV, 01, 10 


09700 


11 


02852 


000-1 



979 
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08100 




TF 


LISTET, FAKSEV,, 


RESTORE THE CYLINDER MARKER 09712 


26 


02794 


02852 


081 10 




BT 


INSERT, INSERT-l 


09724 


27 


03414 


03413 


08120 




B 


EIGHTS 


09736 


49 


09984 


00000 


08130 




OORG 


• -3 


09744 








08140 


TIC 


SF 


C0NST5-2,,, INSERT THE NINES ENTRY 09744 


32 


02823 


00000 


08150 




TF 


•♦35,C0NST5 


09756 


26 


09791 


02825 


08160 




CF 


• ♦21 


09768 


33 


09789 


00000 


08170 




TFM 


LISTET, 9000, 8 


09780 


16 


02794 


OROOO 


08180 




BT 


INSERT, INSERT-l 


09792 


27 


03414 


03413 


08190 




B 


EIGHTS 


09804 


49 


09984 


00000 


08200 




□ ORG 


•-3 


09812 








08210 


T AC 


SF 


DEL TA-2 , , FILL 


THE REST OF THE CYLINDER WITH NINES ENTRY 09812 


32 


09373 


00000 


08220 




TF 


•♦35, DELTA 


09624 


26 


09859 


09375 


08230 




CF 


• ♦21 


09836 


33 


09857 


00000 


08240 




TFM 


LISTET, 9000, 8 


09848 


16 


02 794 


OROOO 


08250 




CF 


DELTA-2 


09860 


33 


09373 


00000 


08260 




BT 


INSERT, INSERT-l 


09872 


27 


03414 


03413 


08270 




S 


C0NST5, DELTA 


09884 


22 


02825 


09375 


08280 




AM 


FAKSEV, 01, 10 


09896 


11 


02852 


000-1 


08290 




TF 


LISTET, FAKSEV,, 


RESTORE THE CYLINOER MARKER 09908 


26 


02794 


02852 


08300 




BT 


INSERT, INSERT-l 


09920 


27 


03414 


03413 


08310 




TFM 


DELTA, 00200, 7, 


09932 


16 


09375 


-0200 


08320 




B 


DELNT5 


09944 


49 


09604 


00000 


08330 




DORG 


•-3 


09952 








08340 


CONCUD 


CM 


C0NST5,00000,7, 


SECTOR ADORES FITS ON END OF PREVIOUS PROGR 09952 


14 


02825 


-0000 


08350 




BE 


EIGHTS 


09964 


46 


09984 


01200 


08360 




8 


0ELNT5 


09976 


49 


09604 


00000 


08370 




DORG 


• -3 


09984 








08380 


E IGHTS 


TF 


•♦35, MOVE SC,, 


INSERT AN EIGHTS ENTRY FOR MOVESC 09984 


26 


10019 


02865 


08390 




CF 


• ♦21 


09996 


33 


10017 


00000 


08400 




TFM 


LISTET, 8000,8 


10008 


16 


02794 


OQOOO 


08410 




BT 


INSERT, INSERT-l 


10020 


27 


03414 


03413 


08420 




BT 


GETL.GETL-l 


10032 


27 


02996 


02995 


084 10 




SF 


MOVES A- 3 


10064 


32 


02859 


00000 


08*40 




TF 


RACKET, MO VESA 


10056 


26 


02841 


02862 


08450 




CF 


MOVESA-3 


10068 


33 


02859 


00000 


08460 




SM 


RACKET, 200,9 


10080 


12 


02841 


OOKOO 


08470 




BNF 


•-12, RACKET 


10092 


44 


10080 


02841 


08480 




AM 


RACKET, 200,9 


10104 


11 


02841 


OOKOO 


08490 




BT 


GETL ,GETL-1 


10116 


27 


02996 


02995 


08500 


• •• 1 


90UTH 


Ht TO RESTORE THE SPL TO ITS PROPER FORM 








08510 


ALLRIT 


BT 


GETR.GETR-l,, 


SHIFT TO PICK UP NEXT ENTRY TO ANALYZE 10128 


27 


02872 


02671 


08520 




CM 


LISTER-3, 7,1011 


10140 


14 


02761 


000-P 


08530 




BE 


BEAUTY 


10152 


46 


10592 


01200 


08540 




CM 


LISTER-3, 9, 1011 


10164 


14 


02761 


000-R 


08550 




BE 


AOORAC 


10176 


46 


10656 


01200 


08560 




CM 


LISTER-3, 8, 1011 


10188 


14 


02761 


000-0 


08570 




BE 


AOORAC 


10200 


46 


10656 


01200 


06580 




TF 


NE MO I M, LISTER, , 


•RING IN NEW DIM ENTRY TO FIND LENGTH 10212 


26 


02963 


02764 


08590 




BT 


DIMMER, DIMMER- I 


10224 


27 


03666 


03665 


08600 




SF 


FAKSEV-1 


10236 


32 


02851 


00000 


08610 




MM 


FAKSEV, 200,9 


10268 


13 


02852 


OOKOO 


08620 




SF 


94 


10260 


32 


00094 


00000 


08630 




S 


95, NEVER 


10272 


22 


00095 


04291 


08640 




AM 


99,01,10 


10284 


11 


00093 


000- 1 


08690 




CF 


FAKSEV-1 


10296 


33 


02851 


00000 



980 
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08660 




C 


19885,99,, DOES THIS PROGRAM START ON A CYLINDER PREVIOUS TO 


10308 


24 


19BB5 


00099 


08670 




BNL 


• ♦48 


10320 


4* 


10368 


01300 


08680 




S 


19885,99 


10332 


22 


19BB5 


00099 


08690 




SF 


19883 


10364 


32 


19BB3 


00000 


08700 




A 


19888,19885 


10 39* 


21 


19888 


19889 


08710 




A 


RACKET, 19888 


103*8 


21 


02841 


19888 


08720 


NOISY 


CM 


RACKET, 200, 9, HAVE 200 SECTORS BEEN ACCOUNTED FOR THIS CYL I 


103B0 


14 


02B41 


OOKOO 


08730 




BE 


E7.E ST 


10392 


4* 


10700 


01200 


08740 




BNH 


ALLRIT 


10406 


47 


10128 


01100 


08750 




CM 


LISTER-3, 6,1011 


1041* 


14 


02761 


000-Q 


08760 




BNH 


TELAST 


10428 


47 


10756 


01100 


08770 




TF 


STEAL, LISTER 


10440 


2* 


02845 


02764 


08780 




BT 


GETR.GETR-l 


10492 


27 


02872 


02B71 


08790 




AM 


FAKSEV, 1,10 


104*4 


U 


02852 


000-1 


08800 




TF 


L I STE T, FAKSEV, , RESTORE SEVENS MARKER 


104T* 


2* 


02794 


02892 


08810 




BT 


INSERT, INSERT-l 


104B8 


27 


03414 


03413 


08B20 




TF 


LISTET, STEAL,, REPEAT THE DIM NUMBER 


10500 


2* 


02794 


02849 


08830 




BT 


INSERT, INSERT-l 


10512 


27 


03414 


03413 


08840 


RAKES 


SM 


RACKET, 200, 9, 


10524 


12 


02841 


OOKOO 


08850 




C 


LISTER, FAKSFV 


1053* 


24 


02764 


02852 


08860 




HF 


•♦32 


10548 


46 


10580 


01200 


08870 




BT 


GETL.GETL-1 


105*0 


27 


02996 


02995 


08880 




B 


NOISY 


10572 


49 


10380 


00000 


08890 




OORG 


• -3 


10580 








08900 




BT 


RE MOVE, REMOVE- I 


10S80 


27 


03084 


03083 


08910 


BEAUTY 


BT 


GETL ,GETL-1 , , POSITION LISTER POR EXIT 


10592 


27 


02996 


02995 


08920 




CM 


LISTER-3, 08,1011 


10604 


14 


02761 


000-Q 


08930 




Be 


• ♦20 


10616 


46 


10636 


01200 


08940 




8 


BEAUTY 


10628 


49 


10592 


00000 


08950 




DORG 


• -3 


10636 








08960 




BT 


GETR.GETR-l 


10636 


27 


02872 


02871 


08970 




B 


SFSUCE 


10648 


49 


08600 


00000 


08980 




DORG 


• -3 


10656 








08990 


ADDRAC 


sr 


LISTER-2,,, ADO THE BLANK OR EIGHTS SECTOR COUNT TO TOTAL 


10656 


32 


02 762 


00000 


09000 




A 


RACKET, LISTER 


10668 


21 


02841 


02764 


09010 




CF 


LISTER-2 


10680 


33 


02762 


00000 


09020 




B 


NOISY 


10692 


49 


10380 


00000 


09030 




DORG 


• -3 


10700 








09040 


EZEST 


AM 


FAKSEV,1,10, INSERT CYL MARKER FOR A PERFECT FIT 


10700 


11 


02852 


000- 1 


09050 




TF 


LISTET, FAKSEV 


10712 


26 


02794 


02852 


09060 




BT 


GETR , GETR-l 


10724 


27 


02872 


02871 


09070 




BT 


INSERT, INSERT-l 


1073* 


27 


03414 


03413 


09080 




B 


RAKES 


10748 


49 


10524 


00000 


09090 




DORG 


• -3 


10756 








09100 


TEL AST 


SF 


LISTER-2 


10756 


32 


02762 


00000 


09H0 




S 


RACKET, LISTER,, PREPARE THE SIZE OF THE EIGHTS ENTRY 


10 7*8 


22 


02841 


02764 


09120 




CF 


LI STER-2 


10780 


33 


02762 


00000 


09130 




TF M 


C0NST8,200,8 


10792 


16 


02870 


0-200 


09140 




S 


C0NST8, RACKET 


10804 


22 


02870 


02841 


09150 




SF 


C0NST8-2 


10816 


32 


02868 


00000 


09160 




S 


LISTER, C0NST8 


10828 


22 


02764 


02870 


09170 




TF 


STEAL, LISTER 


10840 


26 


02845 


02764 


09180 




TF 


•♦35.C0NST8 


10852 


26 


10887 


02870 


09190 




CF 


•♦21 


10864 


33 


10885 


00000 


09200 




TFM 


LISTET, 8000, 8, INSERT THE EIGHTS ENTRY 


10876 


16 


02794 


OQOOO 


09210 




BT 


REMOVE , REMOVE- 1 , , REMOVE THE INDICATOR FROM THE LIST 


10888 


27 


03084 


03083 
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09220 




BT 


INSERT, INSERT- 


1 




10900 


27 


03414 


03413 


09230 




AM 


FAKSEV,1,10 






10912 


11 


02852 


000-1 


09240 




TF 


LISTET, FAKSEV 






10924 


26 


02794 


02852 


09250 




BT 


INSERT, INSERT- 


1,, 


INSERT THE SEVENS MARKER 


10936 


27 


03414 


03413 


09260 




TF 


LI STE T , STEAL 






10948 


26 


02794 


02845 


09270 




BT 


INSERT, INSERT- 


1,, 


REPLACE THE REDUCED INDICATOR 


10960 


27 


03414 


03413 


09280 




BT 


GETL , GE TL-l 






10972 


27 


02996 


02995 


09290 




TF 


RACKET, LISTET 






10984 


26 


02841 


02794 


09300 




TDM 


RACKET-3,0,11 






10996 


15 


02838 


0000- 


09310 




B 


NOISY 






11008 


49 


10380 


00000 


09320 




DORG 


•-3 






11016 








09330 


• •• 


LINKAGE FOR PLACING 


THIS 


LAST PORTION OF MOVER ON DISK 










09340 


NOMC 


TFM 


IORT,»^23 






11016 


16 


00565 


J1039 


09350 




B 


IOPT,N0M0,7 






11028 


49 


00532 


J 1064 


09360 




TRA 








11040 


36 


00000 


00500 














11052 


49 


00000 


00000 


09370 


NOMD 


DSC 


2,22 






11064 




2 








22 
















09380 




OSA 


NOME 






11070 




5 


X 1 














11070 




J1072 




09390 




DC 


1, • 






11071 




I 




09400 


NOME 


DSC 


1,1 






11072 




1 




09410 




1 

DC 


5, 17106 






11077 




5 








J 7106 














09420 




oc 


3,022 






11080 




3 








-22 
















09430 




OC 


6,09000* 






11086 




6 








-9000' 














09440 




TCO 


NOMC 






11016 








09450 




DORG 


5600 






05*00 






-5623 


09460 


DEL FL 


TFM 


IORT,~23 






05600 


16 


00565 


094 70 




B 


10PT,DELI,7 






05612 


49 


00532 


-5648 


09480 




TRA 








05624 


36 


00000 


00500 














05*3* 


49 


00000 


00000 


09490 


OELl 


DSC 


2,22 






05648 




2 








22 
















09500 




OSA 


0EL2 






05*54 




5 


X 1 














05654 




-5*5* 




09510 




OSC 

9 


lt« 






05*55 




1 




09520 


DEL2 


OSC 


1,1 






05*5* 




I 




09530 




I 

OC 


5,18247 






05**1 




5 








J8247 














09540 




OC 


3,013 






056*4 




3 








-13 
















09550 




DC 


5,05800 






05**9 




5 








-5800 














09560 




OSC 


l»* 






09*70 




1 
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09990 • 



09*00 




oo to 


3600 


05600 








09610 


DUET 


SF 


DELETE 


05600 


32 


13086 


00000 


09620 






OETERMINE MAX. MO. OF OIM ENTRIES 










09630 




TFM 


MAXDIM.9999,8 


05812 


16 


03843 


OR 999 


09640 




TFM 


NEWDIN,3,8 


05824 


16 


02963 


0-003 


09650 




BT 


DIMMER i 01 MMf 6-1 


05836 


27 


03666 


03665 


09660 




BNR 


•♦20, MAP 


05848 


45 


05666 


19880 


09670 




8 


MONCAL 


05660 


49 


00796 


00000 


09660 




DORG 


•-3 


05868 








09690 




MM 


MAP*8,5,10 


05866 


13 


19866 


000-5 


09700 




SF 


96 


05680 


32 


00096 


00000 


09710 




SM 


99,1,10 


05692 


12 


00099 


000-1 


09720 




TF 


MAX0IM.99 


05904 


26 


03643 


00099 


09730 




SF 


INPUT* 11 


05916 


32 


13624 


00000 


09740 




TF 


PNAME,INPUT*22 


05926 


26 


13189 


13635 


09750 




TO 


DIMNUM,INPUT*30 


05940 


25 


13150 


13643 


09760 




TO 


D I MNUM- I , I NPUT*26 


05952 


25 


13149 


13641 


09770 




TO 


0 1 MNUM- 2 » I NPUT* 26 


05964 


25 


13148 


13639 


09780 




TO 


DIMNUM-3,INPUT»24 


05976 


25 


13147 


13637 


09790 




SF 


D I MNUM- 3 


05966 


32 


13147 


00000 


09800 




CM 


DIMNUM.0,8 


06000 


14 


13150 


0-000 


09810 




BE 


OKDEL-24 


06012 


46 


06124 


01200 


09820 


• •• 




IS DIM NO* IN RANGE 










09830 




c 


DIMNUM,MAXDIM 


06024 


24 


13150 


03843 


09840 




BNH 


•♦32 


06036 


47 


06068 


01100 


09850 




TFM 


DIMERR+22 ,0076,6 


06048 


16 


02507 


0-076 


09860 




Q 


ERRD 


06060 


49 


02524 


00000 


09870 




OORG 


•-3 


06068 








09880 


• •• 




IS OIM NO* IN USE 










09890 




TF 


NEWDI M,D I MNUM 


06068 


26 


02963 


13150 


09900 




BT 


DIMMER, 01 MMER-1 


06080 


27 


03666 


03665 


09910 




BNR 


OKOELfMAP 


06092 


45 


06148 


19880 


09920 




TFM 


D I ME RR* 22, 72 71 ,8 


06104 


16 


02507 


0P271 


09930 




B 


ERRO 


06116 


49 


02524 


00000 


09940 




DORG 


•-3 


06124 








09950 




c 


PNAME , ZER012 


06124 


24 


13189 


13123 


09960 




BE 


ERRD- 12 


06136 


46 


02512 


01200 


09970 


OKDEL 


BTM 


E0UIV,»*12 


06148 


17 


08606 


-6160 


09980 




CM 


0IMNUM,0,8 


06160 


14 


13150 


0-000 


09990 




BNE 


• ♦32 


06172 


47 


06204 


01200 


10000 




TFM 


0IMERR*22,7270,8 


06184 


16 


02507 


0P270 


100 10 




8 


ERRD 


06196 


49 


02524 


00000 


10020 




OORG 


•-3 


06204 








10030 




DELETE ENTRY FROM SP LIST 










10040 




BTM 


SPL0EL,»*12 


06204 


17 


12090 


-6216 


10050 




TF 


NEWOIM,OIMNUM 


06216 


26 


02963 


13150 


10060 




BT 


0 1 MME R » 0 1 MME R- 1 


06228 


27 


03666 


03665 


10070 




TF 


FWRIT+5,MAP*5 


06240 


26 


13232 


19865 


10080 




TO 


F WRIT, MAP 


06252 


25 


13227 


19880 


10090 




TF 


H0LD3«MAP*8 


06264 


26 


13153 


19888 


10100 




TF 


L0ADSC,MAP*8 


06276 


26 


13140 


19888 


10U0 




TFM 


FLAG* 11, TRACK2 


06268 


16 


06479 


J7778 


10120 




TF 


L0ADSA,MAP*5 


06300 


26 


13050 


19885 


10130 




TO 


L0A0SA-5,MAP 


06312 


25 


13045 


19880 
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10140 




SF 


MAP + 4 




06324 


32 


19884 


00000 


10150 




SM 


MAP+5,20,10 




06336 


12 


19885 


OOOKO 


10160 




BH 


•-12 




06348 


46 


06336 


01100 


10170 




BZ 


•♦48 




06360 


46 


06408 


01200 


10180 




AM 


MAP+5,20, 10 




06372 


U 


19885 


OOOKO 


10190 




MM 


MAP*5, 105,9 




06384 


13 


19885 


00J05 


10200 




A 


FLAG*li,99 




06396 


21 


06479 


00099 


10210 




TF 


CLFP*6,FLAG*11 




06408 


26 


06658 


06479 


10220 




TFM 


FWRIT+8,20,9 




06420 


16 


13235 


00-20 


10230 




TFM 


FWRIT+13,TRACK2 




06432 


16 


13240 


J7778 


10240 




TFM 


IORT,»*23 




06444 


16 


00565 


-6467 


10250 




B 


I0GT,FP00A,7 




06456 


49 


00566 


J3413 


10260 


FLAG 


BNF 


•♦20, TRACK2, , 


SEARCH FOR 


FILE PROTECTION 06468 


44 


06488 


17778 


10270 




B 


CLEAR 




06480 


49 


06580 


00000 


10280 




DORG 


•-3 




06488 








10290 




SM 


H0L03,1,10 




06488 


12 


13153 


000-1 


10300 




BZ 


FPOK 




06500 


46 


06820 


01200 


10310 




AM. 


FLAG^ll,l05,9 




06512 


11 


06479 


00J05 


10320 




CM 


FLAGM1,TRACK2*2100 




06524 


14 


06479 


J9878 


10330 




BL 


FLAG 




06536 


47 


06468 


01300 


10340 




TFM 


FLAG*ll, TRACK2 




06548 


16 


06479 


J7778 


10350 




AM 


FWRIT^5,20,10 




06560 


11 


13232 


OOOKO 


10360 




B 


FLAG-24 




06572 


49 


06444 


00000 


10370 




DORG 


•-3 




06560 








10380 


CLEAR 


TF 


FMRIT^5,LOA0SA 




06580 


26 


13232 


13050 


10390 




TO 


FWRIT.LOADSA-5 




06592 


25 


13227 


13045 


10400 




SF 


BUTTON 




06604 


32 


00455 


00000 


10410 




BTM 


KYMESS,»+12 




06616 


17 


11998 


-6628 


10420 




TFM 


I0RT,»+23 




06628 


16 


00565 


-6651 


10430 




B 


I0GT,FPDDA,7 




06640 


49 


00566 


J3413 


10440 


CLFP 


CF 


TRACK2 , , * 


CLEAR FILE 


PROTECTION 06652 


33 


17778 


00000 


10450 




SM 


LOADSCl.lO 




06664 


12 


13140 


000-1 


10460 




BZ 


WROK 




06676 


46 


06724 


01200 


10470 




AM 


CLFP+6. 105,9 




06668 


11 


06658 


00J05 


10480 




CM 


CLFP^6,TRACK2*2100 




06700 


14 


06658 


J9878 


10490 




BL 


CLFP 




06712 


47 


06652 


01300 


10500 


WROK 


TFM 


I0RT,»^23 




06724 


16 


00565 


-6747 


10510 




B 


I0PT,FPD0A,7 




06736 


49 


00532 


J3413 


10520 




AM 


FWRIT+5,20,10 




06748 


U 


13232 


OOOKO 


10530 




TFM 


CLFP*6,TRACK2 




06760 


16 


06658 


J7778 


10540 




CM 


L0A0SC,0,9 




06772 


14 


13140 


00-00 


10550 




BNE 


CLFP-24 




06784 


47 


06628 


01200 


10560 




CF 


BUTTON 




06796 


33 


00455 


00000 


10570 




BTM 


KVMESS,«M2 




06606 


17 


11998 


-6820 


10560 


FPOK 


TF 


NEWDIM.DIMNUM 




06620 


26 


02963 


13150 


10590 




6T 


DIMMER, DIMMER- I 




06632 


27 


03666 


03665 


10600 




TDM 


MAP,,, 


REMOVE OIM 


ENTRY 06644 


13 


19880 


00000 


10610 




DSC 
• 


lt».« 




06635 




I 




10620 




TF 


NAPM9.ZER019 




06656 


26 


19899 


13130 


10630 




TFM 


I0RT,»*23 




06668 


16 


00565 


-6691 


10640 




B 


I0PT,DM0DA,7 




06680 


49 


00532 


-2368 


10650 




TOM 


SVSCAL , 3 




06692 


15 


00475 


00003 


10660 




8 


MONCAL 




06904 


49 


00796 


00000 


10670 




OORG 


•-3 




06912 








10680 




TCD 


DELFL 




05600 
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10700 •OLOAO I NOEPf NOENT ROUTINES 

10710 • ••• 



10720 


DORC 


4400 




04400 








10F30 LuADrL 


TFN 


I0RT,«*23 




04400 


I* 


00565 


-4423 


10740 


8 


I0PT,L0AD2,7 




04412 


49 


00532 


-4463 


10750 


TRA 






04424 


36 


00000 


00500 










0443* 


49 


00000 


00000 


10760 L0AD1 


OSC 


Itl 




04448 




1 




10770 


I 

OC 


5,18369 




044S3 




5 






J8369 












10780 


OC 
-27 


3,027 




04456 




3 




10790 


OC 


5,05800 




04461 




5 






-5800 












10800 


OSC 
i 


l,« 




04462 




1 




10810 LOA02 


OSC 


2.22 




04463 




2 




10820 


22 
OSA 


LOAD 1 




04469 




5 


X 1 










04469 




-4448 




10830 


OSC 


It • 




04470 




1 




10840 


DORG 


5800 




05800 








10850 OLOAO 


BTM 


SCRAD,»*12 




05800 


17 


09298 


-5812 


10860 


TO 


N0SA + 57,MCS*49' 




05812 


25 


10943 


17827 


10870 


SF 


NOSA+57 




05824 


32 


10943 


00000 


10880 


SM 


N0SA+59, 100,9 




05836 


12 


10945 


OOJOO 


10890 


TFM 


H0LD2,0,10 




05848 


16 


13052 


000-0 


10900 


TO 


H0LD2,SYSCAL 




05860 


25 


13052 


00475 


10910 


IS CALL FROM CONTROL CARD 












10920 


CM 


H0LD2.4, 10 




05872 


14 


13052 


000-4 


10930 


8NE 


SPS 




05884 


47 


07424 


01200 


10940 


TFM 


ATN+il.INPUT+32 




05896 


16 


09053 


J3645 


10950 


I CONVERT CONTROL CARD 


TO NUMERIC 










10960 


BTM 






05908 


17 


06606 


-5920 


10970 


SF 


INPUT+75 




05920 


32 


13688 


00000 


10980 


C 


INPUT*84,ZER0l2-2 




05932 


24 


13697 


13121 


10990 


BNE 


• ♦24 




05944 


47 


05968 


01200 


11000 


TFM 


H0LDCD*26,02402,7 




05956 


16 


13016 


-2402 


11010 DC 2 


SF 


HOLDCDUO 




05968 


32 


13000 


00000 


11020 * 


SF 


H0L0C0*17 




05980 


32 


13007 


00000 


11030 


SF 


H0LDC0*22 




05992 


32 


13012 


00000 


11040 


SF 


H0L0CD*27 




06004 


32 


13017 


00000 


11050 


BO 


•♦32,NTEST 




06016 


43 


06048 


13084 


11060 


TF 


MAPMA »HOLDC0*26 




06028 


26 


• 13106 


13016 


11070 


8 


• ♦20 




06040 


49 


06060 


00000 


11080 


DORG 


•-3 




06048 








11090 


TFM 


MAPMA, 99999, 7 




06048 


16 


13106 


R9999 


11100 


TF 


MAPEA.MOLDCDOt 




06060 


26 


13111 


13021 


11110 


BD 


DISKN,PHI 


IF NOT ON DISK GOTO NOOISK 


06072 


43 


06328 


13082 


11120 DC22 


SF 


INPUT+31 




06084 


32 


13644 


00000 


11130 


C 


INPUT+50.ZER012 




06096 


24 


13663 


13123 
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11140 




BE 


ERRD-12 




06108 


46 


02512 


01200 


11150 




TF 


H0LD6.H0LDCDM5 




06120 


26 


13175 


13005 


11160 




S 


H0LD6.H0L0CD+9 




06132 


22 


13175 


12999 


11170 




BNL 


• ♦32 




06144 


46 


06176 


01300 


11180 




TFM 


DIMERR+22,7177,8 




06156 


16 


02507 


OP 177 


11190 




B 


ERRD 




06168 


49 


02524 


00000 


11200 




DORG 


•-3 




06176 








11210 




C 


H0LDCD+9, SCR1 




06176 


24 


12999 


13163 


11220 




BL 


SCERR 




06188 


47 


12798 


01300 


11230 




C 


H0LDCDM5,SCR2 




06200 


24 


13005 


13169 


11240 




UH 


SCERR 




06212 


46 


12798 


01100 


11250 




TF 


L0ADSC,H0LDCD^15,, 


COMPUTE SECTOR COUNT 


06224 


26 


13140 


13005 


11260 




S 


LOADSC, HQLDCD^9 




06236 


22 


13140 


12999 


11270 




AM 


LOADSC ,1,10 




06246 


11 


13140 


000- 1 


11280 




TF 


SCRACH.HOLDCD+9 




06260 


26 


13146 


12999 


11290 




SF 


LOADSC-2 




06272 


32 


13138 


00000 


11300 




SF 


SCRACH-4 




06284 


32 


13142 


00000 


11310 




CF 


SCRACH-5 




06296 


33 


13141 


00000 


11320 




BD 


MODDKl.RTEST 




06308 


43 


10662 


13063 


11330 




B 


MAINB1 




06320 


49 


06352 


00000 


11340 




DORG 


• -3 




06328 








11350 


OISKN 


BO 


M0DND1 ,RTEST 




06328 


43 


10482 


13083 


11360 




BTM 


N0DISK,»M2 




06340 


17 


09866 


-6352 


11370 


MAIN81 


BO 


•♦32.PTEST 




06352 


43 


06384 


13085 


11380 




TDM 


MAPRM , , , 


NO FILE PROTECTION 


06364 


15 


13063 


00000 


11390 




DSC 


If «t» 




06375 




1 




11400 




B 


• ♦20 




06376 


49 


06396 


00000 


11410 




DORG 


•-3 




06384 








11420 




TO 


MAPRM, GPMARK,, 


FILE PROTECTION 


06384 


25 


13063 


13064 


11430 




SF 


INPUT+65 




06396 


32 


13678 


00000 


11440 




C 


INPUT*74,ZER012 




06408 


24 


13687 


13123 


11450 




BE 


NOSA 




06420 


46 


10886 


01200 


11460 




SF 


MAPRM,,, 


IMMOVABLE PROGRAM 


06432 


32 


13063 


00000 


11470 




TF 


L0ADSA,H0L0CD^21 




06444 


26 


13050 


13011 


11480 




TO 


LOADS A-5,H0LDCD+16 




06456 


25 


13045 


13006 


11490 




C 


L0ADSA,SCR2 




06468 


24 


13050 


13169 


11500 




BH 


SCR OK 




06480 


46 


06552 


01100 


11510 




TF 


H0LD6 , LOADSA 




06492 


26 


13175 


13050 


11520 




A 


H0LD6, LOADSC 




06504 


21 


13175 


13140 


11530 




SM 


M0LD6.1, 10 




06516 


12 


13175 


000-1 


11540 




C 


H0LD6 * SCR I 




06528 


24 


13175 


13163 


11550 




BNL 


SCERR 




06540 


46 


12796 


01300 


11560 


SCROK 


SF 


INPUT + U 




06552 


32 


13624 


00000 


11570 




TF 


PNAME.lNPUT+22 




065*4 


26 


13189 


13635 


11580 




CM 


HQIDCD*3,0,8 




0*57* 


14 


12993 


0-000 


11590 




BE 


F I NOON 




0*588 


4* 


06*60 


01200 


11600 




TF 


NEWDI M,HQLDC0*3 




0**00 


2* 


02963 


12993 


11610 




BT 


DIMMER, DIMMER- I 




0**12 


27 


03666 


03663 


11620 




BNR 


•♦20* MAP 




0**24 


45 


06*44 


19680 


11630 




8 


CALLMV 




0**3* 


49 


06976 


00000 


11640 




OORG 


•-3 




0**44 








11650 




RCTV 






0**44 


34 


00000 


00102 


11660 




TFN 


D1MERR*22, 7572.6 




0**9* 


I* 


02507 


OR372 


11670 




MATY 


D1MERR 




0***8 


39 


02469 


00100 


11680 


F I NOON 


TFN 


NE MO IM, 131,8* 


FIND FIRST UNUSEO DIN fNTRV 


0**80 


I* 


029*3 


0-131 



a8 < w 
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11*90 




TP 


H0LD6.1ER06 


06692 


26 


11175 


11117 


11700 




TF 


HOLD*,NE NOIM 


06704 


26 


11175 


02561 


11710 




A 


H0t.06fH0l.D6 


06716 


21 


11175 


11175 


11720 




CF 


HOI 06-1 


06721 


SI 


11172 


00000 


11730 




AM 


H0LD6-1 ,4800, • 


06740 


11 


11174 


0M800 


11740 




TF 


02READ*5,H0L06-1 


06752 


26 


11466 


11174 


11750 




TFM 


I0ftT t »*23 


06764 


16 


00565 


—6787 


11760 




8 


I0GT,D1REA0, 7 


06776 


49 


00566 


J 345 3 


11770 




TFM 


TREC+11 »TRACK 


06788 


16 


06835 


J3776 


11780 




TO 


•♦23.H0LD6 


06600 


25 


06621 


13175 


11790 




AN 


TREC+10,0,10 


06612 


11 


06814 


000-0 


11 SOO 


TREC 


BNR 


•♦20 » TRACK 


06624 


45 


06844 


13776 


11810 




B 


CALLMV 


06636 


49 


06976 


00000 


11820 




OORG 


•-3 


06644 








11830 




AM 


NEWDIMfltlO 


06844 


11 


02963 


000- 1 


11840 




C 


NE WDI M t MAXDt M 


06856 


24 


02963 


03843 


11850 




8H 


EXITFL 


06868 


46 


06924 


01100 


11860 




AM 


TREOU.20,10 


06880 


11 


06835 


OOOKO 


11870 




CM 


TREC*ll,TRACR*2100 


06692 


14 


06835 


JS876 


11880 




8L 


TREC 


06904 


47 


06824 


01300 


11890 




8 


F I NOON* 12 


06916 


49 


06692 


00000 


11900 




OORG 


•-3 


06924 








11910 


EXITFL 


8NF 


•♦32»F0RT 


06924 


44 


06956 


13062 


11920 




TFM 


DIMERR+22,7671,8 


06936 


16 


02507 


0F671 


11930 




8 


ERR*24 


06948 


49 


05680 


00000 


11940 




OORG 


•-3 


06956 








11950 




TFM 


DIMERR+22,0079,8 


06956 


16 


02507 


0-079 


11960 




8 


ERRD 


06968 


49 


02524 


00000 


11970 




OORG 


•-3 


06976 








11980 


CALLMV 


TF 


DIMNUMfNEWOIM 


06976 


26 


13150 


02963 


1 1990 




TF 


MOVESCtLOAOSC 


06988 


26 


02865 


13140 


12000 




TF 


MOVESA.LOADSA 


07000 


26 


02862 


13050 


12010 




TO 


MOVE S A- 5 1 L0A0SA-5 


07012 


25 


02857 


13045 


12020 




TFM 


I0RT,»*23 


07024 


16 


00565 


-7047 


12030 




8 


I0GT,M0V00A,7 


07036 


49 


00566 


J 3204 


12040 




TFM 


EXITMR*6,**20 


07048 


16 


08630 


-7068 


12050 




8 


MOVER 


07060 


49 


08832 


00000 


12060 




OORG 


•-3 


07068 








12070 




8NF 


ERRtSUCESS 


07068 


44 


05656 


13066 


12080 




TFM 


10RT,»*23 


07080 


16 


00565 


-7103 


12090 




8 


I0GT.E0UD0A.7 


07092 


49 


00566 


J 32 72 


12100 




TFM 


I0RT,»*23 


07104 


16 


00565 


-7127 


121 10 




8 


I0GT,C0M2»7 


07116 


49 


00566 


J3297 


12120 




TF 


NEWDIM, OIMNUM 


07128 


26 


02963 


13150 


12130 




BT 


DIMMER, OIMMER-1 


07140 


27 


03666 


03665 


12140 




PTM 


SETMAP,»+12 


07152 


17 


10738 


-7164 


12150 




BTM 


WRLAST,»*12 


07164 


17 


11842 


-7176 


12160 




8NF 


MONCALtOUMF 


07176 


44 


00796 


13388 


12170 




TD 


MCS+23,DUMP 


07188 


25 


17801 


13388 


12180 




TFM 


I0RT,»*23 


07200 


16 


00565 


-7223 


12190 




B 


I0GT,DMPDIM,7 


07212 


49 


00566 


J3365 


12200 


MR 2 


OS 


,2257 


02257 




0 




12210 


LOADRE 


TFM 


ATN+ii,INPUT*32 


07224 


16 


09053 


J3645 


12220 




SF 


LOADRE 


07236 


32 


07224 


00000 


12230 




BTM 


ATNR,»*12 


07248 


17 


08606 


-7260 


12240 




TFM 


INPUT*49,7070»8 


07260 


16 


13662 


0P070 
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12250 




A 


WR2*3,425 


07272 


21 


02260 


00425 


12260 




TO 


WR2.422 


07284 


25 


02257 


00422 


12270 




SF 


WR2 


07296 


32 


02257 


00000 


12280 




CF 


WR2*l 


07308 


33 


02258 


00000 


12290 




TF 


H0lDCD+9tWR2*5 


07320 


26 


12999 


02262 


12300 




TF 


H0L0CD*15,WR2*5 


07332 


26 


13005 


02262 


12310 




A 


H01DCD*15,WR2*8 


07344 


21 


13005 


02265 


12320 




SM 


H0LDCD*15,1»10 


07356 


12 


13005 


000- 1 


12330 




TF 


H0LDCD*26,WR2*13 


07368 


26 


13016 


02270 


12340 




TF 


MAPMA,WR2*13 


07380 


26 


13106 


02270 


12350 




BNF 


DC2,MCS*22 


07392 


44 


05968 


17800 


12360 




SF 


FORT 


07404 


32 


13042 


00000 


12370 




B 


N0RE1 


07416 


49 


07540 


00000 


12380 




OORG 


•-3 


07424 








12390 


SP5 


TFM 


PHI ,0,9, 


LOAD AFTER COMPILATION 07424 


16 


13082 


00-00 


12400 




CM 


H0LD2,6,10 


07436 


14 


13052 


000-6 


12410 




BNE 


LOADRE 


07448 


47 


07224 


01200 


12420 




TOM 


FREDDAtO 


07460 


15 


13429 


00000 


12430 




SF 


FORT 


07472 


32 


13062 


00000 


12440 




TF 


MAPMA,MCS+12 


07484 


26 


13106 


17790 


12450 




BO 


NOREl.MCS+22 


07496 


43 


07540 


17800 


12460 




TFM 


SCRACH,0,7 


07508 


16 


13146 


-0000 


12470 




TOM 


SCRACH-5,0 


07520 


15 


13141 


00000 


12480 




B 


MODDK 1 


07532 


49 


10682 


00000 


12490 




OORG 


•-3 


07540 








12500 


N0RE1 


TF 


INPUT»22,MCS*35 


07540 


26 


13635 


17813 


12510 




TF 


MAPEA,MCS+17 


07552 


26 


13111 


17795 


12520 




TD 


DUMP.MCS+23 


07564 


25 


13388 


17801 


12530 


NEGATE 


TOM 


PTEST.O,. 


NEGATE FILE PROTECTION 07576 


15 


13085 


00000 


12540 




TF 


INPUT*74,ZERU12 


07588 


26 


13687 


13123 


12550 




TF 


H0LDCD*4Q»7ER06,, 


CYLINDER SPEC. 07600 


26 


13030 


13117 


12560 




TF 


H0LDCD*3,MCS*39 


07612 


26 


12993 


17817 


12570 




8NF 


•♦20, LOADRE 


07624 


44 


07644 


07224 


12580 




B 


DC22 


07636 


49 


06084 


00000 


12590 




OORG 


•-3 


07644 








12600 




TFM 


L0A0SC,0,9 


07644 


16 


13140 


00-00 


12610 




TFM 


DCFSCR*8t3t9 


07656 


16 


13343 


00-03 


12620 




TFM 


DCFSCR*5»0,7 


07668 


16 


13340 


-0000 


12630 


INI Ti 


TFM 


LOOP, 4, 10 


07680 


16 


13072 


000-4 


12640 




TFM 


SCAN1*6,RFA0IN 


07692 


16 


07734 


J7778 


12650 




TFM 


I0RT,«*23 


07704 


16 


00565 


-7727 


12660 




B 


I0GT,D0ASCR,7 


07716 


49 


00566 


J3445 


12670 


SCAN1 


NOP 


READI N, 0 


07728 


41 


17778 


00000 


12680 




TF 


6NA* 11, SCAN 1*4 


07740 


24 


09661 


07734 


12690 




TFM 


NODI SK-l , MAINS 1 


07752 


16 


09865 


-6352 


12700 




BTM 


ICTEST,«*12 


07764 


17 


09614 


-7776 


12710 




SM 


LOOP. 1,10 


07776 


12 


11072 


000-1 


12720 




60 


UP SC A, LOOP 


07768 


43 


07812 


11072 


12730 




AM 


LOAOSCfltlO 


07600 


11 


11140 


000-1 


12740 




AM 


DCF$CR*5,3,10 


07612 


11 


11340 


000-3 


12750 




8 


INITl 


07824 


49 


07680 


00000 


12760 




OORG 


•-3 


07632 








12770 


UFSCA 


AM 


SCAN1*6,7S#9 


07612 


11 


07714 


00-75 


12780 




8 


SCANl 


07644 


49 


07728 


00000 


12790 




OORG 


•-1 


07652 








12800 




TCD 


LOAOFL 


04400 
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12820 «DREPL I NDE PENDENT ROUTINES 

12830 ••••• 



12840 




OORG 


4400 


04400 








12850 


REPLFL 


TFM 


I0RT ( »+21 


04400 


16 


00565 


-4423 


12860 




B 


IOPT.REPL2.7 


04412 


49 


00532 


-4463 


12870 




TRA 




04424 


36 


00000 


00500 










04436 


49 


00000 


00000 


12880 


REPLl 


DSC 


i.l 


04448 




1 




12890 




1 

DC 


5.18400 


04453 




5 








J8400 










12900 




DC 


3,026 


04456 




3 








-28 












12910 




DC 


5,05600 


441 




5 








-5800 










12920 




DSC 
• 


It* 


04462 




. 




12930 


REPL2 


DSC 


2,22 










12940 




22 
DSA 


REPLl 


04469 




_ 












04469 




— 4448 




12950 




DSC 
t 


1, * 


04470 




1 




12960 




OORG 


5800 


05800 








12970 


DREPL 


TFM 


H0L02,0,10 


05800 


16 


1 3052 


000—0 


12980 




BTN 


SCRA0,«*12 


05812 


1 7 


09298 


—5824 


12990 




TD 


H0LD2 i SVSCAL 


05824 


25 


13052 




13000 




CM 


H0L02.4,10 


05836 


14 


13052 


000—4 


13010 




BNE 


RELD 


05848 


47 


08172 


01200 


1 3020 




SF 


INPUmi 


05860 


32 


1 3624 


00000 


13030 




TFM 


ATN*U,INPUT+24 


05872 


16 


09053 


J3637 


13040 




BTM 


ATNR,»*12,, CARO TO NUMERIC 


05884 


1 7 


08606 


-5896 


13050 




SF 


H0LDCD*8 


05896 


32 


12998 


00000 


13060 




SF 


H0LDCD*14 


05908 


32 


1 3004 


00000 


13070 




SF 


HOLDCD+26 


05920 


32 


13016 


00000 


13080 




SF 


HOLDCDOl 


05932 


32 


13021 


00000 


13090 




TF 


PNAME,INPUT*22 


05944 


26 


1 3189 


13635 


13100 


1ST0 


CM 


H0LDCDf7,0,8, ERROR IF NO TO DIM 


05956 


14 


12997 


0-000 


13110 




BF 


ERRD-12 • 


05968 


46 


02512 


01200 


13120 




TF 


NE WD I M ,H0LDCD*7 










13130 




BT 


DIMMER, DIMMER-1 


05992 


27 


03666 


03665 


13140 




BNR 


•♦32, MAP 


06004 


45 


06036 


19880 


13150 




TFM 


DIMERR+22,0072,8 


06016 


16 


02507 


0-072 


13160 




B 


ERRO , , , ERROR IF TO DIM NOT IN USE 


06028 


49 


02524 


00000 


13170 




DORG 


•-3 


06036 








13180 




BNF 


• ♦32.MAPM9 


06036 


44 


06068 


19899 


13190 


• ••• 




ERROR IF TO DIM IS IMMOVABLE 










13200 




TFM 


DIMERR+22,0073,8 


06048 


16 


02507 


0-073 


13210 




B 


ERRD 


06060 


49 


02524 


00000 


13220 




DORG 


•-3 


06068 








13230 




TF 


L0A0SA.MAP+5 


06068 


26 


13050 


19885 


13240 




TD 


L0ADSA-5.MAP 


06080 


25 


13045 


19880 


13250 


• • 




ENTRY AND CORE ADDRESSES FROM CARO 
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13260 




TF 


MAPEA,MOLOCO*35 


06092 


26 


13111 


13025 


13£70 




BD 


•♦32,NTEST 


06104 


43 


06136 


13084 


13280 




TF 


MAPMA,H0LDCD*30 


06116 


26 


13106 


13020 


13290 




B 


• ♦20 


06128 


49 


06148 


00000 


13300 




DORG 


•-3 


06136 








13310 




TFM 


MAPMA,99999,7 


06136 


16 


13106 


R9999 


13320 




BD 


•♦32.PTEST 


06148 


43 


06180 


13085 


13330 




NO 


FILE PROTECTION 










13340 




TDM 


MAPRM, , , 


06160 


15 


13063 


00000 


13350 




DSC 


1 , • , • 


06171 




1 




13360 




B 


• ♦20 


06172 


49 


06192 


00000 


13370 




DORG 


•-3 


06180 








13380 




FILE 


PROTECTION 










13390 




TD 


MAPRM, GPMARK 


06180 


25 


13063 


13064 


13400 






PROGRAM IS MOVABLE 










13410 




BD 


NOISK,PHI 


06192 


43 


06848 


13082 


13420 


• • 


IS THERE A FROM OIM 










13430 




CM 


HOLOCD+3,0,8 


06204 


14 


12993 


0-000 


13440 




BNE 


NTZ 


06216 


47 


06380 


01200 


13450 






PROGRAM IS IN WORK AREA 










13460 




SF 


INPUT09 


06228 


32 


13652 


00000 


13470 




C 


INPUT*50,ZER012 


06240 


24 


13663 


13123 


13480 




BE 


ERRO- 12 


06252 


46 


02512 


01200 


13490 




C 


H0LDCD*19,SCR2 


06264 


24 


13009 


13169 


13500 




BH 


SCERR 


06276 


46 


12798 


01100 


13510 




C 


H0LDCD*13,SCR1 


06288 


24 


13003 


13163 


13520 




BL 


SCERR 


06300 


47 


12798 


01300 


13530 


• • 




COMPUTE SECTOR COUNT 










13540 




TF 


L0ADSCH0LDCD+L9 


06312 


26 


13140 


13009 


13550 




S 


L0ADSC,M0L0CD*13 


06324 


22 


13140 


13003 


13560 




AM 


LOAOSCl.lO 


06336 


11 


13140 


000-1 


13570 




SF 


LOADSC-2 


06348 


32 


13138 


00000 


13580 




TF 


SCRACM,M0L0C0^13 


06360 


26 


13146 


13003 


13590 




8 


MAINS 2 


06372 


49 


06684 


00000 


13600 




OORG 


•-3 


06380 








13610 


NTZ 


TF 


NEWD!M,H0LDCD*3 


06380 


26 


02963 


12993 


13620 




BNF 


•♦20, LOADER 


06392 


44 


06412 


12234 


13630 




0 


NTZ-68 


06404 


49 


06312 


00000 


13640 




OORG 


•-3 


06412 








13650 




BT 


DIMMER, DIMMER- I 


06412 


27 


03666 


03663 


13660 


• • 


ERROR IF FROM OIM NOT IN USE 










13670 




BNR 


•♦32, MAP 


06424 


45 


06456 


19880 


13680 




TFM 


0 1 ME RR^ 2 2, 00 74 ,8 


06436 


16 


02507 


0-074 


13690 




S 


ERRD 


06448 


49 


02524 


00000 


13700 




OORG 


•-3 


06456 








13710 




ERROR IF FROM OEM IS IMMOVABLE 










13720 




BNF 


• ♦32.MAPM9 


06454 


44 


06486 


19699 


13730 




TFM 


DIMERR^22,0077,8 


06468 


16 


02507 


0-077 


13 740 




8 


ERRD 


06460 


49 


02524 


00000 


13750 




OORG 


•-3 


06486 








13760 




TF 


L0ADSC,MAP*8 


06468 


26 


13140 


19666 


13770 






PUT FROM OIM PROG. ON SCRATCH 










13760 




TOM 


FWROOAtO 


06500 


15 


11421 


00000 


13790 




TFM 


FMRIT*S,0t7 


06512 


16 


13232 


-0000 


13800 




TOM 


FWRIT.O 


06524 


15 


13227 


00000 
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13810 




TFM 


FwRI T + 13, TRACK 




06536 


16 


13240 




1 3820 




TF 






06548 


26 


1 3247 




I 3830 




TO 


FREAO .MAP 




06560 


25 


13242 


19880 


I 3840 




1^* 


rR6AD*13» TRACK 




06572 


16 


1 32SS 


J3776 


1 3850 


MORERD 


CM 


MAP + B ,040,9 




06584 


14 


19888 




1 3860 




BNH 


• ♦44 




06596 






01100 


1 3870 




SM 


MAP^B ,040*9 




06608 


12 


19888 




1 3880 




TFM 


FREA0*8t040»9 




06620 


16 


1 3250 


00-40 


1 3890 




8 


• ♦32 




06632 


49 


06664 


AAAAA 

uuuuu 


1 3900 




OORG 


•-3 




06640 








13910 




TF 


FREA0*8tMAP*§ 




06640 


26 


13250 




13920 




S 


MAP*8 »MAP*8 




06652 


22 


19888 


19888 


13930 




TF 


FWRI T>8.FREAD*-8 




06664 


26 


1 3235 


1 3250 


1 3940 




TFM 


I0RTt»*23 




06676 


16 


00565 


— 6699 


13950 




8 


I0GT,FRE00A, 7 




06688 


49 


00566 


J3429 


13960 




TFM 


10RT,»*23 




06700 


16 


00565 


-6723 


1 3970 




B 


I0PT,FWRDDA,7 




06712 


49 


00532 


J 342 1 


13980 




CM 


MAP+8,0,9 




06724 


14 


19888 


00-00 


13990 




BE 


• ♦44 




06736 


46 


06780 


01200 


14000 




A 


FR£AD*5»FREA0*8 




06748 


21 


13247 


1 3250 


14010 




A 


FWRIT*5,FREAD+8 




06760 


21 


13232 


13250 


14020 




B 


MORERD 




06772 


49 


06584 


00000 


14030 




DORG 


•-3 




06780 








14040 




TOM 


FWR0DA,2 




06780 


15 


13421 


00002 


14050 




TFM 


SCRACH,0,7 




06792 


16 


13146 


-0000 


14060 




TOM 


FREOOAf 0 




06804 


15 


13429 


00000 


14070 






ENTRY AND CORE 


ADDRESSES FROM PROM DIM MAP 










14080 




TF 


MAPMA,MAP*13 




06816 


26 


13106 


19893 


14090 




TF 


MAPEAf MAP*18 




06828 


26 


13111 


19898 


14100 




B 


MA1NB2 




06840 


49 


06884 


00000 


14110 




OORG 


• -3 




06848 








14120 


NOI SK 


80 


MODNDl tRTEST 




06848 


43 


10482 


1 3083 


14130 




BTM 


NO0ISK,»*12 




06860 


17 


09866 


-6872 


14140 




TFM 


HOLDCD+3,0.8 




06872 


16 


12993 


0-000 


14 150 


MAINB2 


BO 


MODDKl.RTEST 




06884 


43 


10682 


13083 


14160 




TFM 


I0RT,»*23 




06896 


16 


00565 


-6919 


141 70 




0 


I0GT.C0M2.7 




06908 


49 


00566 


J3297 


14180 




CM 


HOLOCD+3,0,8 




06920 


14 


12993 


0-000 


14190 




BE 


• ♦36 




06932 


46 


06968 


01200 


14200 


• •# 




DELETE 


FROM DIM FROM S. P. LIST 










14210 




TF 


DIMNUM.H0LDCD+3 




06944 


26 


13150 


12993 


14220 




BTM 


SPLDEL,»+12 




06956 


17 


12090 


-6968 


14230 


• 


DELETE TO DIM FROM SP 


LIST 










14240 




TF 


DIMNUMf HOLDCD+7 




06968 


26 


13150 


12997 


14250 




BTM 


SPLDEL,»M2 




06980 


17 


12090 


-6992 


14260 




TF 


MOVE S A t LOAOSA 




06992 


26 


02862 


13050 


14270 




TO 


M0VESA-5.L0ADSA-5 




07004 


25 


02857 


13045 


14280 




TF 


MOVESC.LOADSC 




07016 


26 


02865 


13140 


14290 




TFM 


I0RT,«+23 




07028 


16 


00565 


-7051 


14300 




B 


I0GT,M0V00A,7 




07040 


49 


00566 


J3204 


14310 




TFM 


EXITMR*6 f •♦20 






16 






14320 




B 


MOVER 




07064 


49 


08832 


00000 


14330 




DORG 


•-3 




07072 








14340 




BNF 


•♦20.AOK 




07072 


44 


07092 


13066 


14350 




B 


UPOIM 




07084 


49 


07312 


00000 


14360 




DORG 


• -3 




07092 









991 
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14370 


• •• 




INSERT TO ANO FROM 01 MS INTO S. P. LIST 










14380 


NOSPAC 


TF 


NEWDIM,H0LDCD+7,7 


07092 


26 


02963 


J2997 


14390 




BT 


DIMMER, DIMMER-1 


07104 


27 


03666 


03665 


14400 




TF 


M0VESC,MAP+8 


07116 


26 


02865 


19888 


14410 




TF 


M0VESA,MAP^5 


07128 


26 


02862 


19885 


14420 




TD 


M0VESA-5, MAP 


07140 


25 


02857 


19880 


14430 




TFM 


EXITMR+6,»^20 


07152 


16 


08630 


-7172 


14440 




B 


MOVER 


07164 


49 


08832 


00000 


14450 




DORG 


• -3 


07172 








14460 




TF 


DIMNUM.NOSPAC+11,11 


07172 


26 


13150 


0710L 


14470 




TFM 


IORT,*^23 


07184 


16 


00565 


-7207 


14480 




B 


I0GT.C0M2.7 


07196 


49 


00566 


J3297 


14490 




BTM 


SPLINS,»M2 


07208 


17 


10606 


-7220 


14500 




CM 


NOSPAC+ll.HOLDCDO 


07220 


14 


07103 


J2993 


14510 




BE 




07232 


46 


05656 


01200 


14520 




CM 


HOLOCD+3,0,8 


07244 


14 


12993 


0-000 


14530 




BE 


ERR 


07256 


46 


05656 


01200 


14540 




TFM 


NOSPAC+il.HQLDCDO 


07268 


16 


07103 


J2993 


14550 




TFM 


IORT,«+23 


07280 


16 


00565 


-7303 


14560 




B 


I0GT. M0VD0A.7 


07292 


49 


00566 


J3204 


14570 




B 


NOSPAC 


07304 


49 


07092 


00000 


14580 




DORG 


• -3 


07312 








14590 


UPOIM 


TFM 


IORT.^23 


07312 


16 


00565 


-7335 


14600 




B 


IOGT,E0UD0A,7 


07324 


49 


00566 


J 32 72 


14610 




TFM 


IORT,»*23 


07336 


16 


00565 


-7359 


14620 




B 


I0GT,C0M2,7 


07348 


49 


00566 


J3297 


14630 


• 




CLEAR ANY FILE PROTECTION IN TO AND FROM OIM 










14640 


SEARFP 


TF 


NEWOIM,HOLOC0^7,7 


07360 


26 


02963 


J2997 


14650 




BT 


DIMMER, DIMMER-1 


07372 


27 


03666 


03665 


14660 




TF 


FWRI T*5,MAP*5 


07384 


26 


13232 


19865 


14670 




TD 


F WRIT, MAP 


07396 


25 


13227 


19860 


14680 




TF 


HOLDS, MAP^S 


07408 


26 


13153 


19888 


14690 




TFM 


TESTFP+l 1 , TRACK 


07420 


16 


07587 


J3776 


14700 




TF 


H0LD5,MAP^5 


07432 


26 


13091 


19885 


14710 




SF 


H0LD5-1 


07444 


32 


13090 


00000 


14720 




SM 


HOL05,20,10 


07456 


12 


13091 


OOOKO 


14730 




BH 


•-12 


07468 


46 


07456 


01100 


14740 




BZ 


•♦48 


07480 


46 


07526 


01200 


14750 




AM 


H0LD5.20, 1G 


07492 


11 


13091 


OOOKO 


14760 




MM 


H0L05,105,9 


07504 


13 


13091 


00J05 


14770 




A 


TESTFPMW99 


07516 


21 


07587 


00099 


14780 




TFM 


FWRIT+8,020,9 


07528 


16 


13235 


00-20 


14790 




TFM 


FWRIT*13, TRACK 


07540 


16 


13240 


J3776 


14800 




TFM 


I0RT,*+23 


07552 


16 


00565 


-7575 


14810 




8 


I0GT,FPDDA,7 


07564 


49 


00566 


J3413 


14820 


TESTFP 


BNF 


•♦20, TRACK 


07576 


44 


07596 


13776 


14830 




B 


CLRFP 


07588 


49 


07686 


00000 


14840 




OORG 


•-3 


07596 




13153 




14850 




SM 


H0LD3,1,10 


07596 


12 


000- 1 


14860 




BZ 


NOFLGS 


07608 


46 


07746 


01200 


14870 




AM 


TESTFPMl.105,9 


07620 


11 


07587 


00J05 


14880 




CM 


TESTFP+U,TRACK^2100 


07632 


14 


07587 


J5876 


14890 




BL 


TESTFP 


07644 


47 


07576 


01100 


14900 




AM 


FMRIT*5,20,10 


07656 


11 


13232 


OOOKO 


14910 




TFM 


TESTFP^ 11, TRACK 


07668 


16 


07587 


J3776 


14920 




8 


TESTFP-24 


07680 


69 


07552 


00000 



992 
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DORG 


•—J 


07488 










CLRFP 


jf 




07488 


24 


13153 


19888 


14950 




jf 


FMR I T»5 »MAR*5 


07700 


24 


13232 


19885 


14960 




TO 


FUR I T f NAP 


07712 


25 


13227 


19880 


14970 




TFM 


FRSF* 1.1 1.10 


07724 


14 


11643 


000L3 


14980 




BTM 


EP,** 12 


07734 


17 


11442 


-7748 


14990 


NOFLGS 


CM 


SEARFPM I «M0LDC0*3 


07748 


14 


07371 


J2993 


15000 




BE 


ALLCLR 


07740 


44 


07816 


01200 


150 10 




CM 


Mm oe n^i.o.R 


07772 


14 


12993 


0-000 


15020 




BE 


ALLCLR 


07784 


44 


07816 


01200 






TFM 


tr abf»»i i .moi Of o«a 


07794 


14 


07371 


J2993 


i c!!! 






SEARFP 


07808 


49 


07360 


00000 






n r 




07814 










*** 










12993 


12997 


15070 


ALLCLR 


C 


HULDLD* 3in(JLUI.l;t f 


07814 


24 


1 5080 




BE 


• ♦108 


07828 


44 


07936 


01200 


15090 




CM 


um nr nil n ■ 


07840 


14 


12993 


0-000 


1 5 100 




BE 


• ♦48 


07852 


46 


07900 


01200 


15110 




SP 


DELE TE 


07844 


32 


13086 


00000 


1 5 120 






U 1 MNUM t MULuLD* J 


07876 


26 


13150 


12993 


15130 






E QUI V » •♦ 12 


07888 


1 7 


08606 


-7900 






^ J M 




07900 


32 


13086 


00000 






TC 


U 1 HNUR t nut.ui»u* f 


07912 


26 


13150 


12997 


1 S I AO 




RTM 




07924 


17 


08606 


-7936 


J 








07934 


26 


02963 


12997 


: : 




BT 


DIMMER, DIMMER-l 


07948 


27 


03666 


03665 


151 90 




BTM 


SETMAP,»»12 


07960 


17 


10738 


-7972 


15200 




C 


HOLDCD*3,HOLOCD*7 


07972 


24 


12993 


12997 


152 10 




BE 


VOILA 


07984 


46 


081 12 


01200 


15220 




CM 


H0LDCD*3,0,8 


07996 


14 


12993 


0-000 


1 52 30 




BE 


VOILA 


08008 


46 


08112 


01200 


1 52*0 




DELETE FROM DIM REFERENCES 










15250 




TF 


NEWDIM.HOLDCDO 


08020 


26 


02963 


12993 


15260 




BT 


DIMMER, DIMMER-l 


08032 


27 


03666 


03665 


15270 




BNR 


•♦20, MAP 


08044 


45 


08064 


19880 


1 5280 




B 


MONCAL 


08056 


49 


00796 


00000 


1 5290 




DORG 


•-3 


08064 








1 5300 




TOM 


MAP,,, 


08064 


1 5 


19880 


00000 


15310 




DSC 


l.«,» 


08075 




1 




1 5320 




TF 


MAP*19,ZER019 


08076 


26 


19899 


13130 


1 5330 




TFM 


I0RT,»^23 


08088 


16 


00565 


-8111 


1 5 340 




B 


I0PT,DMDDA,7 


08100 


49 


00532 


-2568 


1 5350 


VO I LA 


BTM 


WRLAST,»*12 


08112 


17 


1 1842 


-6124 


I 5360 




BNF 


MONCAL. DUMP 


08124 


44 


00796 


13388 


15370 




TD 


MCS+23,DUMP 


08136 


25 


17801 


1 3388 


15380 




TFM 


IORT,»^23 


08148 


16 


00565 


—8171 


15390 




B 


I0GT,DMPDIM,7 


08160 


49 


00566 


J3365 


1 5400 


RELO 


TFM 


PHI, 0,10 


08 172 


16 


1 3082 


000—0 


15* 10 




CM 


HOLD2,6,10 


08184 


14 


13052 


000-6 


15420 




BNE 


LOADER 


08196 


47 


12234 


01200 


15430 




SF 


FORT 


08208 


32 


13062 


00000 


15440 




TD 


DUMP,MCS^23 


08220 


25 


13388 


17801 


15450 




TF 


PNAME.MCS+35 


08232 


26 


13189 


17813 


15460 




TF 


H0LDCD+7,MCS+39 


08244 


26 


12997 


17817 


15470 




TFM 


SCRACH,0,7 


08256 


16 


13146 


-0000 
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15480 




TDM 


FREDDA.O 


08268 


15 


13429 


00000 


15490 




BD 


• ♦20,MCS+22 


08280 


43 


08300 


17800 


15500 




B 


M0DDK1 


08292 


49 


10682 


00000 


15510 




OORG 


•-3 


08300 








15520 


N0RE2 


TF 


H0LDCD^30,MCSM2 


08300 


26 


13020 


17790 


15530 




TF 


H0LDCDO5,MCS*17 


08312 


26 


13025 


17795 


15540 




TFM 


L0ADSCt0,9 


08324 


16 


13140 


00-00 


15550 




TFM 


0CFSCR*8,3,9 


08336 


16 


13343 


00-03 


15560 




TFM 


DCFSCR^5,0,7 


08348 


16 


13340 


-0000 


15570 


INIT2 


TFM 


LOOP, 4, 10 


08360 


16 


13072 


000-4 


15580 




TFM 


SCAN2*6,READIN 


08372 


16 


08414 


J 7778 


15590 




TFM 


I0RT,»+23 


08384 


16 


00565 


-8407 


15600 




B 


lOGTfDDASCRf 7 


08396 


49 


00566 


J3445 


15610 


SCAN2 


NOP 


READI N,0 


08408 


41 


17778 


00000 


15620 




TF 


BNR*ll,SCAN2*6 


08420 


26 


09661 


08414 


15630 




TFM 


NODI SK-i ,RELD2 


08432 


16 


09865 


-8532 


15640 




BTM 


LCTEST,»^12 


08444 


17 


09614 


-8456 


15650 




SM 


LOOP, 1,10 


08456 


12 


13072 


000- 1 


15660 




BO 


UPSCAN, LOOP 


08468 


43 


08512 


13072 


15670 




AM 


LOADSC.3,10 


08480 


11 


13140 


000-3 


15680 




AM 


DCFSCR+5,3,10 


08492 


11 


13340 


000-3 


15690 




B 


INIT2 


08504 


49 


08360 


00000 


15700 




DORG 


•-3 


08512 








15710 


UPSCAN 


AM 


SCAN2*6,75.9 


08512 


11 


08414 


00-75 


15720 




B 


SCAN2 


08524 


49 


08408 


00000 


15730 




DORG 


•-3 


08532 








15740 


RELD2 


TF 


HOLDC 0^13, THOU 


08532 


26 


13003 


13044 


15750 




TF 


H0LDCDU9,TH0U 


08544 


26 


13009 


13044 


15760 




A 


H0LDCDH9,L0ADSC 


08556 


21 


13009 


13140 


15770 




SM 


H0LDCDn9,l,10 


08568 


12 


13009 


000-1 


15780 




TFM 


INPUT*42,7070,8 


08580 


16 


13655 


0P070 


15790 




B 


ISTO 


08592 


49 


05956 


00000 


15S00 




DORG 


•-3 


08600 








15810 




TCD 


REPLFL 


04400 









15820 •••• 

15830 COMMON ROUTINES FOR ♦OLOAD ANO -DREPL 

15840 •••• 



15850 




OORG 


7200 


07200 








15860 


COMMFL 


TFM 


I0RT.»^23 


07200 


14 


00565 


-7223 


15870 




B 


10PT.C0MM2.7 


07212 


49 


00532 


-7263 


15880 




TRA 




07224 


34 


00000 


00500 








07234 


49 


00000 


00000 


15890 


C0MM1 


DSC 


1,1 


07248 








15900 




OC 


5,18480 


07253 












J8480 










15910 




OC 


3,040 


072S4 












-40 












15920 




OC 


5*08600 


07241 








15930 




-840< 

OSC 
• 


> 


07242 








15940 


C0MM2 


OSC 


2.22 


07241 












22 












15950 




DSA 


C0MM1 


07244 






X 1 
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07269 




-724S 




1 5960 




osc 


I • * 




07270 




1 




15970 




00ft G 


8100 




08 100 








15980 


EQUFL 


TFM 


I0RT,»*23 




08100 


16 


00565 


-•123 


15990 




B 


I0PT,EQU1,7 




08112 


49 


00532 


-•14« 


16000 




TR A 






08126 


36 


00000 


00500 












08136 


49 


00000 


00000 


16010 


EOUl 


OSC 


2,22 




08148 




2 








22 














16020 




OSA 


EQU2 




08154 




5 


X 1 












08136 




••156 




16030 




OSC 
• 


It 1 




08155 








160*0 


EQU2 


DSC 


ltl 




08156 




I 




16050 




1 

DC 


5,18278 




081*1 




5 








J8278 












16060 




OC 


3.020 




08166 




3 








-20 














16070 




OC 


5,08600 




08169 




5 








-8600 












16080 




OSC 


1,' 




08170 




1 




16090 




DORG 


8600 




08600 








16100 


• 
















16110 


• 


EQUIVALENCE TABLE SUBROUTINE 












16120 




OC 


5,0 




08604 




5 








-0000 












16130 


EQUI V 


TFM 


NEWDIM, 0002.8 




08606 


16 


02963 


0-002 


16140 




BT 


0 1 MME R ♦ D I MME R- 1 




08618 


27 


03666 


03665 


16150 




BNF 


SKNAME, DELETE 




08630 


44 


09678 


13066 


16160 




CM 


DIMNUM,0,8, 


START 


DELETE OPERATION 08642 


14 


13150 


0-000 


16170 




BE 


ANAME 




08654 


46 


10478 


01200 


16180 


LIMITS 


CM 


0IMNUM.SUBL0,8 




08666 


14 


13150 


0-010 


16190 




BL 


B2REA0 




08678 


47 


09054 


01300 


16200 




CM 


DIMNUM.SUBHI ,8 




08690 


14 


13150 


0-039 


16210 




BH 


B2REA0 




08702 


46 


09054 


01100 


16220 




TFM 


CNINE+6.DIMNUM 




08714 


16 


08816 


J3150 


16230 




TFM 


CNINE*U,TRACK*15 




08726 


16 


08821 


J3791 


16240 


WITHIN 


TFM 


H0LD4.0.10 




08718 


16 


13157 


000-0 


16250 




TF 


DISKF*5,E0UDIM*5,, 


WITHIN 


SUBROUTINE OIM LIMITS 08750 


26 


13355 


19885 


16260 




TO 


DISKF.EOUDIM 




08762 


25 


13350 


19880 


16270 




TFM 


lORT,»+23 




08774 


16 


00565 


-8797 


16280 




B 


IOGT, DDAKF ,7 




08786 


49 


00566 


J3405 


16290 




AM 


H0LD4,1,10 




08798 


11 


13157 


000- 1 


16300 


CNlNfc 


C 






08810 


24 


00000 


00000 


16310 




86 


TFLG 




08822 


46 


08878 


01200 


16320 




CM 


H0LD4.50, 10 




08834 


14 


13137 


OOONO 


16330 




BH 


WRT2 




08846 


46 


08946 


01100 


16340 




AW 


CNINEMl.16,10 




08858 


11 


08821 


0O0J6 


16350 




B 


CNINE-12 




08870 


49 


08798 


00000 


16360 




DORG 


•-3 




08878 








16370 


TFLG 


BNF 


NOF .DELETE 




08878 


44 


08986 


13086 


16380 




TFM 


CNINE+11,9999,6 




08890 


16 


0882J 


09999 
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16390 




SM 


CNINE+ll, 4,10 




08902 


12 


08821 


000-4 


16400 




TF 


CNINE + U,NINE12,6 




08914 


26 


0882J 


13203 


16410 




AM 


CNINE+li, 20,10 




08926 


11 


08821 


OOOKO 


16420 




B 


CNINE-12 




08938 


49 


08798 


OOOOO 


16430 




OORG 


•-3 




08946 








16440 


WRT2 


BNF 


•♦20, DELETE 




08946 


44 


08966 


13086 


16450 




B 


WRT 




08958 


49 


09022 


OOOOO 


16460 




DORG 


•-3 




08966 








16470 




TFM 


DIMERR+22,7574,8 




08966 


16 


02507 


0P574 


16480 




B 


MULT2 




08978 


49 


09962 


OOOOO 


16490 




DORG 


•-3 




08986 








16500 


NOF 


TF 


CNINE*ll,PNAME,6 




08986 


26 


0882J 


13189 


16510 




AM 


CNINE+11,4,10 




08998 


U 


08821 


000-4 


16520 




TF 


CNINE*U,DIMNUM,6 




09010 


26 


0882J 


13150 


16530 


WRT 


TFM 


10RT,»*23 




09022 


16 


00565 


-9045 


16540 




B 


I0PT,DDAKF,7 




09034 


49 


00532 


J3405 


16550 




B 


EXIT 




09046 


49 


10542 


OOOOO 


16560 




DORG 


•-3 




09054 








16570 


B2READ 


TF 


DISKF+5,EQU01M*5,, 


NOT WITHIN LIMITS 


09054 


26 


13355 


19885 


16580 




AM 


0ISKF*5,8,10 




09066 


U 


13355 


000-8 


16590 




TD 


OISKF.EOUOIM 




09078 


25 


13350 


19880 


16600 


INITSC 


TFM 


RECD* 1 1 . TRACK 




09090 


16 


09173 


J3776 


16610 




TFM 


CMPAR*11,TRACK*15 




09102 


16 


09193 


J3791 


16620 




TFM 


CLOSW+8,20,9 




09114 


16 


13265 


00-20 


16630 




TFM 


I0RT,»*23 




09126 


16 


00565 


-9149 


16640 




B 


IOGT* DDAKF, 7 




09138 


49 


00566 


J3405 


16650 




AM 


•♦23,11,10 




09150 


11 


09173 


OOOJl 


16660 


RECD 


BNR 


•♦20,,, 


TEST FOR. LAST ENTRY 


09162 


45 


09182 


OOOOO 


16670 




B 


EXIT 




09174 


49 


10542 


OOOOO 


16680 




OORG 


•-3 




09182 








16690 


CMPAR 


C 


DIMNUM,,, 


LOOK FOR OIM NUMBER 


09182 


24 


13150 


OOOOO 


16700 




BE 


CLOSE 




09194 


46 


09282 


01200 


16710 




CM 


CMPARMl ,TRACK*1999, , 


TEST FOR END OF 20 SECTORS 


09206 


14 


09193 


J5775 


16720 




BE 


INCRD 




09218 


46 


09262 


01200 


16730 




AM 


RECD*11,16,10 




09230 


u 


09173 


000J6 


16740 




AM 


CMPARM1, 16,10 




09242 


11 


09193 


000J6 


16750 




B 


RECO 




09254 


49 


09162 


OOOOO 


16760 




OORG 


•-3 




09262 








16770 


INCRD 


AM 


DISKED, 20,9 




09262 


11 


13355 


00-20 


16780 




B 


INITSC 




09274 


49 


09090 


OOOOO 


16790 




DORG 


•-3 




09282 








16800 


CLOSE 


TDM 


CL0SUP^2000,,, 


ROUTINE TO CLOSE IN LIST 


09282 


15 


15776 


ooooo 


16810 




DSC 


lt*t» 




• 09293 




1 




16820 




TF 


TRREC+6,CMPAR^il 




09294 


26 


09408 


09193 


16830 




SM 


TRREC^6,15,10 




09306 


12 


09408 


000 J5 


16840 




TF 


TRRECm,CMPAR*U 




09318 


26 


09413 


09193 


16850 




AM 


TRREC*Ut 1, 10 




09330 


tl 


09413 


000-1 


16660 




TFM 


CLOSW+13.CL0SUP 




09342 


16 


13270 


J3776 


16870 




TFM 


CL0SR^13,CL0SUP*1984 




09354 


16 


13333 


J5760 


16880 




TF 


CL0SW*3,0ISKF*5 




09366 


26 


13262 


13355 


16890 




TF 


CL0SR+5,0ISKP*5 




09378 


26 


13325 


13355 


16900 




AM 


CL0SR^5, 20,10 




09390 


11 


13325 


OOOKO 


16910 


TftftEC 


TR 


0,0, , 


DELETE ENTRY 


09402 


31 


ooooo 


OOOOO 


16920 




BNR 


DONE, CLOSURE 1 994 


TEST POR END OP TAtLE 


09414 


45 


09530 


IS 760 


16930 




TFM 


I0RT,»+23 




0942* 


1* 


005*5 


-9*44 
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169*0 




B 


IOGT.CLOOOA, 7 




09418 


49 


00566 


J3389 


16950 




TFM 


I0RT,«*23 




094J0 


14 


00545 


—4473 


16960 




8 


I OPT » CL WDDA t 7 




09442 


44 


00532 


J3S97 


16970 




TOM 


CL0SUPO934 t tt 




094?4 


15 


17760 


A A AAA 


16980 




OSC 
' 


l»» »• 




09485 




1 




16990 




TR 


CL0SUP,CL0SUP*2000 




09486 


31 


13776 


15776 


17000 




AM 


CL0SR*5,20. 10 




09498 


11 


13329 


OOOKO 


17010 




AM 


CLOSW+5,20,10 




09510 


11 


13262 


OOOKO 


17020 




8 


TRREC*12 




09522 


49 


09414 


00000 


17030 




DORG 


•-3 




09530 








17040 


OONE 


TF 


H0L05»CL0SW*5» t 


RECORD MARK 1$ IN LAST TRACK 


09530 


26 


13091 


13262 


17050 




S 


HOLD5,EQUDIN^5 




09542 


22 


13091 


19885 


17060 




SF 


M0LD5-2 




09554 


32 


13089 


AA AAA 
00000 


17070 




c 


MOLD5,E0UOIM*8 




09566 


24 


13091 


19888 


17080 




BM 


NOTOK 




09578 


46 


09622 


01100 


17090 




TFM 


I0RT,»*23 




09590 


16 


00565 


-9613 


17100 




B 


I0PT,CLWDDA,7 




09602 


49 


00532 


J3397 


17110 




B 


INITSC 




09614 


49 


09090 


00000 


17120 




00 KG 


• -3 




09622 








17130 


NOTOK 


SM 


H0LD5,20, 10, 


00 NOT WRITE A FULL TRACK 


09622 


12 


13091 


OOOKO 


17140 




TF 


H0LD3,EQUDIM+8 




09634 


26 


13153 


19888 


17150 




S 


H0LD3 »H0LD5 




09646 


22 


13153 


13091 


17160 




TF 


CLOSW+8,HOLD3 




09658 


26 


13265 


13153 


17170 




B 


NOTOK-32 




09670 


49 


09590 


00000 


17180 




DORG 


•-3 




09678 








17190 


SKNAME 


CM 


DIMNUM,0,8, 


NOT A DELETE OPERATION 


09678 


14 


13150 


0-000 


17200 




BE 


EXIT 




09690 


46 


10542 


01200 


17210 




TF 


D! SKF*5,EQUDIM*5 




09702 


26 


13355 


19885 


17220 




TD 


DISKFfEQUDIM 




09714 


25 


13350 


19880 


17230 




TFM 


01 SKF*8,20,9 




09726 


16 


13358 


00-20 


17240 




TFM 


DISKF*13, TRACK 




09738 


16 


13363 


J3776 


17250 


SCANN 


TFM 


CNAMES*ll.TRACK*ll 




09750 


16 


09817 


J3787 


17260 




TFM 


I0RT,»*23 




09762 


16 


00565 


-9785 


17270 




B 


I0GT.D0AKF.7 




09774 


49 


00566 


J3405 


17280 




BNR 


•♦20,CNAMES*ll.il. 


TEST FOR END OF TABLE 


09786 


45 


09806 


098 IP 


17290 




B 


NOMULT 




09798 


49 


10018 


00000 


17 300 




OORG 


• -3 




09806 








17310 


CNAMES 


C 


PNAME , t 7# 


LOOK FOR MULTIPLE NAME 


09806 


24 


13189 


-0000 


17320 




BE 


MULT 




09818 


46 


09894 


01200 


17330 




CM 


CNAMES* 11, TRACK* 1995, 7 




09830 


14 


09817 


J5771 


17340 




BE 


• ♦32 




09842 


46 


09874 


01200 


17350 




AM 


CNAMES+1 1,16,10 




09854 


11 


09817 


000J6 


17360 




B 


CNAMES-20 




09866 


49 


09786 


00000 


17370 




DORG 


• -3 




09874 








17380 




AM 


DISKF*5,20,10 




09874 


11 


13355 


OOOKO 


17390 




B 


SCANN 




09886 


49 


09750 


00000 


17400 




DORG 


• -3 




09894 








17410 


MULT 


BNF 


• ♦20. DELETE, , 


IF MULTIPLE NAME 


09894 


44 


09914 


13086 


1 7420 




B 


HOLOI M 




09906 


49 


10510 


00000 


17430 




DORG 


•-3 




09914 








17440 




AM 


CNAMES+11,4,10 




09914 


U 


09817 


000-4 


17450 




C 


DIMNUM,CNAMES*ll,ll 




09926 


24 


13150 


0981P 


17460 




BE 


EXIT 




09938 


46 


10542 


01200 


17470 




TFM 


DIMERR+22,7571,8 




09950 


16 


02507 


0P571 


17480 


MULT2 


RCTY 






09962 


34 


00000 


00102 
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17490 




WATY 


DIMERR 




09974 


39 


02485 


00100 


17500 




WATY 


PNAME-10 




09986 


39 


13179 


00100 


17510 




TF 


PNAME , ZER012 




09998 


26 


13189 


13123 


17520 




B 


EXIT 




10010 


49 


10542 


00000 


17530 




DORG 


•-3 




10018 








17540 


NOMULT 


BNF 


•♦20, DELETE 




10018 


44 


10038 


13086 


17550 




B 


EXIT 




10030 


49 


10542 


00000 


17560 




DORG 


•-3 




10038 








17570 




CM 


0IMNUM,SUBL0,8, 


TEST OIM NUMBER LIMITS 


10038 


14 


13150 


0-010 


17580 




BL 


OLIMIT 




10050 


47 


10118 


01300 


17590 




CM 


DIMNUM.SUBHI ,8 




10062 


14 


13150 


0-039 


17600 




BM 


OLIMIT 




10074 


46 


10118 


01100 


17610 




TFM 


CNINE*6,NINE12 




10086 


16 


08816 


J3203 


17620 




TFM 


CNINE*ll,TRACKMl 




10098 


16 


08821 


J3787 


17630 




B 


WITHIN 




10110 


49 


08738 


00000 


17640 




DORG 


•-3 




10118 








17650 


OLIMIT 


TFM 


CNT,1 ,10. 


MILL ENTRY EXCEED MAX SC 


10118 


16 


13094 


000-1 


17660 




TFM 


•♦23,TRACK*95 




10130 


16 


10153 


J3871 


17670 




CM 


CNAMESM1.TRACK*9S 




10142 


14 


09817 


J3871 


17680 




BE 


SECT 




10154 


46 


10222 


01200 


17690 




AM 


•-13.100. 9 




10166 


11 


10153 


OOJOO 


17700 




AM 


CNT,l,10 




10178 


11 


13094 


000-1 


17710 




CM 


CNT, 20,10 




10190 


14 


13094 


OOOKO 


17720 




BNE 


• -60 




10202 


47 


10142 


01200 


17730 




8 


ENTOK 




10214 


49 


10362 


00000 


17740 




DORG 


•-3 




10222 








17750 


SECT 


TF 


MOLD5,DISKF*5 




10222 


26 


13091 


13355 


17760 




A 


H0LD5 tCNT 




10234 


21 


13091 


13094 


17770 




S 


MOLD5.E0UDIM+5 




10246 


22 


13091 


19885 


17780 




SF 


HOLD5-2 




10258 


32 


13089 


00000 


17790 




C 


HOLDS ,E0UD1M*8 




10270 


24 


13091 


. 19888 


17800 




BL 


• ♦32 




10282 


47 


10314 


01300 


17810 




TFM 


DIMERR+22, 7573,8 




10294 


16 


02907 


0P573 


17820 




8 


MULT2 




10306 


49 


09962 


00000 


17830 




DORG 


•-3 




10314 








1T840 




CM 


CNAMES*ll»TAACK*199S 




10314 


14 


09817 


J3771 


17850 




BNE 


ENTOK 




10326 


47 


10362 


01200 


17860 




AM 


D!SKF*B»1»10 




10338 


11 


13358 


000-1 


17870 




TP 


TRACK+20li»IER012 




10330 


24 


15787 


13123 


17880 


ENTOK 


TF 


CNAMES* 1 If PNAME #6, 


AOO A NEW ENTRY 


103*2 


26 


0981P 


13189 


17890 




AM 


CNAMES*llt4»10 




10374 


11 


09817 


000-4 


17900 




TF 


CNAMES* I 1,01 MNUM.4 




10384 


24 


098 IP 


13150 


17910 




AM 


CNAMES*U.2 t 10 




10398 


11 


09817 


000-2 


17920 




TFM 


CNAMES*ll,OtAlO 




10410 


16 


0981P 


000-0 


17930 




AM 


cnamesmi.io.io 




10422 


11 


09817 


OOOJO 


17940 




TDM 


CNAMES*ll,,6 




10434 


13 


0981P 


00000 


17950 




OSC 


!»«♦• 




10443 




I 




17960 




TPM 


I0RT,**2J 




10444 


14 


00565 


J0449 


17970 




8 


I0PT»00AKF»7 




10458 


49 


00532 


J 3405 


17980 




8 


EXIT 




10470 


49 


10542 


00000 


17990 




00R6 


•-3 




10478 








18000 


ANAME 


C 


PNAME ,218012, , 


PINO OIM NUMBER TO BE OELETEO 


10478 


24 


13189 


1312) 


18010 




BE 


EXIT 




10490 


44 


10542 


01200 


18020 




B 


SKNAME*24 




10302 


49 


09702 


00000 


18030 




D0R6 


•-3 




10510 
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180*0 


HOLDIM 


AM 


CNAMESMl.4,10 






10910 


11 


09817 


000-4 


18050 




TF 


DINNUM,CNANfS*U, 


tl 




10522 


26 


13150 


096 IP 


















08666 


AOAOA 

VVUUv 


18070 




OORG 


•-3 






10942 








18080 


EXIT 


CF 


DELETE 






10542 


33 


13086 


00000 


18090 




B 


EQUIV-l.,6 






10994 


49 


0660N 


00000 


18100 




OORG 


•-3 






10962 








18110 




TCO 


EQUFL 






08100 








18120 


• ••• 




COMMON 1 














18130 




OORG 


8600 






06600 








18140 




OC 


5.0 






08604 




9 








-0000 














18190 


ATNR 


CF 


FORT 






08606 


33 


19062 


00000 


18160 




SF 


I NPUT*95 






08618 


32 


13708 


00000 


18170 




CM 


I NPUT^96,43, 10, 




DETERMINE INPUT OEVICE 


08690 


14 


13709 


000M3 


18180 




BNE 


• ♦32 






08642 


47 


08674 


01200 


18190 




TFM 


PHI ,05*10 






08694 


16 


13062 


000-5 


18200 




B 


R 






08666 


49 


08754 


00000 


18210 




OORG 


•-3 






08674 








18220 




CM 


INPUT*96 f 57» 10 






08674 


14 


13709 


000N7 


18230 




BNE 


• ♦32 






08686 


47 


08718 


01200 


18240 




TFM 


PHI ,03,10 






08698 


16 


13082 


000-3 


18250 




B 


R 






08710 


49 


08734 


00000 


18260 




OORG 


•-3 






08718 








18270 




CM 


INPUT*96,66 f 10 






08718 


14 


13709 


000M4 


18280 




BNE 


ERRD-12 






08710 


47 


02512 


01200 


18290 




TFM 


PHI, 0,10 






08742 


16 


13082 


000-0 


18300 


R 


SF 


INPUT^97 






08754 


32 


13710 


00000 


18301 




SF 


INPUmi7,,, 


TEST FOR 


SUBROUTINES 


08766 


32 


13730 


00000 


18302 




CM 


INPUT*U6t00,10 






08778 


14 


13731 


000-0 


18303 




ae 


• ♦24 






08790 


46 


08814 


01200 


18304 




SF 


STFLAG 






08802 


32 


13499 


00000 


18310 




CM 


lNPUT+98,54,10, 




TEST FOR RELOCATION 


08814 


14 


13711 


000N4 


18320 




BNE 


• ♦32 






08826 


47 


08858 


01200 


18 330 




TDM 


RTEST.l,, 




BRANCH ON DIGIT TO RELOCATE 


08838 


15 


13083 


00001 


18340 




B 


R2 






08850 


49 


08950 


00000 


18350 




OORG 


• -3 






08858 








18360 




TDM 


RTE ST ,0 






08858 


15 


13083 


00000 


18370 




CM 


INPUT+98,62,10 






08870 


14 


13711 


00002 


18380 




BNE 


• ♦32 






08882 


47 


08914 


01200 


18390 




TDM 


NTEST, 1 






08894 


15 


13084 


00001 


18400 




B 


R2 






08906 


49 


08950 


00000 


18410 




DORG 


•-3 






08914 








18420 




TDM 


NTEST, 0 






08914 


15 


13084 


00000 


18430 




CM 


INPUT^98,49, 10 






08926 


14 


13711 


000M9 


18440 




BNE 


ERRD-12 






08938 


47 


02512 


01200 


18450 


R2 


SF 


INPUT+99 






08950 


32 


13712 


00000 


18460 




CM 


INPUT^100,57,10, 




TEST FOR FILE PROTECTION 


08962 


14 


13713 


000N7 


18470 




BNE 


•♦32 






08974 


47 


09006 


01200 


18480 




TDM 


PTEST.l,, 




BRANCH ON DIGIT TO PROTECT 


08986 


15 


13085 


00001 


18490 




B 


• ♦20 






08998 


49 


09018 


00000 


18500 




DORG 


•-3 






09006 








18510 




TDM 


PTEST.O 






09006 


15 


1 3085 


00000 


18520 




TFM 


•♦47,INPUTtll2,, 




CARO FROM 


09018 


16 


09065 


J3725 


18530 




TFM 


ATN*6,H0L0C0 






09030 


16 


09048 


J2990 
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18540 


ATN 


TD 


H0LDC0,0,7, 


ALPHA TO NUMERIC 


09042 


25 


12990 


-0000 


18550 




CM 


•-1,0 




09054 


14 


09053 


-0000 


18560 




BE 


EXIT2 




09066 


46 


09110 


01200 


18570 




AM 


ATN+6,01,10 




09078 


11 


09048 


000- 1 


18580 




AM 


ATN+l 1,02,10 




09090 


11 


09053 


000-2 


18590 




B 


ATN 




09102 


49 


09042 


00000 


18600 




DORG 


•-3 




09110 








18610 


EXIT2 


TFM 


SETFLG^6,INPUTOl 




09110 


16 


09128 


J3644 


18620 


SETFLG 


SF 


INPUT+31.,, 


TEST FOR ALPHA CHARACTERS 


09122 


32 


13644 


00000 


18630 




AM 


SETFLG+6,1,10 




09134 


11 


09128 


000- 1 


18640 




CM 


SETFLG^6,70,610 




09146 


14 


0912Q 


OOOPO 


18650 




BNL 


• ♦36 




09158 


46 


09194 


01300 


18660 




CM 


SETFLG+6,00,610 




09170 


14 


0912Q 


000-0 


18670 




BNE 


ERRD-12 




09182 


47 


02512 


01200 


18680 




SM 


SETFLG*6,1,10 




09194 


12 


09128 


000-1 


18690 




CF 


SETFLG*6,,6 




09206 


33 


0912Q 


00000 


18700 




CM 


SETFLG^6,lNPUT+93 




09218 


14 


09128 


J3706 


18710 




BE 


• ♦32 




09230 


46 


09262 


01200 


18720 




AM 


SETFLG+6,2,10 




09242 


11 


09128 


000-2 


18730 




8 


SETFLG 




09254 


49 


09122 


00000 


18740 




DORG 


•-3 




09262 








18750 




SF 


HOLDCO,,, 


OEFINE CONTROL CARD FIELOS 


09262 


32 


12990 


00000 


18760 




SF 


H0LDC0+4 




09274 


32 


12994 


00000 


18770 




B 


ATNR-1,,6 




09286 


49 


0860N 


00000 


18780 


• * 




DETERMINE 


MAX. NO. OF DIM ENTRIES 










18790 


SCRAD 


TFM 


MAXDIM,9999,8 




09298 


16 


03843 


0R999 


18800 




TFM 


NEWDIM.3,8 




09310 


16 


02963 


0-003 


18810 




BT 


DIMMER, DIMMER- I 




09322 


27 


03666 


03669 


18820 




BNR 


•♦20, MAP 




09334 


45 


09334 


19880 


18830 




B 


MONCAL 




09346 


49 


00796 


00000 


18840 




DORG 


•-3 




09354 








18850 




MM 


MAP+8,5,10 




09354 


13 


19888 


000-5 


18860 




SF 


96 




09366 


32 


00096 


00000 


18870 




SM 


99, 1, 10 




09378 


12 


00099 


000- 1 


18880 




TF 


MAX0IM,99 




09390 


26 


03843 


00099 


18890 




TFM 


NEMDIM, 1,6 




09402 


16 


02963 


0-001 


18900 




BT 


DIMMER, 01 MMER-1 




09414 


27 


03666 


03665 


18910 




BNR 


•♦20, MAP 




09426 


45 


09446 


19880 


18920 




B 


MONCAL 




09438 


49 


00796 


00000 


18930 




DORG 


•-3 




09446 








18940 




CM 


MAP*13,88688t7 




09446 


14 


19893 


Q8888 


18950 




BNE 


MONCAL 




09458 


47 


00796 


01200 


18960 




TF 


SCR1,MAP*5 




09470 


26 


13163 


19885 


18970 




TO 


SCR1-5,MAP 




09482 


29 


13156 


19860 


18980 




MM 


MAP+6,200,9 




09494 


13 


19868 


OOKOO 


18990 




SF 


95 




09506 


32 


00099 


00000 


19000 




A 


MAP*9,99 




09916 


21 


19889 


00099 


19010 




TF 


SCR2.MAP+5 




09930 


26 


13169 


19665 


19020 




TO 


SCR2-5.MAP 




09942 


29 


13164 


19860 


19030 


0C1 


SF 


SCR1-9 




09994 


32 


13199 


00000 


19040 




SF 


SCR 2- 9 




09966 


32 


13164 


00000 


19050 




CF 


SCR 1-4 




09976 


33 


13159 


00000 


19060 




CF 


SCR2-4 




09990 


33 


13165 


00000 


19070 




6 


SCR AD- 1,, 4 




09602 


49 


0929P 


00000 


19060 


LCTEST 


TFM 


COUNT, 0,10, 


LAST RfCORO TfST 


09614 


14 


13101 


000-0 


19090 




BV 


•♦12 




0962* 


46 


09636 


01400 



! 000 
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19100 




BNF 


NOALF, 1NR* I 1,11 






09*31 


44 


09154 


0966J 


19110 


BNR 


BNR 


•♦20,0 






09*50 


45 


09*70 


00000 


19120 




6 


NOALF 






09*42 


49 


09154 


00000 


191)0 




DOUG 


•-3 






09470 








19U0 




AM 


COUNT, I t 10 






09470 


11 


13101 


000-1 


19150 




CM 


COUNT ,5, 10 






09*12 


14 


13101 


000-5 


19160 




BE 


• ♦32 






09*94 


4* 


0972* 


01200 


19170 




AM 


BNRMl.1,10 






0970* 


II 


09**1 


000- 1 


19180 




ft 


BNR 






09711 


49 


09*50 


00000 


19190 




OORG 


•-3 






0972* 








19200 




CM 


BNR*1 1,99999,67 






0972* 


14 


0966J 


R9999 


19210 




BV 


NOALF 






097)1 


4* 


09154 


01400 


19220 




BNE 


NOALF 






097S0 


47 


09154 


01200 


19230 




AM 


BNR*ll.l,10 






097*2 


11 


09*61 


000- 1 


19240 




BNR 


NOALF ,8 NR ♦11,11 






09774 


45 


09154 


0966J 


19250 




AM 


BNRMl.1,10 






0971* 


11 


09**1 


000-1 


19260 




BO 


NOALF ,8 NR +11,11 






09791 


43 


09154 


0966J 


19270 




AM 


COUNT, I, 10 






09110 


11 


13101 


000- 1 


l<>280 




CM 


COUNT, 65, 10 






09122 


14 


13101 


00005 


l<»290 




ANE 


•-48 






09134 


47 


09716 


01200 


19*00 




B 


ALPHAS 






0984* 


49 


10266 


00000 


19310 




OORG 


•-3 






09154 








19320 


NOALF 


B 


LCTEST-1,,6 






09854 


49 


096 1L 


00000 


19330 


NOOISK 


TO 


REA0*2,PHI,, 


SETUP 


READ OEVICE 


0916* 


25 


13443 


13082 


19340 




SM 


READ+2,1,10 






09171 


12 


13443 


000- 1 


19350 




TFM 


SCRACH,0,7 






09190 


16 


13146 


-0000 


19360 




TOM 


FRE0DA,0 






09902 


15 


13429 


00000 


19370 




TFM 


L0A0SC,0,9 






09914 


16 


13140 


00-00 


19380 




TFM 


SEQ.l 






0992* 


16 


13010 


-0001 


19390 




TFM 


DCFSCR*8, 003,9 






09931 


16 


13343 


00-03 


19400 




TFM 


OCFSCR+5,0,7 






09950 


16 


13340 


-0000 


19410 




TOM 


OCFSCR,0 






099*2 


15 


13335 


00000 


19420 


INI TRD 


TFM 


RE AO , RE AOI N , , 


INIT. 


READ LOOP 


09974 


16 


13441 


J7778 


19430 




TFM 


LOOP, 04, 10 






0991* 


16 


13072 


000-4 


19440 




TFM 


COMP* 11 ,READIN*79 






09991 


16 


10117 


J7857 


19450 




TFM 


SFMl.READIN+75 






10010 


16 


10105 


J7853 


19460 


R E ADC 


TFM 


IORT, »f23 






10022 


16 


00565 


J0045 


19470 




B 


I OGT , READ-4 , 7 






10034 


49 


00566 


J3437 


19480 




TF 


BNRM I, READ 






1004* 


26 


09661 


13441 


19490 




BTM 


LCTEST,»*12 






10051 


17 


09614 


J0070 


19500 




CM 


PHI ,05, 10 






10070 


14 


13082 


000-5 


19510 




BNE 


C0MP*60 






10082 


47 


10166 


01200 


19520 


SF 


BNF 


C0MP*36,REA0IN*75 






10094 


44 


10142 


17853 


19530 


COMP 


C 


SEQ»READIN*79», 


CHECK 


FOR PROPER SEQUENCE 


10106 


24 


13010 


17857 


19540 




BNE 


SEQERR 






10118 


47 


10378 


01200 


19550 




AM 


SEQtltlO 






10130 


11 


13080 


000-1 


19560 




AH 


SF*U,075,9 






10142 


11 


10105 


00-75 


19570 




AM 


C0MP*il,075,9 






10154 


11 


10117 


00-75 


19580 




SM 


LOOP, I, 10 






101*6 


12 


13072 


000- 1 


19590 




BO 


INCRE.LOOP 






10178 


43 


10246 


13072 


19600 




TFM 


I0RT,»*23 






10190 


16 


00565 


J0213 


19610 




B 


I0PT,DDASCR,7 






10202 


49 


00532 


J3445 


19620 




AM 


LOADSC, 03,10 






10214 


11 


13140 


000-3 


19630 




AM 


DCFSCR+5,03,10 






10226 


11 


13340 


000-3 


19640 




B 


INI TRO 






10238 


49 


09974 


00000 


19650 




OORG 


•-3 






10246 









100 1 
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19660 INCRE 

19670 

19680 

19690 ALPHAS 

19700 

19710 

19720 

19730 

19740 

19750 

19760 

19770 

19780 

19790 MAINS 
19800 

19810 SEQERR 

19820 

19830 

19840 
19850 
19860 
19870 
19880 
19890 
19900 
19910 CCD 

19920 
19930 

19940 CCD2 
19950 
19960 
199 70 



19980 

19990 M0DN01 

20000 

20010 

20020 

20030 

20040 

20050 

20060 

20070 

20080 



20090 



AM 


READ, 075, 9 




10246 


11 


13441 


00-75 


0 


READC 




10258 


49 


10022 


00000 


OORG 


•-3 




102*6 








TFM 


SCREM,04,9, 


COMPUTE SECTORS REMAINING 


102** 


16 


13075 


00-04 


S 


SCREM, LOOP 




10278 


22 


13075 


1)072 


BO 


•♦20, SCREM 




10290 


43 


10310 


13075 


B 


MAI NB 




10)02 


49 


10370 


00000 


OORG 


•-3 




10310 








NOP 


SCREM , 1,10, CHANGE 


TO SUBTRACT FOR NEW DUMP 


10310 


41 


13075 


000-1 


TF 


DCFSCR*8, SCREM 




10322 


26 


13343 


13075 


TFM 


I0RT,»»23 




10334 


16 


00565 


J0357 


B 


I0PT,DDASCR,7 




10346 


49 


00532 


J3445 


A 


LOADSC, SCREM 




10358 


21 


13140 


13075 


B 


NODISK-1,,* 




10370 


49 


0986N 


00000 


OORG 


• -3 




10378 








RCTV 






10378 


34 


00000 


00102 


TOM 


READIN+305, , , 




10390 


15 


18083 


00000 


DSC 


It' »• 




10401 




1 




WA TV 


ERR St 0 




10402 


39 


12857 


00100 


TF 


READING 304,C0NP+ll, 


11 


10414 


26 


11012 


1011P 


WNTV 


READIN+300 




10426 


31 


18078 


00100 


H 






10438 


48 


00000 


00000 


B 


READC 




10450 


49 


10022 


00000 


OORG 


•-3 




10451 












SYSTEM LOADER N0N-01SR 










DSC 


2,02 




10451 




2 




02 














DSA 


CCD2 




104*4 




5 


X I 








104*4 




J0466 




DSC 


1,« 




104*5 




1 




DSC 


1,1 




104** 




1 




1 

DC 


5,00798 




10471 




5 




-0791 












DC 


3,2 




10474 




3 




-02 














OSA 


INPUT-l 




10479 




5 


X 1 








10479 




J)*12 




DSC 
, 


!»• 




10410 




1 




TDM 


SYSCAL,1,U 




10412 


15 


00475 


OOOOJ 


TFM 


I OR?, ^2) 




10494 


I* 


005*5 


J0517 


B 


I0PT,CC0,7 




1050* 


49 


00532 


J0451 


CM 


MAPEA,0,7 




10511 


14 


13111 


-0000 


BE 


• ♦32 




105)0 


4* 


105*2 


01200 


TF 


420,MAPEA 




10542 


2* 


00420 


13111 


1 


•♦20 




10594 


49 


10574 


00000 


DORC 


•-) 




105*2 








TDM 


41*,,, 




105*2 


IS 


0041* 


00000 


OSC 
, 






10573 




1 




TO 


421* PHI 




10574 


25 


00421 


1)012 
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20100 




SF 


428 


1058* 


32 


0042 • 


00000 


20110 




TF 




10998 


26 


00434 


1310* 


20120 




SF 


489 


10*10 


32 


00489 


00000 


20130 




CF 


429 


10*22 


33 


00429 


00000 


20140 




TFM 


10RT,«*23 


10*34 


1* 


005*9 


J0657 


20 ISO 




8 


! OCT, SOL, 7 


10*4* 


49 


009** 


J0636 


20160 


SOL 


osc 


2,-22 


10*98 




2 








2K 












20170 




DSA 


S0L2 


10*64 




9 


X 1 


20180 




OSC 
1 


It* 


10**4 
10**5 




J0666 
1 




20190 


SOL 2 


osc 


1.1 


106*6 




1 




20200 




1 

OSA 


19783 


10671 




9 


X 1 










10671 




J9783 




20210 




DC 


3,3 


10674 




3 








-03 












20220 




OC 


6,0* 


10660 




6 








-0000* 










20230 


MODDK 1 


TOM 


SYSCAL.1.11 


10682 


15 


00475 


OOOOJ 


20240 




TFM 


I0MT,»*23 


10694 


16 


00565 


J0717 


20250 




B 


I OPT, CCD. 7 


10706 


49 


00532 


J0458 


20260 




TF 


DLDCF* 5, SCR ACM 


10718 


26 


10876 


13146 


20270 




TD 


DLDCF, SCRACH-5 


10730 


25 


10871 


13141 


20280 




SF 


DLOCFM 


10742 


32 


10872 


00000 


20290 




CF 


OLOCF 


10754 


33 


10871 


00000 


20300 




TO* 


428,0,11 


10766 


15 


00428 


0000- 


20110 




CM 


MAPMA,0,7 


10778 


14 


13106 


-0000 


20320 




BE 


• ♦32 


10790 


46 


10822 


01200 


20330 




TF 


DLDMl,MAPMA 




26 




1 3106 


20340 




B 


• ♦20 


10814 


49 


10834 


00000 


20350 




DORG 


•-3 


10822 








20360 




TOM 


DLD^7, , , 


10822 


15 


10865 


00000 


20370 




OSC 












20380 




TFM 


I0RT,»+23 




16 






20390 




B 


I0GT,0L0,7 


10846 


49 


00566 


J0858 


20400 


OLO 


DSC 


2,02 


10858 




2 




204 1 0 




02 
DSA 


DLDCF, 0 






















J087 1 












10869 




-0000 




20420 




OSC 


l.« 


10870 




1 




20430 


DLDCF 


DSC 


1,0 


10871 




1 




20440 




0 

DC 


5,0 


10876 




5 








-0000 










20450 




OC 


3,999 


10879 




3 








R99 












20460 




DC 


5,99999 


10884 




5 








R9999 
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20470 




DSC 






10885 




1 




20480 


NOSA 


CF 


MAPRM, , , 


NOT IMMOVABLE 


10886 


33 


13063 


00000 


20490 




SF 


HOLDCD+35 




10898 


32 


13025 


00000 


20500 




C 


H0LDCD*40,ZER06 




10910 


24 


13030 


13117 


20510 




BNF 


• ♦24 




10922 


47 


10946 


01200 


20520 




TFM 


H0LDCD^40,399,9 




10934 


16 


13030 


00L99 


20530 




SF 


MOLDCD+ 38 




10946 


32 


13028 


00000 


20540 




TF 


HILIM,H0LDCD*40 




10958 


26 


13070 


13030 


20550 




TF 


L0LIM,H0LDCD^S7 




10970 


26 


13098 


13027 


20560 




C 


N0S/U59.HILIM 




10982 


24 


10945 


13070 


20570 




BL 


ERRCYL 




10994 


47 


11362 


01300 


20580 




C 


N0SA+59,L0L!M 




11006 


24 


10945 


13098 


20590 




BL 


ERRCYL 




11018 


47 


11362 


01300 


20600 




CF 


MILIM-2 




11030 


33 


13068 


00000 


20610 




CF 


L0LIM-2 




11042 


33 


13096 


00000 


20620 




SF 


H0LDCDO6 




11054 


32 


13026 


00000 


20630 




MM 


HOLDCD+37,200,9 




11066 


13 


13027 


OOKOO 


20640 




SF 


95 




11078 


32 


00095 


00000 


20650 




TF 


LISTES,99 




11090 


26 


02790 


00099 


20660 




CF 


M0L0CD+35 




11102 


33 


13025 


00000 


20670 




TO 


• ♦47,H0LDCDO5,, 


SET UP DRIVE COOE 


11114 


25 


11161 


13025 


20680 




A 


•♦35,»^35 




11126 


21 


11161 


11161 


20690 




AM 


•♦23,1,10 




11138 


11 


11161 


000- 1 


20700 




TDM 


LISTES-5,0,10 




11150 


15 


02785 


000-0 


20710 




TFM 


I0RT,»*23 




11162 


16 


00565 


J1185 


20720 




B 


I OGT , D3RE AD » 7, 


DETERMINE ADORESS SCHEME 


11174 


49 


00566 


J2210 


20730 




TFM 


H0LD6-l,REA0IN^7l 




11186 


16 


13174 


J7649 


20740 




TO 


•♦22.LISTES-5 




11198 


25 


11220 


02785 


20750 




AM 


HOL 06-1, 0,9 




11210 


11 


13174 


00-00 


20760 




BD 


•♦24.LISTES-4 




11222 


43 


11246 


02786 


20770 




TFM 


•♦25,12,10 




11234 


16 


11259 


000J2 


20780 




TO 


LISTES-4,H0L06-1,U 




11246 


25 


02786 


1317M 


20790 




NOP 


LISTES, 10000,7 




11258 


41 


02790 


JOOOO 


20800 




TF 


NINESCLOAOSC,, 


DETERMINE NUMBER OF CYLINDERS 


11270 


26 


13038 


13140 


20810 




TFM 


CNTCYL,0,10 




11282 


16 


13296 


000-0 


20820 




CF 


NINESC-2 




11294 


33 


13036 


00000 


20830 




CM 


NINESC,9200,8 




11306 


14 


13038 


0R200 


20840 




8NH 


SMALL 




11318 


47 


11362 


01100 


20850 




SM 


NINESC, 200, 8 




11330 


12 


13038 


0-200 


20860 




AM 


CNTCYL.1,10 




11342 


11 


13296 


000-1 


20870 




8 


•-48 




11394 


49 


11306 


00000 


20880 




OORG 


•-3 




113*2 








20890 


ERRCVL 


TFM 


0IMERR^22,7274,8 




113*2 


16 


02507 


0P274 


20900 




8 


ERRO 




11374 


49 


02924 


00000 


20910 




DORG 


•-3 




11382 








20920 


SMALL 


CM 


CNTCYL,0,10 




11382 


14 


13296 


000-0 


20930 




BE 


•♦36 




11394 


4* 


11430 


01200 


20940 




TF 


SCOLD, NINESC 




1140* 


2* 


13134 


13036 


20950 




TFM 


NINE SC, 9200, 8 




11418 


1* 


13038 


0R200 


20960 




TFM 


LGE^23,0,10 




11430 


1* 


11789 


000-0 


20970 




TFM 


RL60NE«30t*420 




114*2 


I* 


04278 


J 1462 


20960 




8 


PINO 




11494 


49 


03832 


00000 


20990 




OORG 


•-3 




114*2 








21000 


RGE 


C 


LISTER, NINESC 




114*2 


24 


02764 


13038 


21010 




8NL 


LGE 




11474 


4* 


11766 


01300 



1004 
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CM 


LISTER-3,7,1011 


11404 


14 


02741 


000-P 








• ♦40 


11400 


44 


11599 


01200 


21040 




TFM 




11910 


14 


11709 


000-0 


2 1050 




CM 


ryTrvi a in 
LNIt T L t 0, 10 


11922 


14 


11294 


000-0 






BE 


•♦24 


11994 


44 


11999 


01200 






I»" 


NINESC »9200|8 


11944 


14 


11019 


0R200 


3i nmn 




BT 


&cTR,bETR-l 


11990 


27 


02872 


02871 


5 1 nan 




BNR 


run i irffi * 

LHl L » L I 5 I ER-3 


11970 


41 


11650 


02761 


2 1 100 




AM 


L0LIM,100«9 


11992 


11 


11098 


OOJOO 








LUL I W-Z jMILI W**2 


11904 


24 


11096 


13068 


211 20 




BH 


ERR 


11404 


46 


05656 


01100 


211 30 






MOL DCD+37,0,9 


11410 


14 


11027 


00-00 


2 1 1*0 




TD 


H0tDCD*35»L0LIM~2 


11410 


29 


11025 


13096 


2 1 1 SO 




B 


NOSA 


11442 


49 


10886 


00000 


2 1 1 60 




DORG 


•-3 


11490 








21170 


CHI I. 


CM 


1 1 STER-3t 7 t 101 1 


11490 


14 


02761 


000- P 


2 1 1 80 




BNE 


RGE 


11442 


47 


11462 


01200 


2 1 190 




TD 


•♦*7,HILIM-2 


11474 


25 


11721 


13068 


2L200 




TDM 


HIL IM-2»0 


11404 


15 


13068 


00000 


21210 




C 


L I STER t HlLI M 


11490 


24 


02764 


13070 


2 1220 




TDM 


HILlM-2,0 


11710 


15 


13068 


00000 


2 1230 




BNE 


RGE 


11722 


47 


11462 


01200 


2 12*0 




C 


LOLIM-2tHILIM-2 


11714 


24 


11096 


13068 


2 1250 




BNE 


RGE 


11744 


47 


11462 


01200 


21260 




B 


ERR 


11758 


49 


05656 


00000 


2 1270 




DORG 


•-3 


1 1 744 








2 1280 


LGE 


AM 


• ♦23, 1,10 


11744 


11 


11789 


000- 1 


2 1290 




CM 


CNTCYLtOtlO 


11778 


1* 


11296 


000-0 


2 1 300 




BH 


RGE+96 


11790 


46 


11558 


01100 


21310 




BL 


• ♦32 


11802 


*7 


11814 


01300 


2 I 320 




Tr 


N1NESC • SCOLD 


11014 


26 


13038 


13134 


21330 




B 


RGE+96 


11824 


49 


11558 


00000 


21340 




DORG 


•-3 


11814 








2 1350 




SF 


NINESC-2 


11814 


32 


13036 


00000 


21360 




BT 


GETL.GETL-l 


11844 


27 


02996 


02995 


21370 




CM 


LISTER-3, 7,1011 


11858 


I* 


02761 


000- P 


21380 




BNE 


HERE 


11870 


47 


12118 


01200 


2L390 




SF 


LISTER-l 


11882 


32 


02763 


00000 


21400 




MM 


LISTER, 200, 9 


11894 


13 


02764 


OOKOO 


21*10 




TF 


L0ADSA,99 


11906 


26 


13050 


00099 


21*20 




TD 


L0ADSA-5,PACK 


11918 


25 


13045 


02772 


21*30 




CF 


LOADSA-5 


11930 


33 


13045 


00000 


21**0 




TO 


•♦*7, LOADSA-5 


11942 


25 


11989 


13045 


21*50 




A 


•♦35, »+35 


11954 


21 


11989 


11989 


21*60 




AM 


•♦23, 1,10 


11966 


11 


11989 


000-1 


21*70 




TOM 


LOADSA-5,0,10 


11978 


15 


13045 


000-0 


21*80 




TF M 


I0RT,»*23 


11990 


16 


00565 


J2013 


21*90 




B 


IOGT,03REA0,7 


12002 


69 


00566 


J2210 


21500 




TFM 


HOL06-l,REA0!N^71 


12014 


16 


13174 


J 7849 






TD 


•♦22 , LOADSA-5 


12026 


25 


12048 


13045 


21520 




AM 


H0LD6-l,0,9 


12038 


11 


13174 


00-00 


21530 




BO 


•♦2*,L0A0SA-* 


12050 


*3 


1207* 


13046 


215*0 




TFM 


•♦25,12,10 


12062 


16 


12087 


000J2 


21550 




TO 


LOADSA-*, H0L06-1, 11 


12074 


25 


11046 


1317M 


21560 




NOP 


LOADSA, 10000,7 


12086 


*1 


13050 


JOOOO 


21570 




CF 


LISTER-l 


12098 


33 


02763 


00000 
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21580 




B 


SCRKO 


12110 


*9 


12178 


00000 


21590 




DORG 


•-3 


12118 








21600 


HERE 


TF 


NEWDIM, LISTER 


12118 


26 


02963 


02764 


21610 




BT 


DIMMER, OIMMER-1 


12130 


27 


03666 


03665 


21620 




A 


MAP*5,MAP*8 


12142 


21 


19885 


19888 


21630 




TF 


LOA0SA,MAP*5 


12154 


26 


13050 


19885 


216*0 




TD 


LOADSA-5, MAP 


12166 


25 


13045 


19880 


21650 


SCRKO 


A 


LOADSA, NINESC 


12178 


21 


13050 


13038 


21660 




S 


LOADSA, LOADSC 


12190 


22 


13050 


131*0 


21670 




B 


SCROK 


12202 


49 


06552 


00000 


21680 




DORG 


• -3 


12210 








21690 


03READ 


DSC 


2,22 


12210 




2 




21700 




22 
DSA 


D4READ 


12216 




5 


X I 










12216 




J2218 




21710 




DSC 
t 


It' 


12217 








21720 


D*READ 


DSC 


1,1 


12218 








21730 




1 

DC 


5,0*800 


12223 












-*800 










217*0 




DC 


3,2 


12226 












-02 












21750 




DSA 


READIN 


12231 




5 


X I 










12231 




J7778 




21760 




DSC 
* 


It • 


12232 




1 




21770 


LOADER 


TFM 


ATNM1,INPUT*24 


12234 


16 


09053 


J3637 


21780 




SF 


LOADER 


12246 


32 


1223* 


00000 


21790 




BTM 


ATNR,»+12 


12258 


17 


08606 


J2270 


21800 




TFM 


INPUT*49, 7070,8 


12270 


16 


13662 


0P070 


21810 




A 


MR2*3,425 


12282 


21 


02260 


00425 


21820 




TD 


MR2,*22 


12294 


25 


02257 


00422 


21830 




SF 


MR2 


12104 


32 


02257 


00000 


218*0 




CF 


KR2M 


12118 


33 


02258 


00000 


21850 




TF 


HOIDCDM3.WR2+5 


12110 


26 


11003 


02262 


21860 




TF 


H0LDCD*19,WR2^5 


12142 


26 


13009 


02262 


21870 




A 


H0tDC0*19,WA2*8 


12154 


21 


11009 


02265 


21880 




SM 


H0lDCD*19,itl0 


12146 


12 


11009 


000- 1 


21890 




TF 


H0LDCD*30,WR2M3 


12178 


26 


11020 


02270 


21900 




TDM 


RTEST ,0 


12190 


15 


11083 


00000 


21910 




BNF 


IST0-24,MCS^22 


12402 


44 


05912 


17600 


21920 




SF 


FORT 


12414 


32 


11062 


00000 


21930 




TOM 


PTEST,0 


12426 


15 


11085 


00000 


219*0 




TF 


MOLDCD*7,MCS»39 


12418 


26 


12997 


17817 


21950 




TF 


PNAME,MCS05 


12450 


26 


11189 


17613 


21960 




TO 


0UMP,MCS^21 


12442 


23 


11188 


17801 


21970 




TF 


HOLDC0^15tMCS*l7 


12474 


26 


11025 


17795 


21980 




TFM 


H0LDCDO»0,8 


12494 


16 


12993 


0-000 


21990 




8 


I STO 


12499 


49 


09996 


00000 


22000 




OORG 


•-3 


12906 








22010 




TCO 


COMMFL 


07200 








22020 




OORG 


10100 


i 10100 









not 
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22030 


COM I 


TFM 


I OAT t •♦23 






10100 


16 


00969 


J0129 


12040 




8 


I0PT,C0NPL1,7 






10112 


49 


00932 


J01*8 


22090 




TRA 








10126 


36 


00000 


00900 














10136 


49 


00000 


00000 


220*0 


COWL I 


OSC 


2.22 






10168 




2 




22070 




22 
DSA 


COMF1 2 






10194 




9 


X 1 














10194 




J0196 




22080 




OSC 


It' 






10199 




1 




22090 


CQMFL2 


OSC 


l » l 






10196 




1 




22100 




1 

oc 


5,18520 






10161 




9 








J8520 














22110 




OC 


3,029 






10164 




3 








-29 
















22120 




OC 


5,10600 






10169 




5 








J0600 














221 30 




OSC 


l,« 






10170 




1 




22140 




DORG 


10600 






10600 








221 50 




OC 


5,0 






10604 




5 








-0000 














22160 


SPL INS 


TFM 


H0L03,0,9 






10606 


16 


13153 


00-00 


22170 




CM 


LlSTEA-3, 8,1011 






10618 


I* 


02761 


000-0 


22180 




8NE 


LOOK 






10630 


47 


10690 


01200 


22 190 




A 


H0LD3, LISTER 






10642 


21 


13153 


0276* 


22200 




8T 


REMOVE , RE MOVE- 1 






10654 


27 


0308* 


03083 


22210 




TF 


LISTET, DIMNUM 






10666 


26 


0279* 


13150 






8T 


INSERT, I NSERT-l 






10678 


27 


03*1* 


03*13 


222*0 


LOOK 


C 


H0LD3 fMOVESC 






10690 


24 


13153 


02865 


22250 




BE 


SPLINS-I.,6 






10702 


*6 


1060N 


01200 


22260 




8 T 


GETL,GETL-1 






10714 


27 


02996 


02995 


222 70 




B 


SPLINS*12 






10726 


*9 


10618 


00000 


22280 


SETMAP 


TF 


MAP*5,L0ADSA,, 


SET UP DIM ENTRY 




10738 


26 


19885 


1 3050 


22290 




TO 


MAP.L0A0SA-5 






10750 


25 


19880 


1 30*5 






CF 


MAP 






10762 


33 


19880 


00000 


22310 




SF 


MAP+1 






1077* 


32 


19881 


00000 






TF 


MAP+8,L0ADSC 






10786 


26 


19888 


1 31*0 


2232^ 




BNF 


•♦2*, STFLAG 






10798 


44 


10822 


1 3*99 


22 322 




SF 


MAPMA 






10810 


32 


1 3106 


00000 






TF 


MAP+13.MAPMA 






10822 


26 


19893 


1 3 106 


22 3*0 




TF 


MAP*18,MAPEA 






1083* 


26 


19898 


13111 


22 350 




TO 


MAPM9.MAPRM 






108*6 


25 


19899 


1 3063 


22 360 




TF 


DIMNUM, NEWDIN 






10858 


26 


13150 


02963 


22 370 




TFM 


I0RT,»+23 






10870 


16 


00565 


J0893 


22 380 




a 


I0PT,0M00A,7 






10882 


49 


00532 


-2568 


22 390 




TFM 


I0RT,«*23 






10894 


16 


00565 


J0917 






B 


I0GT,MCSl,7 






10906 


49 


00566 


j 34 74 


22*10 




TF 


MCS+39, DIMNUM 






10918 


26 


17817 


13150 


22*20 




TFM 


10RT,»*23 






10930 


16 


00565 


J0953 


22*30 




B 


I0PT,MCSl,7 






109*2 


*9 


00532 


J3*76 


22**0 


• 


INSERT DIMNUM IN SPLIST 














22*50 




BTM 


SPLINS»»*12 






10954 


17 


10606 


J0966 


22*60 




c 


PNAME , ZER012 , , 


WAS PROGRAM -NAME 


GIVEN 


10966 


2* 


13189 


13123 
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22*70 




BE 


NONAM 






10978 


44 


1 1002 


01200 


22*90 




BTM 


EQUIV,»*12,, 


PUT NAME IN EQUIVALENCE TABLE 


10990 


1 7 


08606 


J 1002 


22500 


NONAM 


TF 


FREAD*5, SCRACH, , 


LOAD PROGRAM TO ! 


DISK 


1 1002 


26 


1 32*7 


1 31*6 


22 510 




TO 


FRE AD , SCRACM-5 






1 1014 


25 


1 3242 


131*1 






SF 


FREAD+l 






1 1026 


32 


1 3243 


noonn 






CF 


FREAD 






1 1038 


j3 


1 3242 


00000 


225*0 




TF 


FWRI T*5,L0ADSA 






1 1050 


26 


1 3232 


1 3050 


22550 




TO 


FWRI T.L0A0SA-5 






11062 


25 


1 322 7 


1 30*5 






TFM 


FREAD* 13, FAREA 








J* 


1 3255 


J 3776 






TFM 


FWRI T+13»FAREA 






1 




1 3240 


J3776 






C 


MAXSC, LOADSC 






l inoB 






of Inn 


????? 




BL 


ALTER 






11110 




11 7119 

, if ?f 


, if ?J! 






TF 


FREAD+8, LOADSC 












i ii 2a 


* 




TF 


FWRI T*8tL0ADSC 










1 1J1C 






L SK 


TFM 


I0RT,«*23 






111*6 


i si 


nnSftS 


Jl 169 


22630 




B 


IOGT , FREDDA, 7 






1 1 158 


: 


00566 


J3*29 


226*0 




TFM 


10RT,**23 






1 1 170 


i tk 


00565 
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l»' 


13369 


25230 EQU01M 


DSC 


20,0.19880 


19880 




00000000000000000000 


252*0 DISKF 


DSC 
0 


1,0 


13350 


25250 


OC 


5,0 


13355 




-0000 




25260 


DC 


3*020 


133ft 




-20 






25210 


OSA 


TRACK 


13343 








131*3 


25280 


DSC 
t 


It 1 


11164 


25290 FAREA 


OS 


.CLOSUP 


11774 


25300 SVSCAL 


OS 


.673 


00475 


25310 SUSIO 


OS 


,10 


00010 



1114 
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29120 


SU9H1 


OS 


• 39 


00019 


0 


29330 


TRACK 


OS 


iCLOSUP 


11TT4 


0 


29)40 


IASICM 


OS 


• 794 


00794 


0 






OS 


•BASICM 


00744 


0 


29940 


TRACKS 


OS 


.CLOSUP 


13774 


0 


29370 


DUPC8D 


OS 


•INPUT 


11411 


0 


29390 


SUCESS 


OS 


• AOK 


1 1044 


0 


29390 


DNPOIM 


OSC 


2.-22 


11149 


2 






2K 








25*00 




OSA 


OMPOM 


13371 


9 X 










1 3.371 


J3373 


25* 10 




OSC 


lt« 


1 3372 


1 


25*20 


DMPDM 


OSC 


1.1 


13373 


1 


25*30 




I 

oc 


5,18*30 


13378 


5 






J8*30 






25**0 




OC 


3.050 


13381 


3 






-50 








25*50 




OC 


5.02500 


13384 


5 






-2500 






25*60 




OSC 


!»• 


13387 


1 


25*70 


DUMP 


OSC 


1,0 


13388 


1 


25*80 


CLODDA 


0 


2.22 


13389 


2 






22 








25490 




OSA 


CLOSR 


13399 


5 X 










13399 


J3320 


25500 




OSC 




13396 


1 


25510 


CLWOOA 


OSC 


2.22 


13397 


2 






22 








25520 




OSA 


CLOSW 


13*03 


5 X 










13*03 


J3257 


25530 




OSC 


l, f 


13*0* 


1 


255*0 


DDAKF 


osc 


2.22 


13*05 


2 






22 








25550 




OSA 


01SKF 


13*11 


5 X 










13*11 


J3350 


25560 




OSC 


1.* 


13*12 


1 


25570 


FPOOA 


OSC 


2,26 


13*13 


2 






26 








25580 




OSA 


FWRIT 


13*19 


5 X 










13*19 


J3227 


25590 




OSC 


!.• 


13*20 


1 


25600 


F MR 00 A 


DSC 


2.22 


13*21 


2 






22 
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25610 




DSA 


FWRIT 


13*27 


5 


X 


1 










13*27 


J3227 






25620 




DSC 


l.* 


13*28 


1 






25630 


FREDDA 


DSC 


2,22 


13*29 


2 










22 












256*0 




DSA 


FREAD 


13*35 


5 


X 


I 










13*35 


J32*2 






25650 




DSC 


i.» 


13*36 


1 






25660 


READ 


DSA 


READIN 


13**1 


5 


X 


I 










13**1 


J7778 






25670 




DC 


3,00* 


13*** 


3 










-0* 












25680 


DDASCR 


OSC 


2,02 


13**5 


2 










02 












25690 




OSA 


DCFSCR 


13*51 


5 


X 


I 










13*51 


J3335 






25700 




DSC 


1,* 


13*52 


1 






25710 


D IRE AD 


DSC 


2,22 


13*53 


2 










22 












25720 




OSA 


02READ 


13459 


5 


X 


1 










13459 


J3*41 






25730 




DSC 


!•• 


13460 


1 






257*0 


D2READ 


OSC 
1 


1*1 


13*41 


1 






25750 




OC 


5,0 


13*66 


5 










-0000 










25760 




OC 


3,021 


13*69 


3 










-21 










25770 




OSA 


TRACK 


13*7* 


5 


X 


1 










13*7* 


J3776 






25780 




OSC 
( 


1.* 


13*79 


1 






25790 


HCSl 


OSC 


2.22 


13*76 


2 










22 












25800 




OSA 


MCS2 


13*82 


5 


X 


1 










13482 


JS*8* 






25810 




OSC 


!•• 


13483 


1 






25820 


MCS2 


OSC 

1 


1.1 


13*84 


1 






25830 




OC 


5,19461 


13*89 


5 










J9663 








299*0 




OC 


Itl 


13*92 


3 










-01 












25850 




OSA 


MCS 


11497 


5 


X 


1 



fttlt 
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25860 



OSC 



It* 

ltO 



25861 STFLAG OSC 

0 

25870 TRACK2 OSS 2100,17778,, 

25880 TCO COMF1 



RE AO WRITE AREA FOR TRACK 



13697 
13691 



13699 



17779 
10100 



J7778 
1 



1 

2100 



OENO 



1017 
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AOOBLK 


0*280 


OMREAO 


02576 


M0DDK1 


10682 


ACTAH 


09136 


EQU2 


08156 


ADDRAC 


10656 


DONESF 


11782 


M00N01 


10482 


ACTAJ 


09112 


EQUFL 


08100 


ADRSPL 


04514 


DRESTR 


03633 


MONCAL 


00796 


ACTAK 


09228 


EQUIV 


08606 


ALLCL R 


07816 


OSEVEN 


09064 


MONITR 


00796 


ALTER 


11282 


ERRO 


02524 


ALLRIT 


10128 


OUPCRO 


13613 


MORERD 


06584 


ANAME 


10478 


ERR 


05656 


ALPHAS 


10266 


EIGHTS 


09984 


MOVBUS 


08724 


AOK 


13066 


EXIT2 


09110 


B2READ 


09054 


ENDMRT 


11206 


MOVCAR 


06701 


ATNR 


08606 


EXIT 


10542 


BASICM 


00 796 


EOUOCF 


13280 


MOVDCF 


13212 


ATN 


09042 


E2EST 


10700 


BAVAOO 


10472 


EQUOOA 


13272 


MOVOOA 


13204 


8NR 


09650 


FAREA 


13776 


BAVAIL 


02754 


EQUOIM 


19880 


MOVESA 


02862 


CALC2 


02759 


FIND 


03832 


BAVCOM 


10440 


ERRCYL 


11362 


MOVESC 


02865 


CALC3 


02779 


FLAG 


06468 


BEAUTY 


10592 


ERRSEQ 


12857 


MOVFL 1 


08548 


CALC4 


02783 


FORT 


13062 


BLANKT 


10356 


EXITFL 


06924 


M0VFL2 


08556 


CALC5 


08796 


FOUNO 


03445 


BUTTON 


00455 


EXITMR 


08624 


MOVNOW 


10504 


CALC6 


08790 


FPOOA 


13413 


CAILMV 


06976 


FAKSFV 


02852 


MSTAKE 


09032 


CALC7 


02848 


FPOK 


06820 


CHOICE 


09196 


FILTST 


10212 


N48000 


02770 


CARD 


13034 


FP 


11462 


CLEVER 


04315 


FINALM 


12819 


NEGATE 


07576 


CCD2 


10466 


FPSF 


11642 


CL IPPP 


02884 


FINOIM 


13065 


NEMOIM 


02963 


CCO 


10458 


FREAD 


13242 


CLOODA 


13389 


FINDON 


06680 


NINE12 


13203 


CHIL 


11650 


FHRIT 


13227 


CLOSUP 


13776 


F I NOTR 


03900 


NINENT 


09132 


CLEAR 


06580 


GETL 


02996 


CLWOOA 


13397 


FREOOA 


13429 


NINESC 


13038 


CLFP 


06652 


GETR 


02872 


CNAMES 


09806 


FWRDDA 


13421 


NODISK 


09866 


CLOSE 


09282 


GORT 


10232 


CNTCYL 


13296 


GETBAK 


05164 


NOFLGS 


07748 


CLOSR 


13320 


HERE 


12118 


COMCYL 


04980 


GETLTR 


03016 


NOMMON 


02855 


CLOSM 


13237 


HEX 


02795 


C0MFL1 


10148 


GETRTR 


02928 


NOMULT 


10018 


CLRFP 


07688 


HILIM 


13070 


C0MFL2 


10156 


GOLOEN 


02760 


NONAME 


09680 


CMPAR 


09182 


HOLD 2 


13052 


COMMFL 


07200 


GPMARK 


13064 


NOSECA 


02856 


CNINE 


08610 , 


HOLD 3 


13153 


COMMON 


02853 


HOLOCO 


12990 


NOSPAC 


07092 


CNT 


13094 


H0L04 


13157 


COMPFR 


05268 


HOLOIM 


10510 


OLIMIT 


10118 


C0M22 


13305 


H0L05 


13091 


COMPRS 


12406 


INITRD 


09974 


PKOOOA 


02637 


COM2 


13297 


H0L06 


13175 


CONCUD 


09952 


INITSC 


09090 


PK1DDA 


02660 


COMFL 


10100 


INCRO 


09262 


CONST I 


02801 


INSOEL 


12278 


PK20DA 


02693 


C0MM1 


07249 


INCRE 


10246 


C0NST2 


02807 


INSERT 


03414 


PK300A 


02706 


C0MM2 


07263 


INIT1 


07680 


C0NST3 


08815 


INSETR 


03434 


PLUSSR 


04188 


COMP 


10106 


INIT2 


08360 


CONST* 


08812 


KEYMES 


12911 


QCARRY 


02913 


COUNT 


13101 


INPUT 


13613 


C0NST5 


02825 


K SEVEN 


10716 


RACKET 


02941 


0C1 


09554 


IOGT 


00366 


C0NST6 


02831 


KYMESS 


11998 


ROMDOA 


02591 


DC 22 


06094 


IOPT 


00532 


C0NST7 


02837 


LCTEST 


09614 


ROMOVE 


02599 


DC 2 


05969 


IORT 


00365 


C0NST8 


02870 


LIMITS 


08666 


REAOIN 


17778 


DOAKF 


13605 


ISTO 


05456 


CORSIZ 


02483 


LISTER 


02764 


REDSPO 


04904 


0EL1 


05649 


KEVE 


05003 


CURREN 


08818 


LISTES 


02790 


RE0SP1 


04949 


DEL 2 


05696 


KEV1 


08622 


CYLDEL 


12462 


LISTET 


02794 


REDSP2 


04992 


DELET 


09900 


KEY5 


08785 


01REA0 


13453 


LOADER 


12234 


RE0SP3 


04936 


DELFL 


05600 


KING 


02456 


02REA0 


13461 


LOADFL 


04400 


REDSPL 


04696 


DELTA 


09373 


LGE 


11766 


03REA0 


12210 


LOADME 


07226 


REMBLK 


10636 


DISKF 


13350 


LIMIT 


06621 


D4READ 


12218 


LOADSA 


13050 


REMOEL 


12194 


OISKN 


06329 


L0AD1 


04448 


DCFSCR 


13335 


LOADSC 


13140 


REMOTR 


03104 


DLOCF 


10971 


L0A02 


04463 


OOASCR 


13445 


LOOPSY 


09026 


REMOVE 


03094 


OLD 


10899 


LOLIM 


13096 


OELETE 


13086 


LOPE I A 


08747 


REMSIL 


10144 


DLOAD 


05900 


LOOK 


10690 


0ELNT5 


09604 


L0PE28 


08770 


REPLFL 


04400 


DMOOA 


02989 


LOOP 


13072 


OIMENT 


19880 


LPSROA 


04301 


RLGONE 


04249 


DM POM 


13373 


LSK 


11144 


OIMERR 


02485 


MAINB1 


06392 


RSEVEN 


10909 


DONE 


09990 


MAINS 


10370 


OIMHLO 


08831 


MAINS 2 


06186 


ACTAA 


09990 


DREPL 


09900 


MANY 


09496 


DIMMER 


03666 


MARVEL 


10992 


ACTAC 


0997* 


DUMP 


13198 


NAPE A 


13111 


OIMNUM 


13150 


MAXOIM 


03961 


ACT AO 


09904 


EN TOR 


10392 


HARM A 


13106 


DMPOIM 


13365 


HI ONI T 


09390 


ACT AG 


09299 


EQU1 


09169 


MAPRM 


13063 
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MAR 


19810 


NTt 


0*310 


SCR2 


111*9 


UPSCA 


07932 


SPLPK3 


0271* 


MAXSC 


11055 


OKOEL 


0*1*8 


SCRAO 


09290 


VOILA 


09112 


STAROT 


0901* 


MCAS 


13061 


RACK 


01772 


SCRIM 


13079 


MASH 


10992 


STFLAC 


13*99 


MCSl 


1)476 


RH1 


13082 


SCRRO 


12179 


MR 2 


02297 


SUCESS 


190** 


MCS2 


13*8* 


RMAMC 


11119 


SCROR 


0*992 


MR OK 


0*72* 


SYSCAL 


00*75 


MCS 


17778 


RRf 7A 


09000 


SECT 


10222 


WRT2 


099** 


TiLAST 


1079* 


MEAT 


09292 


RRf 7 


08*38 


SEQ 


130*0 


MRT 


09022 


TESTFP 


0797* 


MOVER 


08832 


PTEST 


13081 


SF 


1009* 


VES9 


12730 


THROOA 


02729 


NOVEL 


08500 


OHOLO 


02819 


SMALL 


11382 


ZERO* 


13117 


THROWS 


02737 


MPT 


08636 


QUEEN 


02*** 


SOL 2 


10*** 


SCR AC H 


131** 


TOPPRO 


10920 


NULT2 


09962 


R2 


08990 


SOL 


10*99 


SEAAFP 


073*0 


TRACK2 


17778 


MULT 


0989* 


RAKES 


1092* 


SRLRL 


057** 


SEOERR 


10379 


TRACKS 


1977* 


NDISK 


06848 


ROSRL 


0*98* 


SRLR1 


05792 


SETPLC 


09122 


TRM9US 


0871* 


NEAR 


03574 


RE ADC 


10022 


SRLR2 


05807 


SETMAP 


10738 


TRWCAR 


08*93 


NEVER 


04291 


RE AO 


13**1 


SRS 


07*2* 


SCVENT 


09108 


TRYACN 


0399* 


N0200 


12066 


RECO 


091*2 


STEAL 


028*5 


SFSUCE 


08*00 


UPSCAN 


08912 


NOAlF 


09854 


REL02 


08532 


ST OMR 


03188 


SKNAME 


09678 


WHIP IT 


053*0 


NOF 


08986 


RELO 


081 72 


SUBHI 


00039 


SPCREO 


05*9* 


WHYNOT 


03388 


NOISY 


10380 


REPLl 


0***8 


SUBLO 


00010 


SPECAS 


09152 


WITHIN 


08738 


NOMA 


08670 


REPL2 


0**63 


TAC 


09812 


SPLAOO 


0*5*8 


WRL AST 


118*2 


NOMB 


08678 


RGE 


11**2 


TFLG 


08878 


S PL COR 


03151 


WRMOOA 


02*1* 


NOMC 


11016 


RMARK 


12855 


THOU 


130** 


SPLCYL 


03187 


MR MOVE 


02*22 


NOMD 


11064 


R 


0875* 


TIC 


097** 


SPLOEL 


12090 


MRTSPO 


032*8 


NOME 


11072 


RTEST 


13083 


TIPSY 


03*70 


SPLEXT 


05060 


MRTSPl 


03300 


NONAM 


11002 


SCAN1 


07728 


TRACK 


1377* 


SPLINI 


0**6* 


MRTSP2 


03332 


NORE L 


07540 


SCAN2 


08*08 


TREC 


0*82* 


SPLINS 


10606 


WRTSP3 


033** 


N0RE2 


08100 


SCANN 


09750 


TRREC 


09*02 


SPLIST 


0*32* 


2ER012 


13123 


NOSA 


10886 


SCERR 


12798 


TRMA 


08739 


SPLPKO 


026*5 


ZER019 


13130 


NOTOK 


09622 


SCOIO 


1313* 


TRWB 


087*2 


SPLPKl 


02668 


ZEROES 


08806 


NTEST 


13084 


SCR1 


13163 


UPOIM 


07312 


SPLPK2 


02*91 


ZSEVEN 


09*76 



E NT OF ONE ASSEMBLY. 
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PAGE 


00010 




OORG 


2500 




02500 








00020 


DUMP 


BNF 


DUMPCC. MCS*23,, 


IS 


CALL FROM SPS , FORTRAN 02500 


44 


02604 


17801 


00030 




CF 


CONTRO-2 




02512 


33 


13611 


00000 


00040 




TR 


FILAD.402 




02524 


31 


05*7* 


00402 


oooso 




TFM 


FIlAD*5,0,9 




02536 


16 


05*79 


00-00 


00060 




TF 


FILAD*3,425 




02548 


26 


05*77 


00425 


00061 




TO 


FILAD.422 




02560 


25 


05*74 


00422 


00070 




TF 


SC,FILAD*8 




02572 


26 


136*3 


05482 


00080 




BO 


PAPST,MCS*23 




02584 


43 


032*6 


17801 


00090 




B 


CA 




02596 


49 


03190 


00000 


00100 




DORG 


• -4 




02603 








001 10 


DUMPCC 


SF 


CONTRO-2,,, 




CALL FROM CONTROL RECORD 02*0* 


32 


13611 


00000 


00120 




SF 


TVPE-1 




02616 


32 


136*6 


00000 


00130 










DETERMINE TYPE 








00140 




CM 


TYPE, 50, 10 




02628 


14 


136*7 


OOONO 


00150 




BH 


LORM 




026*0 


46 


02906 


01100 


00160 




CM 


TYPE .45,10 




02*52 


14 


136*7 


000M5 


00170 




BE 


E 




0266* 


46 


02738 


01200 


00180 




CM 


TYPE, 49, 10 




02676 


I* 


136*7 


O00M9 


00190 




BE 


I 




02688 


46 


02758 


01200 


00200 




CM 


TYPE, 41, 10 




02 700 


14 


136*7 


000M1 


00210 




BE 


TVPA 




02712 


*6 


06518 


01200 


00220 




B 


ERRD-12 




0272* 


*9 


0610* 


00000 


00230 




OORG 


•♦3 




02738 








00240 


E 


TFM 


NUMB, EE NT 




02738 


16 


136*3 


-0002 


00250 




B 


Bl 




02750 


49 


03026 


00000 


00260 




OORG 


•-4 




02757 








00270 


I 


TFM 


NUMB, ME NT 




02758 


16 


136*3 


-0003 


00280 




B 


81 




02770 


♦9 


03026 


00000 


00290 




DORG 


•-"* 




02777 








00300 


SPL 


CM 


TYPE, 62, 10 




02778 


1* 


136*7 


00002 


00310 




BNE 


ERRD-12 




02790 


47 


0610* 


01200 


00320 




SF 


TYPE*1 




02802 


32 


136*8 


00000 


00330 




CM 


TYPE+2, 73,10 




0281* 


I* 


136*9 


000P3 


00340 




BH 


ERRD-12 




02826 


*6 


0610* 


01100 


00350 




CM 


TYPE*2, 70.10 




02838 


I* 


136*9 


OOOPO 


00360 




BL 


ERRD-12 




02850 


*7 


0610* 


01300 


00370 




TFM 


NUMB, SENT 




028*2 


16 


136*3 


-0004 


00380 




TO 


•♦23,TYPE*2 




0287* 


25 


02897 


13649 


00390 




AM 


NUMB, 0,10 




0288* 


11 


13**3 


000-0 


00400 




B 


Bl 




02898 


*9 


03026 


00000 


00410 




OORG 


•-3 




02906 








00420 


LORM 


CM 


TYPE, 53, 10 




0290* 


I* 


13**7 


000N3 


00430 




BE 


L 




02918 


46 


0*63* 


01200 


00440 




CM 


TYPE, 54, 10 




02930 


1* 


13**7 


000N4 


00450 




BNE 


SPL 




029*2 


*7 


02778 


01200 


00460 




SF 


NUMB- 7 




0295* 


32 


13*3* 


00000 


00470 




CM 


NUMB, 0,10 




029** 


1* 


13**3 


000-0 


00480 




BE 


NAME 




0297* 


** 


0*278 


01200 


00490 




TFM 


TD*6,NUMB-1, , 




CONV MAP NO TO NUMERIC 02990 


1* 


0919* 


J 3**2 


00500 




TFM 


AN-1,«*23 




01002 


1* 


091*9 


-3025 


00510 




8 


AN,NUHB-7,7 




0101* 


*9 


091** 


J 36 36 


00520 


Bl 


TF 


FIND*23,NUMB t( 




FIND MAP ENTRY 0102* 


2* 


090*5 


13**3 


00530 




TFM 


TR*2), •♦23,711 




01018 


I* 


05129 


-306J 


00540 




B 


TEMAP.FILAD 




01090 


*9 


0*97* 


05*7* 


00550 




8NR 


CONTffFtLAO 




010*2 


*5 


0309* 


03*7* 



1 
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00560 


• 


ERROR MAP NO NOT IN USE 












00570 




TFM 


DINfcRR^22,0074,8 




0 307* 


16 


06343 


0-074 


00580 




8 


ERRO 




03086 


69 


06116 


00000 


00590 




OORG 


• -3 




0309* 






05482 


00600 


CONT 
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UPPER 


07147 


EROUMP 


06277 


CALC3 


06496 


IN8 


05382 


RAIL 


07287 


UREAL 


06710 


ERRDMP 


06176 


CARD 


04034 


INIT 


03342 


RO 


04410 


XX 


00000 


EXAMIN 


07157 


CA 


01190 


100 


13645 


READ 


01318 


ZERO 


07112 


F I LODA 


05466 


CNT2 


06100 


IOGT 


00566 


RELLT 


01546 


SAFOOA 


05458 


F I N I SC 


07162 


CNT5 


02651 


I OPT 


00532 


RM 


02717 


SCTEST 


01178 


FINISP 


07218 


COMPE 


04362 


IORT 


00565 


SA1 


11661 


SECTOR 


18000 


FOR WAR 


07082 


COM 


05426 


I 


02758 


SA2 


11675 


SEQUEN 


02627 


MAPTAB 


04800 


C0N1 


07408 


JACK 


07412 


SAFCF 


05494 


SPECAL 


05686 


MONCAL 


00796 


CONT 


01094 


LI 


03434 


SAV 


02965 


SVSCAL 


00475 


N48000 


06516 


COUNT 


06102 


LAST 


02615 


SC 


11643 


TFWRIT 


05810 


NAMOUT 


06085 


DATAT 


06116 


L00P3 


04478 


SENT 


00004 


TYPENO 


01462 


NEWOIM 


07161 


DMDDA 


06468 


LOOP 


02716 


SETUP 


03282 


TYPSEC 


07141 


NUMOUT 


06083 


DUMP 


02500 


LORM 


02906 


SPL 


02778 


TVPNRT 


05510 


A10 


03446 


OUMSW 


07114 


LONER 


07152 


STFLG 


04670 


ZER012 


07299 


Al 


03654 


DUMSV 


07122 


L 


04614 


TD1 


01954 






A2 


03770 


EENT 


00002 


MCS 


17778 


TO 


05190 






A3 


03814 


EQUIV 


16000 


MENT 


00001 


TEMAP 


04974 






A4 


03882 


ERMAP 


05294 


NAME 


04278 


TEN 


07460 







END OF ONE ASSEMBLY. 
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00020 ••• 

00010 ••• SUBROUTINES- OtNfUR.GETR.GETL.RENOVftlNSfRT.FINO 

00040 ••• THIS VIM 10* OPERATES MITH TNI SPl HURTS tM CORI TIL JUST 

00090 ••• BEFORE TMC RCTURM TO THf MOM I TOR 



000*0 


• •• 














000 TO 


• •• 














00080 




DORG 


2*58 


02491 








00090 


I0PT 


DS 


.532 


00932 




0 




00100 


IOGT 


OS 


t5** 


0094* 




0 




00110 


IORT 


OS 


• 565 


00949 




0 




00120 


DIMNTR 


TP 


CAIC 2 •MEMOIR 


02499 


2* 


02*13 


09*49 


00130 




A 


CALC2.CALC2 


02470 


21 


02*13 


02411 


00140 




TF 


CALC3.M48000 


02492 


14 


02*09 


02424 


00150 




A 


CALC3.CALC2, »NEM DIM SECTOR AOORESS 


02444 


21 


02*08 


02413 


00160 




TF 


DMREA0+13.DRESTR 


0290* 


2* 


02*01 


02418 


00 1 TO 




TD 


•♦23.CALC3 


02919 


29 


02941 


02408 


001 to 




SM 


OMR E AD* 12 1 0« 10 1 ADJUST 0|M REAOER S A 


02590 


12 


02*00 


000-0 


00190 




TF 


OMAEAO*5,CALC3-l 


02542 


2* 


02993 


02407 


00200 




TF M 


10AT,»*23 


02954 


I* 


009*5 


-2577 


00210 




6 


IOGT,0M00A.T 


025** 


49 


005** 


-2580 


00220 




88 




029T9 


42 


00000 


00000 


00230 




DOAG 


•-9 


02580 








00240 


OMOOA 


OSC 


2,22,.ODA FOR DIMMER-READS OME SECTOR 


02590 




2 








22 












00290 




OSA 


OMREAO 


0259* 




5 


X 1 










0299* 




-2598 




002*0 




OSC 


1»» 


02597 




1 




00270 


DWREAD OSC 


1,0 


02598 




1 




00290 




oc 


5,0 


02593 




5 








-0000 










00290 




DC 


3,1 


0259* 




5 








-01 












00300 




OC 


9*19900 


02401 




5 








J 9900 










003 10 




DSC 


l,« 


02*02 




I 




00320 


CALC3 


OC 


6,0 


02*08 




6 








-00000 










00330 


CALC2 


OC 


5,0 


02*13 




5 








-0000 










00340 


DAE STR 


DC 


5, 19980, .RESTORES CORE ADDRESS FOR DIM DOA 


02618 




5 








J9880 










00350 


N48000 


OC 


6,048000, .FIRST SECTOR OF OIM MAF 


0262* 




6 








-48000 










00 360 


C0RS1Z 


DC 


3,080., THE PRESENT LENGTH OF THE SPL 


02627 




3 








-80 


2,02,, DOA FOR SAVING CORE WHEN MOVING THE EQV. TA8LE 










00370 


THROOA 


DSC 


02*28 




2 








02 












00380 




OSA 


THROWS 


02*34 




5 


X 1 










02634 




-2636 




00390 




DSC 
• 


l.« 


02635 




I 
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00400 


THROWS 


OSC 


1,0 


02636 




I 








0 
OC 


9,02000 


02641 




5 








-2000 










00420 




OC 


3,100 


02644 




3 








JOO 












00430 




DC 


5,09800 


02649 




$ 








-9800 










00440 




OSC 
• 




02650 




1 




00490 


0 1 WEAR 


OAC 


13,DUP»ERR0R 00* 


02653 




13 


X 2 






DUP»EAAOA 00 • 










00460 




TFM 


DIMERR*22,007l,S 


026T8 


1* 


02675 


0-071 


004T0 


EAAO 


AC TV 




02690 


34 


00000 


00102 


00480 




MATY 


DIMERR 


02702 


39 


02653 


00100 


00490 




M 




02714 


4f 


00000 


00000 


00500 




8 


796,,,M0NCAL 


02726 


49 


00796 


00000 


00510 




OORC 


•-3 


02734 








00520 


PKODOA 


DSC 


2,22,, OOA FOR SPL ON MODULE ZERO 


02734 




2 








22 












00530 




DSA 


SPLPKO 


02740 




j 


X 1 










02740 




-2742 




00540 




DSC 


If* 


02741 




1 




00550 


SPLPRO 


OSC 


1.1 


02742 




1 




00560 




1 

OC 


5,19801 


02747 




5 








J9801 










00570 




OC 


3,100 


02750 




3 








JOO 












00580 




OC 


5,09800 


02755 




5 








-9800 










00590 




OSC 
« 


1 . • 


0275* 




I 




00*00 


PR 1 DO A 


OSC 


2,22,, DOA FOR SPL ON MODULE ONE 


02757 




2 








22 












00*10 




DSA 


SPLPKl 


02743 




5 


X 1 










02743 




-2745 




00*20 




DSC 
• 


It* 


02744 




I 




00*30 


SPLPR1 


DSC 


1.3 


02749 




I 




00*40 




3 

DC 


5,39801 


02770 




5 








19801 










00*50 




OC 


3,100 


02773 




3 








JOO 












00**0 




OC 


5,09900 


02778 




5 








-9800 










00*70 




OSC 




02779 




1 




00*80 


PR20DA 


OSC 


2,22, , DOA FOR SPL ON MODULE TWO 


02780 




2 








22 












00*90 




OSA 


SPLPK2 , 


0278* 




9 


X 1 



1 033 



-A 
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0270* 


-2700 


00700 




DSC 1 • * 




02717 


1 


00710 


SPLPK2 


OSC 1.5 




02710 


1 


00720 




DC 9 » 5*001 


02793 


5 






N9801 








00710 




DC 3,100 




02796 


3 






J00 








00740 




DC 5,09000 


02001 


5 






-MOO 








00750 




OSC l,« 




02002 


1 


00760 


PK3DDA 


OSC 2,22, , ODA FOR SPL ON NODULE THREE 


02003 


2 






22 








00770 




DSA SPLPK3 


02809 


3 X 










02009 


-2011 


00780 




DSC 1,» 




02010 


1 


00790 


SPLPK3 


DSC 1,7 




028U 


1 


oosoo 




DC 5,79001 


02816 


5 






P9801 








008 10 




DC 3,100 




02819 


3 






JOO 








00820 




DC 5.09800 


02824 


5 






-9800 








00030 




DSC i,« 
* 




02825 


1 


00840 


CLEVER 


DC 2,0 




02827 


2 


00850 


BAVAIL 


-0 

DC 3,0,, 


OTAL BLANKS FOUND IN MOVE 


02830 


3 






-00 








00860 


FOUND 


DC 5,0,, 


FINDS SECTOR TOTAL 


02835 


5 






-0000 








00870 


AORSPL 


DC 5,0 


,, ADDRESS OF THE SPLIST CORE SEARCH POINT 


02840 


5 






-0000 








00880 


SPLCYL 


DC 5,0,, 


CYLINDER SPL 


02845 


5 






-0000 








00890 


SPLCOR 


DC 5,0,, 


DIM ADDRESS SPL 


02850 


5 






-0000 








00900 


REPACK 


DC 2,0 




02852 


2 


00910 


UNPACK 


-0 

OC 2,0 




02854 


2 


00920 




-0 

DC 1,0,, 


PACK CONTINUED 


02855 


I 


00930 


PACK 


DC 1,9., 


PACK NUM FOR SPLIST 


02856 


1 


00940 




R 

DC l,« 




02857 


1 


00950 


CALC9 


DC 6,0 




02863 


6 






-00000 








00960 


CALC4 


DC 4,0,, 


CALCULATION AREA 


02867 


4 
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00970 


HEX 


DSC 


1,0 


02868 




I 




00980 


C0NST1 


0 

DC. 


6,0,, WORK AREAS 


02874 




6 








-00000 










00990 


C0NST2 


DC 


6,0,, 


02880 




6 








-OOOQO 










01000 


QCARRY 


DC 


6,0, .WHERE TO LOAD NEXT MOVEO SECTORS 


02886 




6 








-00000 










01010 


OHOLD 


DC 


6.0 


02892 




6 








-00000 










01020 


C0NST5 


DC 


6.0 


02898 




6 








-00000 










01030 


C0NST6 


DC 


6.0 


02904 




6 








-00000 










01040 


C0NST7 


DC 


6,0 


02910 




6 








-00000 










01050 


RACKET 


DC 


4,0, , ACCUMULATES 200 SECTORS FOR A CYLINDER 


02914 




4 








-000 












01060 


STEAL 


OC 


4,0 


02918 




4 








-000 












01070 


CALC7 


DC 


3,0 


02921 




3 








-00 












01080 


FAKSEV 


OC 


4,0,, MAS SEVEN FROM LISTER 


02925 




4 








-000 












01090 


COMMON 


DC 


1,0 


02926 




1 




01100 


NOMMON 


DC 


2,0 


02928 




2 




oiuo 


NOSECA 


-0 
DC 


1,0 


02929 




1 




01120 


C0NST8 


OC 


5,0 


02934 




5 








-0000 










01130 


ERRRIT 


TFM 


OIMERR+22,7179,8 


02936 


16 


02675 


0P179 


01140 




8 


ERRO 


02948 


49 


02690 


00000 


01150 




DORG 


•-3 


02956 








01160 
















01170 


• •• 


SU8R0UT I NE-GETR SHIFTS ONE TO RIGHT IN SPL 










01180 


• •• 














01190 


CETRTR 


TF 


CALC2 , SPLCOR , , LEFT PRESENT SPL C.A. 


02996 


26 


02613 


02850 


01200 




AM 


SPLCOR.04,10, LEFT END NEW ENTRY 


02960 


11 


02850 


000-4 


01210 




SF 


SPLCOR,, 6, NEW FLAG 


02980 


32 


0285- 


00000 


01220 




AM 


CALC2, 07.10, RIGHT END OF NEW ENTRY 


02992 


11 


02813 


000-7 


01230 




TF 


LISTER.CALC2.il 


03004 


26 


09654 


026 1L 


01240 




CF 


SPLCOR t. 6 


03016 


39 


0283- 


00000 


01250 




88 




01028 


42 


00000 


00000 


01260 




DORG 


•-9 


09030 








01270 


• •• 














01280 


• •• 


SUBROUT INE-GETL SHIFTS ONE TO LEFT IN THE SPL 










01290 


• •• 














01300 


GETLTR 


TF 


CALC2. SPLCOR 


03030 


26 


02613 


02890 


01310 




SM 


SPLCOR, 04, 10. FELT ENO OF NEW ENTRY 


03062 


12 


02050 


000-4 


01320 




SF 


SPLCOR, ,6, 


09094 


32 


O203-* 


00000 


01330 




SM 


CALC2.01. 10, RIGHT ENO NEW ENTRY 


0904* 


12 


02413 


000-1 


01340 




TF 


L ISTER.CALC2.il 


09070 


24 


09494 


0241L 


01350 




CF 


SPLCOR. .6 


09090 


99 


0205- 


00000 


01360 




SB 




09 tOt 


42 


00000 
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OIUO 




DORG 


•-9 


03104 








01380 


• • ■ 














01 390 


• • a 


SUB ROUT I NE- RE WOVE REMOVES AN ENTRY FROM SPL 










01400 
















01410 


REMOTR 


TF 


CALC2 t SPLCOR 


03104 


26 


02613 


02850 


01420 




AM 


CALC2,04,10, 


03116 


11 


02613 


000-4 


01430 




TR 


SPLCOR, CALC2, 611, CLOSES HOLE 


03128 


31 


0285- 


0261L 


0 1440 




SF 


SPLCOR, ,6 


03160 


32 


0285- 


00000 


01450 




SM 


CAIC2.01.10 


03192 


12 


02613 


000-1 


01460 




1 (• 


LISTER, CALC2.ll 


03166 


26 


09654 


0261L 






CF 


SPLCOR, ,6 


03176 


33 


0285- 


00000 


0 1480 




BR 




03188 


42 


00000 


00000 


01490 




DORG 


• -9 


03190 








0 isuo 


• •• 














01510 


• •• 


SUBROUTINE-INSERT INSERTS AN ENTRY IN THE SPL 


























01510 


I NSF TR 


SF 


SPLCOR, ,6 


03 190 


32 


0285- 


00000 


J 




! ^ M 


•♦35,09800,7 


03202 


16 


03237 


-9800 


0 1550 




AM 


• ♦23,04, 10 


03216 


U 


03237 


000-4 


0 1 560 


TIPSY 


RNR 


•-12,99999,, FINOS RECORD HARK IN SPL 


03226 


45 


03214 


99999 


015 m 




I *- 


C0NST2.TIPSY*ll 


03238 


26 


02880 


03237 






AM 


C0NST2.04.10 


03250 


11 


02880 


000-4 


0 1 590 




TF 


CONST3.C0NST2,, 


03262 


26 


05130 


02880 


01600 




SM 


CONST3,09800,7 


0 3274 


12 


05130 


-9800 






C 


CONST3-2.CORSI2., IS THERE ROOM FOR ANOTHER ENTRY 


03286 


24 


05128 


02627 


01620 




Bl 


NERR 


03298 


47 


03354 


01300 






RCTY 




03310 


34 


00000 


00102 






WNTY 


PACK 


03322 


38 


02856 


00100 


OlobO 




TFM 


0IMERR422, 7178,8, THE SPL IS FULL MESSAGE 


0 3334 


16 


02675 


0P178 


0 1 660 




B 


ERRO 


03346 


49 


02690 


00000 






DORG 


• -3 


03354 








01680 


NERR 


TF 


C0NST2,TlPSY*ll,6lt, OPENS A HOLE IN THE LIST 


03354 


26 


0288- 


0323P 


0 1 690 




TF 


CALC2, SPLCOR 


0 3366 


26 


02613 


02850 






AM 


CALC2,03,10 


03378 


1 1 


02613 


000-3 


01 no 




TF 


CALC2 »L I STE T ,6 


03390 


26 


0261L 


09665 


01720 




CF 


SPLCOR, ,6, 


03402 


33 


02 85- 


00000 


0 1 7 30 




AM 


SPLCOR, 4, 10, 


03414 


1 1 


02850 


000—4 






CF 


SPLCOR, ,6 


03426 


33 


0285- 


00000 


ni 7<; 0 
01750 




BB 




03438 


42 


00000 


00000 


0 1 760 




DORG 


• -9 


03440 
























ni 7»n 


• •• 


SUBROUTINE-FIND GIVEN A SECTOR AODRESS THE LISTER 










ran 




IS INITIALIZED TO COVER THAT ADDRESS 










in 

01800 


*** 














0 I ft 1 0 


F IND R 


CF 


LISTES-4 


0 3440 


33 


09657 


00000 


0 18 2 0 




SF 


LIST6S-5 


03452 


32 


09656 


00000 


01830 




Tr 


19885, LISTES,, ACCEPTS SECTQR ARGUMENT 


03464 


26 


19885 


09661 


01840 




B 


SPLIST 


0 3476 


49 


03956 


00000 


01850 




DORG 


• -3 


0 3484 








01860 


SPLEXT 


MM 


SPLCOR, 200, 69, RETURNS WITH CYLINDER IN LISTER 


03484 


13 


0285- 


OOKOO 


01870 




SF 


95 


03496 


32 


00095 


00000 


01880 




TF 


ADRSPL,99 


0 3508 


26 


02840 


00099 


01890 




SM 


ADRSPL.Ol ,10 


03520 


12 


02840 


000-1 


01900 




MM 


LI STES-4,05, 10 


03532 


13 


09657 


000-5 


01910 




TDM 


LISTES-4, I, U 


03564 


15 


09657 


OOOOJ 


01920 




BO 


•♦24,99 


03556 


43 


03580 


00099 
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01930 




TDM 


LISTES-4, 0,11 


03568 


15 


0965 7 


0000- 


01940 




SM 


SPLCOR, 03, 10, SET AT HIGH ORDER OF LIST IN CORE 


03580 


12 


02850 


000-3 


01950 




CF 


SPLCOR, ,6 


03592 


33 


0285- 


00000 


01960 


TRY AGN 


TF 


CALC2, SPLCOR,, LEFT PRESENT SPL C.A. 


03604 


26 


02613 


02850 


01970 




AM 


SPLCOR, 04, 10, LEFT END NEW ENTRY 


03616 


11 


02850 


000-4 


01980 




SF 


SPLCOR, ,6, NEW FLAG 


03628 


32 


0285- 


00000 


01990 




AM 


CALC2,O7,10,RIGHT END OF NEW ENTRY 


03640 


11 


02613 


000-7 


02000 




TF 


LISTER, CALC2, 11 


03652 


26 


09654 


0261L 


02010 




CF 


SPLCOR, ,6 


03664 


33 


0285- 


00000 


02020 




CM 


LISTER-3,9, 1011 


03676 


14 


09651 


000-R 


02030 




BE 


ADOBLK 


03688 


46 


03912 


01200 


02040 




CM 


LISTER, 0001 , 8 , IF WORK AREA EXIT 


03700 


14 


09654 


0-001 


02050 




BE 


PI USSR+24 


03712 


46 


03892 


01200 


02060 




TF 


NEWDIM, LISTER 


03724 


26 


09649 


09654 


02070 




BT 


DIMMER, DIMMER-l 


03736 


27 


09600 


09599 


02080 




TDM 


19880,0,11 


03748 


15 


19880 


0000- 


02090 




MM 


19881,05,1011 


03760 


13 


19881 


000-N 


02100 




TDM 


19881,1,11 


03772 


15 


19881 


OOOOJ 


02110 




BD 


•♦24,99,, MATCH-UP THE TENTHOUSANDS POSITION 


03784 


43 


03808 


00099 


02120 




TDM 


19881,0,11 


03796 


15 


19881 


0000- 


02130 




SM 


19885,01 , 10 


0 3808 


12 


19885 


000- 1 


02140 




S 


19885, ADRSPL 


03820 


22 


19885 


02840 


02150 




BE 


• ♦24 


03832 


46 


03856 


01200 


02160 




A 


ADRSPL, 19885,, SUBTRACTS THE 8ACKFL0W 


03844 


21 


02840 


19885 


02170 




A 


ADRSPL, 19888,, ADD THE SECTOR COUNT TO SECTOR POSITION 


03856 


21 


02840 


19888 


02180 


PLUSSR 


C 


ADRSPL, LISTES 


03868 


24 


02640 


09661 


02190 




BL 


TRY AGN 


03880 


47 


03604 


01300 


02200 




TF 


FOUND, AORSPL 


03892 


26 


02835 


02840 


02210 




B 


GOO N Y 


03904 


49 


09638 


00000 


02220 




DORG 


• -3 


03912 








02230 


AODBLK 


SF 


LISTER-2,,, AOO THE BLANK SECTOR COUNT 


03912 


32 


09652 


00000 



02240 ••• 
02250 
02260 *•• 
02270 ••• 
02280 
02290 
02300 
02310 

02320 SPLIST 

02330 

02340 

02350 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 SPLINI 



ROUTINE FOR LOCATING THE CORRECT SPL IN CORE ANO 
DIRECTING THE LISTER TO THE CORRECT CVLINOER ENTRY 



A 


ADRSPL, LISTER 


0 3924 


21 


02840 


09654 


CF 
B 


LISTER-2 


03936 


33 


09652 


00000 


PLUSSR 


03948 


49 


03868 


00000 


DORG 


•-3 


03956 








TDM 


19880, ,11, FLAG ZERO 


03954 


15 


19880 


0000- 


MM 


19885,05,10 


03968 


13 


19885 


000-5 


SF 


94,,, DESIRED CYLINDER 


03980 


32 


00094 


00000 


SF 


93 


03992 


32 


00093 


00000 


TO 


STARDT*10,95 


04004 


25 


04174 


00095 


TO 


STARDT+11,96 


04016 


25 


04175 


00096 


TF 


REPACK, 94 


04028 


26 


02852 


00094 


MM 


LISTES-5,05,10 


04040 


13 


09656 


000-5 


BD 


•♦32, 99,, SIGNIFICANT OVERRIDE CODE 


04052 


43 


04084 


00099 


TF 


94, REPACK 


04064 


26 


00094 


02652 


B 


REDSPL 


04076 


49 


04220 


00000 


DORG 


•-3 


04014 








MM 


LlSTES-5,50000,7, GENERATE PROPER MODULE FROM OVERIOC CODE 


04084 


13 


09656 


NOOOO 


SF 


94 


04096 


32 


00094 


00000 


B 


REDSPL 


04108 


49 


04220 


00000 


DORG 


•-3 


04U6 








TFM 


ADRSPL, 09800 


0411* 


16 


02840 


-9800 



n 



1036 



1*20 MONITOR I DUI» ROUT INI Of PIN 



RAGE T 



02490 


CLUCK 


SF 


ADRSPL, (4 










04128 


32 


0284- 


00000 


02%00 




TF 


SPLCOR. ADRSPL 










04140 


24 


02850 


02840 


02910 




AM 


SPLCOR, 03, 10 










04192 


11 


02850 


000-1 


02520 


STARDT 


CM 


SPIC0R.7000.AB, EI NO THE 


CORRECT 


CYLINDER ENTRY 


04144 


14 


0285- 


OP 000 


02520 




BE 


SPLEXT 










04174 


44 


01484 


01200 


02540 




CF 


ADRSPL, ,6 










041B8 


13 


0284- 


00000 


02550 




AM 


ADRSPL, 04, 10 










04200 


If 


02840 


000-4 


02540 




B 


CLUCK 










04212 


49 


04128 


00000 


02570 




DORG 


•-3 










04220 








02580 


• •• ROUTINE TO WRITE BACK LIST ALREADY 


IN CORE IF 


ucrecciiv 










02590 


Rf DSPL 


C 


94, PACK 










04220 


24 


00094 


02854 


02600 




BE 


SPLINT 










04232 


46 


04116 


01200 


026 10 




CM 


PACK, 09, 1011, FIRST TRIP 










04244 


14 


02856 


000-R 


02620 




TF 


UNPACK, 94 










04256 


26 


02854 


00094 


02630 




HE 


SPORT 










04268 


46 


04480 


01200 


02640 




CM 


PACK, 00, 1011, PACK ZERO 










04280 


14 


02856 


ooo — 


02650 




BE 


WRTSPO 










04292 


46 


04160 


01200 


02660 




CM 


PACK, 01, 1011, PACK ONE 










04304 


14 


02856 


000- J 


02670 




BE 


WRTSPl 










04316 


46 


04392 


01200 


02680 




CM 


PACK, 02, 1011, PACK TWO 










04328 


14 


02856 


000-K 


02690 




BE 


WRTSP2 










04340 


46 


04424 


01200 


02 700 




B 


WRTSP3, , , PACK THREE 










04352 


49 


04456 


00000 






OORG 


•-3 










04360 








02720 


WRTSPO 


TFM 


I0RT,»*23 










04360 


16 


00565 


-4383 


02730 




B 


10PT,PK0DDA,7 










04372 


49 


00532 


-2734 


02 740 




8 


SPORT 










04384 


49 


04480 


ooooo 






OORG 


• -3 










04392 










WRTSPl 


TFM 


I0RT,»*23 










04392 


16 


00565 


-4415 


02 770 




B 


I0PT,PKIDDA,7 










04404 


49 


00532 


-2757 


02 780 




8 


SPORT 










OA 4 16 


49 


04480 


OOOOO 






OORG 


• -3 










04424 








02800 


WRTSP2 


TFM 


IORT,»*23 










04424 


16 


00565 


-4447 






8 


I0PT,PK2DDA,7 










04436 


49 


00532 


-2780 


02820 




B 


SPORT 










04448 


49 


04480 


OOOOO 






DORG 


•-3 


















02840 


WRTSP3 


TFM 


I0RT,»*23 










04456 


16 


00565 


-4479 


02850 




B 


I0PT,PK3DDA, 7 










04468 


49 


00532 


-2803 




• • » 


ROUTINE TO BRING IN DESIRED SPL 


IF 


NOT ALREADY IN CORE 










02870 


SPORT 


TF 


PACK , UNPACK SAVE PACK NUM 








04480 


26 


02856 


02854 






TO 


CLEVER, USTES-4 










04492 


25 


02827 


09657 


02 890 




SF 


CLEVER 










04504 


32 


02827 


OOOOO 


02900 




MM 


LISTES-4, 05, 10 










04516 


13 


09657 


000-5 






BD 


•♦24,99 










04528 


43 


04552 


00099 


02920 




SM 


CLEVER, 01 ,10 










04540 


12 


02827 


000-1 


029 30 




CM 


PACK, 0,1011, PACK ZERO 










04552 


14 


02856 


ooo — 






BE 


REOSPO 










04564 






0 1 200 


02950 




CM 


PACK, I, 1011, PACK ONE 










04576 


14 


02856 


000- J 


02960 




BE 


REDSP1 










04588 


46 


04712 


01200 


02970 




CM 


PACK , 2,1011, PACK TWO 










04600 


14 


02856 


000-K 


02980 




BE 


REOSP 2 










04612 


46 


04 756 


01200 


02990 


REOSP 3 


TD 


SPLPK3+1 .CLEVER 










04624 


25 


02812 


02827 


03000 




TFM 


10RT,«*23 










04636 


16 


00565 


-4659 


03010 




ft 


I0GT,PK3DDA,7 










04648 


49 


00566 


-2803 


03020 




B 


S°LINI 










04660 


49 


04116 


OOOOO 


03030 




OORG 


• -3 










04668 








03040 


REO SPO 


TO 


SPLPKO+l, CLEVER 










04668 


25 


02743 


02827 
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PAGE 






TFM 


I0RT,»*23 










04680 




00565 


—4703 


03060 




B 


I0GT,PK00DA,7 












49 




—2734 






B 


SPLINI 










04704 


49 


041 16 


OOOOO 


030BO 




DORG 


•-3 










047 1 2 












TO 


SPL PKl*i, CLEVER 










04712 


25 


02766 


02827 


03100 




TFM 


IORT,»*23 












io 










B 


IOGT,PK1DOA,7 














00566 


-2757 






B 


SPLINI 










' ... 


49 


04 116 


nnnnn 


nil an 




DORG 


• -3 


















03140 


REOSP 2 


TO 


SPLPK2+1, CLEVER 










04756 


25 


02789 


02827 


03150 




TFM 


I0RT,«+23 










04768 


16 


00565 


-4791 


03160 




8 


IOGT,PK2DDA,7 










04780 


49 


00566 


-2780 






B 


SPLINI 










04792 


49 


041 1 6 


OOOOO 


03180 




DORG 


• -3 










04800 








03190 


• •• 


ROUTINE TO LOAD THE SACRED SIX 


TO DISK WHEN LOADING FROM CAROS 










03200 




TFM 


I0RT,»*23 










04800 


16 


00565 


-4823 






B 


IOPT,SPLR2,7 










04812 


49 


00532 


—4863 


03220 




TRA 
















nnnnn 




















04836 


49 


00000 


OOOOO 


03230 


SPLR1 


DSC 


1,1 










04848 




1 




03240 




DC 


5,19338 










04853 




5 








J9338 


















03250 




DC 


3,025 










04B56 




3 




03260 




-25 
OC 


5,02458 










04861 




5 








-2458 


















03270 




DSC 


1, • 










04862 




I 




03280 


SPLR2 


DSC 


2,22 










04863 












22 
DSA 


SPLR1 










04AA4 




5 


X 1 


















04869 




-4848 








DSC 












04R70 




1 




03310 




TCD 


SPLFL 










04800 
































03330 


• 




DOOO EEEEE FFFFF 


III 


N 


N 


EEEEE 










03340 


• 




0 DD E F 




Nl 


4 H 


E 










03350 


• 




D D EEEE FFFF 


I 


N 


N N 


EEEE 












• 




D DD E F 


I 


N 


NN 


E 












• 




DOOO EEEEE F 


111 


N 


N 


EEEEE 












• •• 






















03390 


• 


THE DEFINE PROGRAM FOR REDEFINING THE SYSTEM 


PARAMETERS 










03400 
























03410 




DORG 


5000 










05000 








03420 




TDM 


13775,00000 










05000 


15 


13775 


OOOOO 


03430 




DC 


us» 










05011 




1 




03440 




TR 


9336, 13412,, TRANSMIT THE DEFINE 


CONTROL CARO 


05012 


11 


09116 


13612 


03450 




TFM 


IORT,«*23 










05024 


14 


00545 


-5047 


03460 




B 


I0GT,SLIPRV,7, BRING IN 


THE 


SECONOARY 


LINKAGE 


05014 


49 


00544 


-5056 


03470 




B 


DFINE 










05048 


49 


05174 


OOOOO 


03480 




DORG 


•-3 










05054 









1 039 



f 040 
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0 3*90 


SL I PRY 


osc 


2. 


22ft DDA FOR THE SACRED SIX SECONDARY 


LINKAGE 


0*034 


2 






22 












03*00 




DSA 


TABC 




05042 


5 














05042 


-5064 


03510 




DC 


It 






05043 


1 


03520 


TABC 


DSC 


1. 


1 




05044 


1 


03530 




1 

DC 


5, 


1819? 




05049 


5 






J8197 










03540 




DC 


3. 


003 




05072 


3 






-03 












03550 




DC 


6. 


09500* 




05078 


6 






-9500' 












TRHSL 0 


DSC 


2, 


22.. DOA FOR SHIFTING THE EQUIVALENCE 


LIST 


05079 


2 






22 












03570 




DSA 


SLDEQV 




05085 


5 














05085 


-5087 


03580 




DC 


1, 






05086 


1 


03590 


SLD6QV 


DSC 


1 • 


,0 




05087 


1 


03600 




0 

DC 


5, 


,0 




05092 


5 






-0000 










03610 




DC 


3, 


,060 




05095 


3 






-60 












03620 




DC 


5, 


,09800 




05100 


5 






-9800 














DC 
« 


1< 






05101 


I 


03640 


TRWTLD 


DSC 


2, 


,02.. ODA FOR SHIFTING THE EQUIVALENCE 


LIST 


05 102 


2 






02 












03650 




OSA 


TLDEQV 




05108 


5 














05108 


-5110 


03660 




nc 


1 , 






05109 


1 


03670 


TLDEQV 


DSC 


I, 


.0 




05110 


I 


03680 




0 

DC 


5, 


,0 




05115 


5 






-0000 










03690 




DC 


3, 


,060 




05118 


3 






-60 












03700 




DC 


5 


,09800 




05123 


5 






-9800 










037 10 




DC 


1, 


t » 




05124 


1 


03720 


C0NST3 


DC 


6 


• 0 




05130 


6 






-00000 










03730 


ZEROES 


DC 


10,0 




05140 


10 






-000000000 








03740 




DSC 


2 


,0. .EXTENSION OF ZEROES 




05141 


2 






00 












03750 


CUR REN 


DC 


3, 


,0 




05145 


3 



1620 MONITOR 



OUP ROUTINE OEFIN 



03760 


LIMIT 


DC 


3,099 


05148 




3 








-99 












03770 


KEY 5 


DSC 


1,0 


05149 




I 




03780 


DUPCRD 


0 

DSS 


162,9337 


09337 




162 




03790 


S ARB 


DSC 


2,22.. DDA FOR COMMUNICATION SECTOR ON DISK 


05150 




2 




03800 




22 
DSA 


SARC 


05156 




5 


X I 










05156 




-5158 




03810 




DC 


1 , • 


05157 




1 




03820 


SARC 


DSC 


1.1 


05158 




1 




03830 




1 

DC 


5,19639 


05163 




5 








J9639 










03840 




DC 


3,001 


05166 




3 








-01 












03850 




DSA 


OFINE 


05171 




5 


X 1 










05171 




-5174 




03860 




DC 


1,» 


05172 




1 




03870 


OFINE 


TFM 


NEHDIM,0004,8 


05174 


16 


09649 


0-004 


03880 




BT 


DIMMER , DIMMER- 1 


05186 


27 


09600 


09599 


03890 




TF 


C0RSI2, 19888 


05198 


26 


02627 


19888 


03900 




TD 


CALC9,DUPCR0*22,. STARTING SECTOR FOR WORK AREA 


05210 


25 


02863 


09359 


03910 




TD 


CALC9-l,0UPCR0*20 


05222 


25 


02862 


09357 


03920 




TD 


CALC9-2,0UPCRD*18 


05234 


25 


02861 


09355 


03930 




TO 


CALC9-3,0UPCR0*16 


05246 


25 


02860 


09353 


03940 




TD 


CALC9-4,0UPCR0*14 


05258 


25 


02859 


09351 


03950 




TD 


CALC9-5,0UPCRD*12 


05270 


25 


02858 


09349 


03960 




SF 


CALC9-5 


05282 


32 


02858 


00000 


03970 




SF 


DUPCRO*ll 


05294 


32 


09348 


00000 


03980 




C 


DUPCRD*22,ZER0ES*2,, WAS THIS FIELD BLANK 


05306 


24 


09359 


05142 


03990 




BNE 


SANDOR 


05318 


47 


05402 


01200 


04000 




TFM 


NEWOIM.0001,8 


05330 


16 


09649 


0-001 


04010 




BT 


DIMMER, OIMMER-l,, BRING IN WORK AREA DIM 


05342 


27 


09600 


09599 


04020 




TF 


CALC9, 19885 


05354 


26 


02863 


19885 


04030 




CF 


CALC9-4 


05344 


33 


02859 


00000 


04040 




TD 


CALC9-5, 19880 


05378 


25 


02856 


19860 


04050 




SF 


CALC9-5 


05390 


32 


02858 


00000 


04060 


SANDOR 


MM 


CALC9,05.9,USE0 FOR CYLINDER NUMBER ALSO 


05402 


13 


02863 


00-05 


04070 




80 


ERR0R1.97,,IS START OF SCRATCH AT BEGINNING OF CYLINDER 


05414 


43 


05696 


00097 


04080 




BD 


ERROR 1,98,, 


05424 


43 


05696 


00096 


04090 




BD 


ERROR 1,99,, 


05438 


43 


05696 


00099 


04100 


LENSCT 


TD 


CALC4-1 , DUPCRD* 30, , NUMBER OF CYLINDERS REQUESTED 


05410 


21 


02666 


09367 


04110 




TO 


CALC4-2,DUPCR0*28 


05442 


21 


02665 


09345 


04120 




TO 


CALC4-3,0UPCR0*26 . 


0S4T4 


21 


02664 


09343 


04130 




SF 


CALC4-2 


05484 


12 


02661 


00000 


04140 




SF 


0UPCR0+2S 


01488 


32 


08162 


00000 


04150 




C 


OUPCRD*»0,flR0lS-4 f , MAS THIS FIELD BLANK 


OHIO 


14 


08167 


01114 


04160 




8NE 


INUPF 


05112 


47 


04024 


01200 


04170 




C 


0UPCR0*22,ZIR0IS*2 


01814 


24 


08118 


01142 


04180 




BE 


ESOR 


01144 


44 


04110 


01200 


04190 




TFM 


NEWDIM, 0001,8 


01118 


14 


09449 


0-001 



/ 



1042 
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0*200 




8T 


DIMMER. DIMNER-l 


05570 


27 


09600 


09599 


04210 




TF 


CALC4-1, 19888,, SAVE OLD CYLINOER COUNT 


05582 


26 


02866 


19688 


04220 




SF 


CALC4-2 


05594 


32 


02665 


00000 


04290 


PKROQM 


TF 


CURREN, LIMIT 


05606 


26 


05145 


05148 


04240 




SF 


CURREN-1 


05618 


32 


05144 


00000 


04250 




SF 


95 


05630 


32 


00095 


00000 


04260 




S 


CURREN, 96,, TO FIND ALLOWABLE CYLINDERS LEFT 


05642 


22 


05145 


00096 


04270 




C 


CALC4-1, CURREN 


05654 


24 


02866 


05145 


04280 




BNH 


ROMENF 


05666 


47 


05718 


01100 


04290 




TFM 


DIMERR*22, 7173,1 


05678 


16 


02675 


0P173 


04)00 




8 


ERRO 


05690 


49 


02690 


00000 


04)10 




OORG 


•-3 


05696 








04320 


ERROR L 


TFM 


DI ME RR*22, 7172,1 


05696 


16 


02675 


OP 172 


04330 




8 


ERRO 


05710 


49 


02690 


00000 


04340 




OORG 


• -3 


05718 








04350 


• • WILL THERE BE ENOUGH ROOM TO MOVE THE WORKING AREA 










04360 


ROMENF 


TF 


LISTES.CALC9 


05718 


26 


09661 


02863 


04370 




TFM 


RLG0NE*30,»*20 


05730 


16 


09644 


-5750 


04380 




8 


FIND 


05742 


49 


09540 


00000 


04390 




DURG 


•-3 


05 750 








04*00 




TFM 


ADRSPL.00,10 


05750 


16 


02840 


000-0 


04*10 


SCRASN 


CM 


LISTER,9200,8, IS THIS AREA AVAILABLE 


05762 


14 


09654 


0R200 


04420 




BE 


• ♦36 


05774 


46 


05810 


01200 


04430 




CM 


LISTER, 0001 f 8 


05786 


14 


09654 


0-00 1 


04440 




BNE 


6RR23 


05 798 


47 


06282 


01200 


04450 




AM 


ADRSFL, 01,10 


05810 


11 


02840 


000-1 


04460 




C 


A0RSPI.CALC4-1,, HAVE ENOUGH CVLINOERS BEEN FOUND 


05822 


24 


02840 


02866 


04470 




BE 


FIXEQV 


05834 


46 


05878 


01200 


04480 




BT 


GETR.GETR-l 


05846 


27 


09520 


09519 






iSJ 


GF TR » GE TR- 1 


i<M>58 


21 


09520 


09519 


04500 




N 


SCRASN 


056/0 


49 


05762 


00000 


04510 




OORG 


• - ) 


05878 








04520 


f ixeav 


TFM 


NEWDIM.1 ,8, SCRATCH ENTRY 


05878 


16 


09649 


0-00 1 


04530 




nr 


DIMMER, DIMMER-i 


05890 


27 


09600 


09599 


04540 




TF 


1 JSTES, 19885 


05902 


26 


0966 I 


19885 


04550 




TO 


LISTES-5, 19880 


05914 


25 


' 656 


19880 


04560 




TFM 


RLG0NE*30,»»20 


05926 


16 


09644 


-5946 


04570 




8 


FIND 


05938 


49 


09540 


00000 


04580 




OORG 


♦-3 


05946 








04590 




TFM 


LISTET,9200,8 


05946 


16 


09665 


0R200 


04600 


DOC 


CM 


LIS TFR ,0001 , 8 , IS THERE MORE WORK AREA TO ERASE 


05958 


14 


09654 


0-001 


046 10 




BNE 


SLEFPY 


05970 


47 


06074 


01200 


04620 




BT 


REMOVE , RE MOVE -I 


05982 


27 


09560 


09559 


04630 




3T 


INSERT, INSERT-1 


05994 


27 


09580 


09579 


04640 




BT 


GETR,GcTR-l 


06006 


27 


09520 


09519 


04650 




B 


ooc 


06018 


49 


05958 


00000 


04660 




OORG 


»- * 


06026 








04670 


ENUFF 


CM 


C4LC4-1, 11,10* ARE THERE LESS THAN ELEVEN CYL INOERS DESIRED 


06026 


|4 


02866 


000J1 


04680 




BNL 


PKROOM 


06038 


46 


05606 


01300 


04690 




TFM 


DjM RR*22,7078,8 


06050 


16 


02675 


0P078 


04 700 




B 


ERRO 


06062 


49 


02690 


00000 


04710 


SLEEPY 


TFM 


t ISTET,0001 ,8 


06074 


16 


09665 


0-001 


04720 




TF 


LISTES.CALC9 


06086 


26 


09661 


02863 


04730 




TFM 


RLGONE+30,»*20 


06098 


16 


09644 


-6118 


04740 




B 


FIND,,, WHERE THE NEW WORK AREA WILL BEGIN 


06110 


49 


09540 


00000 


04750 




DORG 


•-3 


06118 
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04760 




TF 


ADRSPL,CALC4-1 


06118 


26 


02840 


02866 


04770 




CM 


LISTER, 9200, 8 


061)0 


14 


09654 


0R200 


04780 




BNE 


ERR23 


06142 


47 


06282 


01200 


04790 


LUCKY 


BT 


REMOVE , RE MOVE— I 


06154 


27 


09560 


09559 


04800 




BT 


INSERT, INSERT-!,, STUFF IN THE NEW WORK AREA 


06166 


27 


09580 


09579 


04810 




SM 


ADRSPL.01,10 


06178 


12 


02840 


000-1 


04820 




CM 


ADRSPL.00,10 


06190 


14 


02840 


000-0 


048 30 




BNH 


F IXSUP 


06202 


47 


06302 


01100 


04840 


LOUNGE 


CM 


LISTER, 9200 , 8 


06214 


14 


09654 


0R200 


04850 




BE 


LUCKY 


06226 


46 


06154 


01200 


04860 




CM 


LISTER-3, 7,1011 


06238 


14 


09651 


000-P 


04870 




BNE 


ERR23 


06250 


47 


06282 


01200 


04880 




BT 


GETR,GETR-1 


06262 


27 


09520 


09519 


04890 




B 


LOUNGE 


06274 


49 


06214 


00000 


04900 




DORG 


•-3 


06282 








04910 


ERR23 


TFM 


DIMERR*22,7173,8 


06282 


16 


02675 


0P173 


04920 




B 


ERRD 


06294 


49 


02690 


00000 


04930 




DORG 


•-3 


06302 








04940 


F IXSUP 


TFM 


I0RT,«*23,, LET IORT IN ON THE SECRET 


06302 


16 


00565 


-6325 


04950 




B 


I0GT.SARB,7 


06314 


49 


00566 


-5150 


04960 




TF 


00425, CALC9-2,, WORK AREA CHANGED IN COMMUNICATION AREA 


06326 


26 


00425 


02861 


04970 




SF 


00423 


06338 


32 


00423 


00000 


04980 




CF 


00422 


06350 


33 


00422 


00000 


04990 




TF 


DF!NE*23,CALC9-2 


06 362 


26 


05197 


02861 


05000 




SF 


DFINE*2l 


06374 


32 


05195 


00000 


05010 




CF 


DFINE*20 


06386 


33 


05194 


00000 


05020 




TFM 


IORT,«*23 


06398 


16 


00565 


-6421 


05030 




B 


I0PT,SARB,7 


06410 


49 


00532 


-5150 


05040 


NUMMOO 


TFM 


NEWDIM, 0001,8, LET THE DIM TABLE IN ON OUR SECRET 


06422 


16 


09649 


0-001 


05050 




BT 


DIMMER, DIMMER-1 


06434 


27 


09600 


09599 


05060 




TF 


19885, CALC9 


06446 


26 


19885 


02863 


05070 




SF 


19881 


06458 


32 


19881 


00000 


05080 




CF 


19880 


06470 


33 


19880 


00000 


05090 




TF 


19888, CALC4-1 


06482 


26 


19888 


02866 


05100 




CF 


19887 


06494 


33 


19867 


00000 


05110 




TFM 


I0RT,»*23 


06506 


16 


00565 


-6529 


05120 




B 


I0PT,DMD0A,7 


06518 


49 


00532 


-2580 


05130 


ESOR 


SF 


DUPCRD+33,,, HOW ARE WE FIXED FOR NUMBER OF MODULES 


06530 


32 


09370 


00000 


05140 




CM 


DUPCRD*34,00,10 


06542 


14 


09371 


000-0 


05150 




BE 


AAA 


06554 


46 


06660 


01200 


05160 




TO 


CURREN-1, OUPCRO* 34, , THERE WAS SOMETHING THERE 


06566 


25 


05144 


09371 


05170 




CM 


CURREN-1 ,04,10, IS MODULE NUM 4 OR LESS 


06578 


14 


05144 


000-4 


05180 




BH 


• ♦36 


06590 


46 


06626 


01100 


05190 




CM 


CURREN- 1,01,10 


06602 


14 


05144 


000-1 


05200 




BNL 


AAA 


06614 


46 


06660 


01300 


05210 




TFM 


DIMERR^22,7l7l,8 


06626 


16 


02675 


0P171 


05220 




B 


ERRD 


06638 


49 


02690 


00000 


05230 




OORG 


•-3 


06646 








05240 


NEWTOT 


OC 


4.0 


06649 




4 








-000 












05250 


OLDTOT 


DC 


4,0 


06653 




4 








-000 












05260 


ODIM 


OC 


3.0 


06656 




3 




05270 


OEOV 


-00 
OC 


3.0 


06659 




3 
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0S2IO 


AAA 


TO 


CALC4-1 ,DUPCR0+42* t SUING IN DIN SECTOR COUNT 


04660 


25 


02866 


09379 


04290 




TO 


C ALC4-2 ,0UPCR0+40 


0*472 


29 


02B49 


09377 


0)300 




TO 


C ALC4- 3 1 OUPCRD+ 38 


06664 


25 


02866 


09375 


0)310 




SF 


CALC4-3 


06686 


32 


02864 


00000 


05320 




TO 


CAlC7,DUPCRD*50, . RUING IN THE EQV TABLE SECTOR COUNT 


0670B 


29 


02921 


093B7 


0)330 




TO 


C ALC 7- 1 1 DUPCR0*46 


06720 


29 


02920 


09385 


05340 




TO 


CALC 7-2,0UPCR0*46 


06712 


29 


02919 


09383 


05350 




SF 


CALC7-2 


06766 


32 


02919 


00000 


05360 




BRING 


IN OLD DIM AND EQV ENTRIES 










05370 




TFM 


NEWDIM.0002,6 


06796 


16 


09669 


0-002 


0)380 




8T 


DIMMER, OIMMER-1 


0676B 


27 


09600 


09599 


05 390 




TF 


OEQV, 19888 


067B0 


26 


04699 


19B8B 


05400 




TDM 


NEW0IM.3 


06792 


19 


09669 


00003 


054 10 




8T 


DIMMER ,01 MNER-1 


06806 


27 


09600 


09599 


05420 




TF 


ODIM, 19888 


06816 


26 


06656 


19888 


054 30 


• •• 


A LITTLE MATMMETICS TO SEE IF THE DIM FLUS THE EQV 












• •• 


TABLE 


TOTAL HAS INCREASED OR AT LEAST TRYED 














SF 


0UPCRD*45 


0682B 


32 


09382 


00000 






C 


DUPCRD*50,ZER0ES-4,, SHOULD OLD EQV LENGTH BE USED 


06840 


24 


09387 


05136 






BNE 


• ♦24 


06852 


47 


06876 


01200 






TF 


CALC7 tOEQV 


06866 


26 


02921 


06659 






SF 


DUPCR0O7 


06676 


32 


09374 


00000 


nssnn 




C 


D0PCRD+42.2ERnES-4tf SHOULD OLO DIM LENGTH BE USEO 


06888 


24 


09379 


05136 


055 10 




BNE 


• ♦24 


06900 


47 


06924 


01200 


05520 




TF 


CALC4-1,0DIM 


06912 


26 


02866 


06656 


055 30 




TF 


NEWT0T,CALC7 


06924 


26 


06649 


02921 






CF 


NEWTOT-2 


06936 


33 


06647 


00000 


05550 




A 


NEWT0T»CALC4-1 


06948 


21 


06649 


02866 






TF 


OLDTOTt ODIM 


06960 


26 


06653 


06656 


055 70 




CF 


0LDT0T-2 


06972 


33 


06651 


00000 






A 


OLOTOT.OEOV 


06984 


21 


06653 


06659 


05590 




C 


OLDTOTt NEWTOT,, IS THE TOTAL LENGTH OF THE TWO TABLES LONGE 


06996 


24 


06653 


06649 


05600 




BNL 


CONTIN 


07008 


46 


07236 


01300 






S 


NEWTOT.OLOTOT 


07020 


22 


06649 


06653 






TFM 


LISTES. 04800 


07032 


16 


09661 


-4800 






TDM 


LISTES-5,1 


07044 


15 


09656 


00001 






A 


LISTES, OLDTOT 


07056 


21 


09661 


06653 






TFM 


RIGONEOO,»*20 


07068 


16 


09644 


-7088 






B 


FIND,,, FIND THE END OF THE OLO EQV TABLE 


07080 


49 


09540 


00000 






DORG 


•-3 


07088 












TFM 


CONST5,000,8 


07088 


16 


02898 


0-000 






CM 


LISTER-3, 9,1011 


07100 


14 


09651 


000-R 






BNE 


ERROR 8 


07112 


47 


07216 


01200 


05 710 




SF 


LISTER-2 


07124 


32 


09652 


00000 






A 


C0NST5, LISTER 


07136 


21 


02898 


09654 






C 


C0NST5.NEWT0T, , HAVE ENOUGH BLANK SECTORS BEEN FOUND 


07168 


24 


02898 


06649 






BNL 


CONTIN 


07160 


46 


07236 


01300 






BT 


GE TR , GE TR- 1 


07172 


27 


09520 


09519 


05760 




CM 


LISTER-3, 7, 1011 


07186 


14 


09651 


000-P 


05770 




BE 


• -24 


07196 


46 


07172 


01200 


05780 




B 


SARJ 


07208 


49 


07100 


00000 


05790 




DORG 


•-3 


07216 








05800 


ERROR 


3 TFM 


DIMERR^22,7078,8, NOT ENOUGH ROOM AT SPECIED LOCATION 


07216 


16 


02675 


0P078 


05810 




6 


ERRD 


07228 


49 


02690 


00000 


05820 




DORG 


• -3 


07236 








05830 


C0NTIN SF 


0UPCR0^37 


07236 


32 


09374 


00000 
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05840 




C 


DUPCRD*42,ZER0ES-4, , WAS THERE ANEW DIM TABLE LENGTH 


07248 


24 


09379 


05136 


05850 




BE 


EQVLEN 


07260 


46 


06400 


01200 


05860 




CM 


CALC4-l,035,9 


07272 


14 


02866 


00-35 


05870 




BNL 


• ♦32 


07284 


46 


07316 


01300 


05880 




TFM 


DIMERR+22,7078,8 


07296 


16 


02675 


0P078 


05890 




B 


ERRD 


07308 


49 


02690 


00000 


05900 




DORG 


•-3 


07316 








05910 




TFM 


NEWDIM,O003,8,NEW DIM LENGTH SPECIFIEO 


07316 


16 


09649 


0-003 


05920 




BT 


DIMMER, DIMMER-i 


07328 


27 


09600 


09599 


05930 




TF 


C0NST3, 19888 


07340 


26 


05130 


19888 


05940 




C 


C0NST3,CALC4-l 


07352 


24 


05130 


02866 


05950 




BE 


EQVLEN 


07364 


46 


08400 


01200 


05960 




TF 


19888, CALC4-1,, SET NEW DIM LENGTH 


07376 


26 


19888 


02866 


05970 




TFM 


I0RT,«^23 


07388 


16 


00565 


-7411 


05980 




B 


I0PT,DM00A,7 


07400 


49 


00532 


-2580 


05990 




TFM 


TLOEQV+5, 01000,7 


07412 


16 


05115 


-1000 


06000 




TFM 


NEWDIM,2,8, EQV TABLE 


07424 


16 


09649 


0-002 


06010 




BT 


OIMMERfDI MME R— 1 


07436 


27 


09600 


09599 


06020 




TF 


CALC7, 19888 


07448 


26 


02921 


19888 


06030 




TF 


C0NST2, 19888 


07460 


26 


02880 


19888 


06040 




TF 


SLDEQV+5, 19885 


07472 


26 


05092 


19885 


06050 




TD 


SLDEQV, 19880 


07484 


25 


05087 


19880 


06060 




TFM 


I0RT,»*23 


07496 


16 


00565 


-7519 


06070 




B 


I0PT,THR00A,7 


07508 


49 


00532 


-2628 


06080 


HERO 


TFM 


I0RT,»+23,, PREPARE TO SHIFT THE EQUIVALENCE TABLE 


07520 


16 


00565 


-7543 


06090 




B 


IOGT, TRWSLD,7 


07532 


49 


00566 


-5079 


06100 




TFM 


I0RT,»+23 


07544 


16 


00565 


-7567 


06110 




B 


I0PT,TRWTLD,7 


07596 


49 


00532 


-5102 


06120 




AM 


SLDEQV+5,60,10 


07568 


11 


05092 


00000 


06130 




AM 


TLDEQV+5,60, 10 


07580 


11 


05115 


00000 


06140 




SM 


C0NST2,60,10 


07592 


12 


02680 


00000 


06150 




BNF 


HERO, C0NST2 


07604 


44 


07520 


02880 


06160 




TDM 


TRWSLD.O 


07616 


15 


05079 


00000 


06170 




TDM 


TRWTLD,2 


07628 


15 


05102 


00002 


06180 




TFM 


SL0EQV*5, 01000,7 


07640 


16 


05092 


-1000 


06190 




TFM 


U OEQV* 5, 04800 


07652 


16 


05115 


-4800 


06200 




A 


TLDEQV*5,CALC4-1 


07666 


21 


05115 


02866 


06210 


JANITO 


CM 


CALC7,060,9, MAJOR SHIFT OF EQUIVALENCE TABLE 


07676 


14 


02921 


00-60 


06220 




BNH 


MELANC 


076B8 


47 


07792 


01100 


06230 




TFM 


I0RT,«*23 


07700 


16 


00565 


-7723 


06240 




B 


I0GT,TRWSLD,7 


07712 


69 


00566 


-5079 


06250 




TFM 


I0RT,*t23 


07724 


16 


00565 


-7747 


06260 




B 


I0PT, TRWTLD.7 


07736 


49 


00532 


-5102 


06270 




AM 


SL0EQV«-5t060t9 


0776B 


11 


03092 


00-60 


06280 




AM 


TLDEQV^5,060#9 


07760 


11 


09115 


00-60 


06290 




SM 


CALC7, 060,9 


07772 


12 


02921 


00-60 


06300 




B 


JANITO 


077B4 


69 


07676 


00000 


06310 




DORG 


•-3 


07792 








06320 


MELANC 


TF 


TLDEQV*8,CALC7,, MINOR SHIFT OF EQUIVALENCE TABLE 


07792 


26 


05118 


02921 


06330 




TFM 


IORT,«+23 


07B04 


16 


00965 


-7827 


06340 




8 


I0GT,TRWSL0,7 


07816 


49 


00966 


-3079 


06350 




TFM 


IORT,«*23 


07B2B 


16 


00965 


-7631 


06360 




8 


I0PT,TRWTLD,7 


07460 


69 


00932 


-9102 


06370 




TFM 


TLDEQV+8,60,9 


07B92 


16 


09116 


00-60 


06380 




TFM 


!ORT,**23 


07464 


16 


00969 


-7667 
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04400 


NURSES 


SF KEY5 






07 |tS 


92 


09149 




044 10 










07900 


24 


09130 


02844 


04420 




HML FQVI FN 






0 7912 




08400 


01300 


04430 




TF C0NST5.CALC4-1 






07924 


24 


02999 


02844 


04440 




a bun) i 't WUH3 • 9f t 


NUMBER 


t\% <Ff*rfMt Annrn 

U" 3CVIUH# AUUCU 


07914 


22 


02499 


09130 


04490 




tfm MFum M.noo?.a 






07949 


■ 4 


09449 


0-002 


04440 




bt niMMr* . niMMFB-i 






0 7940 


« » 


09400 


09999 


04470 




tc ^ARH+5. 1 






07972 


«• 


09199 


19999 






TD ^ARH.lORRO 

• U J»Rn| ITtlU 






07944 


9% 
*' 


09194 


19960 


04490 


SARI 










14 


00949 


—9019 


04500 




B I0PT,SARF,7 






08009 


49 


00932 


-9174 


04510 




SN CONST5,0l,l0 






08020 


12 


02999 


000- 1 


04520 




CM C0NST5,000,9 






08092 


14 


02999 


00-00 


06530 




BE EQVLEN 






09044 


44 


08400 


01200 


06540 




AW SARMt'itUl , 10 






08096 


11 


08189 


000-1 


06550 




B SARI 






08048 


49 


07994 


00000 


06560 




00RG »-3 






08074 








06570 


DUMDIM 


DC 1 ♦ • # » DUMMY 


SECTOR 1 


F f Li. 


08074 




I 




06580 




DC 1,0 






08077 




1 




06590 




DSC 18#0 






OB07B 




1 8 








000000000000000000 














06600 




DC l,« 
• 






08094 




I 




06610 




DC 1.0 






08097 




1 




06620 




~ 

DSC 18*0 






08098 




18 








oooooooooooooooooo 














06630 




DC 






08114 




1 




06640 




DC 1,0 






08117 




1 




06650 




DSC 18,0 






08118 




18 








oooooooooooooooooo 














06660 




DC 1, • 
• 






08134 




1 




06670 




OC 1,0 






08137 




I 




06680 




~ 

OSC 18,0 






08138 




18 








OOOOOOOOOOOOOOOOOO 














06690 




DC 1 , • 






08156 




I 




06700 




DC 1,0 






08157 




I 




06710 




DSC 18,0 






08158 




IB 








OOOOOOOOOOOOOOOOOO 




















F I LL I NG 


I N OL*NS UIW ItL IUK5 










06730 




22 

DSA SARH 






08182 




5 


X I 












08182 




-8184 




06740 




DC It V 
» 






08183 




1 




06750 


SARH 


OSC 1,1 






08184 




1 





1 
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PAGE 


06760 




DC 


5,99999 


08189 




5 








R9999 










06770 




DC 


3,001 


08192 




3 








-01 












06780 




DSA 


DUMDIM 


08197 




5 


X 1 










08197 




-8076 




06790 




DC 


i.» 


08198 




1 




06800 




DORG 


08400 


08400 








06810 




LINKAGE TO CALL IN PHASE TWO ANO EXECUTE IT 










06820 


EQVLEN 


TFM 


IORT,»*23 


08400 


16 


00565 


-8423 


06830 




B 


I0GT,SARK,7 


08412 


49 


00566 


-8424 


06840 


S ARK 


DSC 


2,-22 


08424 




2 








2K 












06850 




DSA 


SARL 


08430 




5 


X 1 










08430 




-8432 




06860 




DC 
t 


1, • 


08431 




I 




06870 


SARL 


DSC 


1 * 1 


08432 




1 




06880 




1 

DC 


5, 18174 


08437 




5 








J817* 










06890 




DC 


3,023 


08440 




3 








-23 












06900 




DSA 


PHASE 2 


08445 




5 


X 1 










08445 




-5600 




06910 




DC 


!»• 


08446 




1 




06920 


• •• 


LINKAGE FOR THROWING PHASEl TO DISK WHEN LOADING PROGRAM 










06930 


DDF IN* 


TFM 


IORT,»»23 


08448 


16 


00565 


-8471 


06940 




B 


I0PT,DDFIN5,7 


0B460 


49 


00532 


-8496 


06950 




TRA 




08472 


36 


00000 


00500 










08484 


49 


00000 


00000 


06960 


DDFIN5 


DSC 


2,22 


08496 




2 








22 












06970 




DSA 


DDF I N6 


04502 




5 


x * 










08502 




-8504 




06980 




DC 
* 


l,» 


08503 




1 




06990 


0OFIN6 


DSC 


1,1 


08504 




1 




07000 




1 

OC 


5,18139 


08509 




5 








J8139 










07010 




OC 


3,038 


08512 




3 








-38 












07020 




DC 


5,05000 


08517 




5 








-5000 










07030 




DC 


I,* 


08519 




1 




07040 




TCD 


0DFIN4 


09449 








07050 




OORG 


09400 


09400 









1048 
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07060 
07070 
070R0 
07090 
07100 
07110 
07120 
07130 
07140 
07190 
07160 
071T0 
07180 
07190 
07200 
07210 
07220 
07230 
07240 
07250 
07260 
07270 
07280 

072<»0 
07300 
07310 

07320 
07330 
07340 
07350 
07360 
07370 
07380 
07390 
07400 
07410 
07420 
07430 
07440 
07450 
07460 
07470 
07480 
07490 
07500 
07510 
07520 
07530 
07540 
07550 
07560 
07570 
07580 
07590 



888 
TABS 



LENLIS 
AC CUM 



• SET 
LOOPA 
LOOPB 



TO 
TO 
TO 
SF 
SF 

c 

BNE 
BNF 
TFM 
BT 
TF 
BNF 
TFM 
A 
TF 
CM 
BE 
TF 
TFM 
8 

TF 

CF 
DC 

-000 
TF 
CF 
DC 

-000 
POINTER 



CAIC7,0UFCRD*§0#. 
CAIC7-1,DUPC*D*48 
CALC7-2,DUPCRD»4* 
CALC7-2 
0UFCRD»49 

DURCRD*90«ZER0€S~6«t 
LNGNFF 
0UTSVD.KEY9 
NEWDIM«2 ,6* EQV ENTRY 
0IMMER«DIMMER-1 
CALC9, 19668 
BBB,KEY5 
CALC3,04600 
CALC3.CALC4-1 
198i5,CALC3 
CALC7.000.9 
TABB 

19888, CALC7, .SET NEW EQV LENGTH 
IORT,»*23 
[OPTtOMOOA, 7 
EL * 19866 

EL-2 
4,0,« 

DL.CALC4-1 

OL-2 



RE AO IN EQV ENTRY OAT A 



NAS THERE A EQV TABLE ENTRY 



09400 


29 


02921 


09167 


09*12 


29 


02920 


09169 


09*1* 


29 


02919 


09161 


09*1* 


12 


02919 


00000 


09**1 


12 


09162 


00000 


096*0 


24 


09167 


0911* 


09*72 


47 


0*672 


01200 


09*66 


64 


0*922 


09149 


09*9* 


1* 


09*49 


0-002 


09706 


27 


09*00 


09999 


09720 


2* 


02**1 


19666 


09712 


44 


09604 


09149 


09746 


1* 


02*06 


-4600 


0979* 


21 


02*08 


026*6 


097*6 


26 


19869 


02608 


09760 


14 


02921 


00-00 


09792 


46 


09816 


01200 


09604 


26 


19888 


02921 


0961* 


1* 


009*9 


-9639 


09626 


49 


00932 


-2960 


09640 


26 


09887 


19886 


09892 


33 


09889 


00000 


096*3 




4 




096*4 


26 


06719 


02866 


09876 


33 


06713 


00000 


09667 




4 





TO END OF CYL 23 



TF 


LISTESt EN023 


09888 


26 


09661 


06921 


TFM 


RLGONE*30,»*20 


05900 


16 


09644 


-5920 


8 


FIND 


09912 


49 


09540 


00000 


DORG 


• -3 


09920 








TFM 


LISTET, 9200,8 


05920 


16 


09665 


0R200 


BT 


GETR,GETR-l 


09932 


27 


09520 


09519 


CM 


LlSTER-3,7,1011 


09944 


14 


09651 


000-P 


BE 


•-24 


0999* 


46 


05932 


01200 


CM 


LISTER, 0003, 8 


099*9 


14 


09694 


0-003 


BNE 


LO0P2 


099*0 


47 


06024 


01200 


BT 


REMOVE , REMOVE- 1 , , REMOVE DIM TABLE ENTRIES 


09992 


27 


09560 


09599 


BT 


INSERT, INSERT- I 


06004 


27 


09560 


09579 


B 


LOOPl 


06016 


49 


05944 


00000 


DORG 


•-3 


06024 








CM 


LISTER, 0002, 8 


0*024 


14 


09694 


0-002 


BE 


LOOP 5 


06036 


46 


06164 


01200 


CM 


LISTER-3, 9,1011 


06048 


14 


09651 


000-R 


BNE 


L00P4 


06060 


47 


06240 


01200 


CM 


LISTER, 9200, 8, HAVE ME ERASED ALL PROGRAMS 


06072 


14 


09694 


0R200 


BE 


SETKEY 


06084 


46 


06456 


01200 


BT 


GETR,GETR-l 


06096 


27 


09520 


09519 


CM 


LISTER-3, 7,1011 


06108 


14 


09651 


000-P 


BNE 


L00P4 


06120 


47 


06240 


01200 


BT 


GETL.GETL-l 


06132 


27 


09500 


09499 


BT 


REMOVE, REMOVE- 1 


06144 


27 


09560 


09559 


8 


SETKEY 


06196 


49 


06456 


00000 


DORG 


•-3 


06164 
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07600 


LOOP 5 


BT 


GETL,GETL-l 


07610 




CM 


LISTER-3, 9,1011, 


07620 




BNE 


L00P6 


07630 




BT 


REMOVE, REMOVE-l 


07640 




B 


LOOPS 


07650 




DORG 


•-3 


07660 


L00P6 


BT 


GETR,GETR-l 


07670 




B 


L00P3 


07680 




DORG 


•-3 


07690 


L00P4 


TF 


NEWDIM, LISTER 


07700 




BT 


DIMMER, DIMMER-1 


07710 




MM 


19883,05,10, CAL( 


07720 




TDM 


19883,1,11 


07730 




BD 


•♦24,99 


07740 




TDM 


19883,0,11 


07750 




TF 


L00P7*ll, 19885 


07760 




CF 


• ♦21 


07770 


KEY1 


DS 




07780 


L00P7 


TFM 


LISTET, 9000, 8 


07790 




BT 


GETL,GETL-l 


07800 




CM 


LISTER-3, 9, 1011 


07810 




BNE 


• ♦36 


07820 




BT 


REMOVE »REM0VE-1 , , 


07830 




B 


•-48 


07840 




BT 


GETR ,GETR-1 


07850 




CM 


LISTET.9000,8 


07860 




BE 


• ♦24 


07870 




BT 


INSERT, INSERT-l 


07680 


SETKEY 


SF 


KEV1 


07890 


NHTOT 


DC 


5i0,» 






-0000 


07900 




TF 


NWTOT.DL 


07910 




A 


NMTOT ,EL 


07920 




TFM 


LOOPB ♦! 1 , RE TURN, , 


07930 




8 


LOOPA 


07940 




DORG 


•-3 


07950 


RETURN 


BT 


GETR,GETR-1 


07960 




CM 


LISTER-3, 7,1011 


07970 




BE 


RETURN 


07980 




SF 


LISTER-2 


07990 




A 


ACCUM, LISTER,, At 


06000 




CF 


LISTER-2 


08010 




BT 


REMOVE, REMOVE- 1 


08020 




BNF 


ELCHEK,K£V1 


06030 




TFM 


LISTET,0003,6 


06040 




BT 


INSERT, INSERT-l 


06050 




SM 


DL.200,9 


08060 




BH 


RETURN, » , RETURN 


08070 




BE 


CLFLAG 


06080 




A 


ELtOL 


06090 




TFM 


LISTET, 0002*6 


06100 




6T 


INSERT, INSERT-l 


06110 




CP 


KEYl 


08120 


DL 


oc 

-006 


♦•*)•• 


06110 




BNF 


RETURN, EL 



IS THIS A NININES INDICATOR 



REMOVE THE NINES RECORO 



PREPARE TO REPOSITION THE LISTER THROUGH 



ACCUMULATE THE NUMBER OF SECTORS FILLED 



06164 


27 


09500 


09499 


06176 


14 


09651 


000-R 


06188 


47 


06220 


01200 


06200 


27 


09560 


09559 


06212 


49 


06164 


00000 


06220 








06220 


27 


09920 


09519 


06232 


49 


09992 


00000 


06240 








06240 


26 


09649 


09654 


06252 


27 


09600 


09599 


06264 


13 


19883 


000-5 


06276 


15 


19883 


OOOOJ 


06268 


43 


0*312 


00099 


06300 


15 


19683 


0000- 


06312 


26 


06347 


19885 


06324 


33 


06345 


00000 


06339 




0 




06336 


16 


09665 


OROOO 


06348 


27 


09500 


09499 


06360 


14 


09651 


000-R 


06372 


47 


06408 


01200 


06384 


27 


09960 


09559 


06396 


49 


06346 


00000 


06406 


27 


09520 


09519 


06420 


14 


09665 


OROOO 


06432 


46 


06456 


01200 


06444 


27 


09580 


09579 


06496 


12 


06335 


00000 


064*7 




5 




0*4*6 


2* 


0*4*7 


06715 


0*460 


21 


06467 


09867 


0*492 


1* 


09911 


-6512 


06904 


49 


09888 


00000 


06912 








0*912 


27 


09920 


09519 


06924 


14 


09*91 


000-P 


0*99* 


4* 


06912 


01200 


0*946 


12 


09*92 


00000 


0*9*0 


21 


096*3 


09694 


0*972 


13 


09692 


00000 


06964 


27 


09560 


09559 


0*99* 


44 


06756 


06339 


0**06 


16 


09669 


0-001 


0**20 


27 


09960 


09579 


0**12 


12 


06719 


OOKOO 


0**4* 


4* 


0*912 


01100 


0**9* 


4* 


0*71* 


01200 


0***6 


11 


096*7 


0*719 


0**80 


1* 


09**9 


0-002 


0**92 


27 


09900 


09979 


0*?0* 


11 


0*119 


00000 


0*719 




* 




0*71* 


** 


0*912 


09007 



1 080 



1*20 MO* IT Oft I iMt ftOUTIM «§ff IN 



PA6E 19 



••140 
••ISO 

01160 CLFLAG 
0*170 

onto 

OSltO ELCMEK 
08200 

09210 COMPEL 

09220 

0*2)0 

0*240 

0*230 

082*0 

0*270 

08280 

08290 

08300 LNGNFF 

08310 

08320 

08330 

08340 

08350 END 2 3 



08370 

08380 TRWAA 



08430 
08440 



08460 SARN 

08470 

08480 

08490 SARO 
08500 

08510 

08520 SARP 



• 


C0MPEL^24 


0*720 


49 


06004 


00000 


00*0 


•-3 


0*734 








CF 


KEY1 


0*73* 


33 


04399 


00000 


• 


RETURN 


0*7*0 


49 


04912 


00000 




•"3 


04794 








TFM 


i ttrcT AAA) • rn lutcir *uc caw till £ £MTfttF< 
L 1 » It 1 1 0002 • • t rMEPARB IU INSERT !H» CUV l«Ht CNIKIC) 


0679* 


|4 


00449 


0-002 


• T 




0474* 


27 


09990 


09579 


SM 


EL, 200,9 


04700 


12 


05907 


OOKOO 


•M 


RETURN 


04792 


44 


04912 


01100 


S 


ACCUM,NMTOT 


0400* 


99 
*« 


09043 


06447 


8E 


OUTSYO 


04014 


44 


04922 


01200 


TDM 


ACCUM-3,9,11 


06*2* 


l*. 


09440 


00009 


TF 


LISTET,ACCUM 


06*40 


24 


09449 


09043 


87 


INSERT, INSERT-l 


04092 


27 


09900 


09979 


B 


OUTSYO 


04044 


49 


04922 


00000 


OORG 


•-3 


04072 








CM 


CALCT.009,9, DOES THE EQUIVALENCE TABLE MEET MINIMUM STAND* 


04072 


14 


02921 


00—09 


BNL 


TA»A 


06*84 


44 


09494 


01300 


TFM 


DtMERR+22,7078,8 


06896 


16 


02479 


0P079 


8 


ERRD 


06908 


49 


02690 


00000 


DORG 


•-3 


06916 








OC 


6,104799 


06921 




6 




J04799 










TFM 


IORT,«^23*t BRING IN AND EXECUTE PHASES 


06922 


16 


00565 


-6945 


B 


I OCT, TRWAA, 7 


06934 


49 


00566 


-6946 


OSC 


2,-22 


06946 




2 




2K 












OSA 


TRWBB 


06952 




5 


X 1 






06952 




—6954 




OC 


It* 


06953 




1 




DSC 


l«l 


06954 




I 




I 

DC 


5,17084 


06959 




5 




J7084 










DC 


3,022 


06962 




3 




-22 












DSA 


PHASE 3 


06967 




5 


X 1 






06967 




—5200 




DC 


lt ( 


06968 




1 




TFM 


IORT,»*23,, TRA-TCD TO THROW PHASE2 TO DISK WHILE LOADING 


06970 


16 


00565 


-6993 


B 


I0PT,SAR0,7 


06982 


49 


00532 


-7018 


TRA 




06994 


36 


00000 


00500 






07006 


49 


00000 


00000 


DSC 


2,22 






2 




22 












OSA 


SARP 


07024 




5 


X 1 






07024 




-7026 




DC 


It* 


07025 




1 




DSC 


Itl 


07026 




1 
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08530 




DC 


5,18174 


07031 




5 








J8174 










08540 




DC 


3,023 


07034 




3 








-23 












08550 




DC 


5,05600 


07039 




5 








-5600 










08560 




DC 


It' 


07040 




1 




08570 




TCD 


SARN 


06970 








08580 




DORG 


05200 


05200 








08590 


PHASE 3 


TO 


PATCH, 0UPCR0*58t, LENGTH OF SPL LIST 


05200 


25 


05459 


09395 


08600 




TO 


PATCH-1,0UPCRD*56 


05212 


25 


05458 


09393 


08610 




TO 


PATCH-2,0UPCR0*54 


05224 


25 


05457 


09391 


08620 




SF 


PATCH-2 


05236 


32 


05457 


00000 


08630 




CM 


PATCH, 000*9 


0524B 


14 


05459 


00-00 


08640 




BE 


ACTP 


05260 


44 


0*2*0 


01200 


08650 




TFM 


LISTES* * ■ 


05272 


16 


09661 


-0000 


06660 




TDM 


LlSTES-5,1,, 


05284 


15 


09656 


0000 1 


08670 




TFM 


RLG0NE*30t**20 


05296 


16 


09644 


-5316 


08680 




B 


FIND,,, BRING IN THE SPL FOR SOME OBSERVATION 


05309 


49 


09540 


00000 


08690 




OORG 


•-3 


05316 








08700 




SF 


DUPCRO+33 


05316 


32 


09370 


00000 


08710 




CM 


0UPCRD*34,00,10 


05329 


14 


09371 


000-0 


08720 




BNE 


•♦49 


05340 


47 


053** 


01200 


08730 




TFM 


I0RT,»*23 


05352 


14 


003*5 


-3373 


08740 




B 


IOGT,L0X,7 


05364 


49 


005** 


-6936 


08750 




TO 


OUPCR0*34,CS*-4« 


05376 


23 


09371 


05249 


08760 




TFM 


•♦35,09800,7 


09349 


14 


09423 


-9900 


08770 




AM 


•♦23*04,10 


05400 


11 


09423 


000-4 


08780 




BNR 


•-12*99999,, FIND THE END OF THE SPL 


05412 


45 


09400 


99999 


08790 




AM 


•-1,04,10 


05424 


11 


09423 


000-4 


08800 




SM 


•-13,9800*7 


05434 


12 


09423 


-9900 


08810 




CM 


•-27, PATCH 


05449 


14 


09421 


-9439 


08820 


PATCH 


OC 
-00 


3*0** 


05499 




3 




08830 




BNH 


• ♦32 


09440 


47 


09492 


01100 


08840 




TFM 


DIMERR+22,7178,8, SPL LIST IS REDEPINEO LESS THAN NEEDED 


05472 


16 


02679 


0P178 


08830 




B 


ERRD 


05444 


49 


02690 


00000 


08860 




DORG 


•-3 


09492 








08870 




TF 


C0NST3, PATCH 


05492 


26 


02*9* 


09499 


08880 




TF 


CALC9* PATCH 


05904 


26 


028*3 


09499 


08890 




CM 


PATCH, 80, 9 


05514 


14 


05459 


00-80 


08900 




BNH 


ACTN 


09929 


47 


099*0 


01100 


08910 




TFM 


DIMERR+22.7174,9 


09940 


1* 


02*79 


OP 174 


08920 




9 


ERRD 


09992 


49 


02*90 


00000 


08930 




DORG 


•-3 


09940 








08940 


• •• 


ROUTINE TO UPDATI THE SPL ENTRY FOR ITSflP 










08950 


ACTN 


TFM 


LISTES.19901 


09940 


1* 


09**1 


J9901 


08960 




TDM 


LISTES-9 v l v Il 


09972 


19 


09*9* 


OOOOJ 


08970 




TOM 


DUPCRDOS.,11, PLAO 1190 


09994 


19 


09370 


0000- 


08980 




TF 


CURREN-1,0UPCRD^34 


09994 


2* 


09144 


09371 


08990 




TFM 


NBWOIN.0004,9 


09409 


1* 


09*49 


0-004 


09000 




BT 


0 INNER, 01 MM§R-l 


09420 


17 


09*00 


09399 


09010 




C 


C0NST9. 19999 


09492 


24 


02999 


19999 


09020 




BE 


ACTP 


09*44 


4* 


0*290 


01200 
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FACE 21 



09030 


ACTT 


TF 


C0NST6. 19888 




05*9* 


26 


02904 


19888 


09040 




TF 


19888 ,CALC9 




09*88 


2* 


19888 


028*3 


09050 




TFM 


IORT,**23 




05*80 


1* 


00565 


-5703 


09060 




8 


lOPT.DNOO.i.T, CORRECT SRI ENTRY ON DISK 


09*92 


49 


00592 


-2580 


09070 




TF 


C0NST5.CA .1 • 




09706 


2* 


02898 


02863 


09080 




TFN 


G00NV*6i*+i€ 




0971* 


I* 


09644 


-97)6 


09090 




B 


FINO 




09728 


49 


09940 


00000 


09100 




DORG 


•-3 




097)* 






09919 


09110 




BT 


GETR.GETft -i 




0979* 


27 


09920 


09120 




C 


C0NST5.CG ST6,, 


IS THE NEW LIST LONGER OR 


SHORTER 0974* 


24 


02898 


02904 


09130 




BL 


ACTO 




057*0 


47 


09864 


01300 


09140 




S 


C0NST5 #C0NST6 




05772 


22 


02898 


02904 


09150 




s 


LISTER, C0NST5 




09784 


22 


09654 


02898 


09160 




TF 


L I SfET, LISTER 




05796 


26 


09665 


09654 


09170 




BT 


REMOVE » 'HE MOVE- 1 




05808 


27 


09560 


09559 


09180 




CM 


LISTET.9000,8 




05820 


14 


09665 


OROOO 


09190 




BE 


• ♦24 




05832 


46 


05856 


01200 


09200 




BT 


INSERT. 2MSERT-1,. PLACE THE CORRECT BLANK 


SECTOR IN THE LIS 05844 


27 


09580 


09579 


09210 




B 


M0DS2 




05856 


49 


06004 


00000 


09220 




DORG 


• -3 




05864 








09230 


AC TQ 


S 


CONST 6 i CONST 5 




05864 


22 


02904 


02898 


092<»0 




CM 


L I STER-3, 7f 101 1 




05876 


14 


09651 


000-P 


09250 




8NH 


ACTR 




05888 


47 


05956 


01100 


09260 




TF 


•♦35,C0NST6 




05900 


26 


05935 


02904 


09270 




CF 


•♦21 




05912 


33 


05933 


00000 


09280 




TFM 


L I STE T» 9000* 8 




05924 


16 


09665 


OROOO 


09290 




BT 


INSERTiINSERT-1 




05936 


27 


09580 


09579 


09300 




B 


M0DS2 




05948 


49 


06004 


00000 


09310 




DORG 


• -3 




05956 






02904 


09320 


ACTR 


A 


L I STER tC0NST6t « 


INCREASE THE BLANK SECTOR 


COUNT 05956 


21 


09654 


09330 




TF 


1 t C TC T 1 f CTCB 
LliltliLIbltK 




05968 


26 


09665 


09654 


09340 




BT 


REMOVE t RENOVE-1 




05980 


27 


09560 


09559 


09350 




BT 


INSERT. INSERT- 1 




05992 


27 


09580 


09579 


09360 


M0DS2 


CM 


CURREN-ltOl.10 




06004 


14 


05144 


000- 1 


09370 




BE 


AC TP 




06016 


46 


06280 


01200 


09380 




CM 


CURREN-1,02,10 




06028 


14 


05144 


000-2 


09390 




BE 


ACT2 




06040 


46 


06212 


01200 


09400 




CM 


CURREN-1 ,03, 10 




06052 


14 


05144 


000-3 


09410 




BE 


ACT3 




06064 


46 


06144 


01200 


09420 




TFH 


NEWDIM.0007,8, 


SET UP ON MODULE THREE 


06076 


16 


09649 


0-007 


09430 




BT 


DIMMER, DINMER-1 




06088 


27 


09600 


09599 


09440 




TF 


LISTES, 19885 




06100 


26 


09661 


19885 


09450 




TO 


LISTES-5, 19880 




06112 


25 


09656 


19880 


09460 




TDM 


CURREN-1, 3,, 




06124 


15 


05144 


00003 


09470 




B 


ACTT 




06136 


49 


05656 


00000 


09480 




DORG 


•-3 




06144 








09490 


ACT3 


TFM 


NEWDIM.0006,8 




06144 


16 


09649 


0-006 


09500 




BT 


DIMMER, DIMMER-1 




06156 


27 


09600 


09599 


09510 




TF 


LISTES, 19885,, 


FINO END (JF OLD LISTS 


06168 


26 


09661 


19885 


09520 




TD 


LISTES-5, 19880 




06180 


25 


09656 


19880 


09530 




TDM 


CURREN-1, 2,, 




06192 


15 


05144 


00002 


09540 




B 


ACTT 




06204 


49 


05656 


00000 


09550 




DORG 


•-3 




06212 








09560 


ACT2 


TFM 


NEWDIM.0005,8 




06212 


16 


09649 


0-005 


09570 




BT 


DIMMER, DIMMER- I 




06224 


27 


09600 


09599 


09580 




TF 


LISTES, 19885 




06236 


26 


09661 


19885 



1053 









1620 MONITOR 1 


DUP ROUTINE •DEFIN 










PAGE 


09590 




TD 


LISTES-5, 19880 








06248 


25 


09656 


19880 


09600 




TDM 


CURREN-1, 1,, 








06260 


15 


05144 


00001 


09610 




B 


ACTT 








06272 


49 


05656 


00000 


09620 




DORG 


•-3 








06280 








09630 


ACTP 


TFM 


I0RT,"23,, BRING 


IN 


THE COMMUNICATION 


SECTOR 


06280 


16 


00565 


-6303 


09640 




B 


I0GT,LDX,7 








06292 


49 


00566 


-6936 


09650 




ROUTINE FOR TRANSFERING 


THE 


CONTROL CHARACTERS 


IF PRESENT 










09660 


• •• 


TO THE COMMUNICATION SECTOR 


AND SETTING FLAGS 


IF NECESSARY 










096 70 




SF 


DUPCRD+71 








06304 


32 


09408 


00000 


09680 




CM 


DUPCRD+74,0000,8, 








06316 


14 


09411 


0-000 


09690 




BE 


• ♦48 








06328 


46 


06376 


01200 


09700 




TD 


CS*40,DUPCR0+72 








06340 


25 


05240 


09409 


09710 




TD 


CS+4l,DUPCRD^74 








06352 


25 


05241 


09411 


09720 




SF 


CS*40 








06364 


32 


05240 


00000 


09721 




SF 


DUPCRD+77 








06376 


32 


09414 


00000 


09722 




CM 


DUPCRD+80,0000,8 








06388 


14 


09417 


0-000 


09723 




BE 


• ♦48 








06400 


46 


06448 


01200 


09724 




TD 


CS+42,DUPCRD^78 








06412 


25 


05242 


09415 


09725 




TD 


CS+43,DUPCRD^80 








06424 


25 


05243 


09417 


09726 




SF 


CS+42 








06436 


32 


05242 


00000 


09730 




SF 


DUPCRD+83 








06448 


32 


09420 


00000 


09740 




CM 


0UPCRD*84,00,10 








06460 


14 


09421 


000-0 


09750 




BE 


• ♦24 








06472 


46 


06496 


01200 


09760 




TD 


CS+44.DUPCRD+84 








06484 


25 


05244 


09421 


09770 




SF 


DUPCRD*87 








06496 


32 


09424 


00000 


09780 




CM 


DUPCRD+90, 0000,8 








06508 


14 


09427 


0-000 


09790 




BE 


• ♦48 








06520 


46 


06568 


01200 


09800 




TD 


CS^45,DUPCRD^88 








06532 


25 


05245 


09425 


09810 




TD 


CS^46,0UPCRD+90 








06544 


25 


05246 


09427 


09820 




SF 


CS^45 








06556 


32 


05245 


00000 


09830 




SF 


DUPCR0^93 








06568 


32 


09430 


00000 


09840 




CM 


DUPCRD*96,0000,8 








06580 


14 


09433 


0-000 


09850 




BE 


• ♦48 








06592 


46 


06640 


01200 


09860 




TD 


CS*47,DUPCRD^94 








06604 


25 


05247 


09431 


09870 




TD 


CS^48,DUPCRD+96 








06616 


25 


05248 


09433 


09880 




SF 


CS^47 








06628 


32 


05247 


00000 


09890 




SF 


DUPCR0O3 








06640 


32 


09370 


00000 


09900 




CM 


DUPCRD*34,00,10 








06652 


14 


09371 


000-0 


09910 




BE 


• ♦24 








06*64 


46 


06688 


01200 


09920 




TD 


CS^49,0UPCRDO4 








06*7* 


25 


05249 


09371 


09930 




SF 


DUPCRD^99 








06688 


32 


09436 


00000 


09940 




CM 


DUPCRD+100,00,10 








06700 


14 


09437 


000-0 


09950 




BE 


• ♦24 








06712 


46 


06736 


01200 


09960 




TD 


CS^73,DUPCRD^100 








06724 


25 


05273 


09437 


09970 




SF 


DUPCRD+103 








0673* 


32 


09440 


00000 


09980 




CM 


DUPCRO+104,00,10 








06748 


14 


09441 


000-0 


09990 




BE 


• ♦36 








0*7*0 


46 


06796 


01200 


10000 




TO 


CSW6,0UPCRD*104 








0*772 


29 


05276 


09441 


10010 




SF 


CS^76 








0*784 


32 


05276 


00000 


10020 




SF 


0UPCR0M07 








0679* 


32 


09444 


00000 


100)0 




CM 


OUPCROMOSt 00*10 








06808 


14 


09445 


ooo-o 


10040 




BE 


• ♦36 








06820 


4* 


06956 


01200 


10050 




TD 


CS^72,DUPCRDn08 








0*8)2 


29 


09272 


09445 


10060 




SF 


CU72 








0*844 


)2 


09272 


00000 


10070 




SF 


DUPCRDmi 








0*89* 


32 


09448 


00000 


10080 




CM 


DUPCRD*U2t00tl0 








0*8*8 


14 


09449 


000-0 



up 



1054 



1*20 "0*1 TO* I DUP ROUTINE •••PIN 



PACE 23 









• ♦26 








06BC0 


44 


0*906 


01200 


ioioo 




TO 


CS*63,DUPCRD*U2 








0**92 


29 


092B3 


09449 


10 1 10 






I0RT«**23 










14 


009*9 


•4927 


10120 




B 


IQPT,LDX,7,, PLACE THE COMMUNICATION SECTOR 


BACK ON DISK 


0691* 


69 


00532 


-6936 


10130 




B 


MONITR 








06928 


69 


0*9*0 


00000 


10 140 




DORG 


•-3 








0*93* 








10150 


IDX 


osc 


2,22., OOA FOR THE COMMUNICATION 


SECTOR 






0*93* 




2 




10160 




22 
DSA 


FIELOX 








06962 






X 1 
















0*962 




-6944 




10170 




DC 
t 










0*943 




1 




10180 


CS 


OSS 


100,05200 








05200 




100 




10190 


F IELOX 


osc 


1,0 








0*966 




1 




10200 




0 

DC 


5,19663 








06969 




5 








J9663 
















10210 




DC 


3,001 








06952 




3 




10220 




-01 
DSA 


CS 








06957 




5 


X 1 
















069S7 




-5200 




10230 




DC 


lt« 








0695B 




1 




102*0 


• •• 1 


ROUTINE FOR WRITING BACK THE SPL TO THE 


PROPER 


PACK 


BEFORE 










10250 


• •• l 


EXITING TO MONITOR 
















10260 


MONITR 


CM 


PACK, 00,1011, PACK ZERO 








06960 


14 


02856 


000— 


10270 




BE 


RITSPO 








06972 


46 


07064 


01200 


10280 




CM 


PACK, 01,1011, PACK ONE 








06984 


14 


02856 


000-J 


10290 




BE 


RITSPl 








06996 


46 


07096 


01200 


10300 




CM 


PACK, 02,1011, PACK TWO 








07008 


14 


02856 


000-K 


10310 




BE 


RITSP2 








07020 


46 


07126 


01200 


10320 




CM 


PACK, 03, 1011 








07032 


14 


02856 


000-L 


10330 




BE 


RITSP3 








07044 


46 


07160 


01200 


10340 




B 


WHYNOT 








07056 


49 


07184 


00000 


10350 




OORG 


• -3 








07064 








10360 


RITSPO 


TFM 


IORT,»*23 








07064 


16 


00565 


-7087 


10370 




8 


I0PT,PK000A,7 








07076 


49 


00532 


-2734 


10380 




B 


WHYNOT 








07088 


49 


07184 


00000 


10390 




DORG 


•-3 








07096 








10400 


RITSPl 


TFM 


I0RT,»*23 








07096 


16 


00565 


-7119 


10410 




B 


I0PT,PK100A,7 








07108 


49 


00532 


-2757 


10420 




B 


WHYNOT 








07120 


49 


07184 


00000 


10430 




DORG 


•-3 








07128 








10440 


RITSP2 


TFM 


I0RT,»*23 








07128 


16 


00565 


-7151 


10450 




B 


IOPT,PK2DOA,7 








07140 


49 


00532 


-2780 


10460 




B 


WHYNOT 








07152 


49 


07184 


00000 


10470 




DORG 


•-3 








07160 








10480 


RITSP3 


TFM 


I0RT,»*23 








07160 


1* 


00565 


-7183 


10490 




8 


I0PT,PK30DA,7 








07172 


49 


00532 


-2803 


10500 


WHYNOT 


TOM 


475,3 








07184 


15 


00475 


00003 


10510 




B 


796, , , MONCAL 








07196 


49 


00796 


00000 


10520 




DORG 


«-3 








07204 








10530 


DOFINl 


TFM 


IORT,4»+23,, LINKAGE FOR THROWING 


PHASE3 


TO DISK 


07204 


16 


00565 


-7227 


10540 




B 


I0PT,00F1N2,7 








07216 


69 


00532 


-7252 



1 055 



1620 MONITOR 



OOP ROUTINE »OEFIN 



10560 0DFIN2 DSC 2,22 

22 

10570 DSA 0DFIN3 



07228 36 00000 00500 

07240 49 00000 00000 

07252 2 

07258 5 X 1 

07258 -7260 



10580 




DC 


I , ' 


07259 




1 




10590 


D0FIN3 


DSC 


1,1 


07260 




1 




10600 




I 

DC 


5,17084 


07265 




5 








J70B4 










10610 




DC 


3,022 


07268 




3 








-22 












10620 




DC 


5,05200 


07273 




5 








-5200 










10630 




OC 
* 


l,« 


07274 




1 




10640 




TCD 


DOFINl 


07204 








10650 




SECONDARY LINKAGE FOR THE FIND, GETL, 


GETR, REMOVE, INSERT 








10660 


• •• | 


PROGRAMS TO SEE IF THE ROUTINES ARE 


PRESENTLY IN CORE 








10670 




DORG 


9500 


09500 








10680 


GETL 


TFM 


CHEX*6,GETLTR 


09500 


16 


09722 


-3030 


10690 




B 


INCORE 


09512 


49 


09668 


00000 


10700 




DORG 


•-3 


09520 








10710 


GETR 


TFM 


CHEX+6.GETRTR 


09520 


16 


09722 


-2956 


10720 




B 


INCORE 


09532 


49 


09668 


00000 


10730 




OORG 


•-3 


09540 








10740 


FIND 


TFM 


CHEX*6,FINDTR 


09540 


16 


09722 


-3440 


10750 




B 


INCORE 


09552 


49 


09668 


00000 


10760 




DORG 


•-3 


09560 








10770 


REMOVE 


TFM 


CHEX+6,REM0TR 


095*0 


16 


09722 


-3104 


10780 




B 


INCORE 


09572 


49 


09666 


00000 


10790 




DORG 


•-3 


095B0 








10800 


INSERT 


TFM 


CHEX*6,INSETR 


095B0 


16 


09722 


-3190 


10810 




B 


INCORE 


09592 


49 


0966B 


00000 


10820 




DORG 


•-3 


09600 








10830 


DIMMER 


TFM 


CHEX+6, DI MMTR 


09600 


16 


09722 


-2458 


10840 




8 


INCORE 


09612 


49 


0966B 


00000 


10850 




OORG 


•-3 


09620 








10860 


MOVESA 


DC 


6,0,, FOR SECTOR ADORE SS 


09*25 




6 








-00000 










108 70 


MOVESC 


OC 


3,0,, FOR SECTOR COUNT 


09*2 B 




3 








-00 












10660 


EXITMR 


8 


99999 


09*30 


49 


99999 


00000 


10890 




OORG 


•-3 


09*36 








10900 


GOONV 


B 


99999 


094 3B 


49 


99999 


00000 


10910 




OORG 


•-3 


09*4* 








10920 


NEWOIM 


DC 


4,0 


09*49 




4 








-000 












10930 




OC 


1,0,, FOR COMPARING AT LISTER" 


3 09*90 




1 




10940 


LISTER 


OC 


4,0 


09*94 




4 








-000 













105« 



1620 MONITOR I DUP ROUT IMC •DEFIN 



PAGE 25 



10950 




OC 


1.0., TO SET-UP LISTES OVERRIDE CODE 


09695 




1 




10960 


LISTES 


OC 


6,0 


0964 1 




6 








-00000 










10970 


LISTET 


DC 


4,0 


09645 




4 








-000 












10960 


LAYSPL 


OC 


ltO 


09666 




I 




10990 


INCORE 


BNF 


CHE X, LAYSPL, • IS THE ROUTINE ALREAOY IN CORE 


09668 


44 


09716 


09666 


11000 




TFM 


I0RT,«*23 


096R0 


16 


00565 


-9703 


11010 




B 


I0GT.SPL1.7 


09692 


49 


00566 


-9724 


1 1020 




CF 


LAYSPL 


09704 


33 


09666 


nnnAA 

uuuuu 


11030 


CHEX 


B 


99999 


09716 


49 


99999 


00000 


11040 




OORG 


•-3 


09724 








1 1050 


R I GONE 


OS 


.GOONY-24 


09614 




0 




11060 


SPl I 


OSC 


2,22,, DDA FOR BRINGING IN THE SACRED SIX 


09724 




2 








22 












11070 




DSA 


SPL2 


09730 




5 


X 1 










09730 




-9732 




11080 




nc 


It* 


09731 




I 




11090 


SPL2 


OSC 


1,1 


09732 




I 




11100 




1 

OC 


5,19338 


09737 




5 








J9338 










11110 




OC 


3,025 


09740 




3 








-25 












11 120 




DC 


6,02458* 


09746 




6 








-2458' 










11130 


GREAT 1 


TFM 


I0RT,«*23,, TRA-TCO FOR THROWING THE SECONDARY LINKAGE TO D 


09748 


16 


00565 


-9771 


11140 




8 


I0PT,GREAT2,7 


09760 


49 


00532 


-9796 


11150 




TRA 




09772 


36 


00000 


00500 










09784 


49 


00000 


00000 


11160 


GREAT2 


DSC 


2,22 


09796 




2 








22 












1 1 170 




DSA 


GREAT3 


09802 




5 


x 1 










09802 




-9804 




11180 




OC 




09803 




1 




11 190 


GREAT3 


DSC 


1,1 


09804 




I 




11200 




1 

OC 


5.18197 


09809 




5 








J8197 










11210 




DC 


3,003 


09812 




3 








-03 












11220 




DC 


6,09500* 


09818 




6 








-9500' 










11230 




TCD 


GREAT 1 


09748 








11240 




DEND 


0 


00000 









1057 
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ADDBLK 


03912 


GETRTR 


02956 


RE0SP3 


04624 


GETL 


09500 


SPL2 


09732 


ADRSPL 


02840 


GREATl 


09748 


REOSPL 


04220 


GETR 


09520 


SPLFL 


04600 


BAVAIL 


02830 


GREAT2 


09796 


REMOTR 


03104 


GOONY 


09638 


SPLRl 


04848 


CLEVER 


02827 


GREAT3 


09804 


REMOVE 


09560 


HERO 


07520 


SPLR2 


04863 


CLFLAG 


06736 


INCORE 


09668 


REPACK 


02852 


HEX 


02868 


SPORT 


04480 


COMMON 


02926 


INSERT 


09580 


RETURN 


06512 


IOGT 


00566 


STEAL 


02918 


COMPEL 


06780 


INSETR 


03190 


RITSPO 


07064 


IOPT 


00532 


TABA 


05696 


CONSTl 


02874 


JANITO 


07676 


RITSPl 


07096 


IORT 


00565 


TA8B 


05816 


C0NST2 


02880 


LAYSPL 


09666 


RITSP2 


07128 


KEYl 


06335 


TABC 


05064 


C0NST3 


05130 


LENLIS 


05840 


RITSP3 


07160 


KEV5 


05149 


TIPSY 


03226 


C0NST5 


02898 


LENSCT 


05450 


RLGONE 


09614 


LDX 


06936 


TRWAA 


06946 


C0NST6 


02904 


LISTER 


09654 


ROMENF 


05718 


LIMIT 


05148 


TRWBB 


06954 


CONST 7 


02910 


LISTES 


09661 


AAA 


06660 


LOOP I 


05944 


SANDOR 


05402 


C0NST8 


02934 


LISTET 


09665 


ACCUM 


05863 


LOOP 2 


06024 


SCRASN 


05762 


CONTIN 


07236 


LNGNFF 


06872 


ACT2 


06212 


LOOP 3 


05992 


SETKEY 


06456 


CORSIZ 


02627 


LOUNGE 


06214 


ACT3 


06144 


L0OP4 


06240 


SLOEQV 


05087 


CURREN 


05145 


MELANC 


07792 


ACTN 


05560 


LOOP 5 


06164 


SLEEPY 


06074 


ODFINl 


07204 


MONITR 


06960 


ACTP 


06280 


LOOP 6 


06220 


SLIPRY 


05056 


DDFIN2 


07252 


MOVESA 


09625 


ACTQ 


05864 


L00P7 


06336 


SPLCOR 


02850 


DDFIN3 


07260 


MOVESC 


09628 


ACTR 


05956 


LOOPA 


05888 


SPLCYL 


02845 


DDFIN4 


08448 


N48000 


02624 


ACTT 


05656 


LOOPB 


05900 


SPLEXT 


03484 


00FIN5 


08496 


NEWDIM 


09649 


888 


05804 


LUCKY 


06154 


SPL INI 


04116 


0DFIN6 


08504 


NEUTOT 


06649 


CALC2 


02613 


M0DS2 


06004 


SPLIST 


03956 


DIMERR 


02653 


NOMMON 


02928 


CALC3 


02608 


NERR 


03354 


SPLPKO 


02742 


OIMMER 


09600 


NOSECA 


02929 


CALC4 


02867 


NWTOT 


06467 


SPLPKl 


02765 


DIMMTR 


02458 


NUMMOD 


06422 


CALC7 


02921 


ODIM 


06656 


SPLPK2 


02788 


DMREAD 


02588 


NURSES 


07888 


CALC9 


02863 


OEOV 


06659 


SPLPK3 


02811 


DRESTR 


02618 


OLDTOT 


06653 


CHEX 


09716 


PACK 


02856 


STARDT 


04164 


OUMOIM 


08076 


OUTSVD 


06922 


CLUCK 


04128 


PATCH 


05459 


THRDDA 


02628 


OUPCRD 


09337 


PHASE2 


05600 


CS 


05200 


QHOLD 


02892 


THROWS 


02636 


ELCHEK 


06756 


PHASES 


05200 


DFINE 


05174 


SARB 


05150 


TLDEQV 


05110 


EQVLEN 


08400 


PKODOA 


02734 


DL 


06715 


SARC 


05158 


TRWSLD 


05079 


ERROR 1 


05698 


PK10DA 


02757 


DMOOA 


02580 


SARF 


08176 


TRWTLD 


05102 


ERRORS 


07216 


PK2DDA 


02780 


DOC 


05958 


SARH 


08184 


TRYAGN 


03604 


ERRR1T 


02936 


PK30DA 


02803 


EL 


05887 


SARI 


07996 


UNPACK 


02854 


EXITMR 


09630 


PKROOM 


0S606 


END 2 3 


06921 


SARJ 


07100 


WHYNOT 


07164 


FAKSEV 


02925 


PLUSSR 


03868 


ENUPF 


06026 


SARK 


08424 


WRTSPO 


04360 


FIELDX 


06944 


QCARRY 


02886 


ERR23 


06282 


SARL 


08432 


WRTSPl 


04392 


FINOTR 


03440 


RACKET 


02914 


ERRD 


02690 


SARN 


06970 


WRTSP2 


04424 


FIXEOV 


05878 


REDSPO 


04668 


ESOR 


06530 


SARO 


07018 


WRTSP3 


04456 


FIXSUP 


06302 


REDSP1 


04712 


FIND 


09540 


SARP 


07026 


ZEROES 


05140 


GETLTR 


03030 


RE0SP2 


04756 


FOUND 


02635 


SPL1 


09724 







END OF ONE ASSEMBLY. 



1 058 J 



MONITOR SYSTEM LOADER 



PAGE 



OOOIO 


• 


THIS PROGRAM WILL LOAO MONITOR I SYSTEM TO DISK 










00020 


• 


FORMAT FOR CNTR CO IS *IDCNTR NAME PR SSSSSS EEtfcEE NN NNS 










00030 




OORG 


7404 


07404 








00040 


STAR 


TR 


3972, NAP- I 


07404 


3i 


0397? 


08866 


00050 




RACO 


3973,,, RAPT IF PAPER TP •♦♦•#• 


07416 


37 


03973 


00500 


00060 




TFM 


T0U6,4000 


07428 


16 


07526 


-4000 


00070 




TFM 


TD! ♦11,4003 


07440 


16 


07531 


-4003 


00080 




SF 


39 72 


07452 


32 


039 72 


00000 


00090 




SF 


1988 


07464 


32 


0398* 


00000 


00100 




BNR 


•♦20,3983 


07476 


45 


07496 


03983 


00110 




B7 


ERH1 


07488 


49 


08042 




00120 




C 


3985,LDCTR*12 


07496 


24 


03985 


08041 


00130 




BNE 


ERHI 


07508 


47 


08042 


01200 


00140 


TO I 


TO 


4000,4003,27 


07520 


25 


-4000 


-4003 


00150 




AM 


TDI+6, 1 


07532 


11 


07526 


-0001 


00160 




AM 


TD I ♦ 1 1 , 2 


07544 


11 


07531 


-0002 


00170 




CM 


fDI+6,4067 


07556 


14 


07526 


-4067 


WW low 




BNE 


TDI , , , CONVERT CNTRL CD TO NUMERIC 


0 f 568 


•1 f 




At inn 


00190 


SFl 


SF 


4001,,, SET FIELD FLAG ON SECTOR ADDR 


07580 


32 


04001 


00000 


00200 




SF 


4008,,, AND ON SECTOR COUNT 


07592 


32 


04008 


00000 


00210 


TEMPSC 


OS 


,SFl*ii 


07591 




0 




00220 




SF 


4014 


07604 


32 


04014 


00000 


00230 




S 


4012,400* 


07616 


22 


04012 


04005 


00240 




BL 


ERHI 


07628 


47 


08042 


01300 


00250 




TOM 


4006,0,, PLACE REC MK FOR TR 


07640 


15 


04006 


00000 


00260 




DC 
• 


lt f 


07651 




1 




00270 




TR 


DSK0UT,4000 


07652 


31 


09028 


04000 


00280 




AM 


4012,1 


07664 


11 


04012 


-0001 


00290 




TF 


TOTSEC4012,, SAVE TOTAL SECTOR COUNT 


07676 


26 


08511 


04012 


00300 




TFM 


TEMPSC, 0 


07688 


16 


07591 


-0000 


00310 




SF 


4060 


07700 


32 


04060 


00000 


00320 




TF 


CH*i 1,4064 


07712 


26 


07879 


04064 


00330 




TF 


CH*9 f 4016 


07724 


26 


07877 


04016 


00340 




AM 


CM+11,1 


07736 


11 


07879 


-0001 


00350 


INITZ 


TFM 


DSKOUT+8,0,9, MAKE SECTOR CNT ZERO 


07748 


16 


09036 


00-00 


00360 




TFM 


DSKOUT+13,5000 


07760 


16 


09041 


-5000 


00370 




TO 


NOP* 1,1,, MAKE WLRC SW INTO NOP 


07772 


25 


09287 


00001 


00380 


• 














00390 


• 


RE AO INPUT FOR DISK LOAD 










00400 


• 














00410 


COINI 


TFM 


RC*6,50O0 


07784 


16 


07814 


-5000 


00420 




TFM 


CM*6,5079 


07796 


16 


07874 


-5079 


00430 


RC 


RNCD 


5000,, 2, RNPT IF PAPER TAPE INPUT ••»••• 


07808 


36 


-5000 


00500 


00440 




BI 


HAL TRO, 0600 


07820 


46 


07996 


00600 


00450 




TF 


BF+ll,CM+6,, NOP IF P. T. 


07832 


26 


07867 


07874 


00460 




SM 


BF+11,4,, NOP IF P. T. 


07844 


12 


07867 


-0004 


Ou% r U 


Ck c 
or 


BNF 


COl, 0,, NOP IF PAPCR TP •♦•••* 


07856 


44 


08466 


00000 


00480 


CM 


CM 


5079,1,27, COMPARE CD SEQ NOP IF TP»»»»» 


07868 


14 


-5079 


-0001 


00490 




BNE 


ERSEQ-12,,, NOP IF !*>••»•• 


07880 


47 


08250 


01200 


00500 




AM 


CM>11, 1 


07892 


11 


07879 


-0001 


00510 




BD 


RDTRL , ER SEQ + 10, , BR TO READ TRAILER 


07904 


43 


08488 


08272 


00520 




CM 


RC*6,5000, ,CK FOR FIRST CD OF SET 


07916 


14 


07814 


-5000 


00530 




BE 


ADJUST 


07928 


46 


08158 


01200 


00540 




CM 


RC*6, 507*, f 2ND CD CK 


07940 


14 


07814 


-5075 


00550 




BE 


ADJUST 


07952 


46 


08158 


01200 
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2 



00560 




CM 


RC*6,5150,,3RD CD CK 


07964 


14 


07814 


-5150 


005T0 




BE 


ADJUST 


07976 


46 


09158 


01200 


00580 




B7 


WRDSK t v t 4TH CD WAS READ, WRITE 3 SECTORS 


07988 


49 


09042 




00590 


• 














00600 


HALTRD 


WAT Y 


• ♦15 


07996 


39 


0801 1 


00100 


00610 




DAC 


6, HRDER • 


08U09 




6 


X 2 






HRDEK • 










00620 




B7 


RC 


08020 


49 


07808 




00630 


• 














00640 


LDCTR 


DAC 


7, «LDCNTR 


08029 




7 


X 2 






•LDCNTR 










00650 


ERHI 


RCTY 




08042 


*4 


00000 


00102 


00660 




WAT Y 


ERHIGH 


08054 


*9 


08087 


00100 


00670 




H 




08066 


48 


00000 


00000 


00680 




B7 


STAR 


08078 


49 


07404 




00690 


ERHIGH 


DAC 


36, CONTROL STATEMENT INVALID, RE-ENTER* 


08087 




36 


x 2 






CONTROL STATEMENT INVALID, RE-ENTER* 










00700 


ADJUST 


AM 


DSKOUT+8,1,9, I NCREMENTSECTOR COUNT 


08158 


I I 


09036 


00-01 


00710 




AM 


RC*6,75,, INCREMENT READ-IN POINTER 


08 1 70 


11 


07814 


-0075 


00720 




AM 


CM*6,75,, INCREMENT SEO NUM ADDRESS 


08182 


11 


07874 


-0075 


00730 




AM 


TEMPSC1,, ADD TO COUNT OF SECTORS USED 


08194 


11 


07S91 


-0001 


00740 




C 


TOTSECTEMPSC ALL SECTORS PREPARED FOR LOAD 


08206 


24 


09511 


07591 


00750 




BNE 


RC,,, READ ANOTHER RECORD 


08218 


47 


0 7808 


01200 


00760 




TDM 


ERSEO+10,1,, SET TERMINAL INOICATOR 


08230 


15 


0R2 72 


00001 


00770 




B7 


RC 


08242 


49 


07808 




00780 


• 














00790 


• 


SEQUENCE ERROR ROUTINE 










00800 


• 














00810 




TFM 


SAVMSU18, RC 


08250 


16 


08352 


-7808 


00820 


ERSEO 


RCTY 




08262 


34 


00000 


00102 


00830 




BD 


TRSEQ, ERSEO* 1 0 


08274 


43 


08354 


08272 


00840 




TF 


W0UT*4,CM*6, 11, TRANSFER WRONG SEQ NO. FOR PRINTING 


08286 


26 


0B464 


0787M 


00850 




WNTY 


WOUT 


08298 


38 


0 8460 


00100 


00860 




WATY 


ERR 


08310 


39 


08391 


00100 


00870 




BI 


•♦12,0700 


08322 


46 


08334 


00700 


00880 


SAVMS1 


H 




08334 


48 


00000 


00000 


00890 




B7 


RC 


08 346 


49 


07808 




00900 


TRSEQ 


WATY 


TC 


08354 


39 


08375 


00100 


00910 




B7 


SAVMSl-12 


OB 366 


49 


08322 




00920 


TC 


DAC 


8, TRAILER , 


08375 




8 


X 2 






TRAILER 










00930 


ERR 


DAC 


35, CARD SEQ ERROR, CORRECT AND START* 


08391 




35 


X 2 






CARD SEO ERROR > CORRECT AND START* 










00940 


WOUT 


DSC 


6,00000* 


08460 




6 








00000* 










00950 


• 














00960 


• 














00970 


• 


TRAILER CARD EARLY DETECTION ROUTINE 










00980 


• 














00990 


CDl 


TFM 


CM*6,0,67, SPECIAL SEQ NUM IF NON-SEO AND NOT TRAILER 


08466 


16 


0787M 


-0000 


01000 




B7 


CM 


08478 


49 


07868 




01010 


• 














01020 


• 














01030 


SK ADR 


DC 
R99 


3,999 


08487 




3 




01040 


• 
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01050 • LAST CO READ AND CK 

01060 • 



01070 


RDTRL 


RNCD 






08488 


36 


0531 1 


oosoo 


oioao 


TOTSEC 


OS 


•RDTRL+23 






08511 




0 




01090 




SF 


5311 






08500 


32 


05311 


00000 


01100 




TFM 


SAVMS1+18* RDTRL 






08512 


16 


08352 


-8488 


OHIO 




C 


5390,CM*il,, NOP IF P. T. • ••»• 






08524 


24 


05390 


07879 


01120 




BNE 


ERSE 0, 1 9 NOP IF P. T. ♦ 






08536 


47 


08262 


01200 


01130 




80 


•♦60,5318 






08548 


43 


08608 


05318 


01140 




BO 


•♦48,5317 






08560 


43 


0860R 


05317 


01150 




BNR 


♦♦36,5316 






08572 


45 


08608 


05316 


01160 




CM 


5315,99999 






08584 


14 


05315 


R9999 


01170 




BE 


WRDSK , , , BR IF TRAILER OK 






08596 


46 


09042 


01200 


01180 


• 


ERROR NO TRAILER REC 














01190 


• 


















01200 


ERTR 


rct y 








08608 


34 


00000 


00102 


01210 




WAT Y 


NOTRL 






08620 


39 


08713 


00100 


01220 




RCTY 








08632 


34 


00000 


00102 


01230 




waty 


N0TRL2 






08644 


39 


08807 


00100 


01240 




RCTY 








08656 


34 


00000 


00102 


01250 




Bl 


•♦12,0700 






08668 


46 


08680 


00700 


01260 




TOM 


ERSEQ*iO,0 






08680 


15 


082 72 


00000 


01270 




H 








08692 


48 


00000 


00000 


012S0 




B7 


ERTR 






08704 


49 


08608 




01290 


NOTRL 


DAC 


47, NO TRAILER REC. CORRECT, RE-LOAD 


COMPLETE DECK* 




08713 




47 


X 2 






NO TRAILER REC. CORRECT, RE-LOAD COMPLETE 


DECK* 












01300 


N0TRL2 


DAC 


30, WITH CNTR REC, AND BR TO 7404* 






08807 




30 


X 2 






WITH 


CNTR REC, AND BR TO 7404 • 














01310 


* 


















01320 


NAM 


DAC 


50, 




t 


08867 




50 


X 2 


01330 




OAC 


31, 

i 






08967 




31 


X 2 


01340 


DSKOUT 


DSS 


6 






09028 




6 




01350 




OC 


3,0 






09036 




3 








-00 
















01360 




DSA 


5000 






09041 




5 


X 1 











09041 




-5000 




01370 


• 




WRITE DISK ROUTINE 










01380 


WROSK 


C 


DSKOUT* 3, SKA OR,, CK FOR SEEK NEEDED 


09042 


24 


09031 


08487 


01390 




BE 


• ♦36 


09054 


46 


09090 


01200 


01400 


SKI 


SK 


DSKOUT 


09066 


34 


09028 


00701 


01410 




TF 


SKADR, DSKOUT+3,, SAVE SEEK ADORESS 


09078 


26 


08487 


03031 


01420 




WON 


OSKOUT 


09090 


38 


09028 


00702 


01430 




CON 


DSKOUT 


09102 


36 


09028 


00703 


01440 




BI 


ASC3800,, BR OVERFLOW 


09114 


46 


09452 


0 3800 


01450 




BI 


TEST, 1900,, BR ANY OTHER ERROR 


09126 


46 


09214 


01900 


01460 




BNI 


SM2,1900,, BR NO ERRORS 


09138 


47 


09182 


01900 


01470 


H2 


H 




09150 


48 


00000 


00000 


01480 




BI 


•♦12,0700 


09162 


46 


09174 


00700 


01490 




B7 


SKI 


09174 


49 


09066 




01500 


SM2 


A 


DSK0UT*5,DSK0UI>8,,AD0 NUMB SECT WRITTEN TO SECTOR ADDR 


09182 


21 


09033 


09036 


01510 




BD 


END, ERSEQ* 10, , BRANCH IF LAST WRITE 


09194 


43 


09508 


08272 


01520 




B7 


INITZ,,, BRANCH IF NOT LAST WRITE 


09206 


49 


07748 





' 06 J 
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01540 


TEST 


Bl 


•♦12,0600 


09214 


46 


09226 


00600 


01550 




RI 


•♦12,0700 


09226 


46 


09238 


00700 


01560 




Bl 


•♦12,1600 


09238 


46 


09250 


01600 


015T0 




BI 


•♦12, 1700 


09250 


46 


09262 


01700 


01580 




Bl 


•♦12,3600 


09262 


46 


09274 


0)600 


01590 




BI 


•♦12,3700 


09274 


46 


09286 


03700 


01600 


• 


WRONG LEN REC CK ROUTINE 










01610 


NOP 


NOP 


ONESEC,, , NOP 1ST TIME, BRANCH 2ND TIME 


09286 


41 


09318 


00000 


01620 




TO 


N0Pvl,9 


09298 


25 


09287 


00009 


01630 




B7 


SKI 


09310 


49 


09066 




01640 


ONESEC 


TOM 


NOPti-t i 


09318 


15 


09287 


00001 


01650 




RCTY 




09 330 


34 


00000 


00102 


01660 




WATY 


OERR 


09342 


*9 


09387 


00100 


01670 




BI 


•♦12,0700 


09354 


46 


09366 


00700 


01680 




H 




09366 


48 


00000 


00000 


01690 




B7 


SKI 


09378 


49 


09066 




01700 


OERR 


OAC 


33, DISK RD WR ERROR, START TO RETRY* 


09387 




*3 


X 2 






DISK 


RD WR ERROR, START TO RETRY* 










01710 


• 














01720 


• 


OVERFLOW ROUTINE 










01730 


ASC 


BI 


H2, 1900,, BR IF OTHER ERROR ALSO 


09452 


46 


09150 


01900 


01740 




AM 


DSK0Um3, 100, , INCREMENT CORE WRITE-OUT AODRESS 


09464 


11 


09041 


-0100 


01750 




AM 


DSK0UT*5,1,, INCREMENT SECTOR ADDR 


09476 


11 


09033 


-0001 


01760 




SM 


DSK0UT^8,l,9 


09488 


12 


09036 


00-01 


01770 




B7 


SKI 


09500 


49 


09066 




01780 


• 














01790 


• 


ENU ROUTINE 










01800 


• 














01810 


END 


TOM 


ERSEQ* 10, 0 


09508 


15 


08272 


00000 


01820 




TF 


LDMESS^10,3999, f GET NAME INTO MESSAGE 


09520 


26 


09717 


03999 


01830 




RCTY 




09532 


34 


00000 


00102 


01840 




WATY 


LOMESS 


09544 


39 


09707 


00100 


01850 




BI 


•♦12,0700 


09556 


46 


09568 


00700 


01860 




TOM 


4006,0 


09568 


15 


04006 


00000 


01870 




OC 
• 




09579 




1 




£1880 




WNTY 


4000 


09580 


38 


04000 


00100 


01890 




BI 


•♦12,0700 


09592 


46 


09604 


00700 


01900 




A 


4005,T0TSEC,, PREPARE FINAL 


09604 


2i 


04005 


08511 


01910 




SM 


4005,1,, SECTOR TYP60UT 


09616 


12 


04005 


-0001 


01920 




WATY 


LDMES2 


09628 


39 


09697 


00100 


01930 




WNTY 


4000 


09640 


38 


04000 


00100 


01940 




BI 


♦♦12,0700 


09652 


46 


09664 


00700 


01950 




BCl 


• ♦24 


09664 


46 




uui uu 


01960 


SAVMES 


H 




09676 


48 


00000 


00000 


01970 




B7 


STAR 


09688 


49 


07404 




01980 
















01990 


LDMES2 


OAC 
TO • 


5, TO • 


09697 




5 


X 2 


02000 


LOMESS 


OAC 


20, AAAAAA LOADED FROM • 


09707 




20 


X 2 






AAAAAA LOADED FROM • 








02010 




DEND 


STAR 


07404 
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ADJUST 


08158 


BF 


07856 


ERTR 


08608 


SF1 


07580 


WOUT 


09460 


DSKOUT 


0902 8 


CDl 


08466 


H2 


09150 


SK ADR 


08487 


WRDSK 


09042 


ERHIGH 


08037 


COINI 


07784 


INITZ 


07748 


SKI 


09066 


SAVMES 


09676 


HALTRD 


07906 


CM 


07868 


LDCTR 


08029 


SM2 


09182 


SAVMS1 


08334 


LOME S2 


09697 


DERR 


09387 


NAM 


0R867 


STAR 


07404 


TEMPSC 


07591 


LDMESS 


09707 


END 


09508 


NOP 


09286 


TC 


08375 


TOTSEC 


08511 


NOTRL2 


0880 7 


ERHI 


08042 


NOTRL 


08713 


TDI 


07520 






ONESEC 


09318 


ERR 


08391 


RC 


07808 


TEST 


09214 






ASC 


09452 


ERSEQ 


08262 


ROTRL 


08488 


Tft-SEQ 


08354 







END OF ONE ASSEMBLY, 



1 063 



ZZJO* FORTRAN I I -0 SAMPLE PR0GRAM2 0001 

ZZFORX51 Z 0002 

DIMENSION F( 10) ,F( 1C) ,G< 10) ,H(5,5 ) » FUNCT ( 50 ) ,H1 < 5,5 ) , VALUE ( 50) 0^03 

OIMFN^TON ARM 10)' 0004 

HFFTNF r>!*< 110*200) 0005 

EQUIVALENCE ( F» ARG ) , I VALUE ,G ,H ) , (FUNCT, E,H1 ) 0006 

SCSFCTm*SINF( X)**2 + COSF( X)**2 0007 

20 READ 999»XZER0»XMAX,DELX 0008 

50 READ 987,A»B,C,D 0009 
READ 992*1 ARGf J)»J*ltlO) 0010 
REAO 991 t ( VALUE (L) »L=1,50) 0011 
READ 991 t ( FUNCT (L)»L S 1»50) 0012 
IND=1 0013 
RECORD! IND) ARG, VALUE » FUNCT 0014 
READ 988.! <H!M,N) ,N=1,5) ,M=1 ,5) 0015 
RECORD! IND) M 0016 
READ 984,!F!I).I=1.10) 0017 
READ 984.!GIJ) • J=l .10) 0018 
PRINT 983 0019 

200 X«XZERO 0020 

30 X1*SINF!X) 0021 

X2*C0SFm 0022 

X3«SINF!X)/COSF{X) 0023 

X4*EXPF!X) 0024 

X5»FXPFI-X) 0025 

X*«LOGFm 0026 

X7*LOGFlX>/2. 3058509 0027 

X8*SORTFCX) 0028 

X9«ATANF(X) 0029 

X10*LOGF!X3)/2.3058509 0030 

PRINT 998 ,X»X1.X2 ,X3 0031 

PRINT 998.X.X4.X5 0032 

PRINT 998,X.X6.X7 0033 

PRINT 998,XtX8 0034 

PRINT 998,X,X9,X1C 0035 

PRINT 988 0036 

IFIX-XMAX) 40.51,51 0037 

40 X«X*DELX 0038 

GO TO 30 0039 

51 DO 61 I*ltlO. 5 0040 
E(I)*SC5FCT(F(D) 0041 
DO *>5 J* 1,1 0.5 0042 
F(T)«J 0043 
PRINT 999, F( I ) 0044 
K*G!J) 0045 
PRINT 998, E( I) 0046 
PRINT 993 , J> G ! J ) »K 0047 

55 CONTINUE 0048 

61 CONTINUF 0049 
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Oo 



FORTRAN II-D SAMPLF PROGRAM 



PAGE 2 



INO=l 

FFTCHUND) ARGtVALUFtFUNfT 
DO 63 J*l»10 
DO 70 1*1,50 

I Ft ARG ( J ) -VALUE ( L ) ) 70*65,70 
65 PRINT 990 1 ARG i J ) ♦ FUNC T ( L ) 
70 CONTINUE 
63 CONTINUE 

FETCH ( IND) H 

DO 130 M=lt2 

DO 80 N=l »^ 

Hl<MtN)=H(M f N)«1.0E+2 

PRINT 990,H1 ( W *N) 
80 CONTINUE 
130 CONTINUE 

PAUSF 

GO TO 20 

983 FORMAT ( 1 IX 1HX 13X 6HSI Hi X ) 10X 6HC0S(X) 10X 6HTANCX) /11X1HX 13X 

1 6HEXP ( X ) 10X 7HEXP(-X)/ 11X 1HX 13X 6Hl0G ( X ) 9X 8HLOG10IX)/ 11X 

2 1HX 13 X 7HSQRT(X)/ 11X 1HX 13X 7HATAN ( X ) 7X 1 3HL0G 10 ( TAN ( X ) ) // ) 

998 FORMAT! 4F 16. 8) 

991 FORMAT ( 1 0F5.2 ) 

992 FORMAT(F4.2t9F5.2) 

993 FORM AT < I 3 ♦ 5 X t F 1 0 • 7 » 5 X • I 3 ) 

984 FORMAT C 10F4. 2) 

987 FORMAT (F5 • 3 , 1 X* F5 . 3 » 1 X • F5 . 3 » 1 X * F5 . 3 ) 

999 FORMAT! 3F4.0) 
990 FORMAT (2F20. 7) 

988 FORMAT! 10F4. 3) 
END 

♦DATA 

•40 .60 .10 

1.111 2.222 3.333 4.444 

5.0 10.0 24.0 11. n ^9.0 17.0 44.0 41.0 50.0 1.0 

I. 0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0 10.0 

II. 0 12.0 13.0 14.0 15.0 16.0 17.0 18.0 19.0 2C0 
21.0 22.0 23.0 24.0 25.0 26.0 27.0 28. C 29.0 3C.0 
31.0 32.0 33.0 34.0 35.0 36.0 37.0 38.0 39.0 40.0 

41.0 42.0 43.0 44.0 45.0 46.0 47.0 48.0 49.0 50. C 
1.10 2.10 3.10 4.10 5.10 6.10 7,10 8.10 9.10 10.1 

11.1 12.1 l*.l 14.1 !«.1 16.1 1^.1 1P.1 lo.i ? 0 .1 
21.1 22.1 23.1 ?4.1 25.1 26.1 ?7.1 28.1 ?9.1 ^0.1 
31.1 32.1 33.1 34.1 35.1 36.1 37.1 38.1 3°.l 40.1 
41.1 42.1 4*.l 44.1 45.1 46.1 47.1 48.1 4*.l 50,1 
•11 .22 .33 .44 .55 .66 .77 .88 .99 .10 
.11 .12 .13 .14 .1' 



.21 .22 .23 .24 .25 
1.1 2.2 3.3 1.4 1.5 
2.1 2.2 3.3 2.4 2.5 



.16 .17 .18 .19 .20 

1.6 1.7 1.8 1.9 2.0 
2.6 2.7 2.8 2.9 3.0 



0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
C065 
0066 
006 7 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 

0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 

^090 
00Q1 
0092 
0093 
0094 
00^5 
0096 

0097 
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♦THIS PROGRAM COMPUTES THE AREA UNDEF THE CURVE 

*SORT(3X»»2)ARCSINEX»WHFRF x Ll f *5 BF T WEEN 0 AND 1. THE AREA IS 
♦COMPUTED BY SIMPSONS RUL 

♦ FOR NUMERICAL INTEGRATION. THE AREA IS EVALUATED USING THREE 

♦ DIFFERENT VALUES FOR Df.\_ TAX • THEY ARE 0.10C» 0.05CW AND 0,025, 
START 



ASINE 



TF DF! T AX • X • 7 • TR/ 'i^M t t wai ijc 


OF INCREMENT 


TF APFA.7-** 




TF X^UBN.UNIT 




TDM • 1 • • <^FT ^W^ OFF 












TR ACMRN—Q •rONVT-Q • • TR AN^MT T 


A^UR^ TO ASURO 


TP DCTV.ACl IAN 




H rjlAIAdUull 








BNF #<f2#L«99 




SF 93 




TF P^IX.9^ 




tq AMiBN-9 .A^UBN+l 




A P<TX*AC!tRN 




RNR ASINF.ASUBN+1 




RNC1C0NTA 




TO P0LY*48#PSlX-9 




TD POLY+52.PSIX-8 




TO P0LY+54.PSIX-7 




TO P0LY+56tPSlX-6 




TO P0LY+58.PSIX-5 




TO POLY+60»PSlX-4 




TD POLY+62.PSIX-3 




TD P0LY+64.PSIX-2 




TO POLY+66tPSlX-l 




TD POLY+68tPSlX 




TD POLY+12.XSUBN-6 




TD P0LY+16tXSUBN-5 




TO POLY+18.XSUBN-4 




TD POLY+2CXSUBN-3 




RCTY 




WATYPOLY v 




TF PADCNDtUNIT 





S RADCNDt XSUBN » tRADICAND = 1-X 

TR RADCND.ZNINES-13. 
BNC1CONTB 

TD ARG+42.RADCND-6 

TD ASG+46 tRADCND-5 

TO ARG+48»RADCND-4 

TD ARG+50 tRADCND-3 

TD ARG + 52 tRAOCND-2 

TD ARG+54 »RADCND-1 « llfift 

TD APG + 56tRADCN r> I l»V« 
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RCTY 

WATYARG 
CONTB TF NINE»TW09 

TF OODINT tONEONE 

B **2*L 
ROOT A ODDINT-8tTWO 

S RADCND+7 tODD INT 

BNN ROOT 

A RADCND+7* ODD I NT 

TR RADCND-7 tRADCND-6 

SF RADCND-7 

S ODDINT-8 tNINE 

TF NI NE »NI NE-1 

BNF ROOT+l*L.TWO+l 

TF SORT »NI NFS 

SF RADCND+1 

S SORT tR ADCNO+6 

BNC1CONTC 

TO GENRT+24t SQRT-5 
TD GENRT+28 tSQRT-4 
TD GFNRT^^OtSORT-^ 
TD GENRT+32tSQRT-2 
TD GENRT+34»SQRT-1 
TD GENRT+36 t SORT 
RCTY 

WATYGENRT 
CONTC M SORTtPSIX 



SF 


85 






TF 


TFMP1.94 












TD 


FUNCT+10, 


TEMPI 


-9 


TD 


FUNCT+14» 


TEMPI 


-8 


TD 


FUNCT+16t 


TEMPI 


-7 


TD 


FUNCT+18» 


TEMPI 


-6 


TD 


FUNCT+20* 


TEMPI 


-5 


TD 


FUNCT+22. 


TEMPI 


-4 


TD 


FUNCT+24, 


TEMPI 


-3 


TD 


FUNCT+26t 


TEMPI 


-2 


TD 


FUNCT+28t 


TEMPI 


-1 


TD 


FUNCT+30t 


TEMPI 





RCTY 

WATYFUNCT 



SW1 



B 
M 

SF 
TF 
MM 
SF 
TF 



SW2 

XSUBNtXSUBN 
87 

TEMP2.96 

TEMP2t3tlO 

90 

PADCND f 96 
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TF PSIX.CONST+50 
S PSIXtTFMPl 
TDM ^Wl + U<5 
B R00T-14*L 
SW2 B ODOVN 

A AREA t TEMP 1-4 1 tFO+FN 

* INITIALIZATION FOR FSUBODD 

TF XSUBNtDELTAX 

TFM MULT+llfttlO 

TOM SW2+U9 

TF ACCUM.Z 

TF TEMP3»DELTAX 

A TEMP3»TEMP3 

B ASINE-3*L 
ODOVN A ACCUM» TEMPI 

A XSUBNt TEMP3 

C XSUBNt NINES 

BNH ASINE-3»L 
MULT MM ACCUM 

SF 88 

A APEAfO* 
SW3 B •♦6*L 

* INITIALIZATION FOR FSUBEVEN 

TFM MULT+ll»2tlO 

TF ACCUM tZ 

TF XSUBN»TEMP3 

TDM SW3+W9 

R ASTNF-**L 

M AREA tDELTAX 

SF 88 

TF TEMPI. 97 

M TFMf>i f THREES 

TD OUTPUT+26»DELTAX-5 

TD OUTPUT+28.DELTAX-4 

TD OUTPUT+30#DELTAX-3 

TD OUTPUT+46.83 

TD OUTPUT+50t84 

TD OUTPUT+52t85 

TD OUTPUT+54t86 

TD OUTPUT+56.87 

TD OUTPUT+58.88 

RCTY 

WATYOUTPUT 
AM START+11.7»10 
r* START+11 •X + ?i 
BNE START 
CALX I TCALLEX I T 

* ARFA DEFINITIONS 
DELTAXDS 7 
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X 


UL 




dc 




or 


A R F A 




2 


DC 


X.^UBN 


OS 


UNI T 


DC 


A C 1 IDM 


'Jon 




I/O 




Of 




DC 




DC 




nr 




DC 




DC 


L 


DS 


PMX 


DS 




DS 


raocndos 




DS 


tmin^dc 


TWO 


OS 


NINF 


DS 


TW09 


DC 


ODDINTDS 


ONEONEDC 


SORT 


OS 


NINFS 


DC 


TEMPI 


DS 


TFMP2 


OS 


ACCUM 


DS 


TFMP^ 


DS 


THRFFSDC 


POLY 


DAC 


ARG 


OAC 


GENRT 


DAC 


FUNCT 


OAC 



7, 

7, 
7, 

11 
7 

7, 

10 
1 

10 
10 
10 

i n 

10 

n 
»i 



100000 
50000 
25000 

• 0 

1000000 

• 6 

♦-4337769 
♦19349939 
♦-44958884 

• 87R7f^l 1 
♦-214512362 
•1570795207' 
2 



10 
1 
7 

13 

15,9990P<?9» 
6 
6 

12 1 
14 
14, 

6 
6i 

10 
10 
11 
7 

7^3333333 

36^FOR X-0.000, POLYNOMIAL=0«000000000» 
30 9 S0UARE ROOT ARGUMENTS. 000000 • 
20 # SOUARE ROOT=0. 00000* 
17 f F(X)=0.000000000» 
OUTPUTOAC 31 ♦FOR DELT AX=0. 000 ♦ AREA = 0. 00000 • 
DENDSTART 



'♦200000090000 

^♦10000000000001 

,999999 



ttJOB 
**SPSX5 



Output from SPS II- D 
Sample Program 
Page 1 



END OF ASSEMBLY. 

U4660 CORE POSITIONS REQUIRED 

UU186 STATEMENTS PROCESSED 



EXECUTION 

FOR DELTAX-0.100, AREA-0. 68656 

FOR DELTAX-0.050, AREA-Q.682U1 

FOR DELTAX-0.025, AREA-0. 68096 
END OF JOB 



1 UTU 

9 



H JOB 



FORTRAN II -D SAMPLE PROGRAM 



MFORX51 

DIMENSION E(10),F(10),G(10),H(5,5),FUNCT(50),H1(5,5),VALUE(50) 
DIMENSION ARG(IO) 
DEFINE DISK (10,200) 

EQUIVALENCE ( F , ARG ), ( VALUE, G, H) , ( FUNCT, E, HI ) 

SCSFCT(X)=SINF(X)**2*COSF(X)**2 Output 
20 READ 999,XZERO,XMAX,DELX Paae 2 

50 READ 987,A,B,C,D 

READ 992,(ARG(J),J=1,10) 
READ 991, (VALUE(L),L*1,50) 
READ 991,(FUNCT(L),L=1,50) 
I ND=1 

RECORD(IND) ARG, VALUE, FUNCT 
READ 988, ( (H(M, N ) , N=l, 5 ) ,M»1, 5 ) 
RECORD ( I ND) H 
READ 93U,(F( I ), 1=1,10) 
READ 93U, (G(J),J»1,10) 
PRINT 983 
200 X=XZER0 
30 Xl-SINF(X) 
X2«COSF(X) 
X3»SINF(X)/C0SF(X) 
XU»EXPF(X) 
X5=EXPF(-X) 
X6=LOGF(X) 

X7=LOGF(X)/2. 3058509 

X8»SQRTF(X) 

X9=ATANF(X) 

X10=LOGF(X3)/2. 3053509 
PRINT 993,X,X1,X2,X3 
PRINT 998,X,Xl»,X5 
PRINT 998,X,X6,X7 
PRINT 998,X,X8 
PRINT 998,X,X9,X10 
PRINT 988 

IF(X-XMAX) 1*0,51,51 
kQ X=X*DELX 
GO TO 50 

51 DO 61 1 = 1,10,5 
Ed )-SCSFCT(F( I )) 
DO 55 J=l, 10, 5 

F ( I ) = J 

PRINT 999, F( I ) 
K=G(J) 

PRINT 998, E( I ) 

PRINT 993,J,G(J),K 
55 CONTINUE 
61 CONTINUE 

IND=1 

FETCH(IND) ARG, VALUE, FUNCT 
DO 63 J-1,10 
DO 70 L»l,50 

IF(ARG(J)-VALUE(L))70,65,70 

107 1 



Output 
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65 PRINT 990,ARG(J),FUNCT(L) 
70 CONTINUE 
63 CONTINUE 

FETCH(IND) H 

DO 130 M«l,2 

DO 80 N«l,3 

Hl(M,N)»H(M,N)*1.0E*2 

PRINT 990,H1(M,N) 
80 CONTINUE 
130 CONTINUE 

PAUSE 

GO TO 20 

983 F0RMAT(11X 1HX 13X 6HSIN(X) 10X 6HCOS(X) 10X 6HTAN(X) /11X1HX 13X 

1 6HEXP(X) 10X 7HEXP(-X)/ 11X 1HX 13X 6HLOG(X) 9X 8HLOG10(X)/ 11X 

2 1HX 13X 7HSQRT(X)/ 11X lHX 13X 7HATAN(X) 7X 13HL0G1Q(TAN(X) )// ) 

998 FORMATUF16.8) 

991 FORMATU0F5.2) 

992 FORMAT (F I* . 2,9F5.2 ) 

993 FORMAT ( I3,5X,F10.7,5X, 13) 
98«» F0RMATU0FU.2) 

98 7 FORMAT(F5.3, IX, F5 . 5 , IX, F5 . 3, IX, F5 . 3) 

999 FORMAT(3FU.O) 
990 FORMAT(2F20.7) 
988 FORMAT(10FU.3 ) 

END 
00003 0002 
00007 OOOl 
00011 0010 
00015 0050 
00019 0005 
00029 2305850901 
00033 0003 
0OOU3 1000000003 
00053 FUNCT 0051*3 
00053 E 00U3 

00053 Hi 00293 

00553 F 006U3 

00553 ARG 006U3 
00653 VALUE 0111*3 
00653 G 007U3 

OU653 H 00893 

01153 X* 
01163 XZERO 
01173 XMAX 
01183 DELX 

01193 A 

U1203 B 

01213 C 

01223 D 

01227 J 

01231 L 

01235 I NO 

01239 M 

0121*3 N 

0121*7 I 

41257 X 
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01267 XI 

01277 X2 

01287 X3 

01297 X4 

01307 X5 

01317 X6 

01327 X7 

01337 X8 

01347 X9 

01357 X10 

01361 K 
0U2O 01520 

0u5o Oisao 

0200 02620 

0030 02644 

001*0 03374 

0051 53418 

0055 0UQ18 

0061 Ol*05U 

0065 0l»39l* 

0070 0i»5H» 

0063 0l*550 

0080 34886 

0130 04922 

0983 04984 

0998 05426 

0991 05466 

0992 05506 

0993 05556 

0984 55616 

0987 05656 

0999 05738 
0990 05778 

0988 05818 
05872 CORES USED 
59999 NEXT COMMON 
END OF COMPILATION 
EXECUTION 

MAIN 07500 05872 LOADED 
15 13372 00526 LOADED 
14 13898 01234 LOADED 
12 15132 00880 LOADED 
06 16012 01228 LOADED 
03 17240 00510 LOADED 
02 17750 01062 LOADED 
01 18812 00802 LOADED 



X 
X 
X 
X 
X 



SIN(X) 
£XP(X) 
LOG(X) 
jSQRT(X) 
ATAN(X) 



..P&StX) 
i. EXP(-X) 
LOGIO(X) 

L0G1Q(TAN(X)) 



TAN(X) 
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.1*0000000 

.uooooooo 

.UU000000 
.UOOOuOOO 

.uooooooo 

.50QOOOUO 
.50000000 
.50000000 
.50000000 
.50000000 

.60000000 
.60000000 
.60000000 
.60000000 
.60000000 



.38911834 
1.U9182U60 
-.91629073 
. 6321*5553 
.38050637 

.1*791*2553 
1.6U872120 
-.6931U717 
.70710678 
.1*6361*761 

. 561»6U2t»7 
1.82211870 
-.51082562 
.771*59666 
.5U0U1950 



.92106099 
.67032001* 
-.397376U0 

-.37331*247 

.87758256 
.60653065 
-.30060363 

-.26219I»9U 

.82533561 
.51*881163 
-.221531*51* 

-.161*62355 



.1*2279321 



.5U6302U8 



.681*13680 



1. 
1 

6. 
6 

1. 
1 

6. 



.99999998 
2.1000UOO 

.99999998 
2.6000000 

.99999999 
2.1000000 

.99999999 
2.6000000 

5.0000000 
10.0000000 
2k .0000000 
11.0000000 
39.0000000 
17.0000000 
1*1* .0000000 
1*1.0000000 
50.0000000 

1.0000000 
11.0000000 
22.0000000 
33.0000000 
66.0000000 
77.0000000 
88.0000000 



2 
2 
2 
2 



5.1000000 
10.1000000 
21*. 1000000 
11.1000000 
39.1000000 
17.1000000 
1*1*. 1000000 
1*1.1000000 
50.1000000 

1.1000000 



0 



0\ 
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'national Business Machines Corporation 




40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 (Code 914) 



MEMORANDUM TO: 



Users of the "IBM 1620 Data Processing System 
IBM 1620 Monitor I Program 



SUBJECT: 



1620-1311 Monitor I System 
#1620-PR-025 (Card System) 



We are forwarding the subject system to you with this memorandum and are 
providing the following abstract which summarizes its capabilities. 

Abstract for 1620-1311 Monitor I System 

A. Purpose 

Monitor I, a disk- oriented system, allows the user to execute several 
programs without operator intervention. Jobs to be performed are 
stacked and separated by control records that identify the jobs. Jobs 
may be processed in any order; i. e. , FORTRAN compiling jobs, user 
jobs, SPS assembly jobs, and DISK UTILITY PROGRAMS (DUP) may be 
entered as input. Input may be from cards, paper tape or typewriter. 

Use of the Monitor I System reduces the amount of operator supervision 
time required of the programmer. Substantial savings in set-up time 
are achieved when jobs are performed using the Monitor I System. The 
IBM 1620 Monitor I System is comprised of: 



Supervisor Program 
Disk Utility Program 
SPSn-D 
FORTRAN II-D 



The Monitor I Supervisor Program consists of the following three 
routines. 
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The Monitor I Control Record Analyzer determines the type of Monitor I 
Control Record entered into the system, tests for Monitor I control 
record validity, tests for the correct disk pack on each drive, and takes 
appropriate action to load and execute the job specified. 

The Input- Output Routine (IORT) provided in the Supervisor performs 
input-output functions and tests all error indicators. It attempts to 
correct and re-execute the input or output function where possible. In 
the event of cylinder overflow, feasibility is tested and adjustments are 
made in disk address, sector count and core address. A seek is made 
and the file operation is executed for the adjusted disk control field. 

The System Output Format Loader is used by the Supervisor as necessary 
to load SPS II-D assembled or FORTRAN II- D compiled programs from 
card, paper tape, or disk to core storage. 

SPS II-D is designed to operate with the Monitor I System and cannot be 
operated independently. Card, typewriter, paper tape, and disk storage 
input/output routines, contained in the Supervisor program, are used by 
the SPS n~D macro -instructions to perform their assigned tasks. 

SPS control records are provided to control the assembly of SPS II-D 
programs. These records may be in card, paper tape, or typewriter 
form. 

FORTRAN II-D is an integral part of the Monitor I System and cannot be 
operated independently. Card, typewriter, paper tape, and disk storage 
input/output routines, contained in the Supervisor program, are used by 
the FORTRAN II-D statements. ~ 

In contrast to the basic FORTRAN II compiler, the disk-oriented compiler 
requires only 20,000 positions of core storage. Another feature of 
FORTRAN II-D is its ability to accept source statements from the 1621 
Paper Tape Reader. 

FORTRAN control records are provided to control the compilation of 
FORTRAN II-D programs. These records may be in card, paper tape, 
or typewriter form. 

The Disk Utility Program (DUP) is a group of routines designed to assist 
the User in the day-to-day operation of his installation. By means of 
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these routines, certain frequently required operations, such as loading 
or unloading disk storage (data or programs) from cards or paper tape, 
etc. , can be performed with minimum programming effort by the user. 

DUP is an essential part of the Monitor I System and cannot be operated 
independently. 

A DUP control record is required each time a Disk Utility routine is to 
be executed. 

B. Use 

The complete Monitor I System resides in 1311 disk storage. The 
Supervisor (Monitor I Control Record Analyzer and IORT) is called into 
core storage and it requests the entry of a Monitor I control record from 
typewriter, card reader, or paper tape reader. The control record may 
set up the system for a new job. Following may be Monitor I control 
records that specify programs to be compiled or assembled by the use of 
FORTRAN n-D or SPS II-D, a Disk Utility Program or data records. 

When a Monitor control record specifying SPS II-D or FORTRAN n-D is 
encountered by the Supervisor, the appropriate program is brought into 
core storage from disk and given control. The system program assembles 
or compiles and stores the object program on disk. If execution of the 
currently assembled or compiled program is desired, it is loaded to core 
storage and given control. 

An object program may also be stored on disk or punched in paper tape 
or cards after assembly or compilation. It may then be loaded to core 
storage at a later time and executed. 

li DUP is specified by a Monitor I control record, the supervisor brings 
DUP into core storage and executes it. The Disk Utility Program will 
take control and select the appropriate Disk Utility routine as identified 
by the next record in sequence which should be a Disk Utility Program 
control record. 

Machine Configuration 

1. IBM 1620 Model I System with a minimum of 20, 000 positions of core 
storage. 

2. IBM 1311 Disk Storage Drive, Model 3. 

3. Indirect Addressing Feature. 

4. IBM 1622 Card Read- Punch. 
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According to the Program Request Form you submitted, the material being 
forwarded includes: 



1. IBM 1620 Monitor I System (C26-5739) 

2. IBM 1620 Monitor I System composed of: 

Label 

Monitor I System Loader, Deck #1 
System Tables, Deck #2 



Disk Utility Program, Deck #3 

SPS H-D Subroutine Supervisor, Deck #4 

SPS H-D Subroutines, Deck #5 

SPS II-D Processor, Deck #6 

Supervisor, Deck #7 

FORTRAN n-D Processor, Deck #8 

FORTRAN Loader, Deck #9 

FORTRAN Subroutines with Auto Divide, Deck #10 



FORTRAN Subroutines with Auto Floating Point, 
Deck #11 



Numbered 
in 76-80 



00001- 
02001- 
03001- 
04001- 
10000- 
11000- 
12000- 
20000- 
22000- 
23000- 
80000- 
50000- 
51000- 
63000- 
64000- 
52000- 
53000- 
54000- 
55000- 
56000- 
57000- 
58000- 
59000- 
60000- 
61000- 
62000- 



•00040 
02108 
03268 
•04108 
10616 
•11135 
12060 
20069 
■22535 
■23924 
•80268 
50188 
■51987 
63268 
•64035 
52268 
53188 
54009 
55017 
56023 
57011 
58045 
59019 
60025 
61012 
62004 



65000- 
66000- 
67000- 
68000- 
69000- 
70000- 
71000- 
72000- 
73000- 
74000- 
75000- 



•65268 
•66188 
•67009 
■68016 
•69021 
•70011 
71044 
•72017 
73024 
74012 
75004 
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2. IBM 1620 Monitor I System composed of : (continued) 

. Numbered 

Label in 75-80 

Monitor I SPS II-D Sample Program 0001-0186 
Monitor I FORTRAN II-D Sample Program 0001-0098 

The following optional material is being forwarded, if requested: 

1. Listings: 

Label Pages 

SPS H-D 

SPS H-D, Phase A 
SPS H-D, Phase B 
SPS H-D, Subroutine Supervisor 
SPS LIB - The SPS H-D Modification Program 
SPS H-D Monitor I Subroutine Set 00 
SPS H-D Monitor I Subroutine Set 01 
SPS H-D Monitor I Subroutine Set 02 
SPS H-D Monitor I Subroutine Set 03 

Supervisor 



1620-1311 Supervisor and IORT 1-51 

1620-1311 Monitor Loader (System Output Format) 1-13 

FORTRAN H-D 

FORTRAN H-D, Phase 1-A 1-10 

FORTRAN H-D, Phase 1-B 1-62 

FORTRAN H-D, Phase 1-C 1-23 

FORTRAN H-D, Phase 2 1-89 

FORTRAN H-D Subroutines Set 1, Automatic Divide 1-55 

FORTRAN H-D Subroutines Set 2, Automatic Divide 1-26 

FORTRAN H-D Subroutines Set 3, Automatic Floating Pt. 1-48 

FORTRAN H-D Subroutines Set 4, Automatic Floating Pt. 1-25 

FORTRAN H-D Loader, Block 1 1-10 

FORTRAN H-D Loader, Block 2 1-9 

FORTRAN H-D Loader, Block 3 1-11 

FORTRAN H-D Loader, Block 4 1-7 

FORTRAN H-D Loader, Block 5 1-12 

FORTRAN H-D Loader, Block 6 1-6 

FORTRAN H-D Relocatable LN Routine 1-3 

FORTRAN H-D Relocatable Floating Exponential Routine 1-4 



1-57 

1-56 

1-12 

1-5 

1-2 

1-18 

1-20 

1-16 
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1. Listings: (continued) 



Label Pages 
FORTRAN n-D 

Subscripting Subroutine - Relocatable 1-2 

FORTRAN Disk I/O without Floating Point 1-7 

FORTRAN Relocatable Sine and Cosine Routine 1-4 

F ORTRAN Relocatable Arctangent Routine 1-4 

FORTRAN Relocatable Square Root Routine 1-2 

FORTRAN Relocatable Absolute Value Routine 1-2 

FORTRAN Relocatable LN Routine with Floating Point 1-3 
FORTRAN Relocatable Floating Exponential Routine 

with Floating Point 1-3 
FORTRAN Relocatable Subscripting Subroutine with , 

Floating Point 1-2 

FORTRAN Relocatable Absolute Value Routine 1-1 

FORTRAN Relocatable Disk I/O with Floating Point 1-7 
FORTRAN Relocatable Sine and Cosine Routine with 

Floating Point 1-4 
FORTRAN Relocatable Arctangent Routine with 

Floating Point 1-4 
FORTRAN Relocatable Square Root Routine with 

Floating Point 1-2 
FORTRAN Relocatable Absolute Value Routine with 

Floating Point 1-1 

Disk Utility Program 

SELECTION ROUTINE 1-16 

DWRAD 1-8 

DALTR 1-9 

DLABL 1-6 

DFLIB 1-5 

DCOPY 1-10 

DLOAD-DREPL-DELET 1-58 

DDUMP 1-13 

DFINE 1-26 

Monitor System Loader 1-5 

Monitor I SPS II-D Sample Program 1-4 

Monitor I FORTRAN II-D Sample Program 1-2 

Output from SPS II-D Sample Program 1-1 

Output from FORTRAN II-D Sample Program 2-5 
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2. Flow Charts 

Label Pages 

SPS n-D 

SPS n-D, Phase A, Section Al 1-27 

SPS n-D, Phases Bl and B2 1-27 
SPS LIB, SPS n-D Modification Program, Entry and 

CTL STM Process 1-5 

SPS n-D, Phase C _ 1-4 

Subroutine Supervisor SPS H-D, XEQ, Reading from 

Scratch to Core , 1-8 

Supervisor 

Monitor I IORT 1-7 

Monitor Relocating Loader 1-4 

Monitor Input Record Analyzer 1-5 

FORTRAN n-D 

FORTRAN n-D, Phase 1 1-3 

1-38 
1-3 

FORTRAN n-D, Phase 2 1-9 
F ORTRAN n I/O Subroutines 1-11 

1-3 

FORTRAN n-D Loader 1-4 

1-3 
1-2 
1-2 
1-1 

FLIP Routine for LOCAL Subprograms 1-1 

Disk Utility Program 

SELECTION ROUTINE 1-2 

DWRAD 1-1 

DLABL 1-2 

DALTR 1-1 

DELET 1-1 

DCOPY 1-3 

DFINE 1-1 

DFL3B 1-1 

DDUMP 1-6 

SEQSUB 1-6 

DLOAD 1-4 

DREPL 5-6 

Common Routines for DLOAD and DREPL 7-11 
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Note : The Monitor I System should be loaded in the sequence specified by 
Deck Numbers. 

Deck Number 11 should not be loaded if FORTRAN Subroutines 
for Automatic Divide Feature only are required. 

The sample programs provided with the system do not have monitor 
control records. These records should be entered via the typewriter, 
as shown on the sample program output pages. 

After the Monitor I System has been loaded, a Cold Start Procedure 
must be executed. See the 1620 Monitor I System (C26-5739) for 
further explanation. 

Reference 

The following reference material will be useful in implementing Monitor L 
IBM 1620 Monitor I System (Form C26-5739) 
IBM 1311 Disk Storage Drive, Model 3 (Form G26- 5650) 

The 1620 Monitor I System will be maintained through the use of modification 
letters. Whenever modifications are made to this system, a serially numbered 
letter, starting with 1, will be mailed to all users. The initial availability of 
this system is considered to be at modification level 0, and each letter increases 
this level by one. When this system is requested at a modification level other 
than 0, all modification letters will be supplied with the package, but only the 
latest deck will be forwarded since the system will always reflect the latest 
changes. Should the nature or quantity of changes make a reassembly necessary, 
a new version will be announced, and should be ordered through the IBM Branch 
Office. Modification letters to this version will begin at 1. 

Any discrepancies between the material you receive and the items listed above 
(as well as any error in card reproduction) should be brought to the attention 
of the Manager of DP Program Information Department, IBM Corporation, 
112 East Post Road, White Plains, New York. 

An Authorized Program Analysis Report should be submitted through your local 
IBM Systems Engineer to report any difficulties encountered in the use of this 
system. The APAR should be addressed to APAR Processing, Programming 
Systems Department, IBM Corporation, Monterey and Cottle Roads, San Jose 14, 
California. 



cc : Branch Offices, without end 



40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 (Code 914) 



September 9, 1963 



MEMORANDUM TO: Users of 1620-1311 Monitor I System 

SUBJECT: 1620-PR-025 (Card System) 

Modification No. 1 

This letter transmits Modification No. 1 of the 1620-1311 Monitor I System. 

Twenty- eight new cards are provided. They should replace the correspondingly 
numbered cards in your Monitor I Card System as indicated below: 

Card Number Deck Number 



03038 


2 


04O13 


2 


20006 


4 


20012 


4 


20013 


4 


20048 


4 


20062 


4 


20063 


4 


23058 


6 


23840 


6 


23297 


6 


23851 


6 


23748 


6 


23871 


'6 


51392 


8 


51246 


8 


51253 


8 


51710 


8 


51711 


8 


51712 


8 


51915 


8 


51922 


8 


51923 


8 


51928 


8 


51929 


8 


33007 


9 


83037 


9 


83261 


9 



cLb 



□ 



ternational Business Machines Corporation 
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After replacing the above cards, the entire Monitor I System should be reloaded 
to the 1311 Disk Unit , ^ ~ ^ " ^ ^ ^ ^ ~ ' *~~ 

Any discrepancies between the material you receive and the items listed should 
be reported to the Manager of DP Program Information Department, IBM 
Corporation, 112 East Post Road, White Plains, New York. 

Continued use of the Authorized Programming Analysis Report form for reporting 
difficulties will be appreciated. 



cc: Branch Offices without enclosures 
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SYSTEM TABLES - Deck #2 

DIM Tables - The following changes should be made to Card No. 03038: 

Change columns 28 through 34 from 8078(378 to 7084116 
change columns 72 through 74 from 272 to 350 

SEQ, PROG. LIST - Card No. 04013 should be changed as follows: 

Change columns 21-24 from 9116 to 0140. 

Two (2) new cards are provided, remove the present Card No. 03038 and 04013 
and insert the new in Deck #2. 



SPS II- D - Subroutine Supervisor, Deck #4 

1. ERROR : During an assembly in which subroutines are used, the subroutines 
are written in system output format to cylinder 08 without reference to the 
Scratch cylinder. 

CORRECTION : On page 3 of the listing, the statement at address 02803 should 
be changed as follows: 

From: 00850 DDAW DSC 2,22 02803 00002 
To: 00850 DDAW DSC 2,02 02803 00002 

Remove Card No. 20006 from Deck #4 and insert the new card provided. 

2. ERROR : An SPS Assembly requiring subroutines and having a * STORE CORE 
IMAGE control card will not load correctly. 

CORRECTION : The following changes are necessary to correct the problem: 

Page 4 of the listing (SPS Subroutine Supervisor) should be changed: 

From: 01420 BE RDCTL, , , BR IF CORE IMAGE etc. 03294 46 03346 01200 
To: 01420 BE CORIM, , , BR IF CORE IMAGE etc. 03294 46 07000 01200 

Page 9 of the listing should be changed: 

From: 04090 BNR *+36, ISTAT-30, BR IF CARD IMAGE 05970 45 06006 07444 
To: 04090 BNR *+36, CORIM , , BR IF CARD IMAGE 05970 45 06006 07000 
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In addition, the following instructions must be inserted in page 10 of the 
listing between source statement numbers 04530 and 04540. 



04531 


DORG 


7000 


07000 


04532 


CORIM TR 


WA2, WA 


07000 31 02934 07400 


04533 


TF 


WA+70, RMS 


07012 26 07470 06456 


04534 


TR 


WA+8, WA2 


07024 31 07408 02934 


04535 


TD 


CORIM, RMS 


07036 25 07000 06456 


04536 


AM 


DDAR+11, 1, 10 


07048 11 02576 OOOOl 


04537 


B7 


RDCTL 


07060 49 03346 



Five (5) new cards are furnished, they are cards numbers 20012, 20013, 
20048, 20062, and 20063. Please remove the correspondingly numbered 
cards from Deck #4 and insert the new ones provided. 



SPS II-D Processor, Deck #6 

1. ERROR : If the $ sign is improperly placed in a symbol, invalid characters 
are typed out in the error message. 

CORRECTION : Page 12 of the Phase A listing is changed as follows: 

From: 05640 BNE ERCHAR 06628 47 06708 01200 

To: 05640 BNE DOLLAR- 20 06628 47 06564 01200 

Page 14 of the Phase B listing is changed as follows: 

' From: 06100 BNE CHKND 07152 47 07750 01200 

To: 06100 BNE DOLLAR- 20 07152 47 07076 01200 

Two new cards are furnished: Card numbers 23058 and 23840. Remove the 
correspondingly numbered cards from Deck #6 and insert the new ones 
furnished. 

2. ERROR : IE a DNB statement specifies a length greater than 99 and the error 
is ignored, Phase A of the processor sets the length to 50 instead of 99. 

CORRECTION : Page 33 of the Phase A portion of the SPS n-D listing is 
changed: 

From: 16290 TFM LNTH, 00050 12744 16 02387 00050 

To: 16290 TFM LNTH, 00099 12744 16 02387 00099 
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Card No. 23297 provided should replace the card by the same number in 
Deck #6. 

3. ERROR: When assembling under the *ERROR STOP option, a spurious 
control card trap error may result in IORT under certain conditions. 

CORRECTION : Page 15 of the Phase B listing of SPS H-D should be changed 
as follows: 

From: 06830 B IOGT, TYPIN 2-4, 7 07934 49 00566 04154 

To: 06830 RATY INPUT+20 07934 37 02809 00100 

Remove Card No. 23851 from Deck #6 and replace it with the new Card No. 
23851 furnished. 

4. ERROR : When assembling a long form DP or DDW declarative, the address 
counter is not incremented correctly. 

CORRECTION : Page 42 of the Phase B listing of SPS H-D should be changed 
as follows: 

From: 20670 BD *+36, OP3SW 13662 43 13698 13035 

To: 20670 BNF *+36, OP3SW 13662 44 13698 13035 

Remove Card No. 23748 from Deck #6 and replace it with the new Card No. 
23748 furnished. 

5. . ERROR: An SPS Program using subroutines will not load correctly if an 
* STORE CORE IMAGE control card is used. 

CORRECTION : Page 50 of the Phase B listing of SPS H-D should be altered 
as follows : 

From: 24790 DO NOP 415,BUF+105 ,, MOVE FIRST ADR, 10072 41 00415 12430 
To: 24790 DO TDM CDIM, -1 ,, ELIMINATE RM 10072 15 02529 00001 

A new Card No. 23871 is furnished, remove the correspondingly numbered 
card from Deck #6 and insert the new. 
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FORTRAN n-D Processor, Deck #8 

1. ERROR : Erroneous error messages. 

CORRECTION : Phase 1-B, Page 55 of listing, change: 

From: 27700 BE *+24 14560 46 14584 01200 

To: 27700 BE *+20 14560 46 14580 01200 

Phase 1-B, Page 59 of listing, change: 

From: 30020 BNE 1F+36 13612 47 10332 01200 

To: 30020 BNE ERR02 13612 47 13468 01200 

Phase 1-B, Page 60 of listing, change: 

From: 30520 GOTOEN BNE SPERR 14120 47 09230 01200 

To: 30520 GOTOEN BNE ERR01 14120 47 04282 01200 

Phase 2, Page 80 of listing, change: 

From: 29290 M D4, L 14458 23 07017 07025 

To: 29290 B PAT1 . 14458 49 15490 00000 

New Cards No. B1392, B1246, 51253, and 51915 are provided, these should 
replace the correspondingly numbered cards in Deck #8. 

2. ERROR : Fixed array names in an Input-Output list are not properly relocated 
" if they appear in a subscript calculation. 

CORRECTION : Page 47 of the Phase 2 listing of FORTRAN n-D should be 
changed as follows: 

From: 17000 SF D4 15598 32 07017 00000 

To: 17000 NOP D4 1 5598 41 07017 00000 

On the same page change: 

From- 17040 TDM SS2, 1 15650 15 07477 00001 

To: 17040 B PATS 15650 49 15730 00001 
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On Page 48 of Phase 2, following Line No. 17110, the instructions listed 
below should be inserted as a "patch": 



17111 PAT3 BD 
B7 
BNF 
TDM 
TDM 
B 



*+20, RXFLAG 
*+32 

*+24, 101 
SS4,1 
SS2,1 
15662 



15730 43 15750 04735 
15742 49 1 5774 0 
15750 44 1 5774 09327 
15762 15 07479 00001 
15774 15 07477 00001 
15786 49 15662 



Three (3) new cards are provided to cover the above change, Cards No. 
51710, 51711, and 51712 should replace the cards presently in Deck #8. 



Page 81 of the Phase 2 listing should be changed as follows: 



From: 


29780 


CM 


D4,0 


15022 14 07017 50000 




29790 


BNL 


CDSABZ 


15034 46 1 5066 01300 




29800 


S 


D4,SX 


15046 22 07017 02377 




29810 


B7 


*+20 


15058 49 15078 


To: 


29780 


BNF 


CDSABZ 


15022 44 15066 07017 




29790 


S 


D4, SX 


15034 22 07017 02377 




29800 


CF 


D4 


15046 33 07017 00000 




29810 


B7 


*+20 


15058 49 15078 



In addition, the following instructions should be inserted after line number 
30120, Page 82, Phase 2, as "patches": 

15490 33 07017 00000 
15502 23 07017 07025 
15514 49 14470 0 
15522 15 07479 00001 
15534 49 15078 



30121 PAT1 CF D4 

30122 M D4, L 

30123 B7 14470 

30124 PAT2 TDM SS4, 1 

30125 B 15078 



Seven (7) new cards are provided to make the above correction. They are 
Cards No. 51922, 51923, 51928, 51929, 51710, 51711, and 51712. These 
cards should replace the correspondingly numbered seven cards in Deck #8. 
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FORTRAN LOADER, Deck #9 

1. ERROR : If, when specifying the subroutine set, an incorrect digit (5 or 
greater) is placed in the FORX or XEQS control record an ERROR L8 

is typed out and is followed by the statement JOB ABANDONED. The second 
statement should not be typed out. 

CORRECTION : Page 2 of the Block 1 listing is altered as follows: 

From: 00850 TD FLGRMK, FLOD+99 08000 25 02445 12903 

To: 00850 TFM EPRINT+49, 39, 10 08000.16 10245 000S9 

In addition, Page 6 of the Block 1 listing should be changed: 

From: 03060 WATY JOBOUT 10244 39 10451 00100 

To: 03060 NOP JOBOUT 10244 41 10451 00100 

Two new cards are provided 63007 and B3037. These should replace the 
correspondingly numbered cards in Deck #9. 

2. ERROR : During execution, two successive calls to the same out- of core 
subprogram will cause a check- stop. 

CORRECTION : The following correction should be made to the Flip Routine 
for Load On Call Routines ("Flipper"): 

The instructions at relative addresses 00034 and 00046 should be reversed: 

' Change From: 00034 16 00142 01200 

00046 28 00184 00244 

To: 00034 00184 00244 

00046 16 00142 01200 

Card No. 83261 replaces the correspondingly numbered card in Deck #9. 



40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 (Code 914) 



rnational Business Machines Corporation 

October 24, 1963 



MEMORANDUM TO: Users of 1620-1311 Monitor I System 

SUBJECT: 1620-PR-025 (Card System) 

Modification No, 2 



This letter transmits Modification No. 2 of the 1620-1311 Monitor 
I System, One Hundred Thirty-Two (132) new cards are provided. 
They should replace the correspondingly numbered cards in your 
Monitor I Card System. 

Any discrepancies between the material you receive and the items 
listed should be reported to the Manager of DP Program Information 
Department, IBM Corporation, 112 East Post Road, White Plains, 
New York. 

Continued use of the Authorized Programming Analysis Report form 
for reporting difficulties will be appreciated. 



DP PROGRAM INFORMATION 



cc: Branch Offices without enclosures 
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DISK UTILITY PROGRAM, Deck #3 

1. ERROR: If the Equivalence Table is more than 32 sectors, the 
disk-to-typewriter dump of DDUMP routine loops. 

CORRECTION: The following changes are necessary to correct the 
program: 

Page 7 of the listing (DDUMP) should be changed: 

From: 03580 B TFWRIT-72 06066 49 05758 
To: 03580 B Patch 1 06066 49 07412 

Page 1 1 of the listing (DDUM0 should be changed: 

From: 05300 TFM IORT,*+23 07412 16 00565 07435 

To: Patch 1 AM FIIAD+5, 32 , 10 07412 11 05479 00032 

B TFWRIT-84 07424 49 05746 

2. ERROR: If Equivalence Table contains more than 75 entries, then a DLOAD, 
DREPL or DELET function destroys the table. 

CORRECTION: The following changes are necessary to correct the 
program: 

Page 53 of the listing (*DLOAD, * DREPL, *DELET) should be changed: 

From: 25140 DC3,0 13326 000 

To: 25140 DC 3,020 13326 020 

and on page 37 of the same listing: 

10118 16 13094 00001 
10398 11 09817 00002 
10410 16 09817 00000 
10422 11 09817 00010 



From: 17650 OLIMIT TFM 

17910 AM 

17920 TFM 

17930 AM 



CNT,1,10 
CNAMES+11,2,10 
CNAMES+11,0,610 
CNAMES+1 1,10,10 
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To: 



17650 
17910 
17920 
17930 



OLIMIT 



TFM 
AM 
TF 
NOP 



CNT,0,10 
CNAMES+11,12, 10 
CNAMES+1 1 , ZERO 1 2 , 6 



10118 16 13094 00000 
10398 11 09817 00012 
10410 26 09817 13123 
10422 41 



3 . ERROR: When loading a Fortran Library Subroutine in a DLOAD or DREPL 
the program length was omitted from the DIM entry. 

CORRECTION: The following changes are necessary to correct the problem: 
Page 24 of the listing (*DLOAD, *DREPL, *DELET) should be changed: 
From: 



To: 



10970 


SF 


INPUT+75 


05920 32 


13688 




10980 


C 


INPUTS 5, ZERO 12 -2 


05932 24 


13697 


13121 


10990 


BNE 


*+24 


05944 47 


05968 


01200 


11800 


TFM 


HOLDCD+26,02402,7 


05956 16 


13016 


02402 


11050 


BD 


*+32,NTEST 


06016 43 


06048 


13084 


10970 


NOP 




05920 41 






10980 


NOP 




05932 41 






10990 


NOP 




05944 41 






11800 


NOP 




05956 41 






11050 


B 


PATCH 2 


06016 49 


07852 





Page 27 - same listing 

From: 12800 TCD LOADFL 

To: 12800 PATCH 2 BD *+68,NTEST 

12801 CM HOLDCD+26,07 

12802 BNE *+24 

12803 TFM HOLDCD+26,02402 

12804 TF MAPMA, HOLDCD+26 

12805 B7 DC 22-24 

12806 CM HOLDCD-t26,0,7 

12807 BNE *-32 

12808 B7 DC 22-36 

12809 TCD LOADFL 



07852 43 07924 13084 



07876 
07888 
07900 
07912 
07924 
07936 
07948 



14 13016 
47 07900 
16 13016 
26 13106 
49 06060 
14 13016 
47 07900 
49 06048 



00000 
01200 
02402 
13016 
00000 
00000 
01200 
00000 
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Page 29 - same listing 



From: 


13270 


BD 


*+OZ , JN Itibi 


Ub 1U4 


A Q 


UbloD loUo4 


To: 


1 o O *7 A 

13270 


BD 


PATCH 3+52,NTEoT 


UblU4 


A O 


lOCCO 1 o no A 






UM 


UAT T^OT^-i-O C\ C\ H 

HCJLDOD+o U , U , / 


Ub 1 lb 


14 


loU^U UUUUU 




161/ i. 


b/ 


DA TO XT 0 


U b 1 Z o 


/I Q 


vocnc 
IZbUb 


Page 45 


- same listing 












From: 


22010 


TCD 


COMMFL 








To: 


22010 PATCH 3 


BE 


*+32 


12506 


46 


12538 01200 




22011 


TF 


MAPMA, HOLDCD+30 


12518 


26 


13106 13020 




22012 


B7 


PAT3+12 


12530 


49 


06148 0 




22013 


TFM 


MAPMA, 2402, 7 


12538 


16 


13106 02402 




22014 


B7 


PAT3+12 


12550 


49 


06148 0 




22015 


CM 


HOLDCD+30, 0,7 


12558 


14 


13020 00000 




22016 


BNE 


*-52 


12570 


47 


12518 01200 




i. L U 1 / 


D7 
D/ 






AQ 


UDIOD U 






JLOU 


C % CWI['KI{'V"K 
O \JNlNlt JL 








Page 29 


- same listing 












From: 


13310 


TFM 


MAPMA, 99999, 7 


06136 


16 


13106 99999 


To: 


13310 PAT 3 


TFM 


MAPMA, 99999, 7 


06136 


16 


13106 99999 


Page 30 


- same listing 












From: 


14080 


TF 


MAPMA,MAP+13 


06816 


26 


13106 19893 


To: 


14080 


CM 


HOLDCD+35,0,7 


06816 


14 


13025 00000 




14081 


BNE 


PATCH4+12 


06828 


47 


13512 01200 




14082 


B7 


PATCH 4 


06840 


49 


13500 0 


Page 56 


- same listing 












From: 


25880 


TCD 


COMFL 
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To: 25880 


PATCH 4 TF 


MAPEA, MAP+18 


13500 26 


13111 


19898 


25881 


CM 


HOLDCD+30,0,7 


13512 14 


13020 


00000 


25882 


BNE 


*+24 


13524 47 06884 01200 


25883 


TF 


MAPMA, MAP+13 


13536 26 


13106 


19893 


25884 


B7 


MAINB2 


13548 49 


06884 


0 


25885 


TCD 


COMFL 








Page 9 of the Selection Routine 


should be changed: 








From: 03810 


DC 


3,029 


05387 


029 




To: 03810 


DC 


3,030 


05387 


030 





Seventeen (17) new cards are furnished; they are cards numbered: 

10206 
10209 
10210 
10309 
10310 
10335 
10336 
10353 
10362 
10436 
10454 
10507 
10508 
10545 
10547 
10548 
10588 

Please remove the correspondingly numbered cards from Deck # 3 and insert the 
new cards furnished. 



SPS II-D SUBROUTINE SUPERVISOR, Deck #4 



1. 



ERROR: When loading a program from a satellite, the indicator record 
is read from the corresponding location of the working cylinders . 
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CORRECTION : The following changes are necessary to correct the 
problem: 

Page 4 of the listing (SPS-II-D Subroutine Supervisor) should be changed: 
From: 01120 BH RDFRST 03030 46 03114 01100 

To: 01120 BH DRCODE 03030 46 02914 01100 

Also, on Page 4, insert the Following: 



01016 
01018 



DRCODE 



TD DDA,402 
B7 RDFRST 



02914 25 02734 00402 
02926 49 03114 0 



Three (3) new cards are furnished; they are cards numbered 20007, 20008 and 20009. 
Please remove the correspondingly numbered cards from Deck #4 and insert the new 
ones provided. 

FORTRAN II-D PROCESSOR 

1. ERROR: The end of statement symbol in the intermediate output is not 
unique and may be the same as a subscript constant. When this con- 
dition occurs, a check stop results terminating compilation. 

CORRECTION: The following changes are necessary to correct the 
problem: 

Page 2 of the listing (PHASE 1-B) should be changed: 

From: 00830 BEGIN BTM PUT, 132, 8 02638 17 09036 0ul32 
00830 BEGIN BTM PUT,132,811 02638 17 09036 00132 



Page 17 - same listing 
From: 08310 
To: 08310 



BTM PUT,132,8 09646 17 09036 0Bl32 
BTM PUT, 132,811 09646 17 09036 00132 



Page 2 of the listing (PHASE 2) should be changed: 
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From: 



00650 
00660 
00670 



BTM ADSL, SX 

CM SX, 132, 8, SEMICOLON 

BNE LI 



02712 17 05312 02377 
02724 14 02377 00132 
02736 47 02700 01200 



To: 



00650 
00660 
00670 



CM SX, 132,811 

BNE PAT4 

BTM ADSL,PAT4+23 



On Page 31, same listing, insert the following: 

11161 PAT4 BTM ADSL, SX 

11162 B LI, 132,8 



02712 14 02377 00132 
02724 47 09780 01200 
02736 17 05312 09803 



09780 17 05312 (52377 
09792 49 02700 0(5l32 



Five (5) new cards are furnished; they are cards numbered 50003, 50097, 51538, 
51632 and 51633. Please remove the correspondingly numbered cards from Deck 
#8 and insert the new ones provided. 

2. ERROR: Record Marks not eliminated in the operands of a *LDISK control 
record. 

CORRECTION: The following changes are necessary to correct this 
problem . 

Page 6 of the listing (PHASE 1-A) should be changed: 



To: 



02620 


WATY 


CHI 


04530 39 15139 


00100 


02620 


B 


PATCH 1 


04530 49 05478 


00000 


- same listing, insert the following: 






03611 


WATY 


CHI 


05478 39 15139 


00100 


03612 


BNR 


*+24,CHI+12,7 


05490 45 05514 


15151 


03613 


TFM 


*-l,00,610 


05502 16 05501 


00000 


03614 


AM 


*-13,2,10 


05514 11 05501 


00002 


03615 


CM 


*-25,CHI+30 


05526 14 05501 


15169 


03616 


BNH 


*-48 


05538 47 05490 


01100 


03617 


B7 


WADK+60 


05550 49 04542 
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Three (3) new cards are furnished; they are cards nurrbered 50151, 50164 and 
50165. Please remove the correspondingly numbered cards from Deck #8 and in- 
sert the new cards provided. 

3. ERROR: The input/output routine fails to reset a switch upon returning 
from the absolute subscript routine. This failure could cause looping 
at compile time. 

CORRECTION: The following changes are necessary to correct this 
problem: 

Page 81 of the listing (PHASE 2) should be changed: 

From: 29670 B7 CD14A 14894 49 11214 

To: 29670 B7 CD14RS 14894 49 13510 

Page 71 - same listing, insert the following 

25881 CD14RS TDM IOl,0 13510 15 09327 00000 

25882 B7 CD14A 13522 49 11214 

Four_(4) new cards are furnished; they are cards numbered 51847, 5 1848, 51920 
and 51921. Please remove the correspondingly numbered cards from Deck #8 and 
insert the new cards provided. 

FORTRAN II- D LOADER 

1 . ERROR: Check stop occurs when attempting to load a Fortran core 
image program. 

CORRECTION: The following changes are necessary to correct this 
problem: 

Page 3 of the listing (1620 Fortran II-D Loader, Block 2) should be 
changed: 



From: 01460 TF INDR+11,ADDSVE 04410 26 05942 02472 

To: 01460 TF DDAR-f 1 3 , ADDSVE 04410 26 07293 02472 
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Page 3 of the listing (162 0 Fortran II-D Loader / Block 3) should be 
changed: 

From: 01310 TF INDR+1 1 , ADDSVE 04242 26 07056 02472 

To: 01310 TF DDAR+ 13, ADDSVE 04242 26 07293 02472 

Page 4 of the listing (1620 Fortran II-D Loader, Block 5) should be 
changed: 

From: 01610 TF INDR+1 1 , ADDSVE 04508 26 06934 02472 

To: 01610 TF DDAR+ 13, ADDSVE 04508 26 07293 02472 

Three (3) new cards are furnished; they are cards numbered 63107, 63151 and 53204, 
Please remove the correspondingly numbered cards from Deck #9 and insert the new 
cards provided. 

2 . ERROR: If the Fortran subroutine set is not specified in a * * FORX or 
+= 4= XEQS control record or it is incorrectly specified, the standard set 
as defined in the communications area is ignored and it is assumed to be 
set 1. 

CORRECTION: The following changes are necessary to correct this 
problem: 

Page 2 of the listing (1620Fortran II-D Loader, Block 1) should be 
changed: 

From: 00510 BNH SUBSET 07608 47 07644 01100 

00530 TDM SUBSETS 1,1 07632 15 07655 00001 

To: 00510 BNH PATCH+12 07608 47 13026 01100 

00530 B PATCH 07632 49 13014 00000 



Page 9 - same listing, insert the following: 

03891 PATCH TD SUBSET+11 , COMSEC+83 13014 25 07655 07383 

03892 BD SUBSET, SUBSET+11 13026 43 07644 07655 

03893 B PATCH 13038 49 13014 
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Two (2) new cards are furnished; they are numbered 63002 and §3074. Please 
remove the correspondingly numbered cards from Deck #9 and insert the n$w 
cards provided. 

FORTRAN DKIO LIBRARY SUBROUTINES 

1 . ERROR: A MAR check occurs when attempting disk I/O with an Array 
List, and cne of the arrays is the first item specified in COMMON. 

2. ERROR: An erroneous error D2 is indicated if N2 is specified as 1 
in a DEFINE DISK statement. 

CORRECTION: Two (2) new DKIO subroutines and corresponding listings 
are supplied (DKIOFS for machines without floating point hardware - 
cards numbered 58000 - 58047 and DKIOFH for machines with floating 
point hardware - cards numbered 71000 - 71045). 

The Disk Utility Program is to be used to load the appropriate sub- 
routine. A DREPL control card is included to direct DUP in this 
operation. Since the DREPL loader will not check the sequencing 
the deck should be sight checked for correct sequencing prior to 
loading. 

NOTE: It will be necessary to make all other modifications as out- 
lined in this modification letter before attempting the replacement 
of the DKIO subroutine. 
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ERRATA TO MODIFICATION LETTER 1 



On Page 5 of Modification Letter 1, there is an error in the listing change for 
source card 29810. It should read as follows: 

29810 B7 PAT2 15058 49 15522 

The correction cards which accompanied modification letter 1 were correct; how- 
ever, the change to the listing was erroneously given. 

Clarification to Monitor I System loading procedure: 

Two (2) sets of subroutine packages are available with FORTRAN II-D, one for 
Floating-point hardware and one for systems without this feature. Only the 
package desired by the user is stored on the disk at any one time. This necessi- 
tates two sets of DIM entries; one for each package. Depending on which set 
of subroutines is being used, the appropriate set of DIM entries must also be 
on the Disk file . 

The DIM deck included as part of the Monitor system contains DIM entries for 
the Floating-point software subroutines . Each deck of subroutines contains a 
unique set of DIM entries which is recorded on the disk vsh en the deck is loaded. 

Occasionally it is desired by the user to reload the DIM deck to initialize the 
DIM table. If the floating point hardware subroutines are being used, and the 
Monitor DIM deck is loaded, the correct subroutine DIM entries are covered 
up by software subroutine DIM entries in the DIM deck. It is necessary, 
therefore, to reload the DIM portion of the hardware subroutines. Failure to 
follow this procedure will result in a check stop when loading the subroutines 
for object program execution. 



OOOIC* 
OOC2C» 



FORTRAN DISK I /C WITHOUT FLOATING PCINT h ARCW ARE 



C003C 


ACR 


DSA 


FIND 


, RECORD 


,FETCH,SHD,DRAY,DICEND 


00004 


00005 


-C072 














00009 


C0005 


-0334 














00014 


C0005 


-0298 














G0C19 


00005 


-0216 














00024 


00005 


-0024 














O0C29 


C0005 


-0270 


0004C 




DORG 


ACR-4 






OOCOO 






CCC50 


IOCAL 


DS 


,716 






00716 


00000 




0C060 


IORBC 


DS 


• 520 






00520 


OOCOO 




00070 


IORT 


DS 


,565 






00565 


OCCOO 




00C80 


DIO 


OS 


,816 






00816 


00000 




0C090 


IOSK 


DS 


,554 






005 54 


OOOCO 




00100 


INOS 


DS 


,610 






00610 


CCCOO 




OOilO 


ERRET 


DS 


,602 






00602 


COOOO 




00120 


IOERR 


DS 


,624 






00624 


00000 




00130 


IOGT 


DS 


,566 






00566 


COOOO 




00140 


IOPT 


DS 


t 532 






00532 


00000 




0015C 


F AC 


DS 


,2492 






02492 


00000 




00160 


OIODOA 


DS 


,3387 






03387 


00000 




0017C 


F I NO IN 


DS 


,3583 






03583 


OOCOO 




00180 


FP2 


DS 


,3605 






03605 


ocooo 




0C190 


FKODD 


DS 


,3427 






03427 


00000 




00200 


PAR 


DS 


,3378 






03378 


00000 




00210 


ERROR 


DS 


,3676 






03676 


ocooo 




00220 


EI 


DS 


,2615 






02615 


COOOO 




00230 


FIXEND 


DS 


,3760 






03760 


00000 




00240 


FL TEND 


DS 


,3810 






03810 


COOOO 




00250 


FLOAT 


DS 


,4042 






04042 


COOOO 




00260 


DKDATA 


DS 


, 3379 






03379 


00000 




00270 


ZERO 


CS 


,2700 






02700 


00000 




00280 


FIX 


DS 


,3854 






03854 


00000 




00290 


RECLG 


DS 


,2243 






02243 


00000 




00300 


W 


DS 


,2240 






02240 


00000 




00310 


N2 


DS 


,2238 






02238 


COOOO 




00320 


Ni 


DS 


,2233 






02233 


00000 




00330 


K 


DS 


,2221 






02221 


00000 




00340 


F 


DS 


,2219 






02219 


00000 




00350 


CORSIZ 


DS 


,7376 






07376 


COOOO 




0036C» 
















0037C 




TF 


N 1 TEMP 


,N1 




00000 


K6 00143 02; 


00380 


TOBB 


B 


DRAY 1 , 


tO 




00012 


M9 01004 CC( 


00390 


DRAY 


TDM 


TOBB+1 


t9,, 


SET TOBB 


TO BRANCH 





004C0 

00410 
00420 

00430 FIND 
0044C 

0045C» N2 
00460 N2CK 
00470 
00480 

00490 

0050C RETD2 
0C51C BLFFAR 



BD 



EVEN, FKODD, , 



TFM 0 SABLK + 5 , AGA I N 

B SWD+12 

TDM FINDINtOtt 

TFM RETD2+6,SETl,, 

ERROR ROUTINE (I GRT N2) 

C FIND-i,ZER0,6, IS I 

BNH BE2 

C FIND-1,N2,6, 



BH 
B 

CS 



BE2 



00024 J5 00013 CC009 
TEST FOR EVEN ADDRESS 

00036 M3 00536 03427 

00048 JO 00265 -C698 

00060 M9 00228 CCOOO 

SET F INC INDICATOR CN • 

00072 15 03583 OCOOO 

BRANCH TO COMPUTE ACDRESS AND TEST1 

00084 JO 0015C -C370 

ZERO OR NEG 0CC96 K4 0007J 02700 

00108 M7 00156 01100 
COMPARE I AND N2 

00120 K4 0007J 02238 

00132 M6 00156 01100 

00144 49 OOOCO OCOOO 
00155 COOOO 



00520 


BE2 


BI 


• ♦12, 1400 






00156 M6 00168 


01400 


00530 




TFM 


EI, 472, 9, 




I GRT N2 


00168 16 02615 


00M72 


00540 




BD 


ERROR, DDABLK, , BR IF CK 


WAS 


ENTERED FROM BUFFER ROUTINE 
















00180 4L 03676 


0C247 


00550 




TFM 


DSAOTR+5, ERROR 






00192 J6 004C3 


-3676 


00560 




B 


SETRMK 






00204 M9 00354 


ocooo 


00570« 














00580»««»» 


SWD SUBROUTINE 










00590 


SWDA 


TOM 


SWD+900, 0 






00216 J5 01116 


ocooo 


00600 




TFM 


•-11,41,10 






00228 J6 00217 


OCOMl 


00610 




A 


BUFFAR , V* , , 




INCREMENT BUFF AR ARROW 
















00240 Ki 00155 


02240 


00620 




B 


SWDi 






00252 M9 00406 


OCOOO 


00630 




DORG 


•-4 






00259 




00640 


IC0N8 


CC 


1 ?9 






00259 00001 




00650 




OSA 


RETFLT 






00264 00005 -0896 


00660 




DGRG 


• ♦5 






00269 




00670 


IOEND 


TFM 


DSAOTR+5, DIOEND 






00270 JO 00403 


-0270 


00680 




BD 


SETRMK, FRIND , , BRANCH 


IF FETCH 


00282 ML 00354 


00163 


00690 




C 


N1TEMP ,Nl 






00294 K4 00143 


02233 


00700 




BE 


SETRMK, , , 




BRANCH IF 


BUFFER EMPTY 

00306 M6 00354 


01200 


00710 




TFM 


IQRT,«*23,, 




WRITE BUFFER TO FILE 
















00318 10 00565 


-0341 


00720 




B 


IOPT , DKDATA , 7 






00330 49 00532 


-3379 


00730 




AM 


FIND-1, 1,610 






00342 Jl 0007J 


CCO-1 


00740 


SETRMK 


TD 


SWD*900,DKBUFF*200 






00354 KN 01116 


01270 


00750 




TFM 


IORT, I0REF2 + U 






00366 10 00565 


-0429 


00760 




B 


IGGT 






00378 49 00566 


OCOOO 


00770 




DORG 


«-4 






00385 




00780 


DDB 


DSC 


ltl 






00385 00001 




00790 




DSA 


200 






00390 00005 -0200 


00800 




DC 


3,9 






00393 00003 




00810 


OSAOTR 


DSA 


SWD, DIOEND 






00398 00005 -0216 
00403 00005 -0270 


00820 




DC 


It* 






00404 00001 




00830 


SWD1 


BD 


FETCH1 » FRIND 1 1 




BRANCH IF 


FETCH 

00406 ML 00718 


C0163 


00840" 


RECORD 










00850 


I0REF2 


CF 


SWD-l,DATB,7 f 




CLEAR FLAG 


ON ADDRESS OF DATA 














00418 LL 00215 


-1061 


00860 




SM 


N 1TEMP ,1,10 , 




DECREMENT 


WORD COUNT 

00430 J2 00143 


OCO-l 


00870 




TF 


BUFF AR , SWD— 1 ,611 , 




SEND WORD 


TO BUFFER 

00442 KO 0015N 


0C21N 


00880 




SM 


BUFF AR ,2 






00454 J2 00155 


-C002 


00890 




SM 


SWD-1,2 






00466 J2 00215 


-0002 


00900 




TF 


BUFFAR,SWD-1,611 






00478 KO 0015N 


QC21N 


00910 




AM 


BUFFAR.2 






00490 Jl 00155 


-0002 


00920 


CK 


CM 


N1TEMP,0,10, 




CHECK FCR 


FULL BUFFER 

00502 J4 00143 


OCO-0 


00930 




BNZ 


TOBB 






00514 M7 00012 


01200 


00940 




BD 


TOBB-12, FRIND,, BR IF 


FETCH 




00526 ML 00000 


00163 


00950 




TFM 


LINKB+18, IOPT 






00538 J6 00588 


-C532 


00960 


CKI 


TFM 


RETD2*6,LINK8 






00550 JO 00150 


-0570 


00970 




B 


N2CK 






00562 M9 00096 


OCOOO 


0098C 




DORG 


•-4 






00569 




00990 


LINKB 


TFM 


I0RT,«*23,, 




CALL CORRECT ICRT ROUTINE 
















00570 10 00565 


-C593 


01000 




B 


, DKDATA, 7 






00582 49 00000 


-3379 


01010 




TFM 


BUFFAR ,DK8UFF*199 , , 




INITIALIZE 


BUFFER ARROW 















00 594 


JO 


00155 


- 1269 




c 

o 


birr AK— I »KbLLG 






00606 


K2 


00 15 3 


02243 


U 1 U 3\J 


CMC 


— i *> /, CD T m n 

* + ch f r K 1 fMU 






006 1 8 


MM 


00642 


00163 


U lU^lU 


A 


DtrrAK » w 






00630 


K 1 


00155 


02240 


U ill 31 ALU 1 U 1 




C T MH— 1 1 A i n 

r 1 r\U— It liOlUf 


INCREMENT 


I 00642 


Ji 


0007J 


0CO- 1 


n i ftAr 

U IUO'j 


A 

A 


nfnnn»it nirmnA^Q 
UiUi;UA + DfUluuUA + Of # 


INCREMENT 


SECTOR / 


ADDRESS 














00654 


2 1 


03392 


03395 


n i- n i n 
U IU f U 


n n 


rt 1 LHZ tf-K I NU 






00666 


ML 


00762 


00 163 


ni nor 


Q 
b 


T0BB— 1 2 






00678 


M9 


00000 


OCOOO 


n i nor 


UUKU 


- _ A 
»— 






00685 








nil nn 
ul ILL 


A 


noA\/ i coo 
DRAY— I t r PZ 






00686 


Kl 


00023 


03605 


U 1 1 1L AGAIN 


TF 


fin 1 i u « 

SWD— 1 1 DRAY— I 






00698 


KO 


00215 


0 C 0 2 3 


U i 1 c 0 


B 


S WD 






007 10 


M9 


00216 


OCOOO 


nil in 
t* 1 1 30 


n n o r 


*— 4 






007 17 








ni l An ccTf ui 


L 


iNi 1 1 1 MP f N I 






00718 


K4 


00143 


02233 


nil co 


niir 

BNc 


rt TCH2 t f t 


BRANCH 


IF 


BUFFER NOT 


EMPTY 














00730 


M7 


00762 


01200 


0 1 160 


TFM 


i t hi/ n i in to^t 

L INKB + 18, I0GT 






00742 


J6 


00588 


-C566 


0 1 170 


B 


CK I 






00754 


M9 


00550 


OCOOO 


01180 


D0RG 


»-4 






00761 








01190 FETCH2 


SM 


N1TEMP, 1,10 






00762 


J2 


00143 


CCO- 1 


n i ioom 
0 12U0* 


SEND THE WORD TO FAC 














n t ii n 
01 4? 10 


TF 


FAC, BUFFAR ,11 






00774 


20 


02492 


00 15N 


n i i on 


SM 


BUFFAR ,2 






00786 


J2 


00155 


-C002 


01230 


TF 


FAC-2, BUFFAR, 11 






00798 


20 


02490 


0C15N 


01240 


AM 


BUFFAR, 2 






00810 


Jl 


00155 


-C002 


01250 


BI 


•♦12,1400 






00822 


M6 


00834 


01400 


01260* 


TEST FOR FLOATING ADDRESS 


AT SWO-l 












0 1270 


BNF 


FETCH3, SWD-1 






00834 


MM 


00928 


0C215 


01280* 


IT 


IS A FIXED ADDRESS 














01290 


r.F 


SWD-1 






00846 


L3 


00215 


OCOOO 


01300* 


TEST FOR FLOATING WORD IN 


FAC 












01310 


BNF 


FE TCH4 ,FAC— 1 






00858 


M4 


00940 


02491 


01320* 


THE 


i WORD IS FLOATING SET 


UP LINKAGE FOR 


FIX 








01330 


TF 


FIXEND*6,IC0N7*6 






00870 


20 


03766 


r\ f> e% rt c 

0C895 


01340 


B 


FIX 






00882 


49 


03854 


/> f\ f\ t\ f\ 

OCOOO 


01350 


DCRG 


«-4 






00889 








01360 IC..N7 


DC 


1»4 






00889 


00O01 




0 1370 


DSC 


it9 






00890 


00001 




01380 


CSA 


RETFLT 






00895 


00005 -0896 


01390 RE iFLT 


TDM 


FIXEND+1,2 






00896 


15 


03761 


GC002 


01400 


TDM 


FLTEND-5,2 






00908 


15 


03805 


00002 


0 1410* 


BRANCH TO STORE NUMBER 














01420 CKLD 


B 


FETCH4 






00920 


M9 


0094C 


OCOOO 


01430 


DORG 


•-4 






00927 








01440 FETCH3 


BNF 


FETCH5.FAC-1, . 


BRANCH 1 


[F 


FIXED 

00928 


M4 


00984 


02491 


01450* 


STORE THE WORD IN MEMORY 














01460 FETCH4 


TF 


SWD-1, FAC, 6 






00940 


K6 


0021N 


02492 


0 1470 


SM 


SWD-1,2 






00952 


J2 


00215 


-C002 


01480 


TF 


SWD-l,FAC-2,6 






00964 


K6 


0021N 


02490 


0 1490* 


CHECK FOR EMPTY BUFFER 














0 1500 


B 


CK 






00976 


M9 


C05C2 


OCOOO 


01510 


DORG 


»-4 






00983 








01520* 


SE1 


UP LINKAGE FOR FLOAT 














01530 FETCH5 


TF 


FLTEND , ICCN8+5 






00984 


20 


03810 


0C264 


0154C 


B 


FLOAT 






00996 


49 


04042 


OCOOO 


0 155C 


C0RG 


»-4 






01C03 








0156C DRAYl 


SM 


PAR,1,10,, 


DECREMENT 


WORD COUNT 
















01004 


12 


03378 


CCO-i 


0157C 


BNZ 


• ♦14 






01C16 


M7 


01030 


01200 



01580 


BB 




01C28 


42 00000 CCOOO 


01590 


DORG 


*-9 


01030 




0 1600 


BNF 


AGAIN-12.DRAY-1 


01030 


00686 0C023 


0161G 


S 


DRAY- I , K 


01042 


K2 00023 02221 


01620 


B 


AGAIN 


01054 


M9 00698 CCOOO 


01630 


DORG 


*-4 


01061 




01640 DA TB 


DSC 


2,-00 


01C61 


00002 


0165C 


OS A 


ODB 


01067 


00005 -0385 


01660 


DC 


i»* 


01068 


00001 


01670 OKBUFF 


DS 


,DATB+9 


01C70 


00000 


01680* 










01690* 










01700* 


WR 


ITE 2ND BLOCK 






0171C* 










01720 L01RD 


DSC 


2,00 


01C69 


00002 


01730 


DSA 


DIM1 


01075 


00005 -1077 


01740 


DC 


It 1 


01076 


00001 


01750 DIM1 


DSC 


it 1 


01077 


COOOi 


01760 


DSA 


209 


01082 


00005 -0209 


01770 


DC 


3,9 


01085 


00003 


01780 


DSA 


SViD 


01090 


00005 -0216 


0179C 


DC 


it 1 


01091 


00001 


01800 


DORG 


SViDA+902 


01118 




01810 STL01 


TDM 


DKBUFF+200,0 


01118 


J5 01270 OCOOO 


01820 


DGM 


• 


01129 


00001 


01830 


TD 


SWD*900,DKBUFF+200 


01130 


KN 01116 01270 


01840 


CF 


ICON7+2 


01142 


L3 00891 00000 


01850 


CF 


IC0N8+1 


01154 


L3 00260 CCOOO 


01860 


Iff* 


I0RT,**23 


01166 


10 00565 -1189 


01870 


B 


I0PT,LDIRD,7 


01178 


4R 00532 -1069 


01880 


TRA 




01190 


10 00565 -1209 








01202 


49 00716 OCOOO 








01209 


00002 2K 








01211 


00005 -1217 








012 16 


00001 * 








01217 


00006 1J9783 








01223 


00003 -03 








01226 


00006 -CQOC* 


01890 


TCD 


STLD1 


01118 




01900* 










01910* 


BLOCK 1 OF FETCH FIND RECORD 






01920 


DORG 


SMDA 


00216 




01930 StaD 


TFM 


DSABLK+5, SWD 


002 16 


JO 00265 -C216 


01940 


TFV 


I0RT,I0REF4-il 


00228 


10 00565 -C571 


01950 


B 


IOGT 


00240 


49 00566 CCOOO 


01960 


DORG 


•-4 


00247 




01970 OOABLK 


DSC 


Itl 


00247 


00001 


01980 


DSA 


209 


00252 


00005 —0209 


01990 


DC 


3,9 


00255 


00003 


02000 DSABLK 


DSA 


SfcD,SWD 


00260 


00005 -0216 








00265 


00005 —0216 


02010 


DC 


it f 


00266 


0000 1 


02020 


DORG 


I0END 


00270 




02030 DIOEND 


BI 


•♦12,1400 


00270 


fo 00282 0 1400 


02040 


BB 






He UUUUU LLUUU 


0205C 


DORG 


*-9 


00284 




02060 DAT! 


DSC 


2,-00 


00284 


00002 


02070 


DSA 


CCABLK 


00290 


00005 -0247 


02C80 


DC 


it 1 


00291 


00001 


0209C 


DS 


5 


00296 


00005 


02100 FETCH 


TF 


FIND-1, FETCH-!,, TRANSFER I 


00298 


KO 00071 0C297 



02110 


TOM 


FRIND,i,ll, SET 


FETCH-RECORD INDICATOR TO FETCH 










00310 J5 00163 


OCOOJ 


02120 


B 


A I TEST 9 t t 


BRANCH TO SET FIND INDICATOR OFF , 








00322 M9 00358 


CCOOO 


02130* 






COMPUTE ADDRESS • TEST I , AND TEST 


02140* 






FOR DEFINE STATEMENT . 




02150 RECORD 


TF 


FIND-1 ,RECORD-l , t 


TRANSFER I 00334 KO 00071 


0C333 


02160 


TDM 


FR INDtOf f 


SET FETCH-RECORD INDICATOR TO RECRD 








00346 J5 00163 


OCOOO 


02170 AI TEST 


TDM 


FINDIN, 1, , 


SET FIND INOICATOR OFF 










00358 15 03583 


OCOOl 


02180 SET1 


TFM 


DIODDA+5,217, , 


SET SECTOR ADDRESS IN DDA 










00370 16 03392 


-C217 


02190 


M 


FIND— 1 ,RECLG,6, 


COMPUTE ADDRESS OF FILE RECORD 










00382 K3 0007J 


02243 


02200 


A 


DIODDA+5,99 


00394 21 03392 


00099 


02210 


BD 


**44,FIN0IN,, 


BRANCH IF NOT FIND 00406 M3 00450 


03583 


02220 SSEEK 


TFM 


I0RT,**23 


00418 10 00565 


-0441 


02230 


B 


IQSK,DKDATA,7, 


TRANSFER TO IORT TO SEEK 










00430 49 00554 


-3379 


02240 


B 


DIOEND 


00442 M9 00270 


OCOOO 


02250 


DORG 


•-3 


00450 




02260 


TFM 


BUFFAR tDKBUFF«f 199 f , 


INITIALIZE BUFFER ARROW 










00450 JO 00155 


-1269 


02270 


S 


BUFFAR-2, RECLG 


00462 K2 00153 


02243 


02280 


TF 


Nl TEMP ,N1 1 1 


00474 K6 00143 


02233 


02290 


TF 


D10DDA+8. RECLG,, 


STORE RECORD LENGTH IN DDA 










00486 26 03395 


02243 


02300 


TFM 


DIODDA*13,DKBUFF*200,, STORE ADDRESS OF BUFFER 










00498 10 03400 


-1270 


02310 


S 


DIODDA + 11 tRECLGt , 


SUB LENGTH OF RECORD TO GET FIRST 


COR 








00510 22 03398 


02243 


02320 OVER 


TDM 


T0B8*1,2,, 


INITIALIZE BRANCH BACK 










00522 J5 00013 


CC002 


02330 


BB 




00534 42 00000 


OCOOO 


02340 


DORG 


*-9 


00536 




02350 EVEN 


TF 


TEMPAt FP2 # t 


STORE FLOATING LENGTH IN TEMPA 








00536 K6 00119 


03605 


02360 


BNF 


•♦36,DRAY-1, , 


8RANCH IF FLOATING ARRAY 










00548 MM 00584 


00023 


02370 IOREF 


CF 


DRAY— 1 tDATi t 7 


00560 LL 00023 


-0284 


02380 


TF 


TEMPA ,K, t 


STORE FIXED LENGTH IN TEMPA 








00572 K6 00119 


02221 


02390 


TF 


DI0DDA*13,DRAY-1,, 


STORE ADDRESS OF FIRST ELEMENT 








00584 20 03400 


CC023 


02400 


AM 


DIODDA+13,1 


00596 11 03400 


-COOl 


02410 


S 


DI0DDA*13,TEMPA, , 


HIGH ORDER POSITION OF ARRAY 








00608 2K 03400 


00119 


02420 


TF 


EVEN1+U,DI0DDA+13 


00620 K6 00703 


03400 


02430 


M 


TEMPA. PAR 


00632 K3 00119 


03378 


02440 


A 


EVENl+11,99 


00644 Kl 00703 


0C099 


02450* 






EVALUATE AND STORE LOW OROER 




02440* 






POSITION ♦ I OF ARRAY 




02470 CARRY 


CM 


EVENi*ll,0 


00656 J4 00703 


-0000 


02480 


BNE 


• ♦24 


00668 M7 00692 


01200 


02490 


TFM 


EVEN1*U,0 


00680 J6 00703 


-COOO 


02500 EVEN1 


TD 


EVEN2+11 


00692 K5 00951 


CCOOO 


02510* 






EVALUATE SECTOR COUNT 




0252C 


SF 


95 


00704 32 00095 


OCOOO 


02530 


AM 


99,1,10, ADD ONE FOR 


GROUP MARK 00716 11 00099 


OCO-1 


02540 


TF 


DIODDA+8,97,, SET UP 


SECTOR COUNT 00728 26 03395 


0C097 



02550 


C 


•♦8,99,7 




00740 


K4 


00748 


-C099 


02560 


BE 


• ♦24 




00752 


M6 


00776 


01200 


02570 


AM 


DIODDA+8,1,9, ADD 


TO 


SECTOR CNT IF NOT EVEN HUNDREDS 












00764 


11 


03395 


00-01 


02580 


0 


95,RECLG 




00776 


29 


00095 


02243 


02590 


A 


FIND-1,94,6, ADD NUMBER OF RECORDS TC I 00788 


Ki 


0007J 


0C094 


02600 


BO 


•♦36,96 




00800 


M3 


00836 


00096 


02610 


BO 


•♦24,95 




00812 


M3 


00836 


CC095 


02620 


SM 


FIND-l, 1,610 




00824 


J2 


0007J 


OCO-l 


02630 


TFM 


RETD2^6,*^20 




00836 


JO 


00150 


-0856 


02640 


B 


N2CK 




00848 


M9 


00096 


00000 


02650 


DORG 


•-4 




00855 








02660 


AM 


FIND-l, 1,610 




00856 


Jl 


0007J 


OCO-l 


02670 


TFM 


DI 0+35, YTURN, 67, 


INSERT ADDRESS FOR ERROR ENTRY 














00868 


10 


0085J 


-1048 


02680 


BD 


FETCH8 ,FRI ND, , 




BRANCH IF FETCH 

00880 


ML 


00966 


00163 


02690* 


RECORD 












02700 


TD 


EVENUU,DKBUFF^200 


,6, 


SET GROUP MARK AT 


END OF ARRAY 










00892 


KN 


0070L 


01270 


02710* 








WRITE ARRAY ONTO FILE 






02720 


TFM 


I0RT,»^23 




00904 


10 


00565 


-0927 


02730 


B 


IORBC,NOWLC ,7 




00916 


4R 


00520 


-1091 


02740 


TDM 


FLTEND— 5, 2 




00928 


15 


03805 


00002 


02750 EVEN2 


TDM 


EVENi+11,,6, 




RESTORE DIGIT 

00940 


J5 


0070L 


OCOOO 


02760 


A 


DIODDA+5,0IODDAt8,, 




INCREMENT SECTOR ADDRESS 
00952 


21 


03392 


03395 


02770 


BB 






00964 


42 


00000 


OCOOO 


02780 


DORG 


*-9 




00966 








02790 FETCH8 


TFM 


I0RT,»^23,, 




READ ARRAY FROM FILE 














00966 


10 


00565 


-C989 


02800 


B 


IOGT ,DKDATA, 7 




00978 


49 


00566 


-3379 


02810* 








TEST FOR NO GROUP MARK 






02820 


BNG 


• ♦20,EVENmi,li 




00990 


NN 


01010 


0070L 


02830 


B 


EVEN2 




01002 


M9 


00940 


OCOOO 


02840 


DORG 


•-4 




01009 








02850 


TF 


FLTEND, EVENSP ^6 




01010 


20 


03810 


01047 


02860 


TFM 


EI, 475, 9 




01022 


16 


02615 


C0M75 


02870 


B 


ERROR 




01034 


49 


03676 


OCOOO 


02880 


DORG 


*-4 




01041 








02890 EVENSP 


DC 


1,4 




01041 


00001 




02900 


DSC 


it9 




01042 


00001 




02910 


DSA 


EVEN2-12 




01047 


00005 -0928 


02920 YTURN 


BI 


•♦12,3700 




01048 


M6 


01060 


03700 


02930 


BNI 


ERRET.1900 




01060 


47 


00602 


01900 


02940 


TDM 


INDS^10,6 




01C72 


15 


00620 


CC006 


02950 


B 


IOERR 




01084 


49 


00624 


OCOOO 


02960 


DORG 


•-4 




01091 








02970 NOWLC 


DSC 


2,02 




01091 


00002 




02980 


OSA 


DIODDA 




01097 


00005 -3387 


02990 


DC 


!,• 




01098 


00001 




03000 TEMPA 


OS 


2,N2CK^23 




00119 


00002 




03010 N1TEMP 


OS 


2,RETD2-l 




00143 


00002 




03020 FRINO 


DS 


l,BE2^7 




00163 


00001 




03030* 


WRITE FIRST BLOCK 












03040* 
















03050 01M2 


DSC 


lil 




01099 


00001 




03060 


DSA 


200 




01104 


00005 -0200 


03070 


DC 


3,9 




01107 


00003 




03080 


DSA 


SWD 




01112 


00005 -0216 



0309C 




DC 


It* 


01113 


00001 


03100 




00RG 


SfcD+902 


01118 




0311C 


LD2ND 


DSC 


2,00 


01118 


00002 


03120 




DSA 


DIM2 


01124 


00005 -1099 


03130 




DC 


It • 


01125 


C0001 


03140 


STLD2 


CF 


EVENSP+2 


01126 


L3 01043 OCOOO 


03150 




TD 


CARRY*7,C0RSIZ 


01138 


K5 00663 07376 


0316C 




AM 


CARRY+8, LC 


01150 


Jl 00664 -C010 


03170 




TFM 


I0RT,«*23 


01162 


10 00565 -1185 


03180 




B 


IOPT ,LD2ND,7, 


WRITE OUT 2ND PART BLK 1 01174 


4R 00532 -1118 


03190 




TRA 




01186 


10 00565 -1205 










01198 


49 00716 OCOOO 










01205 


00002 2K 










01207 


00005 -1213 










01212 


00001 • 










01213 


C0006 1J9783 










01219 


00003 -03 










01222 


00006 -0000* 


0320C 




TCD 


STLD2 


01126 




03210 




DEND 


6 


00006 













bYr BUL 


jC 1 K r Is 


UUJ5HR 


D C T C 1 T 

Rfc 1 rL 1 


00896R 


o c r c* o n 

RcCCRD 


rLltrlU 


mot n 
U301U 


r 1 XtNU 


03760 


F I ND I N 


rt I l*r *» 


UU*»*lLK 


rt ILM3 


0U9Z8R 


FETCH2 


n c into 

U o AU I K 




UbABLK 


00Z60R 


0KD AT A 


U I ULLI A 


0 J Jo f 


UUABLK 


f\ f\ 1 A 1 o 

00Z4 7R 


C0RS I Z 


HUUIUl 




a no 

AUK 


n on n ad 
UUUU^K 


A A A T ki 

Ab A 1 N 






r it i 


UUDDUR 


UK LU 


nro 

ULD 




U 1 P I 


U 1U f f K 


U I nZ 


no a v 1 


ft i nn&D 




UtOl ? 


tKKt 1 


EVEN 1 


00692R 


E VEN2 


0094PR 


p 


FIND 


000T2R 


FIX 


03854 


FKCDD 


FRIND 


00163R 


ICONT 


00889R 


ICCN8 


IOEND 


00270R 


IOERR 


00624 


I0GT 


IOREF 


00560R 


IORT 


00565 


ICSK 


LD2ND 


0U18R 


LINKB 


00570R 


NCkLC 


N2CK 


00096R 


OVER 


00522R 


PAR 


SET! 


00370R 


SSEEK 


00418R 


STLDl 


SWOA 


00216R 


SkDl 


00406R 


TEKPA 


YTURN 


01048R 


ZERO 


02700 





TABLE 



n n i i /. o 
00334R 


N 1TEMP 


n n i /.in 
00 143R 


I 0REF2 


r\ r\ J. i o D 

004 1 8R 


03583 


FETCH8 


n n Q Z. X. O 

C0966R 


r c TCH5 


n r> o o l. d 
0C984R 


n n"? a. *> d 
00 7 6ZK 


FETCH I 


n n T i q d 
00 7 1 8R 


t VEN5P 


0 104 IR 


03379 


UKBUrr 


n t m a d 
0 1070R 


ntncun 
U tUENO 


nn o ino 
00Z 70R 


0 73 76 


BUFF AR 


n n i ccd 
00 155R 


A f T C C T 


n n i c o d 
003!>8R 


not QQO 


Q c o 
D t Z 


nni cad 


r ADD V 
LARKY 


AO ACAD 


UUtt ZUK 


UP 1 D 


n i n a l d 


n a t i 

UA 1 1 


nn 5 fl AD 


01099R 


CIO 


00816 


CRAY 


00024R 


00602 


ERROR 


03676 


EVEN 


0C536R 


02219 


F AC 


02492 


FETCH 


0C298R 


03427 


FLOAT 


04042 


FP2 


03605 


00259R 


INOS 


00610 


I0CAL 


00716 


00566 


ICPT 


00532 


I0RBC 


00520 


00554 


K 


02221 


LC1RD 


01069R 


01091R 


Nl 


02233 


N2 


02238 


03378 


RECLG 


02243 


RET02 


00144R 


0U18R 


STLD2 


01126R 


SWD 


00216R 


00119R 


TCBB 


00012R 


W 


02240 



0001O FORTRAN I I-D DK 10 h I TH FLT HARDWARE 

00020» 



00030 


ADR 


DSA 


FIND 


,RECORD, FETCH, 


SWD, DRAY , 


DICENC 


00C04 


C0005 


-0072 


















00009 


00005 


-0334 


















00014 


00005 


-0298 


















000 19 


00005 


-0216 


















00C24 


00005 


-0024 


















00C29 


00005 


-0270 


00040 




DORG 


ADR-4 










OOCOO 








00050 


IOCAL 


DS 


, 716 










00716 


00000 






00060 


IORBC 


DS 


,520 










00520 


00000 






00070 


IORT 


DS 


,565 










00565 


00000 






00080 


DIO 


DS 


,816 










00816 


00000 






00090 


IOSK 


DS 


,554 










00554 


00000 






00100 


INDS 


DS 


,610 










00610 


00000 






00110 


ERRET 


DS 


,602 










00602 


00000 






00120 


IQERR 


DS 


,624 










00624 


coooo 






00130 


IOGT 


DS 


,566 










00566 


OOCOO 






00140 


IOPT 


DS 


,532 










00532 


00000 






00150 


FAC 


DS 


,2492 










02492 


00000 






00160 


OIODDA 


DS 


,3387 










03387 


00000 






00170 


FIND IN 


DS 


, 3527 










03527 


00000 






00180 


FP2 


DS 


, 3664 










03664 


00000 






00190 


FKODD 


DS 


,3579 










03579 


OOCOO 






00200 


PAR 


DS 


, 3378 










03378 


COOOO 






00210 


ERROR 


DS 


, 3596 










03596 


00000 






00220 


E I 


DS 


,2615 










026 15 


OCOOO 






00230 


F IXEND 


DS 


1 3680 










03680 


00000 






00240 


FLTEND 


DS 


,3730 










03730 


00000 






00250 


FLOAT 


DS 


,4042 










04042 


00000 






00260 


DKDATA 


DS 


,3379 










03379 


COOOO 






00270 


ZERO 


DS 


,2700 










02700 


COOOO 






00280 


FIX 


DS 


,3854 










03854 


00000 






00290 


RECLG 


DS 


,2243 










02243 


00000 






00300 


w 


DS 


, 2240 










02240 


OOCOO 






00310 


N2 


DS 


,2238 










02238 


00000 






00320 


Nl 


DS 


, 2233 










02233 


00000 






00330 


K 


DS 


, 2221 










02221 


00000 






00340 


F 


DS 


,2219 










02219 


00000 






00350 


CORSIZ 


DS 


,7376 










07376 


00000 






00360« 






















00370 




TF 


N1TEMP 


tNl 








00000 


K6 00143 


02233 


00380 


TOBB 


6 


DRAY1, 


tO 








00012 


M9 00896 


OCOOO 


00390 


DRAY 


TDM 


TOBB+1 


»9, , 






SET TOBB 


TO BRANCH 






















00024 


J5 00013 


0CO09 


00400 




BD 


EVEN, FKODD,, 






TEST FOR 


EVEN ADDRESS 






















00C36 


M3 00536 


03579 


00410 




TFM 


DSABLK+5, AGAIN 








00048 


JO 00265 


-C650 


00420 




B 


SWD+12 










00060 


M9 0C228 


OCOOO 


00430 


FIND 


TDM 


FINDIN 


tO, , 




SET 


FINC INCICATOR CN , 
























00072 


15 03527 


CCOOO 


00440 




TFM 


RETD2+6, SETi » , 




BRANCH TC COMPUTE ACDRESS AND TESTI 


















0C084 


JO 00150 


-037C 


00450» N2 


ERROP 


: ROUTINE (I GRT 


N2 ) 














00460 


N2CK 


c 


FIND-l 


, ZERO, 6, 


I S 


I ZERO OR 


NEG 


00C96 


K4 0007J 


02700 


00470 




BNH 


BE2 










00108 


M7 00156 


01100 


00480 




C 


FIND-l 


,N2,6, 






COMPARE I 


AND N2 
























00120 


K4 0007J 


02238 


00490 




BH 


BE2 










00132 


M6 00156 


OUCO 


00500 


RETD2 


B 


#- # 










00144 


49 OOCCO 


CCOOO 


0051C 


BLFFAR 


DS 


t* 










00155 


00000 







00520 


BE2 


BI 


•♦12,1400 


00156 


M6 C0168 


01400 


00530 




TFM 


EI, 472, 9, 


I GRT N2 00168 


16 02615 


0CM72 


0054C 




BD 


ERROR, DDABLK, , BR IF CK 


WAS ENTERED FROM BUFFER ROUTINE 












00180 


4L 03596 


CC247 


0055C 




TFM 


DSAOTR+5, ERROR 


00192 


J6 004C3 


-3596 


0056C 




B 


SETRMK 


00204 


M9 00354 


CCOCO 


00570« 












00580* 




SWD SUBROUTINE 








0059C 


SWDA 


TDM 


SWD+900,0 


00216 


J5 01116 


CCOCO 


0060C 




TFM 


•-11,41,10 


00228 


J6 00217 


0C0M1 


00610 




A 


BUFF AR , W f , 


INCREMENT BUFFAR ARROW 












00240 


Kl 00155 


0224C 


0062C 




B 


SWDI 


00252 


M9 00406 


CCOCO 


0063C 




DORG 


•-4 


00259 






00640 


IC0N8 


CC 


1,9 


00259 


00001 




00650 




DSA 


RETFLT 


00264 


00005 -0812 


00660 




OORG 


• ♦5 


00269 






00670 


IOEND 


TFM 


DSAOTR+5 ,D I OEND 


00270 


JO 00403 


-C270 


00680 




BD 


SE TRMK ,FR I ND , , BRANCH 


IF FETCH 00282 


ML 00354 


0C163 


00690 




C 


N1TEMP ,N1 


00294 


K4 00143 


02233 


00700 




BE 


SETRMK,,, 


BRANCH IF BUFFER EMPTY 












00306 


M6 00354 


01200 


00710 




TFM 


I0RT,»*23, , 


WRITE BUFFER TO FILE 












00318 


10 00565 


-0341 


00720 




B 


IOPT , DKDATA , 7 


00 3 30 


49 00532 


-3379 


00730 




AM 


FIND-1, 1,610 


00342 


Jl 0007J 


OCO-i 


00740 


SETRMK 


TD 


SWD+900,DKBUFF+200 


00354 


KN 01116 


01162 


00750 




TFM 


I0RT,I0REF2*11 


00366 


10 00565 


-0429 


00760 




B 


IOGT 


00378 


49 00566 


OCOOO 


00770 




DORG 


♦-4 


00385 






00780 


DOB 


DSC 


1,1 


00385 


00001 




00790 




DSA 


200 


00390 


00005 -0200 


00800 




DC 


3,9 


00393 


00003 




00810 


OSAOTR 


DSA 


SViD,DIOEND 


00398 
00403 


00005 -0216 
00005 -0270 


00820 




DC 


i, f 


00404 


00001 




00830 


SWDi 


BD 


FETCHl ,FRIND, , 


BRANCH IF FETCH 

00406 


ML 00670 


0C163 


00840»« 


RECORD 








00850 


I0REF2 


CF 


SWD-1,DATB,7, 


CLEAR FLAG ON ADDRESS OF DATA 










00418 


LL 00215 


-0953 


00860 




SM 


NlTEMPtltlO , 


DECREMENT WORD COUNT 












00430 


J2 00143 


OCO-1 


00870 




TFL 


BLFFAR,SW0-l,61i 


00442 


-0 0015N 


0C21N 


0088C 


CK 


CM 


N1TEMP,0,10, 


CHECK FOR FULL BUFFER 












00454 


J4 00143 


OCO-O 


00890 




BNZ 


TOBB 


00466 


M7 00012 


01200 


00900 




BD 


TOBB— 12,FRI ND , , BR IF 


FETCH 00478 


ML OOCOO 


00163 


00910 




TFM 


LINKB+18,I0PT 


00490 


J6 00540 


-0532 


00920 


CKI 


TFM 


RETD2+6.LINKB 


00502 


JO 00150 


-C522 


00930 




B 


N2CK 


00514 


M9 00096 


CCOCO 


00940 




DORG 


»-4 


00521 






00950 


LINKB 


TFM 


I0RT,»+23,, 


CALL CORRECT ICRT 
00522 


ROUTINE 
10 00565 


-C545 


00960 




B 


, DKDATA, 7 


00534 


49 CCO CO 


-3379 


00970 




TFM 


BLFFAR,DKBUFFU99,, 


INITIALIZE BUFFER 
00546 


ARROW 
JO 00155 


-1161 


00980 




S 


BUFF AR-2 , RECLG 


00558 


K2 00153 


02243 


00990 




BNF 


•♦24,FRIND 


00570 


MM 00594 


GC163 


0100C 




A 


BUFF AR , W 


00582 


Kl 00155 


02240 


01010 


ADDTOI 


AM 


FIND-1, 1,610, 


INCREMENT I 00594 


Jl 0007J 


OCO-i 



0 102C 




n innnA-f s .ninnrsA^R.. 

U 1 UUUH " J f U 1 UUuH~0 f , 


INCREMENT 


SECTCR ACDRESS 














nntn^ 

uuouo 


a 1 


U 5 Ji c 


UJJ7 J 


V 1 V J V 


u U 


PP TP H? - PR T Kin 






nn i, l a 
UUC 1 o 


y i 

nL 


nn7 i a 
UU 1 1 *l 


n n i a i 
UU 1 O 3 




D 


THRR- . 1 1 






00630 


M9 


r\ r\ f> n n 

UUGCU 


u c u u u 


nincn 


UUrvu 








006 37 








hi Air 
U i uo.u 


A 


no A V— 1 P D 7 






006 38 


K 1 


00023 


n "1 A A A 

U .3 o O *l 


n 1 n7n ATATN 


tc 

1 r 


CL,n»i noAv-t 

o n V 1 f UK A T 1 






00650 


Ku 


0021 5 


nnnoi 


UllluvJ 


□ 
D 








00662 


M9 


002 1 6 


nnnnn 
u u u u u 


U1U7U 


nno n 

UUKu 








00669 








n i i nn ccTrui 


c 
L 


N 1 1 fc ~H , IN 1 






00670 


K4 


0014 3 


n 'i i 1 1 


unit 


D M P 
D IN t 


P P Tf U O 

rt I Ln a , t t 


BRANCH 


I r 


BUFFER NOT 


EMPTY 














00682 


M7 


00714 


n ii inn 
U L c U U 


n i l or 


TP M 

1 r n 


i ikii^oi i a t nr t 
LliNlVD+lot lUbl 






00694 


J6 


0054C 


— C A A 

— C DOO 


U 1 1 JU 


Q 
D 








00706 


M9 


on cn i 


nnnrn 

uuuuu 


nil A.n 


D0RG 


•-4 






00713 








nil *»n p p Truo 


SM 


N1TEMP ,1,10 






00714 


J2 


nn i a i 
UU l** 3 


n n n— i 

U U U 1 


nil #vn* 

Ul LOU* 


SEND THE WORD TO FAC 














n i i in 


TFL 


F AC t BUFFAR f 1 1 






00726 


00 


n i a o i 


nn i *»w 

UU 1 DIM 


At | on 


BI 


•♦12,1400 






00738 


M6 


00750 


n ii a n n 

U IHUU 


ni tan. 

Ul 17U* 


TEST FOR FLOATING ADDRESS 


AT SWD— I 












n i inn 

U 1 £ UU 


BNF 


FETCH3, SWD-l 






00750 


MM 


00844 


nn lie 
UU a 15 


Ul<c IU» 


IT 


IS A FIXED ADDRESS 














ni Tin 
U 1ZZU 


CF 


SWD-l 






00762 


L3 


002 15 


n n n n n 
UlUUU 


mi in a. 


TEST FOR FLOATING WORD IN 


r AC 












m iin 


BNF 


FETCH4.FAC-1 






00774 


M4 


00856 


n*iAoi 

U£*l^ 1 


U l£lU* 


THE WORD IS FLOATING SET 


ltD 1 Till/ ATC COD 

UK L INKAbc rUK 


FIX 








nntn 
UIYOU 


TF 


FIXEND+6.IC0N7+6 






00786 


20 


03686 


nno l i 

UUO 1 1 




B 


FIX 






00798 


49 


03854 


nnnnn 

wUUUU 




D0RG 


»-4 






00805 








m ion tmMi 


DC 


1,4 






00805 


00001 




n i inn 
Ul JUU 


DSC 


1.9 






00806 


00001 




ni nn 


DSA 


RETFLT 






00811 


00005 -0812 


m nn dctci t 
UIJaU KfclrLI 


TOM 


FIXEND*1,2 






00812 


15 


03681 


CC002 


nil in 


TDM 


FLTEND-5,2 






00824 


15 


03725 


00002 


n i iin« 

U 1 J^U» 


BRANCH TO STORE NUMBER 














01350 CKLD 


B 


FETCH4 






00836 


M9 


00856 


ococo 


miin 


DORG 


•-4 






00843 








miin ccTfui 


BNF 


FETCH5.FAC-1, , 


BRANCH 


IF 1 


FIXED 
00844 


M4 


00876 


02491 


n i i • n m. 
0 1380* 


STORE THE WORD IN MEMORY 














01390 rfclCnH 


TFL 


SWD-l, FAC, 6 






00856 


-6 


0021N 


02492 


n i Ann a 
U H»UU* 


CHECK FOR EMPTY BUFFER 














0 1% 1C 


B 


CK 






00868 


M9 


00454 


00000 


n i a in 
0 14ZU 


DORG 


•-4 






00875 








n i a in « 


SET UP LINKAGE FOR FLOAT 














U 1^*IU rt 1 una 


TF 


FLTEND , IC0N8+5 






00876 


20 


03730 


00264 


U lniU 


B 


FLOAT 






00888 


49 


04042 


ocooo 


0 1460 


DORG 


•-4 






00895 








m a in n d a v i 
014f0 URAYl 


SM 


PAR, I, 10,, 


OECREMENT 


WORD COUNT 
















00896 


12 


03378 


0C0-1 


U 14»oU 


BNZ 


• ♦14 






00908 


M7 


00922 


01200 


01490 


BB 








00920 


42 


00000 


CC000 


01500 


DORG 


•-9 






00922 








01510 


BNF 


AG A I N- 12 , DRAY- 1 






00922 


MM 


00638 


CC023 


01520 


S 


DRAY-1 , K 






00934 


K2 


00023 


02221 


0153C 


B 


AGAIN 






00946 


M9 


00650 


OCOOO 


01540 


DORG 


•-4 






00953 








01550 OA IB 


DSC 


2,-00 






00953 


00002 




nicxr 


DSA 


DDB 






00959 


00005 -0385 


0157C 


DC 


if' 






00960 


00001 




01580 DKBUFF 


DS 


,DATB+9 






00962 


00000 





01590* 
01600* 

01610* WRITE 2ND BLOCK 

01620* 



01630 


LD1RD 


DSC 


2tOO 


00961 


00002 


01640 




DSA 


01*1 


00967 


00005 -0969 


01650 




DC 


lt f 


00968 


00001 


01660 


DIM! 


DSC 


itl 


00969 


00001 


01670 




DSA 


209 


00974 


00005 -0209 


01680 




DC 


3,9 


00977 


00003 


01690 




OSA 


SMD 


00982 


00005 -0216 


01700 




DC 


It 9 


00983 


00C01 


01710 


STLD1 


CF 


IC0N7*2 


00984 


13 00807 CCOCC 


01720 




DGM 


DATB+9+200 


01162 


00001 


01730 




CF 


IC0N8+1 


00996 


L3 00260 OCOOO 


01740 




TFM 


IORT t HERE*U 


01G08 


10 00565 -1043 


01750 




TD 


StaD+900 9 DKBUFF+200 


01C20 


KN 01116 01162 


01760 


HERE 


B 


I0PT,LDlRDt7 


01032 


4R 00532 -C961 


01770 




TRA 




01044 


10 00565 -1063 










01C56 


49 00716 OCOOO 










01063 


00002 2K 










01065 


00005 -1071 










01070 


00001 • 










01071 


00006 1J9783 










01077 


00003 -03 










01080 


00006 -0000' 


01780 




TCD 


STLDi 


00984 





01790* 

01800* BLOCK 1 OF FETCH FIND RECORD 



01810 




DORG 


SWDA 








00216 




01820 


SWD 


TFM 


DSABLK+5,SWD 








00216 


JO 00265 -C216 


01830 




TFM 


IORT, IOREF+il 








00228 


10 00565 -0571 


01840 




B 


IOGT 








00240 


49 00566 OCOOO 


01850 




DORG 


*-4 








00247 




01860 


DDABLK 


OSC 


Itl 








00247 


00001 


01870 




DSA 


209 








00252 


00005 -0209 


01880 




DC 


3.9 








00255 


00003 


01890 


DSABLK 


DSA 


StoDf SMD 








00260 
00265 


00005 -0216 
00005 -0216 


01900 




DC 


It* 








00266 


00001 


01910 




OORG 


ICENO 








00270 




01920 


DIOEND 


BI 


•♦12,1400 








00270 


M6 00282 01400 


01930 




BB 










00282 


42 OCOOO OCOOO 


01940 




DORG 


•-9 








00284 




01950 


DAT1 


DSC 


2 f -00 








00284 


00002 


01960 




DSA 


DDABLK 








00290 


00005 -0247 


01970 




OC 


lt« 








00291 


00001 


01980 




DS 


5 








00296 


00005 


01990 


FETCH 


TF 


F IND-1 § FETCH- it t 




TRANSFER I 


00298 


KO 00071 00297 


02000 




TDM 


FRINDt It lit 


SET FETCH-RECCRC 


INDICATOR TO 


FETCH 
















00310 


J5 00163 OCOOJ 


02010 




B 


AI TEST. f f 


BRANCH TO 


SET FIND INDICATOR OFF , 
















00322 


M9 00358 CCOCC 


02020* 






COMPUTE 


ADDRESS , TEST I , 


AND TEST 


02030* 






FOR DEFINE STATEMENT • 




02040 


RECORD 


TF 


F IND- ltRECORD-itt 




TRANSFER I 


00334 


KO 00071 0C333 


02050 




TDM 


FRINDt Of t 


SET 


FETCH— RECORD 


INDICATOR TO RECRD 
















00346 


J5 00163 OCOOO 


02060 


A I TEST 


TDM 


FINDIN.lff , 


SET 


FIND 


INDICATOR OFF 


















00358 


15 03527 OCOOi 


02070 


SET! 


TFM 


DIODDA+5,217, , 




SET 


SECTOR 


ADDRESS IN ODA 



00370 16 03392 -C217 



02C8C 




M 


F IND-i , RECLG,6, 




CCMPUTE ACCRFSS OF FILE RECORC 
00382 K3 0007 J 


02243 


02C9C 




A 


C I ODD A + 5, 99 




00394 21 03392 


0C099 


0210C 




BO 


•♦44,F INDIN, , 




BRANCH IF NCT FINE 0C4C6 M3 CC450 


0 3 527 


021 iC 


S SEEK 


TFM 


ICRT ,«*23 




00418 10 00565 


-C441 


0212C 




B 


ICSK, D.KDATA, 7, 




TRANSFER TO IORT TC SEEK 

00430 49 0C554 


-33 79 


0213C 




6 


CIOEND 




00442 M9 C0270 


OCOOO 


0214C 




CORG 






00450 




0215C 




TFM 


BUT FAR ,DKBUFF+199 , 


f 


INITIALIZE BUFFER ARROW 

00450 JO 00155 


-1161 


0216C 




S 


8tFFAR-2,RECLG 




00462 K2 00153 


02243 


0217C 




TF 


N I TEMP , Nl , • 




00474 K6 00143 


02233 


02180 




TF 


CIODDAf StRECLG, , 




STCRE RECORD LENGTH IN CCA 
00486 26 03395 


02243 


0219C 




TFM 


OIODDA* 13,DKBIFF*200, 


, STCRE ACCRESS CF BUFFER 














00498 IC 03400 


-1162 


02200 




S 


DIODOAf 11,RECLG,, 




SUB LENGTH CF RECORD TC GET FIRST 
00510 22 03398 


CCR 
02243 


0221C 


OVER 


TOM 


TCBB+i ,2, , 




INITIALIZE BRANCH BACK 

00522 J5 00013 


0C0C2 


02220 




BB 






00534 42 OCOCC 


OCOCO 


0223C 




CORG 


•-9 




00536 




0224C 


EVEN 


TF 


TEMPA » FP2 , , 




STCRE FLOATING LENGTH IN TEMPA 












00536 K6 C0119 


03664 


02250 




BNF 


**36,DRAY-1, , 




BRANCH IF FLOATING ARRAY 

00548 MM 00584 


0C023 


02260 


IOREF 


CF 


DRAY- I »DATl , 7 




00560 LL 00023 


-C284 


0227C 




TF 


TEMPA , K , , 




STCRE FIXED LENGTH IN TEMPA 












00572 K6 00119 


02221 


02280 




TF 


DI0DDA*13,DRAY-1, , 




STCRE ADDRESS CF FIRST ELEMENT 












00584 20 034C0 


GC023 


0229C 




AM 


DIODDA+13,1 




00596 11 034C0 


-COCl 


02300 




S 


OIODDA+13, TEMPA, , 




HIGH ORDER POSITION OF ARRAY 












00608 2K O34C0 


00119 


0231C 




TF 


EVENl+ll,DI0DDA*13 




00620 K6 00703 


034CO 


02320 




M 


TEMPA 9 PAR 




00632 K3 00119 


03378 


02330 




A 


EVENi+11,99 




00644 Kl 00703 


CC099 


02340 


CARRY 


CM 


EVENl+UtO 




00656 J4 00703 


-COOO 


0235C 




BNE 


•>24 




00668 M7 00692 


01200 


02360 




TFM 


EVENI*11 9 0 




00680 J6 00703 


-COCO 


02370» 










EVALUATE AND STORE LOW ORDER 




02380» 










PCSITICN ♦ 1 CF ARRAY 




02390 


EVEN I 


TO 


EVEN2+11 




00692 K5 00939 


OCOOC 


024CC» 










EVALUATE SECTOR CCUNT 




0241C 




SF 


95 




00704 32 C0095 


OCOCC 


02420 




AM 


99,1,10, ADD ONE 


FOR 


GRCUP MARK 00716 11 00099 


OCO-l 


02430 




TF 


0I0CDA*8,97, t SET 


UP 


SECTOR COUNT 00728 26 03395 


CC097 


02440 




C 


•♦8,99,7 




00740 K4 00748 


-C099 


02450 




BE 


#♦24 




00752 M6 00776 


0120C 


0246C 




AM 


DIQDDA4-8,1,9, ADD 


TO 


SECTOR CNT IF NCT EVEN HUNCREDS 

00764 11 03395 


00-01 


0247C 




D 


95,RECLG 




00776 29 00095 


02243 


0248C 




A 


FIND-1,94,6, ADD 


NUMBER CF RECCRCS TC I 00788 Kl 0007J 


CC094 


02490 




BD 


#♦36,96 




00800 M3 00836 


0CO96 


0250C 




BD 


•♦24 ,95 




00812 M3 00836 


CC095 


0251C 




SM 


FIND- 1,1, 610 




00824 J2 C007J 


CCO-1 


02520 




TFM 


RETD2+6,»+20 




00636 JO 00150 


-C856 


0253C 




B 


N2CK 




00848 M9 00096 


OCOOO 


02540 




CORG 


»-4 




00855 





02550 
02560 

0257C* 
02580 

02590» 
02600 
02610 
02620 

02630 EVEN 2 

02640 

02650 
02660 

02670 FETCH8 
02680 



AM FIND-1, 1,610 
BO FETCH8 tFRINOt ♦ 

RECORD 

TD EVEN1*11,DKBUFF*20G,6 



00856 Ji 0007J OCO-1 
BRANCH IF FETCH 

00868 ML 00954 00163 



TFM I0RT,**23 

B ICRBCNOWLC ,7 

TOM FLTEND-5,2 

TDM EVENl+11,,6, 

A DI0DDA*5,DI0DDA*8,, 

BB 

DORG »-9 

TFM DI0*35,YTURN,67, 

TFM I0RT,»*23,, 



02690 

02700* 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

02780 

02790 

02800 

02810 

02820 

02830 

02840 

02850 

02860 

02870 

02880 

02890 

02900 

02910 

02920* 

0293C« 

02940 

02950 

0296C 

0297C 

0298C 

0299C 

03000 

03010 

03020 

0303C 

03040 

0305C 

03060 



EVENSP 



YTURN 



NOWLC 



TEMPA 

N1TEMP 

FRIND 



DIM2 



STLD2 

GM 
N10 



B IQGT tDKDATA f 7 

BNG •♦20,EVENl*il,li 

B EVEN2 

DORG «-4 

TF FLTEND,EVENSP*6 

TFM EI t 473,9 

B ERROR 

DORG «-4 

DC 1.4 

DSC 1,9 

DSA EVEN2-12 

BI •♦12,3700 

BNI ERRET,1900 

TDM INDS+10,6 

B IOERR 

DORG »-4 

DSC 2,02 

DSA DIODDA 

DC 1, • 

DS 2,N2CK*23 

OS 2,RETD2-1 

DS 1,BE2*7 

WRITE FIRST BLOCK 

DSC 1,1 

DSA 200 

DC 3,9 

DSA SWD 

DC !,• 

DORG SWD+902 

TD CARRY*7,CQRSI I 

AM CARRY>8,10 

TFM I0RT,NI0*ii 

CF EVENSP+2 

DGM GM*8 

B I0PT,LD2ND,7 

TRA 



SET GRCUP MARK AT END OF ARRAY 

00880 KN 0070L 01162 
WRITE ARRAY CNTO FILE 

00892 10 00565 -C915 

00904 4R 00520 -1091 

00916 15 03725 CC002 
RESTORE DIGIT 

00928 J5 0070L OCOOO 
INCREMENT SECTOR ADDRESS 

00940 21 03392 03395 

00952 42 00000 OCOOO 
00954 

INSERT ADDRESS FOR ERROR ENTRY 

00954 10 0085J -1048 
READ ARRAY FROM FILE 

00966 10 00565 -C989 

00978 49 00566 -3379 
TEST FOR NC GROUP MARK 

00990 NN 01010 0070L 

01002 M9 00928 OCOOO 
01009 

01010 20 03730 01047 

01022 16 02615 0CM73 

01034 49 03596 OCOOO 
01041 

01041 00001 

01042 00001 

01047 00005 -0916 

01048 M6 01060 03700 
01060 47 00602 01900 
01072 15 00620 0C006 
01084 49 00624 OCOOO 
01C91 

01091 00002 

01097 00005 -3387 

01098 00001 
00119 00002 
00143 00002 
00163 00001 



01099 
01104 
01107 
01112 
01113 
01118 
01118 
01130 
01142 
01154 
0116? 
01166 
01178 
01190 
01197 
01199 



00001 
C0005 
00003 
00005 
COCOl 



-0200 



-0216 



K5 00663 07376 
J I 00664 -C010 
10 00565 -1177 
L3 01043 CCOOO 
00001 

4R 00532 -1220 
10 00565 -1197 
49 00716 OCOOO 
00002 2K 
00005 -1205 



03070 LD2N0 DSC 2,00 

03080 DSA DIM2 

03090 DC 

03100 TCD STLD2 

03110 DEND 6 



01204 C0001 • 

01205 00006 1J9783 
01211 C0003 -03 
01214 00006 -00GC» 
01220 C0002 

01226 00005 -1099 

01227 00001 
01118 
00C06 



SYHBCt 



SETRMK 


00354R 


RETFLT 


008 1 2R 


R F C C R D 

r> L- O w 


F L TEND 


C3730 


F I XEND 


03680 


F I NC I N 


FETCH* 


C0856R 


FETCH3 


00844R 


F E TCH2 


CSAOTR 


00398R 


DSABLK 


00260R 


DKDAT A 


CIOCDA 


03387 


DDABLK 


00247R 


CORS I I 


ACCTGI 


C0594R 


ADR 


00004R 


AGAIN 


CK 


00454R 


CK I 


00502R 


CKLD 


CCB 


00385R 


01 Ml 


00969R 


DIP2 


CRAY I 


00896R 


E I 


02615 


ERRET 


EVEN I 


00692R 


EVEN2 


00928R 


F 


FINC 


0OO72R 


FIX 


03854 


FKCDO 


FRIND 


00163R 


GH 


01154R 


HERE 


INDS 


00610 


ICCAL 


00716 


ICEND 


IOPT 


00532 


ICRBC 


00520 


IOREF 


K 


02221 


LDIRD 


00961R 


LC2ND 


NOfcLC 


01091R 


Ni 


02233 


N2 


PAR 


03378 


RECLG 


02243 


RET02 


STtOi 


0C984R 


STLD2 


01118R 


SfcC 


TEHPA 


00U9R 


TOBB 


00012R 


W 



TABLE 



u u J j r\ 


K \ T P V P 

r\ I IC"r 


pni aid 


I flfl P F 7 


on L 1 BR 

U U "1 l O r\ 




F E T C H 8 


CC954P 


F E TCH 5 


nr fl 7ar 


n n 7 1 4 r 


CCTfUl 

rc i ini 


pnA 7f1R 


C VclM Or 




0 3 3 79 


p k n 1 1 p p 




n i nPMP 


r. r p 7 n r 


0 7 3 76 


BliFF AR 


00 1 5 5R 


A I TE ST 


U U J J On 


\i \j \j j \j t\ 


R P ? 




CARRY 


nn ft s^r 


00836R 

v U J U i\ 


C AT B 


C095 3R 


CAT I 


CC 2 84R 

\J V £. O ~ I> 


0 1099R 


C I C 


00816 


CRAY 


QC024R 


00602 


ERROR 


0 3596 


EVEN 


0C5 36R 


02219 


FAC 


02492 


FETCH 


0C298R 


03579 


FLCAT 


C4042 


FP2 


03664 


01032R 


ICCK7 


00805R 


ICCN8 


CC259R 


00270R 


ICERR 


00624 


ICGT 


0C566 


00560R 


ICRT 


00565 


ICSK 


0C554 


01220R 


LINKB 


00522R- 


NIO 


01166R 


02238 


N2CK 


00096R 


OVER 


0C522R 


00144R 


SET1 


00370R 


SSEEK 


00418R 


00216R 


SWCA 


00216R 


SfcCl 


00406R 


02240 


YTURN 


01048R 


ZERO 


02700 



40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 (Code 914) 



motional Business Machines Corporation 

November 25, 1963 



MEMORANDUM TO: Users of the 1620-1311 Monitor I System 

SUBJECT: 1620-PR-025 (Card System) 

Modification No. 3 



This letter transmits Modification No. 3 of the 1620-1311 Monitor I 
System. Forty-four (44) new cards are provided. They should replace 
the correspondingly numbered cards in your Monitor I Card System. 

Any discrepancies between the material you receive and the items 
listed should be reported to the Manager of DP Program Information 
Department, IBM Corporation, 112 East Post Road, White Plains, 
New York. 

Continued use of the Authorized Programming Analysis Report form 
for reporting difficulties will be appreciated. 



cc: Branch Offices without enclosures 



1620-1311 Monitor I 

Program #1620-PR-025 (Card System) 



Modification No. 3 



Monitor I System Loader, Deck #1 

1. Error : Write disk instruction involved with write disk error routine 
was not reconstructed properly. 

Correction : The following changes are necessary to correct the problem. 
Page 1 of listing should be changed: 
From: 00370 TD NOP+1, 1, , 

NOP+1, 1, , 



To: 00370 TDM 
Page 4 of same listing: 
From: 01620 TD 
To: 01620 TDM 



07772 25 09287 00001 
07772 15 09287 00001 



NOP+1, 9 
NOP+1, 9 



09298 25 09287 00009 
09298 15 09287 00009 



Two (2) new cards are furnished; they are cards numbered 00009 and 
00030. Please remove the correspondingly numbered cards from Deck #1 
and insert the new cards provided. 

Disk Utility Program, Deck #3 

1. Error : * Store Core Image. Core Image Program contains record mark 
between 13612 and 13772. This causes DUP to get a MAR check or 
creates a DUP * ERROR 1. 

Correction : The following changes are necessary to correct the program: 

Page 1 of listing (DUP routine) should be changed: 

From: 00240 DSA SOLDON 02298 04560 

To: 00240 DSA CLRIN 02298 05934 



1620-1311 Monitor I 

Program #1620-PR-025 (Card System) 

Page 2 

Page 14 of the listing should be changed: 
From: 05050 DAC 1,0 

To: 05050 CLRIN TFM *+18,INPUT-l 

05051 TDM INPUT- 1,0 

05052 AM *-6,l, 10 

05053 CM *-18,INPUT+161 

05054 BL *-36 

05055 B7 SOLDON 



Modification No. 3 



05935 1x2 



05934 
05946 
05958 
05970 
05982 
05994 



16 05952 
15 13612 
11 05952 
14 05952 
47 05946 
49 04560 



13612 
00000 
00001 
13774 
01300 
0 



Two (2) new cards are furnished; they are cards numbered 10163 and 10596. 
Please remove the correspondingly numbered cards from Deck #3 and insert 
the new cards provided. 

Supervisor, Deck #7 

1. Error : The FORTRAN Arithmetic and I/O subroutine set identification 
number has not been placed in disk sector position 83 of the Communications 
Area. 

Correction : The following change is necessary to correct this problem. 
Page 25 of the listing insert the following: 

10322 DSC 1, 1, COMM+83 FORTRAN Subroutine Set Number. 

2. Error : FORTRAN reading disk storage with wrong length record check to 
terminate read from disk storage gives check stop. This error also requires 
correction in FORTRAN Loader, Deck #9. These changes are incorporated 
in this modification. 

Correction : The following changes are necessary to correct the program. 
Page 6 of the listing requires the following insertion. 



Add: 02381 DORG 
02382 INOUT DSA 

Page 13 of the same listing should be changed: 

From: 05580 B 



02094 
CHECK-12 



CHECK- 12 



To: 05580 



B 



INOUT, , 6, 



1620-1311 Monitor I 

Program #1620-PR-025 (Card System) 

Page 3 



Modification No. 3 



Three (3) new cards are furnished; they are cards numbered 80075, 80086, 
and 80222. Please remove the correspondingly numbered cards from 
Deck #7 and insert the new ones furnished. 

FORTRAN II- D Processor, Deck #8 

1. Error : Single subscripting calculations previously done by subroutine 

because of array names being formal parameters, will now be done in-line, 
where possible, to effect a faster execution of the object program. 

Correction : The following changes are necessary to correct this problem. 

Page 47 of the listing (Phase 2) should be changed: 



From: 



To: 



From: 



To: 



16820 


CDS1FP 


BNF 


CDS1Z, SX 


15430 


44 1 5450 02377 


16830 




B7 


XX4 


15442 


49 14660 


16820 


CDS1FP 


TDM 


FXIOSW, 0 


15430 


15 1 5772 00000 


16830 




B7 


PATSB1 


15442 


49 15730 


16950 




A 


D4,SX 


15542 


21 07017 02377 


16960 




BD 


*+20, RXFLAG 


15554 


43 15574 04735 


16970 




B7 


*+44 


15566 


49 15610 


16980 




BNF 


*+36 


15574 


44 15610 09327 


16990 




SF 


L 


15586 


32 07025 00000 


17000 




NOP 


D4 


15598 


41 07017 00000 


17010 




TDM 


SS1,1 


15610 


15 07476 00001 


17020 




BTM 


PUTX, *+16 


15622 


17 07032 15638 


17030 




DSA 


MM, DI, L 


15638 


09349 06992 07025 


16950 




BD 


*+24,FPSW 


15542 


43 15566 09659 


16960 




A 


D4,SX 


15554 


21 07017 02377 


16970 




BNF 


*+24, FXIOSW 


15566 


44 15590 15772 


16980 




SF 


L, 21, 10 


15578 


32 07025 00021 


16990 


OPJ 


DS 


* 


15589 




17000 




TDM 


SS1,1 


15590 


15 07476 00001 


17010 




BTM 


PUTX, *+16 


15602 


17 07032 15618 


17020 




DSA 


MM, DI, L 


15618 


09349 06992 07025 


17030 




BNF 


PATSB4,FPSW 


15630 


44 15878 09659 


17031 




B7 


PATSB3 


15642 


49 15830 
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Program #1620-PR-025 (Card System) 

Page 4 



Modification No. 3 



Page 48 of same listing should be changed: 



From: 17111 



To: 





RD 

±-)±-J 




1 R7sn 


43 1 ^77^0 0473^ 

^tO XUI U\J \Jr±l OO 




R7 

ID I 


tOa 


1 R74? 


4Q 1 R774 




RIXTF 

JL->1\IJ_ 


Talj JLv_/ JL 


1 R7 Rfi 

1 Jl tJW 


AA 1 R774 0Q3?7 




TDM 

JL U 1V1 


SR4 1 


1 R7fi? 


1 p, 0747Q 00001 






SR?, 1 

kJw/u , _L 


1 R774 


1 R Ofl Ann 00001 

JL U U| 11 ( WW WW _L 




JLJ 




1 S7Rfi 






Rf) 


TLIVj ruA.1 J-JXiAsJT 


1 R730 


43 1 R7R0 '047 9R 




R7 

ID ( 




1 R74? 


4Q 1 R774 




R1\TP 


*_i_?A TD1 


1 R7R0 

I d / <Jw 


44 1 R774 0Q397 




X J-/1V1 


P ./VlvJQ VV ^ JL , J. J- 


1 R7R9 


1 r 1 R779 00001 

±U lOi / wwwwl 


JO AlUu VV 


J—/0 


*- 1 
, ^-1 


1 R779 




"DA TC"R9 
xr±\ 1 Oidli 


"RTMTT 
JDIMI? 


L/UD1Zj, D.A 


1 R77A 


AA 1 RARH 09*377 




BD 


XX4, FXIOSW 


15786 


43 14660 15772 




TDM 


FPSW, 1, 11 


15798 


15 09659 00001 




CF 


SX 


15810 


33 02377 00000 




B7 


CDS1Z 


15822 


49 15450 


PATSB3 


TDM 


SS2, 1 


15830 


15 07477 00001 




BTM 


PUTX, *+16 


15842 


17 07032 15858 




DSA 


OP J, N13092, SX 


15858 


15589 09369 02377 




B7 


15662 


15870 


49 15662 


PATSB4 


BNF 


*+24, FXIOSW 


15878 


44 15902 15772 




TDM 


SS4, 1 


15890 


15 07479 00001 




TDM 


SS2, 1 


15902 


15 07477 00001 




B7 


15662 


15914 


49 15662 



Seven (7) new cards are furnished. They are cards numbered 51708, 51709, 
51710, 51711, 51712, 51713, and 51714. Please remove the correspondingly 
numbered cards from Deck #8 and insert the new cards provided. 

FORTRAN n-D, Loader, Deck #9 

1. Error : This error refers to Error 2 of Supervisor Deck #7, which was 
corrected earlier in this current modification. 

Correction : The following changes are necessary to correct the program. 
Page 4 of the listing (Block 4) should be changed: 

From: 01730 FLPCOW DO 5,256,*-5 05150 5 

To: 01730 FLPCOW DC 5, 300, *-5 05150 5 



9 



1620-1311 Monitor I Modification No. 3 

Program #1620-PR-025 (Card System) 
Page 5 



2. Error : When FORTRAN mainline is loaded from cards, subprograms 
from disk will not load. 

Correction : The following changes are necessary to correct the program. 

Page 5 of the listing (Block 2) should be changed: 

From: 02210 B CALL 2 

To: 02210 B PATCH 

Page 8 of the same listing should be changed: 

Add: 03491 PATCH TDM EXTIND, 0 
03492 B CALL 2 

3. Error: During the loading of LOCAL 1 s it is possible to introduce an 
an extraneous group mark into the area occupied by the LOCAL. IE this 
occurs, the LOCAL is not read in completely resulting in a MAR check 
at execution time. 

Correction : The following changes are necessary to correct the program. 
Page 7 of the listing (Block 5) should be changed: 



From: 


03430 




TF 


LNKPTR, SCHDDA+5, 6 


To: 


03430 




B 


PATCH 


Page 9 of the same listing should be changed: 


From: 


04330 


TAB 


DSC 


2, 22 




04340 




DSA 


TABDDA 




04350 




DC 


1,@ 




04360 


TABDDA 


DDA 


, 1, 0, 1, INRK 




04370 




DC 


1,@ 




04380 


TBL 


DSC 


2, 22 




04390 




DSA 


TBLDDA 




04400 




DC 


1,@ 


To: 


04330 


PATCH 


TDM 


SETGM+6, 0 




04340 




TF 


LNKPTR, SCHDDA+5, 6 




04350 




B 


MVESCT+84 



\ 
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Program #1620-PR-025 (Card System) 

Page 6 
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4. Error : When a LOCAL subprogram is called from the disk and the LOCAL 
resides in the scratch area of the disk in a manner that part of it is on one 
cylinder and the remainder is on the next cylinder a check stop will occur. 

Correction : Replace FLIPPER listing with the one supplied. 

Fourteen (14) new cards are furnished; they are numbered: 

63107 
63117 
63136 
63228 
63237 
63238 
63261 
63262 
63263 
63264 
63265 
63266 
63267 
64022 

Please remove the correspondingly numbered cards from Deck #9 and 
insert the new cards furnished. 

FORTRAN Subroutines with Auto Floating Point, Deck #11 

1. Error : Incorrect zeroing constant when floating word length is less than 
eight. 

Correction : The following changes are necessary to correct the problem. 
Page 9 of the listing (Set 3) should be changed: 

From: 03740 BV *+12 05542 46 05554 01400 

To: 03740 B PATCH! 05542 49 05654 00000 



1620-1311 Monitor I Modification No. 3 

Program #1620- PR-02 5 (Card System) 
Page 7 



Page 10 of the same listing should be changed: 

Add: 03931 PATCH! CM F,7,10 05654 14 02219 00007 



03932 BH *+24 0 5666 4 6 05690 01100 

03933 AM ZERO M, 12, 10 05678 11 03445 00012 

03934 BV *+12 05690 46 05702 01400 

03935 B7 ODDSET+60 05702 49 05554 



2. Error : I/O subroutines fail when the number of items to be read from a 
data paper tape is less than the number of items specified in the FORTRAN 
statement. 

Correction: The following changes are necessary to correct the problem. 



Page 19 of the listing (Set 3) should be changed: 



From: 08670 


CM 


INPLUS, 70, 610 


04766 14 05945 00070 


08680 


BH 


IRDIG 


04778 46 04882 01100 


08700 


CM 


INPLUS, 00, 610 


04802 14 05945 00000 


08720 


CM 


INPLUS, 20, 610 


04826 14 05945 00020 


To: 08670 


C 


*+69, INPLUS, 11 


04766 24 04835 05945 


08680 


BNH 


. IRDIG 


04778 47 04882 01100 


08700 


C 


FLOAT+11, INPLUS, 


11 04802 24 04053 05945 


08720 


CM 


INPLUS, 7020, 6810 


04826 14 05945 07020 


Page 31 of the same listing should be changed: 




From: 14640 RDFCH 


CM 


INPLUS, 00, 610 


04828 14 05945 00000 


To: 14640 RDFCH 


C 


*- 37, INPLUS, 11 


04828 24 04791 05945 


Page 12 of the listing (Set 4) should be changed: 




From: 05760 RDFCH 


CM 


INPLUS, 00, 610 


07378 14 05945 00050 


To: 05760 RDFCH 


C 


*-49, INPLUS, 11 


07378 24 07329 05945 



1620-1311 Monitor I 

Program #1620-PR-025 (Card System) 
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Modification No. 3 



Page 17 of the same listing should be changed: 



From: 08270 
08280 
08300 



CM INPLUS, 70, 610 

BH IRDIG 

CM INPLUS, 00, 610 



09814 14 05945 00070 
09826 46 09930 01100 
09850 14 05945 OOOOO 



To: 



08270 
08280 
08300 



C EFTYPE+47, INPLUS, 11 09814 24 07749 0594B 
BNH IRDIG 09826 47 09930 01100 

C FLOAT+11, INPLUS, 11 09850 24 04053 05945 



Ten (10) new cards are furnished; they are cards numbered B50 57, 65058, 
B5123, B6042, B6043, B6044, B6045, B6101, B6133, and B6134. Please 
remove the correspondingly numbered cards from Deck #11 and insert the 
new ones provided. 

FORTRAN Subroutines with Auto Divide, Deck #10 

1. Error : I/O subroutines fail when the number of items to be read from a 
data paper tape is less than the number of items specified in the FORMAT 
statement. 

Correction : The following changes are necessary to correct the problem. 



Page 26 of the 


listing (Set 1) should be changed: 










From: 12550 


CM 


INPLUS, 70, 610 


04766 


14 


05945 


00070 


12560 


BH 


IRDIG 


04778 


46 


04882 


01100 


12580 


CM 


INPLUS, 00, 610 


04802 


14 


05945 


00000 


12600 


CM 


INPLUS, 20, 610 


04826 


14 


05945 


00020 


To: 12550 


C 


*+69, INPLUS, 11 


04766 


24 


04835 


05945 


12560 


BNH 


IRDIG 


04778 


47 


04882 


01100 


12580 


C 


FLOAT+11, INPLUS, 11 


04802 


24 


04053 


05945 


12600 


CM 


INPLUS, 7020, 6810 


04826 


14 


05945 


07020 


Page 38 of the 


same listing should be changed: 










From: 18560 


RDFCH CM 


INPLUS, 00, 610 


04828 


14 


05945 


oooOo 



To: 18560 RDFCH C *- 37, INPLUS, 11 04828 24 04791 05945 
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Program #1620- PR-02 5 (Card System) 

Page 9 



Modification No. 3 



Page 12 of the listing (Set 2) should be changed: 
From: 05730 RDFCH CM INPLUS, 00, 610 
To: 05730 RDFCH C *- 49, INPLUS, 11 
Page 17 of the same listing should be changed: 



From: 08280 
08290 
08310 



CM INPLUS, 70, 610 

BH IRDIG 

CM INPLUS, 00, 610 



07378 14 05945 00000 
07378 24 07329 05945" 



09862 14 05945 00070 
09874 46 09978 01100 
09898 14 05945 OOOOO 



To: 



08280 
08290 
08310 



C EFTYPE+47, INPLUS, 11 09862 24 07749 05945 
BNH IRDIG 09874 47 09978 01100 

C FLOAT+11, INPLUS, 11 09898 24 04053 05945 



Six (6) new cards are furnished; they are cards numbered 52101, 52102, 52167, 
53101, 53134, and 53135. Please remove the correspondingly numbered 
cards from Deck #10 and insert the new cards provided. 
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ERRATA TO MODIFICATION LETTER NO. 2 



FORTRAN n-D, Loader 

On Page 8 Of Modification Letter No. 2 (Card System), a correction to 
FORTRAN II-D Loader requires the replacement of one card numbered 63107. 
The change to the listing was correct; however, the correction was mispunched. 
Please replace the previously issued card with the one provided with this 
Modification Letter. 



C2C3C 



C2C5C 



C2C7C 
02C8C 



0214C 



stccre 


rs 


5 


CCC04 


CCG05 






cs 


5 


00C09 


C0005 




FLIP 


TR 


SVsK , »- 1 , 1 1 


OCC 10 


L J 


00278 


CCOCR 




c 


SWK+5, WK 


0CC22 


KM 


00283 


CC27 7 




TF 


EX I T + 6 , SWK* 1 C 


0CC34 


KG 


00196 


0C288 




3E 


SM I 


00C46 


M6 


00154 


01200 




TF V 


SfcK+8 ,999 ,9 


0CC58 


J6 


0C286 


0CR99 




TF 


SWK+ I 3 » STCCRE 


COC 70 


KO 


0029 I 


0C004 




TFM 


CIC+35 »MYER ,67 


CCC82 


10 


0085J 


-C 1 98 




TF 


UK , SWK-t-5 


0GC94 


KG 


CC277 


0C283 




TDM 


SWK+I4 


00 106 


J5 


C0292 


OCOCO 




DC 


1 , * , * 


00 1 17 


C0001 






TFM 


ICRT , »+23 


00 1 18 


10 


00565 


-0141 




B 


ICGT , LABEL , 7 


00 1 30 


<iR 


C0566 


-C293 




TF V 


I \OL T , CHECK- 1 2 


00 142 


16 


020S8 


-1250 


SMI 


SM 


FLIP- 1,13 


00 154 


J2 


000C9 


-C013 




TF 


»♦ 30 » F L I P- 1 ,6 11 


00 166 


KO 


C019C 


OCOOR 




AM 


•♦18,1,10 


00178 


Jl 


00196 


OCO-1 


EX I T 


B 




C0190 


49 


OOOCO 


OCOOO 




CCRG 


*-3 


00198 








MYER 


B I 


•+ 12, 3700 


00198 


M6 


0021C 


03700 




BN I 


ERRET, 1900 


002 10 


47 


006C2 


01900 




TFM 


I NOUT , MYER2 


00222 


10 


02098 


-C242 




B7 


ERROR 


00234 


49 


00624 


CCOOO 


M YER2 


B I 


*♦ 12 * 3700 


00242 


M6 


00254 


037CC 




B I 


CHECK- 12 , 1900 


00254 


46 


01250 


019CC 




B7 


EEXIT 


00266 


49 


01630 


CCOOO 




CC 


5 , 99999 


00277 


CCC05 




S UK 


CSS 


15 


00278 


00015 




LABEL 


CSC 


2,20 


00293 


00002 






CSA 


S WK 


00299 


C0005 -0278 




DC 


1 , * 


00300 


COOOl 




INDS 


DS 


,610 


00610 


COOOO 




CIO 


DS 


,816 


00816 


OOOCC 




ERROR 


CS 


,624 


00624 


CCCOO 




ERRET 


DS 


,602 


OC6C2 


CCOOO 




IORT 


DS 


,565 


00565 


00000 




IOGT 


CS 


, 566 


00566 


COCOO 




INOLT 


CS 


,2098 


C2C98 


CCOOO 




CHECK 


CS 


, 1262 


01262 


COOOO 




EEXIT 


CS 


, 1630 


01630 


00000 






CEND 




OOCOO 









SYMBOL TABLE 



STCCRF C0004R 

ERROR 00624 

ICGT 00566 

SMI 00154R 



CHECK 01262 
EXIT 0019CR 
I CR T 00565 
SfcK 00278R 



QIC 00816 

FLIP 00010R 

LABEL 00293R 

WK 00277R 



EEXIT 01630 
INCS 00610 
VYER 00198R 



ERRET 0C602 
INOtT 02C98 
MYER2 0C242R 




40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 (Code 914) 



Uernational Business Machines Corporation 



February 3, 1964 



MEMORANDUM TO: 



Users of the 1620-1311 Monitor I System 



SUBJECT: 



1620-PR-025 (Card System) 
Modification No. 4. 



This letter transmits Modification No. 4 of the 1620-1311 Monitor I 
System. Nine hundred and thirty-eight (938) new cards are provided. 
They should replace the correspondingly numbered cards in your 
Monitor I Card System. 

Any discrepancies between the material you receive and the items 
listed should be reported to the Manager of DP Programming Information 
Department, IBM Corporation, 112 East Post Road, White Plains, 
New York . 

Continued use of the Authorized Programming Analysis Report (APAR) 
form for reporting difficulties will be appreciated. 



cc: Branch Offices without enclosures 
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Disk Utility Program, Deck #3 

DUP Improvements and Corrections 

1. The *DLOAD routine has been modified to obtain faster load times. In 
order to run this faster version of *DLOAD, it is necessary to have flagged 
zeros in the remainder of the Sequential Program List, following the record 
mark. These flagged zeros will be placed in the S. P. List by executing the 
programs provided with this modification. (See pages 17-20). 

2 . The Define Disk Pack Label functions has been modified to place the five 
digit sector address of the communication sector (19663) into the last five 
positions of sector 19800 (cylinder 99). The SPS mantissa length is now 
being copied into positions 93-94 of the same sector. 

Three new listings are provided covering the above changes and these are: 

A. Selection Routine, Pgs. 1-17. 

B. DLOAD, DREPL, DELET, Pgs. 1-59. 

C. DIABL, Pgs. 1-7. 

The portion of Deck #3 which contains the previous mentioned changes is 
provided in this modification and are numbered 10000 to 10616. Please 
replace the correspondingly numbered cards with the new ones provided. 

3. In addition, the following DUP ERROR was corrected: 

Error : *DEFIN Program evaluates Column 55 of the control card unnecessarily. 

Correction: The following changes are necessary to correct the problem: 

Page 22 of listing (DUP ROUTINE *DEFIN) should be changed: 

FROM: 10020 SF DUPCRD+107 06796 32 09444 00000 

TO: 10020 B7 *+60 06796 49 06856 



One new card, numbered 12022, is provided. Please replace the corresponding 
card of Deck #3 with the new one provided. 
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SPS II-D, Processor, Deck #6 

1. Error ; DSA will not generate a relocatable 10th operand. 
Correction : The following change is necessary to correct this problem: 
Page 18 of the listing (SPS II-D, Phase B) should be changed: 

FROM: 08320 DFADD1 DDA , 0, B3DAD, B3SCT, B3MAD 09288 ol9 000069 09 100 
TO: 08320 DFADD1 DDA , 0, B3DAD, 67, 9300 09288 0~1900206709300 

2. Error ; *NO SUBROUTINES control record not effective. 
Correction: The following change is necessary to correct this problem: 
Page 52 of the listing (SPS II-D, Phase A) should be changed: 

FROM: 24320 BNL *+44 11529 46 11636 01300 



TO: 



24320 BNH *+44 



11529 47 



11636 



01100 



3. 



Error : DESIRED Specifications change: non-disk IORT "definer" declaratives 
should generate group marks instead of the record marks now generated for 
purposes of compatibility with Monitor II. 

Correction : The following changes are necessary to correct this problem: 
Page 23 of the listing (SPS II-D, Phase B) should be changed: 
FROM: 11420 BNR *-£4, FCHBUF 12306 45 12330 12459 

TO: 11420 FILL1 B FILL2 12306 49 15954 



FROM: Previously vacant area — Phase B3 

TO: FILL2 BNG *+24, FCHBUF 

TFM FCHBUF, 47, 10 

BNR FILL1+24,FCHBUF 

B7 FILL1+12 



15954 55 15978 12459 
15966 16 12459 00047 
15978 45 12330 12459 
15990 49 12318 
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Page 42 of the same listing: 

FROM: 20440 BTM LINKCR, *+12 13426 17 12808 13428 

TO: 20440 ND1 B ND2 13426 49 15540 

FROM: Previously vacant area — Phase B6 



TD 


LNTH+1 , SPSGM 


15540 25 


02388 


02560 


TD 


OUT+4,SPSGM 


15552 25 


02222 


£2560 


BTM 


LINKCR, *+12 


15564 17 


12808 


15576 


TD 


LNTH+1 , RM 


15576 25 


02388 


14106 


B7 


ND1+12 


15588 49 


13438 





Seven (7) new cards are_ furnished^ they are cards numbered 23197, 23577, 
23625, 23626, 23744, 23773 and 23869, Please remove the correspondingly 
numbered cards from Deck #6 and insert the new ones provided. 



Supervisor, Deck #7 

Supervisor Improvement 

This modification will cause programs which are loaded with relocation to maintain 
the same flags in the high order P and Q address portions of instructions after 
loading to core as were present in these positions before loading. 

Page 9 of the listing Monitor I Relocating Loader should be changed: 

FROM: 03800 SF SF PI, ,6 02128 32 0220P 00000 

TO: 03800 SF NOP PI,, 6 02128 41 0220P 00000 

Five cards are required to make this change. These five cards (numbered 
80028-80032) must be loaded using the system loader. (Deck #1) After 
the loading has taken place the cards may be placed behind the Supervisor 
Deck (Deck #7) to update that deck . 



FORTRAN II-D Processor, Deck #8 < 

1. Error : In implied DO loops within disk I/O statements if M3 is stated 
a check stop occurs during compilation. 
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Correction : The following changes are necessary to correct the problem: 
Page 49 of the listing (Phase 1-B) should be changed: 



FROM: 24330 BD IOF,IOSW, , 

TO: 24330 DOEE BD IOF,IOSW 

Page 52 of the same listing, insert the following: 



26241 
26242 



DORG DOEE 

BD DKF,IOSW 



13086 43 14236 10091 
13086 43 14236 10091 



13086 

13086 43 14352 10091 



2 . Error : Storage allocated incorrectly to variables that have been equivalenced 
in some cases. 

Correction : The following change is necessary to correct the problem: 
Page 13 of the listing (Phase 1-C) should be changed: 

FROM: 06010 AM SAVAD, 14, 10 07624 11 07359 OO0T4 

TO: 06010 SM SAVAD,6,10 07624 12 07359 00006 

3. Error : An extra record containing no data to be loaded is compiled in 
some cases. 

Correction : The following changes are necessary to correct the problem: 
Page 17 of the listing (Phase 1-C) should be changed: 

FROM: 08200 OUTK C IADD, CADD 09692 24 10865 10855 

TO: 08200 OUTK B7 *-f48 09692 49 09740 



FROM: 



TO: 



08330 
08340 

08330 
08340 



C WK1,GEND 

BNL TD 

C CADD, IADD 

B7 DJS 



09824 24 10880 10860 
09836 46 09892 01300 

09824 24 10855 10865 
09836 49 11520 
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Page 21 of the same listing, insert the following: 

10031 DJS BE OUTK2 11520 46 10140 01200 

10032 C CADD,CEND 11532 24 10855 10860 

10033 BE ITNC 11544 46 10000 01200 

10034 C WK1,CEND 11556 24 10880 10860 

10035 BH TD 11568 46 09892 01100 

10036 B7 OUTK1 11580 49 09848 



4. Error : If a program has no variables or constants and the first statement 
is numbered, a branch to that statement is not correctly executed. 

Correction : The following change is necessary to correct this problem: 

Page 1 of the listing (Phase 2) should be changed: 

FROM: 00420 JWG TFM TMAX,0,9 02460 16 06972 00000 

TO: 00420 JWG CF ADCOW 02460 33 06977 00000 

5. Error : The area reserved for intermediate output in Phase 2 is not large 
enough for some statements with 4 continuation cards . 

Correction : The following modifications change the origin of the intermediate 
string memory and the DO table. 



Page 2 of the listing (Phase 2) should be changed: 



FROM: 


00590 


TFM 


BGNST+1,0,7 


02652 


16 17000 00000 




00610 


TFM 


BGNST , 0 , 10 


02664 


16 16995 00000 




00620 


TFM 


ENDST , BGNSY- 1 


02676 


16 03970 16994 


TO: 


00590 


TFM 


BGNST+1,0,7 


02652 


16 17600 00000 




00610 


TFM 


BGNST, 0, 10 


02664 


16 17595 00000 




00620 


TFM 


ENDST, BGNSY- 1 


02676 


16 03970 17594 


Page 5 


of the same listing: 






FROM: 


01900 


DOREF 


DC 5, 17000 


03750 





02020 DOBASE DC 5, 17000 03810 



TO: 01900 DOREF DC 5, 17600 

02020 DOBASE DC 5, 17600 



03750 
03810 



1620-1311 Monitor I 

Program #1620-PR-025 (Card System) 

Modification No. 4 

Page 6 



Page 6 of the same listing: 



FROM: 



TO: 



02340 
02350 
02360 

02340 
02350 
02360 



BGNST DC 
BGNSY DC 
ENDST DC 

BGNST DC 
BGNSY DC 
ENDST DC 



Page 7 of the same listing: 
FROM: 02370 DC 



TO: 



02370 



DC 



3,0,16999 
2,0,16995 
5,16994 

3,0,17599 
2,0,17595 
5,17594 



1,@, 17000 
1,@, 17600 



Page 16 of the same listing: 

FROM: 05410 TD BGNSY+1 , BGNSY- 3 

05420 TF BGNSY, ADSL- 1,11 

05430 CF BGNSY- 3 

05440 AM BGNST, 1,10 

TO: 05410 TD BGNSY+1 , BGNSY- 3 

05420 TF BGNSY, ADSL- 1,11 

05430 CF BGNSY- 3 

05440 AM BGNST, 1,10 

Page 17 of the same listing: 

FROM: 05620 CM BGNST, 0,8 

05670 C RGRI, BGNST, 6 

05690 TF RGRA, BGNST 

05750 AM 99, BGNST 

05920 SM BGNST, 1,10 

TO: 05620 CM BGNST, 0,8 

05670 C RGRI, BGNST, 6 

05690 TF RGRA, BGNST 

05750 AM 99, BGNST 

05920 SM BGNST, 1,10 



16999 
16995 
03970 

17599 
17595 
03970 



17000 
17600 



05348 25 16996 16992. 
05360 26 16995 05311 
05372 33 16992 00000 
05384 11 16999 00001 

05348 25 17596 17592. 
05360 26 17595 05311 
05372 33 17592 00000 
05384 11 17599 00001 



05554 14 16999. 00000 
05602 24 05584 16999 
05626 26 05685 J.6999 
05686 11 00099 169.99 
05862 12 16999 00001 

05554 14 17599 0"0000 
05602 24 05584 17599 
05626 26 05685 17599 
05686 11 00099 17599 
05862 12 17599 00001 
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6. Error : When the index of a Find, Fetch, or Record statement is a formal 
parameter in a subprogram, the linkage to the disk input-output routine is 
not correctly generated. 

Correction : Page 63 of the listing (FORTRAN II-D, Phase 2) should be changed: 



FROM: 23121 BD CD14NR,FFRSW 11058 43 11174 04765 

23160 TFM OPY,27,10 11106 16 12857 00027 

TO: 23121 BD CD14NR+12 , FFRSW 11058 43 11186 047_65 

23160 TFM OPX,27, 10 11106 16 04193 00027 

Page 64 of the same listing: 

FROM: 23220 CD14NR TFMOPY,17,10 11174 16 .12857 000l7 

23240 DSA OPY, LVP, N40004 11202 12857 

TO: 23220 CD14NR TFM OPX,17, 10 11174 16 04193 000l7 

23240 DSA OPX, LVP, N40004 11202 04193 



7 . Error : If the expression to the right of the equal sign in an arithmetic 
statement function consists of a single variable that must be fixed or 
floated to conform to the mode of the function name, a check stop occurs 
at compile time. 

Correction ; The following changes are necessary to correct this problem: 
Page 73 of the listing (FORTRAN II-D, Phase 2) should be changed: 
FROM: 26520 BTM PUTX,*+16 10648 17 07032 T0664 



TO: 26520 B FCTPT1 10648 49 13320 

Page 79 of the same listing: 

ADD: 28891 FCTPT1 TDM RSW, 1, 11 13320 15 09337 OOOOl 

28892 BTM PUTX, 10664 13332 17 07032 10664 



8. Error : When more than one list element of an input-output list is an 

implied DO LOOP, an erroneous error message may be given indicating that 
the DO table is full. 
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Correction : The following changes are necessary to correct this problem: 
Page 85 of the listing (FORTRAN II-D, Phase 2) should be changed: 
FROM: 31210 TF GBASE,DOREF 14222 26 09637 03750 

TO: 31210 TF DOER+6 , DOREF 14222 26 14882 03750 



Page 86 of the same listing: 

FROM: 31790 TF DOREF, GBASE 14832 26 03750 09637 

TO: 31790 TF DOREF, DOER+6 14832 26 03750 14882 



Twenty-five (25) new cards are furnished. They are cards numbered: 



51372 5.1523 5.1553 5.1578 5.1864 

51470 151535 51573 51580 5.1899 

51497 51537 51574 51815 5.1900 

51499 5.1538 5.1576 5.1816 5.1962 

51522 51552 51577 51817 51970 



Please remove the correspondingly numbered cards from Deck #8 and insert 
the new ones provided. 



FORTRAN II-D, Loader, Deck #9 



1. Error : When working storage is defined on a drive other than drive 0, 
a check stop occurs when attempting to load a FORTRAN program. 

Correction : The following changes are necessary to correct this problem: 

Page 2 of the listing (1620 FORTRAN II-D Loader, Block 1) should be changed: 



FROM: 00680 


TF 


00690 


A 


00700 


A 


00720 


SM 


00730 


TF 


00740 


SM 


00750 


TF 


00760 


TF 


00770 


TF 


00810 


TF 



FLOD+13,CCIN£4 

CCIN+22,CCIN€7 

CCIN+22,CCIN+27 

CCIN+24,21,10 

FLOD+18,CCIN424 

CCIN-t24,l,10 

FLSDDA-t5,CCIN+24 

SUBDDA+5,CCIN+24 

FLOD+7,CCIN+24 

SCADDR,FLOD+13 



07796 26 12817 10523 
07808 21 10521 10526 
07820 21 10521 10526 
07844 12 10523 00021 
07856 26 12822 10523 
07868 12 10523 00001 
07880 26 12917 10523 
07892 26 12731 10523 
07904 26 12811 10523 
07952 26 02460 12817 
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00680 


TFM 


FLOD+18,0 


07796 16 


12822 


00000 


00690 


A 


FLOD+16,CCIN+27 


07808 21 


12820 


10526 


00700 


A 


FLOD+16,CCIN+27 


07820 2.1 


12820 


10526 


00720 


SM 


FLOD+18,21,10 


07844 12 


12822 


00021 


00730 


TF 


FLSDDA+5, FLOD+ 18 


07856 26 


12917 


12822 


00740 


SM 


FLSDDA-f5 ,1,10 


07868 12 


12917 


00001 


00750 


NOP 


FLSDDA+5, CCIN+2 4 


07880 41 


12917 


12822 


00760 


TF 


SUBDDA+5 , FLSDDA+5 


07892 26 


12731 


12917 


00770 


TF 


FLOD+7 , FLSDDA+5 


07904 26 


12811 


12917 


00810 


TFM 


SCADDR,0 


07952 16 


02460 


00000 



On Page 7 of the same listing: 



FROM: 03470 SUB DSC 2,22 12718 2 

TO: 03470 SUB DSC 2,02 12718 2 



And on Page 8 of the same listing: 



FROM: 


03690 


FLS 


DSC 


2,22 


12904 


2 




03790 


INC 


DSC 


2,22 


12951 


2 


TO: 


03690 


FLS 


DSC 


2,02 


12904 


2 




03790 


INC 


DSC 


2,02 


12951 


2 



Page 2 of the listing (1620 FORTRAN II-D Loader, Block 2) should be changed: 

FROM: 00740 TF SCADDR, INRK+13 03654 26 02460 07413 

TO: 00740 TDM DME, 2 03654 15 05820 00002 
On Page 6 of the same listing: 

FROM: 02880 DME DSC 2,22 05820 2 

TO: 02880 DME DSC 2,02 05820 2 
And on Page 7 of the same listing: 



FROM: 03030 INC DSC 2,22 
03110 SVE DSC 2,20 



05891 
05923 



2 
2 
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TO: 03030 INC DSC 2,02 05891 2 

03110 SVE DSC 2,00 05923 2 

Page 5 of the listing (1620 FORTRAN II-D Loader, Block 4) should be changed: 

FROM: 02140 LD DSC 2,22 05496 2 

TO: 02140 LD DSC 2,02 05496 2 

And on Page 6 of the same listing: 

FROM: 02400 FLP DSC 2,22 05670 2 

TO: 02400 FLP DSC 2,02 05670 2 

Page 2 of the listing (1620 FORTRAN II-D Loader, Block 5) should be changed: 

FROM: 00660 TF SPRST,SCADDR 03556 26 06773 02460 

TO: 00660 NOP SPRST,SCADDR 03556 41 06773 02460 



On Page 8 of the same listing: 



FROM: 


03980 


SCH 


DSC 


2,22 


06843 


2 




04080 


INC 


DSC 


2,22 


06891 


2 


TO: 


03980 


SCH 


DSC 


2,02 


06843 


2 




04080 


INC 


DSC 


2,02 


06891 


2 


And on Page 10 of the same listing: 






FROM: 


04550 


FLP 


DSC 


2,22 


07171 


2 


TO: 


04550 


FLP 


DSC 


2,02 


07171 


2 



Page 3 of the listing (1620 FORTRAN II-D Loader, Block 6) should be changed: 

FROM: 01180 TF IODDA+5 , SCADDR 03074 26 03251 02460 

01360 IODSC 2,22 03238 2 

TO: 01180 NOP IODDA+5 , SCADDR 03074 41 03251 02460 

01360 IODSC 2,02 03238 2 
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And on Page 5 of the same listing: 

FROM: 01770 SVE DSC 2,20 03838 2 

TO: 01770 SVE DSC 2,00 03838 2 

Page 1 of the listing (Flip Routine for Load on Call Subroutines) should 
be changed: 

FROM: LABEL DSC 2,20 00293 00002 

TO: LABEL DSC 2,00 00293 00002 

2. Error : When the mainline name table exceeds 51 entries, the *LOCAL 
Control record analyzer loops through the error print routine. 

Correction : The following change is necessary to correct the program: 

Page 4 of the listing (Block 1) should be changed: 

FROM: 02050 B LOAD1+24 09216 49 09308 00000 

TO: 02050 B MONCAL ' 09216 49 00796 00000 

3. Error : Multiple subprogram names in *LOCAL Control records are not detected. 
Correction : The following changes are necessary to correct the program: 

Page 4 of the listing (Block 1) should be changed: 

FROM: 01950 AM SEARCH+11, 11, 10 09112 11 09103 OOOll 

02010 AM SEARCH-MI, 9 ,10 09168 11 09103 00009 

TO: 01950 NOP SEARCH+1 1 , 1 1 , 10 09112 41 09103 OOOll 

02010 AM SEARCH+11,20, 10 09168 11 09103 00020 

4 . Error : The *DATA Control Record previously required by all FORTRAN 
jobs will now be required on a selective basis. 

The rules for the inclusion of the *DATA control record will now be as follows: 

1. If the mainline or link, of a FORTRAN job, and its associated sub- 
programs are loaded from the disk a *DATA Control record must not 
be included in the input. 
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2. If the mainline or link, of a FORTRAN job, or any of its associated 
subprograms are loaded from the card reader or tape reader a *DATA 
control record must be included whether or not any data is read 
by the program being executed. 

If any subprograms are not available on the disk and the loader 
encounters a *DATA control record while searching for these 
subprograms the message 

LOAD SXJBNAM 

is typed. When the names of all the missing subprograms have 
been typed, the machine will halt. The operator must load these 
programs into the input unit and depress start. 

Correction : The following changes are necessary to add this feature: 

Page 2 of the listing (1620 FORTRAN II- D Loader, Block 2) should be changed: 

FROM: 00600 DS 1 02521 1 

TO: 00600 NODATA DSC 1, 1 02521 1 

And on Page 8 of the same listing: 

FROM: 03492 B CALL2 06602 49 05014 00000 

TO: 03492 TDM NODATA, 0 06602 15 02521 00000 

And Add: 03493 B CALL2 06614 49 05014 00000 
Replace the listing (1620 FORTRAN II-D Loader, Block 3) with the one supplied. 

Page 2 of the listing (1620 FORTRAN II-D Loader, Block 5) should be changed: 

FROM: 00590 DS 1 02521 1 

TO: 00590 NODATA DS 1 02521 1 
On Page 3 of the same listing: 

FROM: 01050 B INC13 03924 49 03808 00000 

TO: 01050 B PATCH1 03924 49 07232 00000 
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On Page 7 of the same listing: 

FROM: 03570 BD PHASEC , MORE 

TO: 03570 BD PATCH2 , MORE 

On Page 10 of the same listing: 

FROM: 04410 TBLDDA DDA ,1,0,1, INRK 
04420 DC 1,@ 

04430 ONETWODSC 5,00101 

TO: 04410 PATCH2 H 

04420 B PHASEC 

And on Page 11 of the same listing: 

ADD: 04681 PATCH1 TDM NODATA, 0 
04682 B INC13 



06424 43 04740 06537 



06424 43 07060 06537 



07060 
07074 
07075 



14 
1 

5 



07060 48 00000 00000 
07072 49 04740 



07232 15 02521 00000 
07244 49 03808 



Page 2 of the listing (1620 FORTRAN II-D Loader, Block 6) should be changed: 
FROM: 00630 DS 1 02521 1 



TO: 



00630 NODATA DS 1 



02521 



1 



On Page 3 of the same listing: 

FROM: 01070 B READ- 2 4 



TO: 



01070 



B 



PATCH 



And on Page 5 of the same listing: 



ADD: 01881 PATCH BD 
01882 B 



LDFDC1, NODATA 
READ- 2 4 



02986 49 03274 00000 



02986 49 03890 00000 



03890 43 02994 02521 
03902 49 03274 00000 



Error : A LOCAL subprogram which is an exact multiple of 100 digits in 
length fails to load properly during execution. 

Correction : The following changes are necessary to correct the program: 
Page 7 of the listing (Block 5) should be changed: 
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FROM: 03350 BD ROUND, INRK+22 06204 43 06356 07422 

03360 BD ROUND, INRK+21 06216 43 06356 07421 

TO: 03350 AM INRK+20,1,10 06204 11 07420 00001 

03360 NOP ROUND,INRK+21 06216 41 06356 07421 

Eighty-two (82) new cards are furnished; they are numbered as follows: 



63004 


63127 


63239 


63005 


63136 


63240 


63006 


63141 to 63192 inclusive 


63247 


63007 


63196 


63248 


63022 


63226 


63250 


63023 


13227 


63258 


63070 


63229 


63259 


63073 


63235 


63266 


63082 


63236 


64027 


63097 


63238 


64029 


63126 







Please replace the correspondingly numbered cards in your Deck #9 
with the new cards provided. 

FORTRAN Subroutines with Auto Divide, Deck #10 

1. Error : When writing lists consisting of whole arrays, if the FORTRAN 
variables are not all of even length, the first variable of each array 
after the first in the list is not properly recorded. 

2 . Error : When writing arrays , if the FORTRAN variables are all of even 
length and the fixed word length is four; and if the array that is recorded 
immediately precedes the fixed word that contains the record number for 
the RECORD operation, then the record number will not be indexed over 
one thousand. 

3. Error : When writing arrays, if the FORTRAN variables are all of even 
length and the record length is two sectors; and if an array that is 200,400, 
600, etc. digits is written, the record number will not be properly incremented. 

4 . Error : The Monitor I IORT (which is used for all disk operations initiated 
by the FORTRAN Disk I/O) does not properly handle 1311 cylinder overflow 
when it occurs while writing whole arrays . 
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5. Error : When reading whole arrays from disk to core, an error message is 
printed if the size of the array is not the same as the size of the array 
area specified. This error message should be ER D3, not ER D5. 

Correction : Replace your present listing (FORTRAN Disk I/O without 
Floating Point Hardware)with the one supplied. 

A new DKIO subroutine set is supplied (DKIOFS) consisting of fifty-three (53) 
cards. The first card of this set is an unnumbered DUP control card; the 
balance are numbered 58000 through 58051. 

The Disk Utility Program is to be used to load this subroutine. A DREPL 
control card is included to direct DUP in this operation. Since the 
DREPL loader will not check the sequencing, the deck should be sight 
checked for correct sequencing prior to loading. 

NOTE: It will be necessary to make all other modifications as outlined 
in this modification letter before attempting the replacement of the DKIO 
subroutine . 



FORTRAN Subroutines with Auto Floating Point, Deck #11 

1. Error : When writing lists consisting of whole arrays, if the FORTRAN 
variables are not all of even length, the first variable of each array after 
the first in the list is not properly recorded. 

2. Error : When writing arrays, if the FORTRAN variables are all of even 
length and the fixed word length is four; and if the array that is recorded 
immediately precedes the fixed word that contains the record number for 
the RECORD operation, then the record number will not be indexed over 
one thousand. 

3. Error : When writing arrays, if the FORTRAN variables are all of even 
length and the record length is two sectors; and if an array that is 
200,400,600, etc. digits is written, the record number will not be 
properly incremented. 

4. Error : The Monitor I IORT (which is used for all disk operations initiated 
by the FORTRAN Disk I/O) does not properly handle 1311 cylinder overflow 
when it occurs while writing whole arrays . 
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Correction : Replace your present listing (FORTRAN II-D DKIO with FLT 
Hardware) with the one supplied. 

A new DKIO subroutine set is supplied (DKIOFH) consisting of fifty-one (51) 
cards. The first card of this set is an unnumbered DUP control card; the 
balance are numbered 71000 through 71049. 

The Disk Utility Program is to be used to load this subroutine. A DREPL 
control card is included to direct DUP in this operation. Since the DREPL 
loader will not check the sequencing the deck should be sight checked 
for correct sequencing prior to loading. 

NOTE: It will be necessary to make all other modifications as outlined 
in this modification letter before attempting the replacement of the DKIO 
subroutine . 



FORTRAN II-D Sample Program, Deck #13 

Correction : Please remove the *DATA card, which is unnumbered and is 
located between card #0079 and card #0080. 



FORTRAN II-D, Loader 

On Page 5 of Modification Letter 3, lines 6, 8, and 9, machine language code 
reads: 



ERRATA TO MODIFICATION LETTER 3 



05170 
06570 
06582 



49 
15 
49 



06570 
02463 
05014 



00000 
00000 
00000 



Lines 



6,8, and 9 



should have read: 



05170 
06590 
06602 



49 
15 
49 



06590 
02463 
05014 



00000 
00000 
00000 



No correction is required to the cards since they were punched correctly. 
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Execute Program No. 1 

This program will modify the system tables for the accommodation of the 
Modification No. 4 DUP expansion. 

The program should be entered and executed with the Monitor stacked input. It 
must be executed before Execute Program No. 2. 

This program consists of six (6) cards which are numbered 90000 to 90005. 



Execute Program No. 2 

Maintenance of System Tables Modification 

The Disk Identification Map (DIM) and the Sequential Program List (S. P. List) are 
changed whenever a user adds or deletes a program in his system. All installed 
systems will contain different entries in these tables. The maintenance of such 
system is not possible in every users installation by loading change cards over the 
original tables — instead correction procedures must consider the variability of the 
tables. The program described here was designed to correct and reconstruct these 
tables if they should be altered incorrectly for any reason. 

Purpose: 

This maintenance program will examine the users DIM entries for correct format. 
After typing any incorrect entry along with the entry number and an error message, 
the incorrect entry is deleted. A new Sequential Program List is created using the 
DIM entries. If this new list is different from the former list, the user can print 
the old list before the new list is substituted. 

When the new list is created, it is possible that two different DIM entries specify 
the same area on disk. This error is handled by deleting any DIM entry that conflicts 
with any previously examined entry. The first of the entries encountered, under 
these conditions, will be the one that is retained. 

After the new list has been constructed, a list of DIM entry numbers may be printed. 
This list will contain the entry numbers of any DIMs deleted because they specified 
disk sectors already specified by other DIM entries. Thus the user may wish to 
dump the DIMs using a *DDUMP control record before running this modification program . 

The program will also place flagged zeros in the remainder of the new S. P. List 
area on disk. These flagged zeros are used to identify the end of the actual list. 
The DUP routines which deal with the S. P. List will operate more quickly because 
only the portion of the list that is in use need be read and written on disk during 
the DUP operations. 
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Operation : 

Place the deck supplied in the input unit as a normal monitor job. Retain the 
program for use in the event that any new problems arise. 

Results : 

1 . DIM Table Edit 

If a DIM entry is in error, the message "DIM FORMAT ERROR" 
the DIM number, and the DIM entry are typed. This entry will 
be deleted from the DIM Table and any names which refer to 
that DIM number will be replaced, in the Equivalence Table, 
with an entry of all eights (8's). 

2. Sequential Program List Creation 

If the new Sequential Program List, which is built up from the 
DIM entries, compares equally with the one on the disk, the 
message, "S. P. LIST IS CORRECT" is typed. If the Lists do 
not compare equally, the message, "S. P. LIST IS INCORRECT" 
is typed and the program halts. Turning Console Switch one (1) 
on and pressing Start will dump the incorrect list (the one that 
was on the disk) onto the typewriter. In either case, the new 
list will be written on the disk when the Start Key is depressed. 

Any DIM numbers which are typed, after the S. P. List message 
has been typed, have been deleted from the DIM Table and 
replaced by eights (8's) in the Equivalence Table. 

3. Flagged Zeros Added to S. P. List Area 

The remainder of the new Sequential Program List, after record 
mark, is filled with flagged zeros, which are used by Modification 
Level 4 of the Disk Utility Program. 

This program consists of eighty- two (82) which are numbered 91000 to 91081. 



Execute Program No. 3 

Update Sequential Program List Areas for Use with Modification No. 4 PUP 

This program is designed to fill Sequential Program List areas on disk with flagged 
zeros beyond the last entry in the lists. 
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The program need only be executed once and so need not be retained on disk by 
the user. Only users who are sent the Modification No. 4 DUP program changes 
need this program. All new Monitor I users will receive updated S. P. Lists with 
the system they receive. 

The program need not be executed to use the new DUP routines but additional 
execution time will be saved when using the DUP load routines if the program 
is executed. The amount of additional saving will be approximately ten seconds 
per load-to-disk operation. 

The control cards are included with the cards. These are a JOB and an XEQ control 
card. Run this program with the stacked jobs using the normal Monitor I procedure. 
It will be necessary to run the program once with every disk pack that contains a 
previously initialized S. P. List. All packs that are labeled using the Modification 
No. 4 DUP DLABL routine will be initialized with flagged zeros to permit faster 
disk loading. 

This routine will update the packs on all the modules of the system as it was 
defined by the user. (DFINE routine) (i.e. If there are three modules defined for 
the system, all three must contain packs which contain S. P. List areas to be 
updated.) 

This program consists of ten (10) cards which are numbered 92000 to 92009. 
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©0010» FORTRAN DISK I/O WITHOUT FLOATING POINT HARDWARE 



0002ft* 



00030 


INOUT 


DS 


f 2098 










02098 


00000 




00040 


IOERR 


DS 


,624 










00624 


00000 




00050 


CHECK 


DS 


1 1262 










01262 


00000 




00060 
















00816 


00000 




00070 


EEX I T 




• }zz 










01630 


00000 




00080 


ERRET 


DS 


1 602 










00602 


00000 




00090 


ADR 


DSA 


FIND 


,RECORD, FETCH, 


SWD, DRAY ,DI OEND 




00004 


00005 


-0124 












00009 
00014 
00019 
00024 
00029 


00005 
00005 
00005 
00005 
00005 


-0386 
-0350 
-0268 
-0064 
-0322 


00100 




DORG 


ADR -4 










00000 






00 1 LO 


IOCAL 


DS 


1 716 










00716 


00000 




00120 


1 ORBC 


DS 


1 520 










00520 


00000 




00 130 


IORT 


DS 


t 565 










00565 


00000 




00140 


IOSK 


DS 


,554 










00554 


00000 




00150 


IOGT 


DS 


i 566 










00566 


00000 




00160 


I OPT 


DS 


,532 










00532 


00000 




00 170 


F AC 


OS 


i 2492 










02492 


00000 




001 80 


D I ODDA 


DS 


,3387 










03387 


00000 




00 190 


F I NO I N 


DS 


, 3583 










03583 


00000 








DS 


,3605 










03605 


00000 






pk nnn 














03427 


00000 




00220 


PAR 


DS 


, 3378 










03378 


00000 




00230 


ERROR 


DS 


, 3676 










03676 


00000 








DS 












02615 


00000 






F I XENP 




* 3760 










03760 


00000 




00260 


FLTEND 


DS 


, 38 10 










03810 


00000 




00270 


FLOAT 


DS 


, 4042 










04042 


00000 




00280 


DKDATA 


DS 


, 3379 










03379 


00000 




00290 


ZERO 




, 2700 










02700 


00000 




00300 


FIX 


DS 












03854 


00000 




00310 


RECLG 


DS 


I 2243 










02243 


00000 




00320 


W 


DS 


,2240 










02240 


00000 




00330 


N2 


DS 


,2238 










02238 


00000 




00340 


Nl 


DS 


,2233 










02233 


00000 




00350 


K 


DS 


,2221 










02221 


00000 




00360 


F 


DS 


,2219 










02219 


00000 




00370 


CORSIZ 


DS 


,7376 










07376 


00000 




00380* 




















00390 


NOWIC 


DSC 


2,02 










00000 


00002 




00400 




DSA 


DIODDA 










00006 


00005 


-3387 


00410 




DC 


i,a 










00007 


00001 




00420 


MYER 


BI 


•♦12,3700,, TURN 


OFF 


WLRC IND 




00008 


M6 00020 03700 


00430 




BI 


CHECK- 


12,1900,, 


LET 


IORT HANDLE DISK OVERFLOW 


00020 


46 01250 01900 


00440 




B7 


EEXIT,,,WLRC WAS 


ONLY ERROR 




00032 


49 01630 00000 


00450 




TF 


Nl TEMP 


,N1 








00040 


K6 00195 02233 


00460 


TOBB 


B 


DRAY 1 , 


,0 








00052 


M9 01074 00000 


00470 


DRAY 


TDM 


TOBB+1 


,9,, 




SET TOBB 


TO BRANCH 


00064 


J5 00053 00009 


00480 




BD 


EVEN , FKODD , , 




TEST FOR 


EVEN ADDRESS 


00076 


M3 00588 03427 
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00490 


BD 


AGAIN, DDABLK+ 1 , , 


BRANCH IF BUFFER PROG IN CORE 


00088 


ML 


00782 


00300 


00500 


TFM 


DSABLK+5, AGAIN 




00100 


JO 


00317 


-0782 


00510 


B 


SHD+12 




00112 


M9 


00280 


00000 


00520 FIND 


TDM 


F I NDI N, 0 , , 


SET FIND INDICATOR ON . 


00124 


15 


03583 


00000 


00530 


TFM 


RETD2 + 6, SET 1 , , 


BRANCH TO COMPUTE ADDRESS AND TESTI 


00136 


JO 


00202 


-0422 


00540* N2 


ERROR ROUTINE tl GRT 


N2Q 










00550 N2CK 


C 


FIND-1,ZER0,6, 


IS I ZERO OR NEG 


00148 


K4 


0012L 


02700 


00560 


BNH 


BE 2 




00160 


M7 


002 08 


01100 


00570 


C 


FIND-1,N2,6, 


COMPARE I AND N2 


00172 


K4 


0012L 


02238 


00580 


BH 


BE2 




00184 


M6 


00208 


01100 


00590 RETD2 


B 


#— « 




00196 


49 


00000 


00000 


00600 BUFFAR 


DS 


, • 




00207 


00000 




00610 BE2 


TFM 


EI, 472, 9, 


I GRT N2 


00208 


16 


02615 


00M72 


00620 


TF 


Nl TEMP , Nl 




00220 


K6 


00195 


02233 


00630 


BD 


ERROR , DDABLK , t BR 


IF CK MADE FROM EVEN ARRAY PROGRAM 


00232 


4L 


03676 


00299 


00640 


TFM 


DSAOTR+5, ERROR 




00244 


J6 


00475 


-3676 


00650 


B 


SETRMK 




00256 


M9 


00426 


00000 


00660* 


















SWD SUBROUTINE 












00680 SWDA 


TDM 


SWD+900,0 




00268 


J5 


01168 


00000 


00690 


TFM 


♦-11,41, 10 




00280 


J6 


00269 


000M1 


00700 


B 


SWD1 




00292 


M9 


00478 


00000 


00710 


DORG 


*-3 




00300 








00720* 


SET UP LINKAGE FOR 


FLOAT 










00730 FETCH5 


TF 


FLTEND, IC0N8+5 




00300 


20 


03810 


01072 


00740 


B 


FLOAT 




00312 


49 


04042 


00000 


00750 


DORG 


«-4 




00319 








00760 


DORG 


♦ ♦4 




00322 








00770 I OEND 


TFM 


DSAOTR +5 , D I OEND 




00322 


JO 


00475 


-0322 


00780 


BD 


SETRMK, FRIND,, 


BRANCH IF FETCH 


00334 


ML 


00426 


00215 


00790 


C 


N1TEMP ,N1 




00346 


K4 


00195 


02233 


00800 


BE 


SETRMK, , , 


BRANCH IF BUFFER EMPTY 


00358 


M6 


00426 


01200 


00810 


TFM 


RETD2+6,*+20 




00370 


JO 


00202 


-0390 


00820 


B7 


N2CK 




00382 


M9 


00148 


00000 


00830 


TFM 


I0RT,*+23, , 


WRITE BUFFER TO FILE 


00390 


10 


00565 


-0413 


00840 


B 


IOPT , DKDATA, 7 




00402 


49 


00532 


-3379 


00850 


AM 


FIND-1, 1,610 




00414 


Jl 


0012L 


000-1 


00860 SETRMK 


TD 


SWD+900.DKBUFF+200 


00426 


KN 


01168 


01340 


00870 


TFM 


I0RT,I0REF2+11 




00438 


10 


00565 


-0513 


00880 


B 


IOGT 




00450 


49 


00566 


00000 


00890 


DORG 


«-4 




00457 








00900 DDB 


DSC 


1,1 




00457 


00001 




00910 


DSA 


200 




00462 


00005 -0200 


00920 


DC 


3,9 




00465 


00003 




00930 DSAOTR 


DSA 


SWD.DIOEND 




00470 


00005 -0268 










00475 


00005 -0322 


00940 


DC 


i»a 




00476 


00001 




00950 SWD1 


A 


BUFFAR , W, , 


INCREMENT BUFFER ARROW 


00478 


Kl 


00207 


02240 


00960 


BD 


FETCH1, FRIND,, 


BRANCH IF FETCH 


00490 


ML 


00802 


00215 



00970** RECORD 

00980 I0REF2 CF SWD-1 , DATB, 7, CLEAR FLAG ON ADDRESS OF DATA 00502 LL 00267 -1131 

00990 SM NITEMP,1,10 , DECREMENT WORD COUNT 00514 J2 00195 000-1 

01000 TF BUFFAR, SWD-1, 611 , SEND WORD TO BUFFER 00526 KO 0020P 0026P 
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1 


_ M 


DMCC AD . J 




00538 


01020 


SM 


SWD—lt 2 




00550 


01030 


TF 


BUPP AK t a WD— I toil 




00562 


01040 


AM 


BUrr AR, Z 




00574 


01050 CK 


CM 


N1TEMP»0» 10, 


LHfcLK PUK PULL DUPPfcK 


00586 


01060 


BNZ 


TOBB 




00598 


01070 


BD 


rnaa i o to T ki n ao T C 

TOBB-1 2 » PR I ND » , BR IP 


FETCH 




01080 


TFM 


LINKB+18 r I OPT 






01090 CKI 


TFM 


RETD2+6»LI NKB 




AAA? U 
C\t\tfL. A 


01100 


B 


N2CK 






OHIO 


DORG 


*-4 






01120 LINKB 


TFM 


IORT,*+23» « 


CALL CORRECT IORT ROUTINE 


00654 


01130 


B 


» DK DATA, 7 




00666 


01140 


TFM 


BUFF AR , DKBUFF+ 199 , , 


INITIALIZE BUFFER ARROW 


00678 


01150 


S 


BUFFAR-2 »RECLG 






01160 


BNF 


*+24,FRI ND 




00702 


01170 


A 


BUFFAR » W 




00714 


01180 ADDTOI 


AM 


F IND-i i 1 , 610, 


INCREMENT I 


22 -TO O 


01190 


A 


DIODDA+5, DIODDA+8, , 


INCREMENT SECTOR ADDRESS 


00738 


01200 


BD 


FETCH2, FRI ND 






01210 


B 


TOBB-12 






01220 


OORG 


*-4 






01230 


A 


DRAY-1»FP2 




00770 


01240 AGAIN 


TF 


SWD-1 , DRAY-1 




00782 


01250 


B 


SWD 






01260 


OORG 


*-4 




00801 


01270 FETCH1 


C 


N1TEMP ,N1 




00802 


01280 


BNE 


FETCH2, ,, 


BRANLH lr DUPPfcK NUI tflr 1 T 




01290 


TFM 


LINKB+18, IOGT 




00826 


0 1300 


B 


CKI 




00838 


01310 


OORG 


«-4 




00845 


01320 FETCH2 


SM 


N1TEMP, 1, 10 




00846 


01330* 


SEND THE WORD TO FAC 






01340 


TF 


FAC, BUFFAR, 11 






01350 


SM 


BUFFAR, 2 




00870 


01360 


TF 


FAC-2, BUFFAR, 11 




00882 


01370 


AM 


BUFFAR, 2 




00894 


01380 


BI 


•♦12,1400 




00906 


01390* 


TEST FOR FLOATING ADDRESS 


AT SWD-1 




01400 


BNF 


FETCH3, SWD-1 




00918 


01410* 


IT 


IS A FIXED ADDRESS 






01420 


CF 


SWD-1 




00930 


01430* 


TEST FOR FLOATING WORD IN 


FAC 




01440 


BNF 


FETCH4, FAC-1 




00942 


01450* 


THE WORD IS FLOATING SET UP LINKAGE FOR FIX 




01460 


TF 


FIXEND+6,IC0N7+6 




00954 


01470 


B 


FIX 




00966 


01480 


DORG 


«-4 




00973 


01490 IC0N7 


DC 


lt4 




00973 


01500 


DSC 


1,9 




00974 


01510 


DSA 


RETFLT 




00979 


01520 RETFLT 


TDM 


FIXENO+1,2 




00980 


01530 


TDM 


FLTEND-5,2 




00992 



J2 00207 
J2 00267 
KO 00 2 OP 
Jl 00207 
J4 00195 
M7 00052 
ML 00040 
J6 00672 
JO 00202 
M9 00148 

10 00565 
49 00000 
JO 00207 
K2 00205 
MM 00726 
Kl 00207 
Jl 0012L 
21 03392 
ML 00846 
M9 00040 

Kl 00063 
KO 00267 
M9 00268 

K4 00195 
M7 00846 
J6 00672 
M9 00634 



-0002 
-0002 
0026P 
-0002 
000-0 
01200 
00215 
-0532 
-0654 
000OO 

-0677 
-3379 
-1339 
02243 
00215 
02240 
000-1 
03395 
00215 
00000 

03605 
00063 
00000 

02233 
01200 
-0566 
00000 



J2 00195 000-1 

20 02492 0020P 
J2 00207 -0002 
20 02490 0020P 
Jl 00207 -0002 
M6 00918 01400 

MM 01012 00267 

L3 00267 00000 

M4 01024 02491 

20 03766 00979 
49 03854 00000 

00001 
00001 

00005 -0980 
15 03761 00002 
15 03805 00002 
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01540* 


BRANCH TO STORE NUMBER 








01550 CKLD 


B 


FETCH4 




01004 


M9 01024 00000 


01560 


DORG 


*-4 




01011 




01570 FETCH3 


BNF 


FETCH5, FAC-1,, 


BRANCH IF FIXED 


01012 


M4 00300 02491 


01580* 


STORE THE WORD IN MEMORY 








01590 FETCH4 


TF 


SWD-1, FAC, 6 




01024 


K6 0026P 02492 


01600 


SM 


SWD-1, 2 




01036 


J2 00267 -0002 


01610 


TF 


SWD-l,FAC-2,6 




01048 


K6 0026P 02490 


01620* 


CHECK FOR EMPTY BUFFER 








01630 


B 


CK 




01060 


M9 00586 00000 


01640 


DORG 


#-4 




01067 




01650 IC0N8 


DC 


1,9 




01067 


00001 


01660 


DSA 


RETFLT 




01072 


00005 -0980 


01670 DRAY 1 


SM 


PAR, 1,10,, 


DECREMENT WORD COUNT 


01074 


12 03378 000-1 


01680 


BNZ 


• ♦14 




01086 


M7 01100 01200 


01690 


BB 






01098 


42 00000 00000 


01700 


DORG 


*-9 




01100 




01710 


BNF 


AGAI N-l 2 , DRAY-1 




01100 


MM 00770 00063 


01720 


S 


DRAY-1 ,K 




01112 


K2 00063 02221 


01730 


B 


AGAIN 




01124 


M9 00782 00000 


01740 


DORG 


*-4 




01131 




01750 DATB 


DSC 


2,-00 




01131 


00002 


01760 


DSA 


DDB 




01137 


00005 -0457 


01770 


OC 


1,3 




01138 


0000 1 


01780 DKBUFF 


OS 


,DATB+9 




01140 


00000 


01790* 












01800* 












01810* 


WRITE 2ND BLOCK 








01820* 












01830 LD1RD 


DSC 


2,00 




01139 


00002 


01840 


DSA 


01 Ml 




01145 


00005 -1147 


01850 


DC 


1,9 




01146 


00001 


01860 DIM1 


DSC 


1,1 




01147 


00001 


01870 


DSA 


209 




01152 


00005 -0209 


01880 


DC 


3,9 




01155 


00003 


01890 


DSA 


SWD 




01160 


00005 -0268 


01900 


DC 


US 




01161 


00001 


01910 


DORG 


SWDA+902 




01170 




01920 STLD1 


TDM 


DKBUFF+200,0 




01170 


J 5 01340 00000 


01930 


DGM 


• 




01181 


00001 


01940 


TD 


SWD+900,DKBUFF+200 




01182 


KN 01168 01340 


01950 


CF 


ICON7+2 




01194 


L3 00975 00000 


01960 


CF 


ICQN8+1 




01206 


L3 01068 00000 


01970 


TFM 


I0RT,*+23 




01218 


10 00565 -1241 


01980 


B 


I0PT,LD1RD,7 




01230 


4R 00532 -1139 


01990 


TRA 






01242 


10 00565 -1261 










01254 


49 00716 00000 










01261 


00002 2K 










01263 


00005 -1269 










01268 


00001 S 










01269 


00006 1J9783 










01275 


00003 -03 










01278 


00006 -0000S 
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02000 




TCD 


STLD1 




01170 








02019* 
















02020* 


BLOCK 1 OF FETCH FIND 


RECORD 










02030 




DORG 


SMDA 




00268 










S WD 


TFM 


UO*UL^" J| OKU 




00268 


JO 


00317 


-0268 


02050 




TFM 


IORT, IOREF+ll 




00280 


10 


00565 


-0623 


02060 




B 


IOGT 




00292 


49 


00566 


00000 


02070 




DORG 


*— 4 




00299 








02080 


ODABLK 


DSC 


1 1 1 




00299 


0000 1 




02090 




DSA 


209 




00 304 


00005 -0209 


02100 




DC 


3,9 




00307 


00003 




02110 


OSABLK 


DSA 


SWD,SWD 




00312 
00 317 


00005 -0268 
00005 -0268 


02120 




DC 


It 9 




00318 


00001 




02130 




DORG 


IOEND 




00322 








02140 


DIOEND 


BI 


*+12, 1400 




00322 


M6 


00334 


01400 


02150 




BB 






00334 


42 


00000 


00000 


02160 




DORG 


♦-9 




00336 








02170 


0AT1 


DSC 


2,-00 




00336 


00002 




02180 




DSA 


DDABLK 




00342 


00005 -0299 


02190 




DC 


It i 




00343 


00001 




02200 




OS 


5 




00348 


00005 




02210 


FETCH 


TF 


F IND-i , FETCH-1 , , 


TRANSFER I 


00350 


KO 


00123 


00349 


02220 




TDM 


FRIND,1,11, SET 


FETCH-RECORD INDICATOR TO FETCH 


00362 


J5 


00215 


OOOOJ 


02230 






AITEST, , , 


BRANCH TO SET FIND INDICATOR OFF , 


00374 


M9 


00410 


00000 


02240* 






COMPUTE ADDRESS , TEST I , ANO TEST 










02250* 






FOR DEFINE STATEMENT . 










02260 


RECORD 


TF 


FIND-1,REC0RD-1, , 


TRANSFER I 


00386 


KO 


00123 


00385 


02270 




TDM 


FRIND,0, , 


SET FETCH-RECORD INDICATOR TO RECRD 


00398 


J5 


00215 


00000 


02280 


AI TEST 


TDM 


F INDI N» 1 » , 


SET FIND INDICATOR OFF 


00410 


15 


03583 


00001 


02290 


SET1 


TFM 


DIODDA+5, 2 18 , , 


SET SECTOR ADDRESS IN DDA 


00422 


16 


03392 


-0218 


02300 




H 


FIND-1,RECLG,6, 


COMPUTE ADDRESS OF FILE RECORD 


00434 


K3 


0012L 


02243 


02310 




A 


DI0DDA+ 5,99 




00446 


21 


03392 


00099 


02320 




BD 


•+44, F I NDI N , , 


BRANCH IF NOT FIND 


00458 


M3 


00502 


03583 


02330 


SSEEK 


TFM 


I0RT,*+23 




00470 


10 


00565 


-0493 


02340 




B 


I OSK, DKDATA , 7, 


TRANSFER TO IORT TO SEEK 


00482 


49 


00554 


-3379 


02350 




B 


DIOEND 




00494 


M9 


00322 


00000 


02360 




DORG 


*-3 




00502 








02370 




TFM 


BUFF AR , DKBUFF+ 199 , , 


INITIALIZE BUFFER ARROW 


00502 


JO 


00207 


-1339 


02380 




s 


BUFFAR-2,RECLG 




00514 


K2 


00205 


02243 


02390 




TF 


NiTEMP »N1 , , 




00526 


K6 


00195 


02233 


02400 




TF 


DIODDA+8 ,RECLG, , 


STORE RECORD LENGTH IN DDA 


00538 


26 


03395 


02243 


02410 




TFM 


DIODDA+13, DKBUFF+200, 


, STORE ADDRESS OF BUFFER 


00550 


10 


03400 


-1340 


02420 




s 


DIODDA+U,RECLG,, 


SUB LENGTH OF RECORD TO GET FIRST COR 


00562 


22 


03398 


02243 


02430 


OVER 


TDM 


TOBB+1,2, , 


INITIALIZE BRANCH BACK 


00574 


J5 


00053 


00002 


02440 




BB 






00586 


42 


00000 


00000 


02450 




DORG 


*-9 




00588 








02460 


EVEN 


TF 


TEMPA,FP2,» 


STORE FLOATING LENGTH IN TEMPA 


00588 


K6 


00171 


03605 


02470 




BNF 


*+36,DRAY-l , f 


BRANCH IF FLOATING ARRAY 


00600 


MM 


00636 


00063 


02480 


IOREF 


CF 


DR AY-1 , DAT1 , 7 




00612 


LL 


00063 


-0336 


02490 




TF 


TEMPA,K, , 


STORE FIXED LENGTH IN TEMPA 


00624 


K6 


00171 


02221 


02500 




TF 


DIODDA+13, DRAY-1, , 


STORE ADDRESS OF FIRST ELEMENT 


00636 


20 


03400 


00063 


02510 




AM 


DIODDA+13, 1 




00648 


11 


03400 


-0001 
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02520 


S 


DIODDA+13, TEMPA, , HIGH ORDER POSITION OF ARRAY 


00660 


2K 


03400 


00171 


02530 


TF 


EVEN1+11, DIODDA+13 


00672 


K6 


00919 


03400 


02540 


M 


TEMPA, PAR 


00684 


K3 


00171 


03378 


02550 


SF 


95 


00696 


32 


00095 


00000 


02560 


A 


EVENl+11,99 


00708 


Kl 


00919 


00099 


02570« 




EVALUATE AND STORE LOW ORDER 










02580* 




POSITION + 1 OF ARRAY 










02590 CARRY 


CM 


EVENl+11,0 


00720 


J4 


00919 


-0000 


02600 


BNE 


♦+24 


00732 


M7 


00756 


01200 


02610 


TFM 


EVENl+11,0 


00744 


J6 


00919 


-0000 


02620* 




EVALUATE SECTOR COUNT 










02630 


AM 


97,1 ,9, ADD ONE FOR GROUP MARK 


00756 


11 


00097 


00-01 


02640 


TD 


*+23,RECLG 


00 768 


K5 


00791 


02243 


02650 BDI2 ' 


BD 


OVER3,251,, BRANCH IF RECLG IS 1 


00780 


M3 


00828 


00251 


02660 


TD 


♦+23,97 


00792 


K5 


00815 


00097 


02670 


BD 


•+24,210,, BRANCH IF EVEN NUMB OF SECTORS 


00804 


M3 


00828 


00210 


02680 


AM 


97,1,10 


00816 


11 


00097 


000-1 


02690 0VER3 


TF 


DIODDA+8, 97, , SET UP SECTOR COUNT 


00828 


26 


03395 


00097 


02700 


BD 


0VER2,BDI2+11,11 


00840 


ML 


00864 


0079J 


02710 


MM 


DIODDA+8, 50, 10 


00852 


13 


03395 


OOONO 


02720 0VER2 


A 


FIND-1,97,6, ADD NUMBER OF RECORDS TO I 


00864 


Ki 


0012L 


00097 


02730 


SM 


FIND-1, 1,610 


00876 


J2 


0012L 


000-1 


02740 


TFM 


RETD2+6,*+20 


00888 


JO 


00202 


-0908 


02750 


B 


N2CK 


00900 


M9 


00148 


00000 


02760 


DORG 


*-4 


00907 








02770 EVEN1 


TD 


EVEN2+ 1 1 


00908 


K5 


00991 


00000 


02780 


BD 


FETCH8 ,FR I ND, , BRANCH IF FETCH 


00920 


ML 


01018 


00215 


02790* 


RECORD 










02800 


TD 


EVENl+U,DKBUFF+200,6, SET GROUP MARK AT END OF ARRAY 


009 32 


KN 


0091R 


01340 


02810* 




WRITE ARRAY ONTO FILE 










02820 


TFM 


IORT,*+23 


00944 


10 


00565 


-0967 


02830 


B 


IORBCNOWLC ,7 


00956 


4R 


00520 


-0000 


02840 


TDM 


FLTEND-5, 2 


00968 


15 


03805 


00002 


02850 EVEN2 


TDM 


EVENl+11,,6, RESTORE DIGIT 


00980 


J5 


0091R 


00000 


02860 


AM 


FIND-1, 1,610 


00992 


Jl 


0012L 


000-1 


•2870 


A 


DIODDA+5, DIODDA+8,, INCREMENT SECTOR ADDRESS 


01004 


21 


03392 


03395 


02880 


BB 




01016 


42 


00000 


00000 


02890 


DORG 


*-9 


01018 








02900 FETCH8 


TFM 


DI0+35,YTURN,67, INSERT ADDRESS FOR ERROR ENTRY 


01018 


10 


O085J 


-1124 


02910 


TFM 


IORT,*+23,, READ ARRAY FROM FILE 


01030 


10 


00565 


-1053 


02920 


B 


IOGT, DKDATA, 7 


01042 


49 


00566 


-3379 


02930 


TFM 


IN0UT,CHECK-12, , RESTORE SPECIAL IORT ERROR EXIT 


01054 


16 


02098 


-1250 


02940* 




TEST FOR NO GROUP MARK 










02950 


BNG 


*+20,EVENl+ll,il 


01066 


NN 01086 


0091R 


02960 


B 


EVEN2 


01078 


M9 


00980 


00000 


02970 


DORG 


*-4 


01085 








02980 


TF 


FLTEND, EVENSP+6 


01086 


20 


03810 


01123 


02990 


TFM 


EI, 473, 9 


01098 


16 


02615 


00M73 


03000 


B 


ERROR 


OHIO 


49 


03676 


00000 


03010 


DORG 


*-4 


01117 








03026 EVENSP 


DC 


1,4 


01117 


00001 




03030 


DSC 


1,9 


01118 


00001 




03040 


DSA 


EVEN2-12 


01123 


00005 -0968 
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03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140* 
03150* 
03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 
03290 
03300 



03310 
03320 



YTURN BI *-H2,3700,, TURN OFF WLRG I NO 

BNI ERRETt 1900* , GO ON IF NO OTHER ERROR 
TFM IN0UT,MYER» » SET UP SECOND IORT ERROR EXIT 
B IOERR,,, LET IORT CHECK ANY OTHER ERRORS 
DORG *-4 
DORG SWD+902 
TEMPA OS 2,N2CK+23 
N1TEMP DS 2,RETD2-1 
FRINO DS 1.BE2+7 

WRITE FIRST BLOCK 



DSC 

OSA 

DC 

DSA 

OC 

DSC 

DSA 

DC 

CF 

DGM 

TD 

AM 

TFM 

B 

TRA 



It 1 
200 
3,9 
SWD 

i-»a 

2,00 
DIM2 
1,3 

EVENSP+2 
SWD+900 

CARRY+7,C0RSIZ 
CARRY+8,10,10 
I0RT,**23 
IOPT ,LD2ND,7, 



WRITE OUT 2ND PART BLK 1 



01124 M6 01136 03700 
01136 47 00602 01900 
01148 10 02098 -0008 
01160 49 00624 00000 
01167 
01170 

00171 00002 
00195 00002 
00215 00001 



TCD 
DEND 



01170 
01175 
01178 
01183 
01184 
01185 
01191 
01192 
01194 
01168 
01206 
01218 
01230 
01242 
01254 
01266 
01273 
01275 
01280 
01281 
01287 
01 290 
01194 
00006 



00001 

00005 -0200 
00003 

00005 -0268 

00001 

00002 

00005 -1170 
00001 

L3 01119 00000 
00001 

K5 00727 07376 
Jl 00728 OOOJO 
10 00565 -1253 
4R 00532 -1185 
10 00565 -1273 
49 00716 00000 

00002 2K 

00005 -1281 

ooooi a 

00006 1J9783 

00003 -03 
00006 -00003 



01296 CORE POSITIONS REQUIRED 

PLUS RELOCATION INCREMENT 
00332 STATEMENTS PROCESSED 



00010« 




FORTRAN 


00020* 








00070 


INOUT 


DS 


,2098 


00150 


IOERR 


OS 


,624 


00060 


CHECK 


DS 


, 1262 


00110 


DIO 


DS 


,816 


00050 


EEXIT 


DS 


, 1630 


00140 


ERRET 


DS 


,602 


00030 


ADR 


DSA 


FIND 



II-D DK 10 WITH FLT HARDWARE 



, RECORD, FETCH, SWD, DRAY, D I OEND 



02098 
00624 
01262 
00816 
01630 
00602 
00004 
00009 
00014 
00019 
00024 
00029 



00000 
00000 
00000 
00000 
00000 
00000 

00005 -0124 
00005 -0386 
00005 -0350 
00005 -0268 
00005 -0064 
00005 -0322 



00040 




DORG 


ADR-4 








00000 




00080 


IOCAL 


DS 


,716 








00716 


00000 


00090 


IORBC 


DS 


,520 








00520 


00000 


00100 


IORT 


DS 


,565 








00565 


00000 


00120 


IOSK 


DS 


,554 








00554 


00000 


00160 


IOGT 


DS 


,566 








00566 


00000 


00170 


IOPT 


DS 


,532 








00532 


00000 


00180 


FAC 


DS 


,2492 








02492 


00000 


00190 


DIODDA 


DS 


,3387 








03387 


00000 


00200 


FINDIN 


DS 


,3527 








03527 


00000 


00210 


FP2 


OS 


,3664 








03664 


00000 


00220 


FKODD 


DS 


,3579 








03579 


00000 


00230 


PAR 


DS 


,3378 








03378 


00000 


00240 


ERROR 


DS 


,3596 








03596 


00000 


00250 


EI 


DS 


,2615 








02615 


00000 


00260 


FIXEND 


DS 


,3680 








03680 


00000 


00270 


FLTEND 


DS 


,3730 








03730 


00000 


00280 


FLOAT 


DS 


,4042 








04042 


00000 


00290 


DKDATA 


DS 


,3379 








03379 


00000 


00300 


ZERO 


DS 


,2700 








02700 


00000 


00310 


FIX 


DS 


,3854 








03854 


00000 


00320 


RECLG 


DS 


,2243 








02243 


00000 


00330 


W 


DS 


,2240 








02240 


00000 


00340 


N2 


DS 


,22 38 








02238 


00000 


00350 


Nl 


DS 


,2233 








02233 


00000 


00360 


K 


DS 


,2221 








02221 


00000 


00370 


F 


DS 


,2219 








02219 


00000 


00380 


CORSIZ 


DS 


,7376 








07376 


00000 


00390* 
















02910 


NOWLC 


DSC 


2,02 








00000 


00002 


02920 




DSA 


DIODDA 








00006 


00005 -3387 


02930 




DC 


it» 








00007 


00001 


02940 


MYER 


81 


♦+12,3700,, TURN 


OFF WLRC I NO 






00008 


M6 00020 03700 


02950 




81 


CHECK-12, 1900,, 1 


LET IORT HANDLE DISK OVERFLOW 


00020 


46 01250 01900 


02960 




87 


EEXIT, ,,WLRC WAS 


ONLY ERROR 






00032 


49 01630 OuCOO 


00400 




TF 


N1TEMP ,N1 








00040 


K6 00195 02233 


00410 


TOBB 


8 


0RAY1,,0 








00052 


M9 00966 00000 


00420 


DRAY 


TDM 


TOBB* 1,9,, 




SET TOBB 


TO BRANCH 


00064 


J 5 00053 00009 


00430 




BD 


EVEN, FKODD,, 




TEST FOR 


EVEN AOORESS 


00076 


M3 00588 03579 
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00440 




BD 


AGAIN, DDABLK+1, * 


00450 




TFM 


DSABLK+5, AGAIN 


00460 




B 


SWD* 12 


00470 


FIND 


TDM 


FINOIN.O,, 


00480 




TFM 


RET02+6,SET1,, 


00490* 


N2 


ERROR ROUTINE *I GRT 


00500 


N2CK 


C 


FIND-1, ZERO, 6, 


00510 




BNH 


BE2 


00520 




C 


FIND-1, N2, 6, 


00530 




BH 


BE2 


00540 


RETD2 


B 


*-* 


00550 


BUFF AR 


DS 


t* 


00570 


BE2 


TFM 


EI, 472, 9, 






TF 


NITEMP »N1 






BD 


ERROR, DDABLK, , BR 


00590 




TFM 


DSAOTR+5, ERROR 


00600 




B 


SETRMK 





BRANCH IF BUFFER PROG IN CORE 


00088 


ML 


00734 


00300 






00100 


JO 


00317 


-0734 






00112 


M9 


00280 


00000 




SET FIND INDICATOR ON . 


00124 


15 


03527 


00000 




BRANCH TO COMPUTE ADDRESS AND TESTI 


00136 


JO 


00202 


-0422 


N2n 










IS 


I ZERO OR NEG 


00148 


K4 


0012L 


02700 






00160 


M7 


00208 


01100 




COMPARE I AND N2 


00172 


K4 


0012L 


02238 






00184 


M6 


00208 


01 100 






00196 


49 


00000 


00000 






00207 


00000 






I GRT N2 


00208 


16 


02615 


00M72 






00220 


K6 


00195 


02233 


IF 


CK MADE FROM EVEN ARRAY PROGRAM 


00232 


4L 


03596 


00299 






00244 


J6 


00475 


-3596 






00256 


M9 


00426 


00000 



00610* 
00620** 



SWD SUBROUTINE 



00630 SWDA 


TDM 


SWD+900,0 




00268 


J5 


01168 


00000 


00640 


TFM 


•-11,41, 10 




00280 


J6 


00269 


0O0M1 


00650 


B 


SWD1 




00292 


M9 


00478 


00000 


00660 


DORG 


*-3 




00300 








00670* 


SET UP LINKAGE FOR FLOAT 












00680 FETCH5 


TF 


FLTEND,IC0N8+5 




00300 


20 


03730 


00964 


00690 


B 


FLOAT 




00312 


49 


04042 


00000 


00700 


DORG 


*-4 




00319 








00710 


DORG 


*+4 




00322 








00720 IOEND 


TFM 


DSAOTR+5, DIOEND 




00322 


JO 


00475 


-0322 


00730 


BD 


SETRMK, FRIND, , BRANCH IF 


FETCH 


00334 


ML 


00426 


00215 


00740 


C 


NITEMP, Nl 




00346 


K4 


00195 


02233 


00750 


BE 


SETRMK,,, 


BRANCH IF BUFFER EMPTY 


00358 


M6 


00426 


01200 




TFM 


RETD2+6,*+20 




00370 


JO 


00202 


-0390 




B7 


N2CK 




00382 


M9 


00148 


00000 


00760 


TFM 


IORT,*+23,, 


WRITE BUFFER TO FILE 


00390 


10 


00565 


-0413 


00770 


B 


IOPT , DKDATA, 7 




00402 


49 


00532 


-3379 


00780 


AM 


FIND-1, 1,610 




00414 


Jl 


0012L 


000-1 


00790 SETRMK 


TD 


SWD+900,DKBUFF+200 




00426 


KN 


01168 


01232 


00800 


TFM 


I0RT,I0REF2+11 




00438 


10 


00565 


-0513 


00810 


B 


IOGT 




00450 


49 


00566 


00000 


00820 


DORG 


*-4 




00457 








00830 DOB 


DSC 


1,1 




00457 


00001 




00840 


DSA 


200 




00462 


00005 -0200 


00850 


DC 


3,9 




00465 


00003 




00860 DSAOTR 


DSA 


SWD, DIOEND 




00470 


00005 -0268 










00475 


00005 -0322 


00870 


DC 


1,3 




00476 


00001 




00880 SWD1 


A 


BUFFAR , W , , INCREMENT 


BUFFER ARROW 


00478 


Kl 


00207 


02240 


00890 


BD 


FETCH1, FRIND, , BRANCH 


IF FETCH 


00490 


ML 


00754 


00215 


00900** 


RECORD 












00910 I0REF2 


CF 


SWD-1,DATB,7, 


CLEAR FLAG ON ADDRESS OF DATA 


00502 


LL 


00267 


-1023 


00920 


SM 


NITEMP, 1,10 , 


DECREMENT WORD COUNT 


00514 


J2 


00195 


000-1 


00930 


TFL 


BUFFAR, SWD-1, 611 




00526 


-0 


002 OP 


0026P 
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00940 


CK 


CM 


NITEMP, 0,10, 


CHECK FOR FULt BUFFER 


00538 


J4 


00195 


000-0 


00950 




BNZ 


TOBB 




00550 


M7 


00052 


01200 


00960 




BD 


TOBB-12, FRIND,, BR IF 


FETCH 


00562 


ML 


00040 


00215 


00970 




TFM 


LINKB+18,I0PT 




00574 


J6 


00624 


-0532 


00980 


CKI 


TFM 


RETD2+6, LINKB 




00586 


JO 


00202 


-0606 


00990 




B 


N2CK 




00598 


M9 


00148 


00000 


01000 




DORG 


*-4 




00605 








01010 


LINKB 


TFM 


I0RT,*+23, , 


CALL CORRECT IORT ROUTINE 


00606 


10 


00565 


-0629 


01020 




B 


, DKDATA, 7 




00618 


49 


00000 


-3379 


01030 




TFM 


BUFFAR, DKBUFF+199, , 


INITIALIZE BUFFER ARROW 


00630 


JO 


00207 


-1231 


01040 




S 


BUFFAR-2,RECLG 




00642 


K2 


00205 


02243 


01050 




BNF 


*+24, FRIND 




00654 


MM 


00678 


00215 


01060 




A 


BUFFAR, W 




00666 


Kl 


00207 


02240 


01070 


ADDTOI 


AM 


FIND-1, 1,610, 


INCREMENT I 


00678 


Jl 


0012L 


000-1 


01080 




A 


DIODDA+5,DIODDA+8, , 


INCREMENT SECTOR ADDRESS 


00690 


21 


03392 


03395 


01090 




BD 


FETCH2, FRIND 




00702 


ML 


00798 


00215 


01100 




B 


TOBB-12 




00714 


M9 


00040 


00000 


01110 




DORG 


«~4 




00721 








01120 




A 


DRAY-1,FP2 




00722 


Kl 


00063 


03664 


01130 


AGAIN 


TF 


SWD-1, DRAY-1 




00734 


KO 


00267 


00063 


01140 




B 


SWD 




00746 


M9 


00268 


00000 


01150 




DORG 


• -4 




00753 








01160 


FETCH1 


C 


NITEMP, Nl 




00754 


K4 


00195 


02233 


01170 




BNE 


FETCH2 , , , 


BRANCH IF BUFFER NOT EMPTY 


00766 


M7 


00798 


01200 


01180 




TFM 


LINKB+18,I0GT 




00778 


J6 


00624 


-0566 


01190 




B 


CKI 




00790 


M9 


00586 


00000 


01200 




DORG 


*-4 




00797 








01210 


FETCH2 


SM 


NITEMP, 1,10 




00798 


J2 


00195 


000-1 


01220* 


SEND THE WORD TO FAC 












01230 




TFL 


FAC, BUFFAR, 11 




00810 


00 


02492 


0020P 


01240 




BI 


• •••12,1400 




00822 


M6 


00834 


01400 


01250* 




TEST FOR FLOATING ADDRESS 


AT SWD-1 










01260 




BNF 


FETCH3, SWD-1 




00834 


MM 


00928 


00267 


01270* 




IT 


IS A FIXED ADDRESS 












01280 




CF 


SWD-1 




00846 


L3 


00267 


00000 


01290* 




TEST FOR FLOATING WORD IN 


FAC 










01300 




BNF 


FETCH4,FAC-1 




00858 


M4 


00940 


02491 


01310* 




THE WORD IS FLOATING SET UP LINKAGE FOR FIX 










01320 




TF 


FIXEND+6,IC0N7+6 




00870 


20 


03686 


00895 


01330 




B 


FIX 




00882 


49 


03854 


00000 


01340 




DORG 


• -4 




00689 








01350 


IC0N7 


DC 


1,4 




00889 


00001 




01360 




DSC 


1,9 




00890 


0000 1 




01370 




DSA 


RETFLT 




00895 


00005 -0896 


01380 


RETFLT 


TDM 


FIXEND+1,2 




00896 


15 


03681 


00002 


01390 




TDM 


FLTEND-5, 2 




00908 


15 


03725 


00002 


01400* 




BRANCH TO STORE NUMBER 












01410 


CKLD 


B 


FETCH4 




009 20 


M9 


00940 


00000 


01420 




DORG 


*-4 




00927 








01430 


FETCH3 


BNF 


FETCH5,FAC-i, , 


BRANCH IF FIXED 


00928 


M4 


00300 


02491 


01440* 




STORE THE WORD IN MEMORY 












01450 


FETCH4 


TFL 


SWD-1, FAC, 6 




00940 


-6 0026P 


02492 



PAGE 



01470 


B 


CK 




00952 


M9 00538 00000 










00959 








OC 


1,9 




00959 


00001 




01500 


DSA 


RETFLT 




00964 


00005 


-0896 


niciO nR AY 1 


SM 


par. i . in.. 


DECREMENT WORD COUNT 


00966 


12 03378 000-1 


01 520 




* + 14 




00978 


M7 00992 01200 


01530 


bb* 






00990 


42 00000 00000 


01 540 


DORG 


«»9 




00992 






01550 


BNF 


AGAI N-12, DRAY-1 




00992 


MM 00722 00063 


01560 




DRAY— 1 , K 




01004 


K2 00063 02221 


0 1570 


B 


AGAIN 




01016 


M9 00734 00000 


01580 


DORG 


*-4 




01023 






01590 DATB 


DSC 


2,-00 






00002 




01600 


DSA 


DOB 




nin30 


00005 


-0457 


01610 


DC 


1,9 






00001 




01620 OKBUFF 


OS 


,DATB+9 






00000 




01630* 














01640* 














01650* 


WRITE 2ND BLOCK 










01660* 














01670 LD1R0 


DSC 


2,00 




nio^7 


00002 




01680 


DSA 


DIM! 






00005 


-1039 


01690 


DC 


1,S 




01038 


00001 




01700 DIM1 


DSC 


1,1 




0 10 39 


00001 




01710 


DSA 


209 






00005 


-0209 


01720 


DC 


3,9 




0 1047 


00003 




01730 


DSA 


SWD 




01052 


00005 


-0268 




OC 


1,3 




0 1053 


00001 




/> 1 "7C A CTl m 

0 i < 30 b I LU 1 


CF 


IC0N7+2 




0 1054 


L3 00891 00000 




DGM 


DATB+9+200 




01232 


00001 




ni 77« 


CF 


IC0N8+1 




0 1066 


L3 00960 00000 


01780 


TFM 


I0RT,HERE+11 




0 1078 


10 00565 -1113 


01790 


TD 


Syn*gnn. nKR»JFP+?oo 




n \*\rr> 


KN 01168 01232 


01800 HERE 


B 


I0PT,LD1RD,7 




nil if 


4R 00532 -1031 


0 18 10 


TRA 






J? , J i? 


10 00565 -1133 
49 00716 00000 










0 11 33 


00002 


2K 










01135 


00005 


-1141 










0 1 140 


00001 


a 










01141 


00006 


1J9783 










01147 


00C03 


-03 












00006 


-00003 


01820 


TCD 


STLD1 




01054 






01 830* 
















f 


JLOCK 1 OF FETCH FIND RECORD 










01850 


DORG 


SWDA 




00268 






01860 SWD 


TFM 


DSABLK+5.SWD 




00268 


JO 00317 -0268 


01870 


TFM 


IORT, IOREF+ll 




00280 


10 00565 -0623 


01880 


B 


IOGT 




00292 


49 00566 00000 


01890 


DORG 






00299 






01900 ODABLK 


DSC 


1,1 




00299 


00001 




01910 


DSA 


209 




00304 


00005 


-0209 


01920 


DC 


3,9 




00307 


00003 





PAGE 5 



01930 


OSABLK 


DSA 


SWD, SWD 




00312 
00317 


00005 -0268 
00005 -0268 


01940 




DC 


i,a 




00318 


00001 




01950 




DORG 


IOEND 




00322 








01960 


DIOEND 


BI 


*+12, 1400 




00322 


M6 


00334 


01400 


01970 




BB 






00334 


42 


00000 


00000 


01980 




DORG 


♦ -9 




00336 








01990 


DAT 1 


DSC 


2,-00 




00336 


00002 




02000 




DSA 


DDABLK 




00342 


00005 -0299 


02010 




DC 


1,3 




00343 


00001 




02020 




OS 


5 




00348 


00005 




02030 


FETCH 


TF 


FIND-1,FETCH-1, , 


TRANSFER I 


00350 


KO 


00123 


00349 


02040 




TDM 


FRIND,1,11, SET 


FETCH-RECORD INDICATOR TO FETCH 


00362 


J5 


00215 


OOOOJ 


02050 




B 


AITEST,, , 


BRANCH TO SET FIND INDICATOR OFF , 


00374 


M9 


00410 


00000 


02060* 






COMPUTE ADDRESS , TEST I , AND TEST 










02070* 






FOR DEFINE STATEMENT . 










02080 


RECORD 


TF 


FIND-1,REC0RD-1,, 


TRANSFER I 


00386 


KO 


00123 


00385 


02090 




TDM 


FRIND ,0 , , 


SET FETCH-RECORD INDICATOR TO RECRD 


00398 


J5 


00215 


00000 


02100 


AITEST 


TDM 


FINDIN,1,, 


SET FIND INDICATOR OFF 


00410 


15 


03527 


00001 


02110 


SET1 


TFM 


DIODDA+5,218, , 


SET SECTOR ADDRESS IN DDA 


00422 


16 


03392 


-0218 


02120 




M 


FIND-1,RECLG,6, 


COMPUTE ADDRESS OF FILE RECORD 


00434 


K3 


0012L 


02243 


02130 




A 


DIODOA+5,99 




00446 


21 


03392 


00099 


02140 




BD 


*+44,FINDIN,, 


BRANCH IF NOT FIND 


00458 


M3 


00502 


03527 


02150 


SSEEK 


TFM 


IORT,*+23 




00470 


10 


00565 


-0493 


02160 




B 


I0SK,0KDATA,7, 


TRANSFER TO IORT TO SEEK 


00482 


49 


00554 


-3379 


02170 




B 


DIOEND 




00494 


M9 


00322 


00000 


02180 




DORG 


*-3 




00502 








02190 




TFM 


BUFFAR»0KBUFF+199 , , 


INITIALIZE BUFFER ARROW 


00502 


JO 


00207 


-1231 


02200 




S 


BUFF AR-2 ,RECLG 




00514 


K2 


00205 


02243 


02210 




TF 


N1TEMP ,N1 , , 




00526 


K6 


00195 


02233 


02220 




TF 


0I0DDA+8,RECLG, , 


STORE RECORD LENGTH IN DDA 


00538 


26 


03395 


02243 


02230 




TFM 


DIODDA+13,DKBUFF+200,, STORE ADDRESS OF BUFFER 


00550 


10 


03400 


-1232 


02240 




S 


DIODOA+U,RECLG,, 


SUB LENGTH OF RECORD TO GET FIRST COR 


00562 


22 


03398 


02243 


02250 


OVER 


TDM 


TOBB+1,2,, 


INITIALIZE BRANCH BACK 


00574 


J5 


00053 


00002 


02260 




BB 






00586 


42 


00000 


00000 


02270 




DORG 


»-9 




00588 








02280 


EVEN 


TF 


TEMPA,FP2» , 


STORE FLOATING LENGTH IN TEMPA 


00588 


K6 


00171 


03664 


02290 




BNF 


*+36, DRAY-1,, 


BRANCH IF FLOATING ARRAY 


00600 


MM 


00636 


00063 


02300 


IOREF 


CF 


DRAY-1, DATi, 7 




00612 


LL 


00063 


-0336 


02310 




TF 


TEMPA, K, , 


STORE FIXED LENGTH IN TEMPA 


00624 


K6 


00171 


02221 


02320 




TF 


DIODDA+ 13, DRAY-1 , , 


STORE ADDRESS OF FIRST ELEMENT 


00636 


20 


03400 


00063 


02330 




AM 


DIODDA+13,1 




00648 


11 


03400 


-0001 


02340 




S 


DIODDA+13, TEMPA,, 


HIGH ORDER POSITION OF ARRAY 


00660 


2K 


03400 


00171 


02350 




TF 


EVENl+il,DI0DDA+13 




00672 


K6 


00919 


03400 


02360 




M 


TEMPA, PAR 




00684 


K3 


00171 


03378 


02450 




SF 


95 




00696 


32 


00095 


00000 


02370 




A 


EVENl+11,99 




00708 


Ki 


00919 


00099 


02380 


CARRY 


CM 


EVENl+11,0 




00720 


J4 


00919 


-0000 


02390 




BNE 


• ♦24 




00732 


M7 


00756 


01200 


02400 




TFM 


EVENl+11,0 




00744 


J6 


00919 


-0000 


02410* 






EVALUATE AND STORE LOW ORDER 










02420* 








POSITION ♦ 1 OF ARRAY 










02440* 






EVALUATE SECTOR COUNT 











PAGE 



6 



02610 


AM 


97,1 ,9, ADO ONE FOR GROUP MARK 


00756 


11 


00097 


00-01 


02471 


TO 


•+23,RECLG 


00768 


K5 


00791 


02243 


02472 BO 1 2 


BO 


OVER3,251,, BRANCH IF RECLG IS 1 


00780 


M3 


00828 


00251 


02473 


TD 


•+23,97 


00792 


K5 


00815 


00097 


02474 


BO 


•+24,210,, BRANCH IF EVEN NUMB OF SECTORS 


00804 


M3 


00828 


00210 


02475 


AM 


97,1,10 


00816 


11 


00097 


000-1 


02470 0VER3 


TF 


DIODDA+8,97,, SET UP SECTOR COUNT 


00828 


26 


03395 


00097 


02648 


BD 


0VER2, B0I2+11,11 


00840 


ML 


00864 


0079J 


02444 


MM 


DIODDA+8,50,10 


00852 


13 


03395 


OOONO 


02520 0VER2 


A 


FIND-1,97,6, ADD NUMBER OF RECORDS TO I 


00864 


Kl 


0012L 


00097 


02550 


SM 


FIND-i, 1,610 


00876 


J2 


0012L 


000-1 


02560 


TFM 


RETD2+6,«+20 


00888 


JO 


00202 


-0908 


02570 


B 


N2CK 


00900 


M9 


00148 


00000 


02580 


DORG 


«-4 


00907 








02430 EVEN1 


TD 


EVEN2+11 


00908 


K5 


00991 


00000 


02600 


BO 


FETCH8 ,FRIND, , BRANCH IF FETCH 


00920 


ML 


01018 


00215 


02610» 


RECORD 










02620 


TD 


cucti i j. 1 1 „ nicniiFF* . />. ^pt at? chip mark at fnd cif array 


00932 


KN 


0091R 


01232 


02630* 




uoitc ARRAY ONTO FT1F 










02640 


TFM 


T no T . 


00944 


10 


00565 


-0967 


02650 


g 


IORBCNOWLC ,7 


00956 


4R 


00520 


-0000 


02660 


TDM 


FLTEND-5, 2 


00968 


15 


03725 


00002 


02670 EVEN2 


TDM 


EVENl+11,,6, RESTORE DIGIT 


00980 


J5 


0091R 


00000 


02590 


AM 


FIND-i, 1,610 


00992 


Jl 


0012L 


000-1 


02680 


A 


DI0DDA+5,DI 00DA+8, , INCREMENT SECTOR ADDRESS 


01004 


21 


03392 


03395 


02690 


BB 




01016 


42 


00000 


00000 


02700 


DORG 


• -9 


01018 








02710 FETCH8 


TFM 


010+35, YTURN, 67, INSERT ADORESS FOR ERROR ENTRY 


01018 


10 


0085J 


-1124 


02720 


TFM 


IORT,*+23,, READ ARRAY FROM FILE 


01030 


10 


00565 


-1053 


02730 


B 


I0GT,0KDATA,7 


01042 


49 


00566 


-3379 


02740 


TFM 


INQUT»CHECK-12, , RESTORE SPECIAL IORT ERROR EXIT 


01054 


16 


02098 


-1250 


02750* 




TEST FOR NO GROUP MARK 










02760 


BNG 


•+20,EVEN1+11,11 


01066 


NN 


01086 


0091R 


02770 


B 


EVEN2 


01078 


M9 


00980 


00000 


02780 


DORG 


• -4 


01085 








02790 


TF 


FLTENO, EVENSP+6 


01086 


20 


03730 


01123 


02800 


TFM 


EI, 473, 9 


01098 


16 


02615 


00M73 


02810 


B 


ERROR 


OHIO 


49 


03596 


00000 


02820 


DORG 


*-4 


01117 








02830 EVENSP 


DC 


1,4 


01117 


00001 




02840 


DSC 


lf9 


01118 


00001 




02850 


DSA 


EVEN2-12 


01123 


00005 -0968 


02860 YTURN 


BI 


•♦12,3700,, TURN OFF WLRC IND 


01124 


M6 


01136 


03700 


02870 


BNI 


ERRET,1900,, GO ON IF NO OTHER ERROR 


01136 


47 


00602 


01900 


02880 


TFM 


I NOUT , MYER , , SET UP SECOND IORT ERROR EXIT 


01148 


10 


02098 


-0008 


02890 


B 


IOERR,,, LET IORT CHECK ANY OTHER ERRORS 


01160 


49 


00624 


00000 


02900 


DORG 


*-4 


01167 










DORG 


SWD+906 


01174 








n?Q~?f\ TPMDA 
UfcVrw 1 trlr'A 


OS 


2,N2CK+23 


00171 


00002 




02980 N1TEMP 


DS 


2.RETD2-1 


00195 


00002 




02990 FRIND 


OS 


l,BE2+7 


00215 


00001 




03000* 


WRITE FIRST BLOCK 










03010* 




















PAGE 




7 




03030 DIM2 


DSC 


It 1 


01174 


00001 




03040 


DSA 


200 


01179 


00005 -0200 


03050 


DC 


3,9 


01182 


00003 




03060 


DSA 


SWD 


01187 


00005 -0268 


03070 


DC 


1,9 


01188 


00001 




03080 L02N0 


DSC 


2,00 


01189 


00002 




03090 


DSA 


DIM2 


01195 


00005 -1174 


03100 


DC 


1,9 


01196 


00001 




03110 STLD2 


TD 


CARRY+7,C0RSIZ 


01198 


K5 


00727 


07376 


03120 


AM 


CARRY+8, 10, 10 


01210 


Jl 


00728 


OOOJO 


03130 GM 


CF 


EVENSP+2 


01222 


L3 


01119 


00000 


03140 


DGM 


DKBUFF+200 


01232 


00001 






DGM 


SWD+900 


01168 


00001 




03150 


TFM 


IORT.NIO+11 


01234 


10 


00565 


-1257 


03160 NIO 


B 


IOPT,LD2ND,7 


01246 


4R 


00532 


-1189 


03170 


TRA 




01258 


10 


00565 


-1277 








01270 


49 


00716 


00000 








01277 


00002 2K 










01279 


00005 -1285 








01284 


00001 3 










01285 


00006 1J9783 








01291 


00003 -03 








01294 


00006 -00003 


03180 


TCD 


STLD2 


01198 








03190 


DEND 


6 


00006 









01300 CORE POSITIONS REQUIRED 

PLUS RELOCATION INCREMENT 
00322 STATEMENTS PROCESSED 



1620 FORTRAN I I-D LOADER BLOCK 3 



PAGE 



00010 


# 












00020 


• 












00030 


IOPT 


DS 


,532 




00532 


0 


00040 


IOGT 


OS 


• 566 




00566 


0 


00050 


TORT 


DS 


,565 




00565 


0 


00060 


MQNCAL 


DS 


,796 




00796 


0 


00070 


• »• 


COMMUNICATION AREA 








00080 




DORG 


2218 




02218 




00090 


F 


DS 


2,, FLOATING POINT WORD LENGTH 


02219 


2 


00100 


K 


DS 


2,, FIXED POINT WORO 


LENGTH 


02221 


2 


00110 


PROGST 


DS 


5,, STARTING ADDRESS 


OF MAINLINE PROGRAM 


02226 


5 


00120 


COMAOO 


DS 


5,, STARTING ADDRESS 


OF COMMON AREA 


02231 


5 


00130 


Nl 


DS 


2,, NUMBER OF WORDS IN LOGICAL RECORD 


02233 


2 


00140 


N2 


DS 


5,, NUMBER OF LOGICAL RECORDS 


02238 


5 


00150 


W 


DS 


2,, WORD LENGTH 




02240 


2 


00160 


RECLG 


DS 


3,, RECORD LENGTH 




02243 


3 


00170 


ENTLN 


DS 


5,, ENTRY ADDRESS TO 


LOG SUBROUTINE 


02248 


5 


00180 


ENTEXP 


DS 


5,, ENTRY ADDRESS TO 


EXPONENTIAL SUBROUTINE 


02253 


5 


00190 


ENTSC1 


DS 


5,, ENTRY ADDRESS TO 


SINGLE SUBSCRIPT SUBROUTINE 


02258 


5 


00200 


ENTSC2 


DS 


5,, ENTRY ADDRESS TO 


DOUBLE SUBSCRIPT SUBROUTINE 


02263 


5 


00210 


ENTSC3 


DS 


5,, ENTRY ADDRESS TO 


TRIPLE SUBSCRIPT SUBROUTINE 


02268 


5 


00220 


ENTFID 


DS 


5,, ENTRY ADDRESS TO 


FIND SUBROUTINE 


02273 


5 


00230 


ENTREC 


DS 


5,, ENTRY ADDRESS TO 


RECORD SUBROUTINE 


02278 


5 


00240 


ENTFET 


DS 


5,, ENTRY ADDRESS TO 


FETCH SUBROUTINE 


02283 


5 


00250 


ENTSWO 


DS 


5,, ENTRY ADDRESS TO 


SWITCH D SUBROUTINE 


02288 


5 


00260 


ENTDRR 


DS 


5,, ENTRY ADDRESS TO 


ARRAY SUBROUTINE 


02293 


5 


00270 


ENTDED 


DS 


5,, ENTRY ADDRESS TO 


DISK END SUBROUTINE 


02298 


5 


00280 


ENTCCS 


DS 


5,, ENTRY ADDRESS TO 


COSINE SUBROUTINE 


02303 


5 


00290 


ENT SIN 


DS 


5,, ENTRY ADDRESS TO 


SINE SUBROUTINE 


02308 


5 


00300 


ENTATN 


DS 


5,, ENTRY ADDRESS TO 


ARCTANGENT SUBROUTINE 


02313 


5 


00310 


ENTSQT 


DS 


5,, ENTRY ADDRESS TO 


SQUARE ROOT SUBROUTINE 


02318 


5 


00320 


ENTABS 


DS 


5,, ENTRY ADDRESS TO 


ABSOLUTE SUBROUTINE 


02323 


5 


00330 




DS 


70,, RESERVED FOR ENTRIES TO ADDED SUBROUTINES 


02393 


70 


00340 


LIBSUB 


DSS 


30,, LIBRARY SUBROUTINE INDICATORS 


02394 


30 


00350 




DC 


it s 




02424 


i 


00360 




MAINLINE TABLE SEARCH 








00370 




DORG 


2426 




02426 




00380 


NAMBUF 


DC 


16,0 




02441 


16 






-000000000000000 








00390 




DC 


2, • 


• 


02443 


2 


00400 


OVRLAP 


DS 


I 




02444 


1 


00410 


FLGRMK 


DS 


I 




02445 


1 


00420 


AODCOW 


DS 


5 




02450 


5 


00430 


EQADOR 


DS 


5 




02455 


5 


00440 


SCADDR 


DS 


5 




02460 


5 


00450 


IOINO 


DS 


I 




02461 


1 


00460 


ML I NO 


DS 


I 




02462 


1 


00470 


EXT I NO 


DS 


1 




02463 


I 


00480 


SECT 


DS 


3 




02466 


3 


00490 


ZROTST 


DS 


1 




02467 


1 


00500 


ADDSVE 


DS 


5 




02472 


5 


00510 




DC 


1,' 




02473 


1 


00520 


LOODA 


DDA 


, 1,0,0, SUBTBL 




02474 


14 



1-0000-00-2522 



1620 FORTRAN I I-D LOADER BLOCK 3 PAGE 



00530 




DC 


It * 


02488 




1 




00540 


SVEDDA 


DDA 


t 1,0.21,0 


02490 




14 








1-0000-21-0000 










00550 




DC 
• 


It ' 


02504 








00560 


DATA 


DC 


1,0 


02505 








00570 


INCDDA 


DDA 


♦ 1,0, 10, SUBTBL 


02506 




14 








1-0000-10-2522 










00580 




DC 


i,' 


02520 










NODATA 


DS 


1 


02521 








00600 


SUBTBL 


DSS 


1000 


02522 




1000 




00610 




DC 


12, • 


03533 




12 








-0000000000' 










00620 


RMTBL 


CM 


COMSEC+75,,10, BRANCH IF NO LOCAL CARDS 


03534 


14 


07375 


000-0 


00630 




BE 


LODINC 


03546 


46 


05098 


01200 


00640 




TFM 


I0RT,»*23 


03558 


16 


00565 


-3581 


00650 




B 


I0GT,LD,7 


03570 


49 


00566 


-7245 


00660 




TFM 


•♦23.SUBTBL+11 


03582 


16 


03605 


-2533 


00670 


SRCH 


BNR 


•♦32,,, TEST FOR END OF TABLE 


03594 


45 


03626 


00000 


00680 




TDM 


TBLIND, 1 


03606 


15 


03615 


00001 


00690 


TBLIND 


DS 


,»-2 


03615 




0 




00700 




B 


LODINC 


03618 


49 


05098 


00000 


00710 




DORG 


• -3 


03626 








00720 




C 


C0MSEC+35,SRCH+il,ll, COMPARE NAMES 


03626 


24 


07335 


0360N 


00730 




BE 


TBLLD 


03638 


46 


04930 


01200 


00740 




AM 


SRCH+11,20,10, INCREMENT TO NEXT ENTRY 


03650 


11 


03605 


OOOKO 


00750 




B 


SRCH 


03662 


49 


03594 


00000 


00760 


EQSRCH 


TF 


EQUDDA+5, EQADDR 


03674 


26 


07035 


02455 


00770 




TF 


INRK+48,SECT 


03686 


26 


07448 


02466 


00780 




TFM 


I0RT,**23,, READ IN FOUR SECTORS OF EQUIV. TABLE 


03698 


16 


00565 


-3721 


00790 




B 


I0GT,EQU,7 


03710 


49 


00566 


-7021 


00800 


COMPER 


TFM 


COMP+ll,SUBTBL+ll,, SEARCH EQUIV. TABLE 


03722 


16 


03765 


-2533 


00810 




BNR 


• «-20, COMP+l 1,11 


03734 


45 


03754 


0376N 


00820 




B 


EQSRCH-1,,6 


03746 


49 


0367L 


00000 


00830 




DORG 


•-3 


03754 








00840 


COMP 


C 


NAMBUF 


03754 


24 


02441 


00000 


00850 




BE 


FOUND 


03766 


46 


03874 


01200 


00860 




AM 


C0MP*U,16,10, INCREMENT TO NEXT NAME 


03778 


11 


03765 


OO0J6 


00870 




CM 


C0MP+ll,SUBTBL+4ll,, TEST FOR END OF TABLE 


03790 


14 


03765 


-2933 


00880 




BNE 


COMPER+12 


03802 


47 


03734 


01200 


00890 


NXTRD 


CM 


INRK+48,0,9, TEST FOR END OF EQUIV. TABLE 


03814 


14 


07448 


00-00 


00910 




BE 


EQSRCH-1, ,6 


03826 


46 


0367L 


01200 


00930 




SM 


INRK+48,4,10, DECREMENT SECTOR COUNT 


03838 


12 


07448 


000-4 


00940 




AH 


EQUDDA+5, 4, 10 


03850 


11 


07035 


000-4 


00950 




B 


COMPER-24 


03862 


49 


03698 


00000 


00960 


FOUND 


AM 


COMP+11,4,10, INCREMENT TO GET DIM NUMBER 


03874 


li 


03765 


000-4 


00970 




TFM 


OIMDDA+5,4800 


03886 


16 


07095 


-4800 


00980 




S 


DIMDDA*6,C0MP*11, U 


03898 


22 


07096 


0376N 


00990 




S 


DIMDDA+6»C0MP+11,U 


03910 


22 


07096 


0376N 


01000 




TDM 


DIMDDA+6** 11 


03922 


15 


07096 


0000- 


01010 




READ IN DIM SECTOR 










01020 




TD 


SECCT,COMP»ll,ll 


03934 


25 


07156 


0376N 


01030 




BTM 


INCGET,**12 


03946 


17 


06846 


-3958 
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01040 




SF 


ENDTST+11,,6, SET -LOADED- INDICATOR 


03958 


32 


0568J 


00000 


01050 




BTM 


INCPUT,*+12 


03970 


17 


06810 


-3982 


01060 


F0UND1 


TFM 


I0RT,»+23 


03982 


16 


00565 


-4005 


01070 




B 


I0GT,DIM,7 


03994 


49 


00566 


-7082 


01080 




CM 


SECCT.5,10 


04006 


14 


07156 


000-5 


01090 




BL 


• ♦24 


04018 


47 


04042 


01300 


01100 




SM 


SECCT,5,10, CALCULATE DIM ENTRY ADDRESS 


04030 


12 


07156 


000-5 


OHIO 




MM 


SECCT,20,9 


04042 


13 


07156 


00-20 


01120 




AM 


99, INRK 


04054 


11 


00099 


-7400 


01130 




TR 


DIMSVE, 99,11 


04066 


31 


07126 


0009R 


01140 




TD 


DMEDDA, DIMSVE 


04078 


25 


06998 


07126 


01150 




TF 


DMEDDA+5,DIMSVE+5 


04090 


26 


07003 


07131 


01160 




TR 


DDAR« DMEDDA, , MOVE SECTOR DDA TO PROGRAM DDA AREA 


04102 


31 


07280 


06998 


01170 




TFM 


I0RT,»+23,, READ IN INDICATOR RECORD 


04114 


16 


00565 


-4137 


01180 




B 


I0GT,DME,7 


04126 


49 


00566 


-6990 


01190 




TF 


DDAR+8,DIMSVE+8, , MOVE SECTOR COUNT 


04138 


26 


07288 


07134 


01200 


••••*» 


INDICATOR RECORD CHECK 










01210 


TSTVLD 


C 


INRK+13, INDCON., CHECK FOR VALID INDICATOR RECORD 


04150 


24 


07413 


04217 


01220 




BE 


RELFRM 


04162 


46 


06550 


01200 


01230 




C 


INRK+5, INDCON, , CHECK FOR VALIDITY IN CORE IMAGE 


04174 


24 


07405 


04217 


01240 




BE 


• ♦56 


04186 


46 


04242 


01200 


01250 




BTM 


EPRINT, 75,8 


04 198 


17 


06882 




01260 




RCTY 




04210 


34 


00000 


00102 


01270 


INDCON 


DC 


6, 987898, 


04217 




6 








R87898 










01280 




WATY 


JOBOUT 


04222 


39 


06963 


00100 


01290 




B 


MONCAL 


04234 


49 


00796 


00000 


01300 




DORG 


• -3 


04242 












TF 


DDAR+ 13, ADDSVE 


04242 


26 


07293 


02472 


01320 




TDM 


INDR+7,,, CONVERT DEFINER TO CORE IMAGE 


04254 


15 


07076 


00000 


01330 




DC 
• 


lt't» 


04265 




1 




01 340 




AM 


DDAR+5,1,10, INCREMENT DISK ADDRESS BY ONE 


04266 


1 1 


07285 


000- 1 


01350 




SM 


DDAR+8,1,10, DECREMENT SECTOR COUNT BY ONE 


04278 


12 


07288 


000-1 


0L360 




B 


SUBPR0-24 


04290 


49 


06610 


00000 


01370 




DORG 


• -3 


04298 








01380 


TRYSZE 


TF 


ADDSVE, ADDCOW 


04298 


26 


02472 


02450 


01390 




AM 


ADDSVE, 1,10 


04310 


11 


02472 


000-1 


01400 




A 


SPROST, ADDSVE 


04322 


21 


06192 


02472 


01410 




A 


ADDCOW, INRK+22 


04334 


21 


02450 


07422 


01420 




TDM 


INRK+23 


04346 


15 


07423 


00000 


01430 




DC 


It' t» 


04357 




I 




01440 




C 


ADDCOW, COMADO 


04358 


24 


02450 


02231 


01450 




BL 


SI2E0K 


04370 


47 


06162 


01300 


01460 




S 


ADDCOW, INRK+22 


04382 


22 


02450 


07422 


01470 




OVERLAP INDICATION 










01480 




TDM 


0VRLAP,1,, TURN ON OVERLAP INDICATOR 


04394 


15 


02444 


00001 


01490 




RCTY 




04406 


34 


00000 


00102 


01500 


ONETWO 


DSC 


5,00101,*-9 


04408 




5 








00 10 I 










01510 




WATY 


NAMBUF-10, , , TYPE PROGRAM NAME 


044 18 


39 


02431 


00100 


01520 




WNTY 


INRK+18,,, TYPE LENGTH 


04430 


38 


07418 


00100 


01530 




WATY 


OVRMES,,, TYPE OVERLAP 


04442 


39 


06945 


00100 


01540 




BD 


•♦20.EXTIND,, BRANCH IF PROGRAM ON CARDS OR TAPE 


04454 


43 


04474 


02463 


01550 




B 


COMP+24,,, BRANCH TO GET NEXT NAME 


04466 


49 


03778 


00000 
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01560 




DORG 


• -3 


04474 








01570 


• • 


ROUTINE TO RE AO INDICATOR RECORD FROM CARDS OR TAPE 










01580 




LOAD CARD OR TAPE STORED PROGRAMS 














H 




04474 


48 


00000 


00000 


01590 


PHASEC 


BTM 


INCGET,*+12 


04486 


17 


06846 


-4498 


01600 




TD 


CDTP+2,C0MSEC+73 


04498 


25 


07153 


07373 


01610 




SM 


CDTP+2,1,10 


04510 


12 


07153 


000-1 


01620 


READ 


TFM 


I0RT,*+23,, GET INDICATOR RECORD 


04522 


16 


00565 


-4545 


01630 




B 


I0GT,CDTP-4,7 


04534 


49 


00566 


-7147 


01640 




TDM 


EXTIND.l 


04546 


15 


02463 


00001 


01650 




TFM 


•♦35, SUBTBL-9 


04558 


16 


04593 


-2513 


01651 


GONXT 


AM 


ENTST+11,20,10 


04570 


11 


04593 


OOOKO 


01660 


ENTST 


BNR 


•♦20,,, TEST FOR END OF TABLE 


04582 


45 


04602 


00000 


01670 




B 


READ 


04594 


49 


04522 


00000 


01680 




DORG 


• -3 


04602 








01690 




TFM 


•♦23, INRK 


04602 


16 


04625 


-7400 


01700 


RMCHK 


BNR 


• ♦20 


04614 


45 


04634 


00000 


01710 




B 


READ 


04626 


49 


04522 


00000 


01720 




DORG 


• -3 


04634 








01730 




AM 


RMCHK+11,1,10 


04634 


11 


04625 


000-1 


01740 




CM 


RMCHK+11, INRK+80 


04646 


14 


04625 


-7480 


01750 




BNE 


RMCHK 


04658 


47 


04614 


01200 


01760 




SF 


INRK+1 


04670 


32 


07401 


00000 


01770 




CF 


INRK+2 


04682 


3 3 


07402 


00000 


01780 




CF 


INRK+3 


04694 


33 


07403 


00000 


01790 




CF 


INRK+4 


04706 


3 3 


07404 


00000 


01800 




CM 


INRK+4,4131,8 


04718 


14 


07404 


0M131 


01810 




BNE 


HEADER 


04730 


47 


04774 


01200 


01820 




RCTY 




04742 


34 


00000 


00102 


01830 




WATY 


DATA1 


04754 


39 


07255 


00100 


01840 




B 


PHASED 


04766 


49 


05954 


00000 


01850 




DORG 


♦-3 


04774 








01860 


HEADER 


C 


INRK+13, INDCON,, TEST FOR INDICATOR RECORD 


04774 


24 


07413 


04217 


01870 




BNE 


READ 


04786 


47 


04522 


01200 


01880 




BNF 


•♦20, INRK+16 


04798 


44 


04818 


07416 


01890 




B 


READ 


04810 


49 


04522 


00000 


01900 




DORG 


• -3 


04818 








01910 




C 


INRK+25,ENTSmi,ll, COMPARE NAMES 


04818 


24 


07425 


0459L 


01920 




BNE 


GONXT 


04830 


47 


04570 


01200 


01930 




TF 


NAMBUF,ENTST«-li»ll 


04842 


26 


02441 


0459L 


01940 




AM 


ENTST+11,6,10 


04854 


11 


04593 


000-6 


01950 




BNF 


•+32,ENTST+li,ll 


04866 


44 


04898 


0459L 


01951 




AM 


ENTST+11,14,10 


04878 


11 


04593 


0O0J4 


01960 




B 


ENTST 


04890 


49 


04582 


00000 


01970 




DORG 


• -3 


04898 








01980 




SF 


ENTST+ll, ,6, SET -LOADED- INDICATOR 


04898 


32 


0459L 


00000 


01990 




BTM 


INCPUT,»+12 


04910 


17 


06810 


-4922 


02000 




B 


RELFRM 


04922 


49 


06550 


00000 


02010 




DORG 


•-3 


04930 








02050 




FLIP SUBPROGRAM TABLE SEARCH 










02060 


TBLLD 


AM 


SRCH+i 1,3,10 


04930 


11 


03605 


000-3 


02070 




TF 


FLPDDA+8,SRCH+li, 11 


04942 


26 


07062 


0360N 


02080 




AM 


SRCH+11,5,10 


04954 


11 


03605 


000-5 


02090 




TF 


FLPDDA*5,SRCH+ll, 11 


04966 


26 


07059 


0360N 


02100 




TFM 


I0RT,»+23 


04978 


16 


00565 


-5001 


02110 




B 


I0GT,FLP,7 


04990 


49 


00566 


-7045 
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PAGE 



5 



02120 




SF 


COMPAR 


05002 


32 


05050 


00000 


02130 




TFM 


COMPAR+ll,SUBTBL+U,, INITIALIZE POINTER 


05014 


16 


05061 


-2533 


02140 




TF 


COMPRE+ll.ADDCOW 


05026 


26 


05141 


02450 


02150 




AM 


COMPRE+11,1,10 


05038 


11 


05141 


000-1 


02160 


COMPAR 


BNR 


COMPRE 


05050 


45 


05130 


00000 


02170 




BNF 


COMPRE, COMPAR 


05062 


44 


05130 


05050 


02180 




TFM 


I0RT,»+23 


05074 


16 


00565 


-5097 


02190 




B 


I0PT,FLP,7 


05086 


49 


00532 


-7045 


02200 


•••••• 


IN-CORE SUBPROGRAM TABLE SEARCH AND LOAD 










02210 


LODINC 


BTM 


INCGET,»+12 


05098 


17 


06846 


-5110» 


02220 




CF 


COMPAR 


05110 


33 


05050 


00000 


02230 




B 


COMPAR-36 


05122 


49 


05014 


00000 


02240 




DORG 


• -3 


05130 








02250 


COMPRE 


BNR 


SERCH 


05130 


45 


05150 


00000 


02260 




B 


SERCH3 


05142 


49 


05582 


00000 


02270 




DORG 


•-3 


05150 








02280 


SERCH 


BD 


»+32,COMPRE+ll,ll 


05150 


43 


05182 


0514J 


02290 




AM 


COMPRE+11,18, 10 


05162 


11 


05141 


000J8 


02300 




B 


COMPRE 


05174 


49 


05130 


00000 


02310 




DORG 


*-3 


05182 








02320 




AM 


COMPRE+11,11,10 


05182 


11 


05141 


OOOJl 


02330 




BNF 


SERCH2, COMPAR 


05194 


44 


05434 


05050 


02340 




C 


C0MPAR+ll,COMPRE+ll,6ll, CHECK FOR SAME NAME 


05206 


24 


0506J 


0514J 


02350 




BE 


SERCH1 


05218 


46 


05250 


01200 


02360 




AM 


COMPRE+11,7,10 


05230 


11 


05141 


000-7 


02370 




B 


COMPRE 


05242 


49 


05130 


00000 


02380 




DORG 


•-3 


05250 








02390 


SERCH1 


SM 


COMPRE+11,11,10 


05250 


12 


05141 


OOOJl 


02400 




TDM 


COMPRE+11,0,6 


05262 


15 


0514J 


00000 


02410 




AM 


COMPAR+ll ,5, 10 


05274 


U 


05061 


000-5 


02420 




AM 


CQMPRE+11,16,10 


05286 


11 


05141 


0O0J6 


02430 




A 


C0MPRE+ll,ADDSVE,6 


05298 


21 


0514J 


02472 


02440 




BNF 


•♦56, COMPAR 


05310 


44 


05366 


05050 


02450 




CM 


COMPAR+ll, ,67 


05322 


14 


0506J 


-OOOO 


024&0 




BNE 


**32 


05334 


47 


05366 


01200 


02470 




TF 


COMPAR+ll ,COMPRE+ll, 611 , MOVE ADDRESS IN 


05346 


26 


05 06 J 


0514J 


02480 




B 


SERCH2-20 


05358 


49 


05414 


00000 


02490 




DORG 


• -3 


05366 








02500 




ROUTINE TO PLACE INDIRECT ENTRY ADDRESSES INTO SUBPROGRAMS 










02510 




TF 


•♦35, COMPAR+ll, 11 


05366 


26 


05401 


0506J 


02520 




TF 


•+18, COMPRE+11,11 


05378 


26 


05396 


0514J 


02530 




TFM 


,,, MOVE ADDRESS INTO PROGRAM 


05390 


16 


00000 


-0000 


02540 




SF 


•-6, ,6 


05402 


32 


05390 


00000 


02550 




AM 


COMPAR+1 1,15,10 


05414 


11 


05061 


000J5 


02560 




B 


COMPAR-24 


05426 


49 


05026 


00000 


02570 




DORG 


»-3 


05434 








02580 




ROUTINE TO LOAD ENTRIES IN IN-CORE SUBPROGRAM TABLE 










02590 


SERCH2 


CM 


COMPAR+ll, SUBTBL+lOll 


05434 


14 


05061 


-3533 


02600 




BNE 


• ♦32 


05446 


47 


05478 


01200 


02610 




BTM 


EPRINT, 79,8 


05458 


17 


06882 


0-079 


02620 




B 


MVADD+24 


05470 


49 


05550 


00000 


02630 




DORG 


• -3 


05478 








02640 




BNR 


SERCH+56, COMPAR+ll, 11 


05478 


45 


05206 


0506J 


02650 




TF 


C0MPAR + ll,COMPRE + ll,6U 


05490 


26 


0506J 


0514J 


02660 




AM 


COMPAR+ll ,5,10 


05502 


11 


05061 


000-5 


02670 




AM 


COMPRE+11,5,10 


05514 


11 


05141 


000-5 
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02680 


MVADD 


TF 


COMPAR+ll, COMPRE + 11,6 1 1 


05526 


26 


05 06 J 


0514J 


02690 




A 


COMPAR+ll, ADDSVE, 6 


05538 


21 


0506J 


02472 


02700 




AM 


COMPAR+ll, 15, 10 


05550 


11 


05061 


OO0J5 


02710 




AM 


COMPRE+11,2, 10 


05562 


11 


05141 


000-2 


02720 




B 


COMPAR 


05574 


49 


05050 


00000 


02730 




OORG 


*-3 


05582 








02740 


SERCH3 


BNR 


•+44, COMPAR+ll, 11 


05582 


45 


05626 


0506J 


02750 




TDM 


COMPRE+11,,6 


0 5594 


15 


0514J 


00000 


02760 




BTM 


INCPUT,»+12 


05606 


17 


06810 


-5618 


02770 




B 


PHASE B 


05618 


49 


05646 


00000 


02780 




DORG 


• -3 


05626 








02790 




AM 


COMPAR+ll, 20, 10 


05626 


11 


05061 


OOOKO 


02800 




B 


COMPAR-24 


05638 


49 


05026 


00000 


02810 




DORG 


• -3 


05646 








02820 




LOAD DISK-STORED SUBPROGRAMS 










02830 


PHASES 


BTM 


INCGET,»+12 


05646 


17 


06846 


-5658 


02840 




TFM 


•+23,SUBTBL+ll 


05658 


16 


05681 


-2533 


02850 


ENDTST 


BNR 


•♦44,,, TEST FOR END OF TABLE 


05670 


45 


05714 


00000 


02860 




CM 


PROCOW, ,9 


05682 


14 


05856 


00-00 


02870 




BNE 


PHASEC 


05694 


47 


04486 


01200 


02880 




B 


CALL3 


05706 


49 


06014 


00000 


02890 




DORG 


• -3 


05714 








02900 




TF 


NAMBUF, ENDTST+1 1,11 


05714 


26 


02441 


0568J 


02910 




AM 


ENDTST+11,6,10 


05726 


11 


05681 


000-6 


02920 




BNF 


INC13-60,ENDTST+11, 11 


05738 


44 


05770 


0568J 


02930 




AM 


ENDTST+ll, 14,10 


05750 


11 


05681 


000J4 


02940 




B 


ENDTST 


05762 


49 


05670 


00000 


02950 




DORG 


• -3 


05770 








02960 




BTM 


INCPUT,»+12 


05770 


17 


06810 


-5782 


02970 




BTM 


EQSRCH,»+12,, SEARCH EQUIVALENCE TABLE 


05782 


17 


03674 


-5794 


02980 


»•••*• 


RETURN IF ENTRY NOT FOUND IN EQUIV. TABLE 










02990 




AM 


ENDTST+ll, 1,10 


05794 


11 


05681 


000-1 


03000 




BTM 


INCGET,»+12 


05806 


17 


06846 


-5818 


03010 




BNF 


•♦32, ENDTST+ll, 11 


05818 


44 


05850 


0568J 


03020 


INC13 


AM 


ENDTST+ll, 13,10 


05830 


11 


05681 


000J3 


03030 




B 


ENDTST 


05842 


49 


05670 


00000 


03040 




DORG 


• -3 


05850 








03050 


•»•••• 


TYPE -LOAD NAME- 










03060 




RCTY 




05850 


34 


00000 


00102 


03070 


PROCOW 


DC 
-00 


3,0,»-5 


05856 




3 




03080 




WATY 


LDMES 


05862 


39 


07177 


00100 


03090 




WATY 


NAMBUF-10 


05874 


39 


02431 


00100 


03100 




BTM 


INCGET,»+12 


05886 


17 


06846 


-5898 


03110 




SF 


ENDTST+ll, ,6, SET -TYPED- INDICATOR 


05898 


32 


0568J 


00000 


03120 




AM 


PROCOW, 1,10 


05910 


11 


05856 


000-1 


03130 




BTM 


INCPUT,»+12 


05922 


17 


06810 


-5934 






TDM 


NOOATA, 0 


05934 


15 


02521 


00000 


03140 




B 


INC13 


05946 


49 


05830 


00000 


03150 




DORG 


• -3 


05954 








03160 


«••»•• 


CHECK AND TYPE OUT NAMES OF UNLOAOEO SUBPROGRAMS 










03170 


PHASED 


TDM 


DATA, 1 


05954 


15 


02505 


00001 


03180 




TFM 


•+35,SUBTBL+ll 


05966 


16 


06001 


-2533 


03190 




TDM 


MORE 


05978 


15 


06103 


00000 


03200 




BNR 


•+48 


05990 


45 


06038 


00000 






BD 


PHASEC-12,M0RE 


06002 


43 


04474 


06103 
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PAGE 



03220 


CALL3 


TFM 


IORT»*+23 


06014 


16 






03230 




B 


I OGT, 8L3t 7 








~7190 


03240 




TF 


NAMBUF, PHASED+47 » 11 








0600 J 


03250 




AM 


PHASED+47,6,10 




ii 

i 






03260 




BNF 


•♦32»PHASED+47» 11 








0600 J 


03270 




AM 


PHASE 0*4 7 # 14 1 10 


06074 


la 


ntaon 




03280 




8 


PHASED+36 


06086 




05 


nnnnn 
uuuuu 


03290 




DORG 


• - 3 


06094 








03300 




TDM 


MORE , 1 


06094 


1 5 


06103 


00001 


03310 


MORE 


OS 


t *-2 


nt in* 








03320 




RCTY 








nnnnn 


00102 


03330 




TOM 


DATA* 0 


06 118 


i « 


02505 


UUUUU 


03340 




WATY 


LDMES 


06 1 30 


39 


07177 




03350 




WATY 


NAMBUF-10 


06 142 


39 




00100 


03360 




B 


• -80 


06 154 


49 


06074 


UUUUU 


03370 




DORG 


*-3 


°^ l^O 








03380 


S I ZEOK 


BO 


• ♦24t OVRLAP 










03390 




BNC 1 


• + 96 


i ?t 


y 


0 270 


nni nn 
n i !i 


03400 




RC TY 






34 


00000 


00102 


03410 


SPROST 


OS 


.♦-5 


06192 




? 




03420 




WATY 


NAMBUF-10,,, TYPE OUT NAME 


06198 


39 


02431 


00 100 


0342 1 




SPTY 




06210 


34 


uuuuu 


00101 


03430 




WN TY 


ADDSVE-4 


06222 


38 


02468 




03440 




SPTY 




06234 


34 


uuuuu 


00101 


03450 


SPRST 


OS 


i»-5 


06240 




0 




03460 




WNTY 


INRK+18,,, TYPE OUT LENGTH 


06246 


38 


07418 


00100 


03470 




WATY 


LDED 


06258 


39 


07 159 


00100 


03480 




LOAD PROGRAMS ROUTINE 










03490 




TF 


I NDR+ 11» ADDSVE 


06270 


26 






03500 




BD 


•+24,EXTIN0 


06282 






02463 


0 3510 




TF 


ENTST+ll.ENDTST+ll 


06294 


26 


04593 


05681 


03520 




SM 


ENTST+11,1,10 


06306 


12 


04593 


000- 1 


03530 




TF 


• ♦18,ENTST+11,U 


06318 


26 


06336 


0459L 


03540 




TF 


ENTST+il, SPROST, 6 


06330 


26 


0459L 


06192 


03550 


RDPROG 


BD 


CDTPLD, EXT I NO, » BRANCH IF PROGRAM IN CARD OR TAPE 


06342 


? 3 




02463 


03560 


SCHLO 


TFM 


I0RT,**23,, GET PROGRAM FROM DISK 


06354 


16 


00^65 


-6377 


03570 




B 


IOGT, INDR,7 


06366 


49 


00566 


~ 


03580 




B 


RMTBL 


06378 


49 


03 534 


00000 


03590 




DORG 


• -3 


06386 








03600 




ROUTINE TO LOAD PROGRAM FROM CARD OR TAPE 










03610 


CDT PLD 


TDM 


416 


06386 


15 


00416 


UUUUU 


03620 




DC 


1, • .» 


06397 




1 




03630 




TD 


428,C0MSEC+73 


06398 


25 


00428 


073 73 


03640 




SF 


428 


06410 


32 


0042 8 


00000 


03650 


MLLGTH 


DS 


• • 


06421 




0 








CF 


429 


06422 


33 




uuuuu 


03670 




TF 


434, ADDSVE 


06434 


26 


00434 


02472 


03680 




SF 


489 


06446 


32 


00489 


00000 


03690 




TF 


C0MSEC+98,INRK+79 


06458 


26 


07398 


07479 


01700 




TFM 


I0RT,»+23,, PUT BACK COMMUNICATION SECTOR 


06470 


16 


00565 


-6493 


03710 




B 


I0PT,C0M,7 


06482 


49 


00532 


-7221 


03720 




TFM 


lORT,»+23,, GET PROGRAM 


06494 


16 


00565 


-6517 


03730 




B 


IOGT, EXT, 7 


06506 


49 


00566 


-7198 


03740 




SM 


PROCOW, 1,10 


06518 


12 


05856 


000-1 


03750 




TDM 


EXTIND 


06530 


15 


02463 


OOOOO 
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LOADER 


BLOCK 3 








PAGE 


03760 




B 


RMTBL 








06542 


49 


03534 


OOOOO 


03770 




DORG 


•-3 








06550 








03780 


RELFRM 


TDM 


INRK+80 








06550 


15 


07480 


OUOOO 


03790 




DC 
t 


l,*,*> 








06561 




1 




03800 




TR 


I NRK , I NRK+8 , , MOVE INDICATOR 


RECORD 


TO CONFORM TO CARD 


IMAGE 06562 


31 


07400 


07408 


03810 




CF 


427 








06574 


33 


0042 7 


OOOOO 


03820 




TFM 


439,75 








06586 


16 


00439 


-0075 


03830 




TFM 


DDAR+13, 99999 








06598 


16 


07293 


R9999 


0 3840 




TF 


SPROST, INRK+31 








06610 


26 


06192 


07431 


03850 




AM 


SPROST, 6, 10 








06622 


11 


06192 


000-6 


03860 


SUBPRO 


C 


INRK+24.F,, TEST FOR 


EQUAL 


F 




06634 


24 


07424 


02219 


03870 




BNE 


♦ ♦36 








06646 


47 


06682 


01200 


03880 




C 


INRK+26,K, , TEST FOR 


EQUAL 


K 




06658 


24 


07426 


02221 


03890 




BE 


• ♦24 








06670 


46 


06694 


01200 


03900 




BTM 


EPRINT, 76,8 








06682 


17 


068R2 


0-076 


03910 




TFM 


MOVE+ll, INRK+37, , UPDATE SUBROUTINE 


TABLE 


06694 


16 


06761 


-7437 


03920 




TFM 


M0VE+6,LI8SUB 








06706 


16 


06756 


-2394 


03930 




CF 


MOVE+7 








06718 


33 


06757 


OOOOO 


03940 


SUBDIG 


BD 


MOVE,MOVE+ll,ll 








06730 


43 


06750 


0676J 


03950 




B 


MOVE+12 








06742 


49 


06762 


OOOOO 


03960 




DORG 


• -3 








06750 








03970 


MOVE 


TD 










06750 


25 


OOOOO 


OOOOO 


03980 




A 


MOVE+11 , ZERONE 








06762 


21 


06761 


06901 


03990 




CM 


M0VE+6,LIBSUB+30 








06774 


14 


06756 


-2424 


04000 




BE 


TRYSZE 








06786 


46 


04298 


01200 


04010 




B 


SUBDIG 








06798 


49 


06730 


OOOOO 


04020 


INCPUT 


TFM 


lORT,»+23 








06810 


16 


00565 


-6833 


04030 




B 


IOPT, INC, 7 








06822 


49 


00532 


-7013 


04040 




B 


INCPUT-1,,6 








06834 


49 


0680R 


OOOOO 


04050 


INCGET 


TFM 


I0RT,»*23 








06846 


16 


00565 


-6869 


04060 




B 


IOGT, INC, 7 








06858 


49 


00566 


-7013 


04070 




B 


INCGET-1,,6 








06870 


49 


0684N 


OOOOO 


04090 


•••••• 


ERROR MESSAGE SUBROUTINE 
















04100 


EPRINT 


TF 


ERMESS+16,EPRINT-1 








06882 


26 


07123 


06881 


04110 




RCTY 










06894 


34 


OOOOO 


00102 


04120 


ZERONE 


DC 


6, 100001, »-4 








06901 




6 








J00001 
















04130 




WATY 


NAMBUF-10 








06906 


39 


02431 


00100 


04140 




WATY 


ERMESS 








06918 


39 


07107 


00100 


04150 




TDM 


SVEDDA-1,1 








06930 


15 


02489 


00001 


04160 




BB 










06942 


42 


OOOOO 


OOOOO 


04170 




DORG 


• -9 








06944 








04180 


OVRMES 


DAC 


9, OVERLAP* 








06945 




9 


X 2 






OVERLAP ' 
















04190 


JOBOUT 


DAC 


14, JOB ABANDONED* 








06963 




14 


X 2 






JOB ABANDONED* 
















04200 


DME 


DSC 
22 


2,22 








06990 




2 




04210 




DS A 


DMEDDA 








06996 




5 


X 1 
















06996 




-6998 




04220 




DC 
• 


it* 








06997 




1 




04230 


DMEDDA 


DDA 


,1*0,1, I NRK 








06998 




14 





04240 




DC 
• 


1,' 


07012 


1 




04250 


INC 


DSC 


2 1 02 


07013 


2 








02 










04260 




DSA 


INCDDA 


07019 


5 


X 










07019 


-2506 




04270 




DC 
• 


i,* 


07020 


1 




04280 


EQU 


DSC 


2,22 


07021 


2 








22 










04290 




DSA 


EQUDDA 


07027 


5 


X 










07027 


-7030 




04300 




DC 


l.» 


07028 


1 




04310 


EQUDOA 


DDA 


tl,0,4, SUBTBl 


07030 


14 








1-0000-04-2522 








04320 




DC 
t 


1»* 


07044 


1 




04330 


FLP 


DSC 


2,02 


07045 










02 










04340 




DSA 


FLPDDA 


07051 


5 


X 










07051 


-7054 




04350 




DC 


1,' 


07052 


1 




04360 


FLPDDA 


DDA 


, 1,0,0, SUBTBL 


07054 


14 








1-0000-00-2522 








04370 




DC 


1, • 


07068 


1 




04380 


I NOR 


DSC 


2,22 


07069 


2 








22 










04390 




DSA 


DDAR, 0 


07075 


5 


X 










07075 


-7280 












07080 


—0000 




04400 




DC 
t 


1 , * 


07081 


1 




04410 


DIM 


DSC 


2,22 


07082 


2 








22 










04420 




DSA 


OIMDDA 


07088 


5 


X 










07088 


-7090 




04430 




DC 


L,« 


07089 


1 




04440 


OIMDDA 


DDA 


t 1, 4800, L , I NRK 


07090 


14 








1-4800-01-7400 








04450 




DC 


1.' 


07104 


1 




04460 


ERMESS 


OAC 


10, ERROR L • 


07107 


10 


X 






ERROR L • 








04470 


OIMSVE 


DSS 


20,, RESERVES CURRENT DIM ENTRY 


07126 


20 




04480 


COINP 


DS 


1 


07146 


1 




04490 


CDTP 


DSA 


I NRK 


07151 


5 


X 
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07151 


-7400 




04500 




DC 


3," 




07154 


3 




04510 


SECCT 


-0 • 

DC 


2,0 




07156 


2 




04620 


LDED 


-0 
OAC 


9, LOADEO' 




07159 


9 


X 






LOAOEO' 










04630 


LOMES 


DAC 


7, LOAD • 




07177 


7 


X 






LOAD 












04640 


BL3 


DSC 


2,-22 




07190 


2 








2K 












04650 




DSC 


1,0 




07192 


1 




04660 




0 

DC 


5,150« 




07197 


5 








-150« 












04670 


EXT 


DSC 


2,-22 




07198 


2 








2K 












04680 




DSA 


EXTDDA 




07204 


5 


X 












07204 


-7206 




04690 




DC 


1, * 




07205 


I 




04700 


EXTDDA 


DDA 


,1, 19783,3,0 




07206 


14 








1J9783-03-0000 










04710 




DC 


1, • 




07220 


1 




04720 


COM 


DSC 


2,22 




07221 


2 








22 












04730 




DSA 


COMDDA 




07227 


5 


X 












07227 


-7230 




04740 




DC 


1.' 




07228 


1 




04750 


COMDDA 


DDA 


,1,19663,1, COMSEC 




07230 


14 








139663-01-7300 










04760 




DC 


It' 




07244 


1 




04770 


LD 


DSC 


2,02 




07245 


2 








02 












04780 




DSA 


LDDDA 




07251 


5 


X 












07251 


-2474 




04790 




DC 


1,» 




07252 


1 




04800 


DATAl 


DAC 


6,»DATA» 




07255 


6 


X 






•DATA* 










04810 




DORG 


7280 




07280 






04820 


DDAR 


DSS 


20 




07280 


20 




04830 


COMSEC 


DSS 


100,, SYSTEM COMMUNICATION 


SECTOR 


07300 


100 




04840 


INRK 


DSS 


100,, READ IN AREA FOR 


INDICATOR RECORD 


07400 


100 




04850 




DEND 






00000 
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ADDCOW 02450 

AOOSVE 02472 

CDTPLO 06386 

COMADD 02231 

COMDDA 07230 

COMPAR 05050 

COMPER 03722 

COMPRE 05130 

COMSEC 07300 

DIMOOA 07090 

DIMSVE 07126 

OMEDDA 06998 

ENOTST 05670 

ENTABS 02323 

ENTATN 02313 

ENTCOS 02303 

ENTDED 02298 

ENTORR 02293 

ENTEXP 02253 

ENTFET* 02283 

ENTFIO 02273 

ENTREC C2278 

ENTSCl 022 58 

ENTSC2 02263 

ENTSC3 02268 

ENTSIN 02308 

END OF ONE ASSEMBLY. 



ENTSQT 02318 

ENTSWD 02288 

EPRINT 06882 

EQAODR 02455 

EQSRCH 03674 

EQUODA 07030 

ERMESS 07107 

EXTDDA 07206 

EXTINO 02463 

FLGRMK 02445 

FLPODA 07054 

F0UND1 03982 

HEADER 04774 

INCODA 02506 

1NCGET 06846 

INCPUT 06810 

INDCON 04217 

JOBOUT 06963 

LIBSUB 02394 

LODINC 05098 

MILGTH 06421 

MGNCAL 00796 

NAMBUF 02441 

NODATA 02521 

ONETWO 04408 

OVRLAP 02444 



OVRMES 


06945 


PHASES 


05646 


PNASEC 


04486 


PHASEO 


05954 


PROCOM 


05856 


PROGST 


02226 


RDPROG 


06342 


RELFRM 


06550 


BL3 


07190 


CALL 3 


06014 


CDINP 


07146 


CDTP 


07151 


COMP 


03754 


COM 


07221 


DATA1 


07255 


DATA 


02505 


DDAR 


07280 


DIM 


07082 


DME 


06990 


ENTLN 


02248 


ENTST 


04582 


EQU 


070Z1 


EXT 


07198 


FLP 


07045 


FOUND 


03874 


F 


02219 



GQNXT 


04570 


I NCI 3 




INC 


07013 


INDR 


07069 


INRK 


07400 


IOGT 


00566 


IOIND 


02461 


I OPT 


00532 


IORT 


00565 


K 


02221 


LDDDA 


02474 


LDED 


07159 


LDNES 


07177 


LD 


07245 


ML IND 


02462 


MORE 


06103 


MOVE 


06750 


MVADD 


05526 


Nl 


02233 


N2 


02238 


NXTRD 


03814 


READ 


04522 


RECLG 


02243 


RMCHK 


04614 


RMTBL 


03534 


SCHLD 


06354 



SECCT 07156 

SECT 02466 

SERCH 05150 

SPRST 06240 

SRCH 03594 

TBLLD 04930 

W 02240 

SCADDR 02460 

SERCH1 05250 

SERCH2 05434 

SERCH 3 05582 

SIZEOK 06162 

SPROST 06192 

SUBDIG 06730 

SUBPRO 06634 

SUBTBL 02522 

SVEDDA 02490 

TBLIND 03615 

TRYSZE 04298 

TSTVLD 04150 

ZERONE 06901 

ZROTST 02467 
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00010 *»* READ/WRITE FOR CORE IMAGE LOAD 



00020 
00030 
00040 


IOCAL 
KOWR 


DORG 
DS 
OS A 


2201 
• 716 
RDl 




02201 
00716 
02205 




0 
5 


X 1 


00050 
00060 
00070 
00080 
00090 


WR 


TFM 
B 

TFM 
B7 
DSC 
02 
DS A 


!0RT,»+23,, 
I0PT,WR,7 
IORT, SL1.7 
IOCAL 
2,02 


PUT CORE IMAGE PROGRAM 


02205 
02206 
02218 
02230 
02242 
02249 


16 
49 
16 
49 


-5059 
00565 
00532 
00565 
00716 
2 


-2229 
-2249 
-2272 


00 1 00 




WR2 




02255 




5 


X 1 


00110 




osc 

• 


i,« 




02255 
02256 




-2257 
1 




00120 


WR2 


DSC 
n 


1.0 




02257 




I 




00130 
00140 
00150 
00160 




DC 5,0 
-0000 
DC 3,0 

-00 

DC 5,0 
-0000 
DSC l,« 
• 




02262 
02265 
02270 
02271 




5 
3 
5 
1 




00170 


SL1 


DSC 

2K 

DSA 


2,-22 




02272 




2 




00180 




SL2 




02278 




5 


X 1 


00190 




DSC 
• 


I,' 




02278 
02279 




•2280 
1 




00200 


SL2 


OSC 
1 


1,1 




02280 




1 




00210 
00220 
00230 
00240 




DC 5,18554 
J8554 

DC 3,041 
-41 

DC 5,2402 
-2402 

DSA SOLDON 




02285 
02288 
02293 
02298 




5 
3 
5 
5 


X I 



00250 




DSC 
t 


1,, 


00260 


COR 


TFM 


IORT,*+23 


09270 




B 


I0PT,C0RI,7 


00280 




TRA 




00290 


C0R1 


DSC 


2,22 






22 




00300 




DSA 


C0R2 



02298 
02299 



-5106 
1 



02300 16 00565 -2323 

02312 49 00532 -2348 

02324 36 00000 00500 

02336 49 00000 00000 
02348 2 



02354 



5 X 



1 



02354 



-2356 
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00310 




DC 


1 1 • 








02355 




1 




00320 


C0R2 


DSC 


1,1 








02356 








00330 




1 

DC 


5.18260 








02361 




5 








J8260 
















00340 




DC 


3,1 








02364 




3 




00350 




-01 
DC 


5,02200 




















-2200 
















00360 




DC 


i» • 








02370 




1 




00370 




TCD 


COR 








02300 








00380 


• ••• 




1620 DISK UTILITY 
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00390 




DORG 


2402 








02402 








00400 


SELEC 


TFM 


IORT,»+23 








02402 


16 


00565 


-2425 


00410 




8 


I0GT,DDA,7 








024 14 


49 


00566 


— 2434 » 


00420 




B 


00000 








02426 


49 


00000 


00000 


00430 




DORG 


•-3 








02434 








00440 


DOA 


DSC 


2,22 








02434 




2 




00450 




22 
DSA 


DCF 












5 


X 1 
























00460 




DSC 
t 


lt« 
















00470 


OCF 


osc 


1,1 








02442 








00480 




1 

DC 


5,0 








02447 




5 








-0000 
















00490 




DC 


3,0 




















-00 


















00500 




DC 


5,0 




















-0000 
















005 10 




DSC 
i 


i,' 
















00520 


SELECT 


TFM 


H0LD2,0,10 










16 






00530 




TFM 


I0RT,»+23 












nn^AA 




00540 




8 


I0GT,D0A1,7 








n3A»? 








00550 




TFM 


MCS+98,0,7 








n?AQA 


16 


1 7B7A 

nn^AK 


nnnn 


00560 




TFM 


IGRT,»+23 
















00570 




B 


I0PT,DDA1,7 










49 


00532 


5908 


00580 




TO 


H0LD2,MCS+49 








nor 


25 




L 782 7 


00590 




TFM 


I0RT,»+23 








02542 


16 


00565 


-2565 


00600 




B 


IQGT,DIM1,7 








02554 


49 


00566 


—6399 


00610 


L I S 


TFM 


DIM4+13,READ,27 










1 6 


J7993 


000^1 


00620 




SM 


H0LD2,l,10 








02578 


12 






00630 




TFM 


I0RT,»+23 








02590 


16 


00565 


-2613 


00640 




B 


I0GT,LIST1,7 








02602 


49 


00566 


-6422 


00650 




TFM 


BFLG+il»READ+lOO 








02614 


16 


02649 


-9878 


00660 




TFM 


CNT1, 002,29 
















00670 


8FLG 


BNF 


•+20,READ+100,7 








02638 


44 


02658 


-9878 


00680 




87 


NEXT 








02650 


49 


02706 




00690 




AM 


CT+6, 1,610 








02658 


11 


0263K 


000-1 


00700 




AM 


BFLG+11, 100,9 








02670 


11 


02649 


OOJOO 
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PAGE 






CM 


8FLG+ll,READ+8000 








02682 


14 


02649 


J7778 


nn7?n 
nn7^n 




BL 


8FLG 








02694 


47 


02638 


0 I 300 






CM 


H0LD2,0, 10 










y* 




000-0 


nn7An 




BE 


ON 








n X7i o 




no 77 


01200 


00750 




AM 


CT+6, 3, 10 








oyan 


1 1 


no 9 




00760 




AM 


LlS+6,20,10 








n?7A? 




n?«V7? 


UUUIS I J 






AM 


LISTl+6,20,10 








J: yizf 
J!f I?? 




f»A4Pft 
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00790 




TFM 
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00565 
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I0GT,SPLSUB,7 
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00566 


-6443 


008 10 




TF 


SPLPK0+8,CNT1 








02798 


26 


12653 


06432 






TF 


SPLPKi+8,CNTl+3 








02810 


26 


12 676 


06435 






TF 


SPLPK2+8.CNT1+6 








0 2822 


26 


12699 


06438 


00840 




TF 


SPLPK3+8.CNT1+9 








02834 


26 


12722 


06441 




COMP AR 


C 


CNTl,CNTl+3 








02B46 


24 


06432 


06435 


00860 




BH 


• + 32 








02858 


46 


02890 


01100 






TR 


CNTl-2,CNTl+i 














06433 


nnnon 
vuoov 




87 


•+20 








02882 


49 


02902 




00890 




TR 


CNTl+1, CNT1+4 
















00900 




BMR 


C0MPAR,CNT1+1 












nOOAA 


0643 3 


00910 




TF 


THR0WS+8,CNT1 








n?oi a 


J* 






00920 




TF 


C0RSIZ,CNT1 
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06432 


00930 




TFM 


I0RT,»+23 
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— 296 1 
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nn« o 




00950 




BTM 
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00960 
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_ _ 


Z. 
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00970 
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00980 




BE 


CONTCD 
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00990 
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„con7 


nnn a 
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BNE 
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~z 


ftAAQ? 


ni inn 
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BNF 


DMP,MCS+22 








n*n*A 


7 
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0 1020 




CM 


MCS+39,0,8 








nanf a 
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BE 
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n-»i in 


nTo n 


01040 




TF 


NEWDtM,MCS+39 








n^n7n 






1 7ft?7 


0 1050 




TFM 


D I MME R-6 , MAP 








n*nap 




n 


1 HA 


01 060 




BTM 


0IMMER,»+12 








nai n! 


17 


n«;*AA 
n^?AA 




01070 




BNR 


CALRPL, MAP 














05935 




_ 


TFM 


!ORT,«+23,, 


CALL 


IN LOAD ROUTINE 


n*i i a 
ntt in 


i 

1 


nnKA 


- 3 1 4 1 


01090 




B 


IOGT,OOA2,7 








??, 7, 




hns a 




01 100 




TDM 


REPLAC,0,10 








n\\ ka 


i * 






01110 




TFM 


I0RT,»+23,, 


CALL 


IN COMMON ROUTINES 




i a 


nn^A^ 
nn^AA 


ai 77 
~f f pi 


0 1 120 




B 


I0GT,C0M2 f 7 








nai a a 


49 


nn^A^ 




01130 




TFM 


I0RT,»+23 








n*i7fl 


16 






01 140 




B 


I0GT,DDA4,7 










*a 


... 


""■,7 c 7 


01 150 




TFM 


SELEC+30, 05800 












nOATLO 


~Konn 


0 1 160 




TR 


DOA , DDA5, , 


SET UP LAST CALL SEQUENCE 










Oil 70 




TR 


0CF.DCF5, • 


SP 


LIST 


SUBROUTINES 






n?AAO 


03511 


01 180 




B 


SELEC 








03238 


AO 


noAno 


uuuuu 


01190 




DORG 


• -3 








03246 








01200 


CALRPL 


BNF 


•+32.MAP+19 








03246 


44 


03278 


05954 


01210 




TFM 


DIMERR+22, 7578,8 








03258 


16 


06341 


OP 578 


01220 




B 


UPl 








03270 


49 


05826 


00000 


01230 




DORG 


• -3 








03278 








01240 




C 


MCS+35,ZER012 








03278 


24 


17813 


06390 


01250 




BE 


• ♦24 








03290 


46 


03314 


01200 


01260 




BTM 


FQUIV,»+12 








03302 


17 


05538 


-3314 
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0L270 




TFM 


I0RT,**23,, 


CALL IN REPLACE 


ROUTINE 


03314 


16 


00565 


-3337 


01280 




B 


I0GT,DDA3,7 






03326 


49 


00566 


-3526 


01290 




TOM 


REPLACl 






03338 


15 


02200 


00001 


01300 




B 


CALCOM 






03350 


49 


03154 


00000 


01310 




00 RG 


• -3 






03358 








01320 


SELERR 


TFM 


DIMERR+22,7579,8 






03358 


16 


06341 


0P579 


01330 




8 


UP1 






03370 


49 


05826 


00000 


01340 




DORG 


• -3 






03378 








01350 


DMP 


BNF 


MONCAL.MCS+23 






03378 


44 


00796 


17801 


0 1360 




TR 


DDA, DDA6, , 


SET UP CALL FOR 


DUMP ROUTINE 


03390 


31 


02434 


05955 


01370 




TR 


DCF.0CF6 






03402 


31 


02442 


05963 


01380 




TFM 


SELEC+30, 02500 






03414 


16 


02432 


-2500 






B 


SELEC 






03426 


49 


02402 


00000 


01400 




DORG 


• -3 






03434 








01410 


DDA2 


osc 


2,22 






03434 




2 








22 
















01420 




OS A 


DCF2 






03440 




5 


X 1 














03440 




-3442 




01430 




DSC 
i 


It* 






03441 




I 




01440 


0CF2 


DSC 


1,1,, 


OLOAD 




03442 




1 




01450 




1 

DC 


5,18369 






03447 




5 








J8369 














01460 




DC 


3,027 






03450 




3 








-2 7 
















01470 




DC 


5,05800 






03455 




5 








-5800 


















DSC 


I , * 






03456 




1 




01490 


0DA4 


DSC 


2,22 






03457 




2 








22 
















01500 




DSA 


DCF4 






03463 




5 


X 1 














03463 




-3465 




01510 




DSC 
i 


l,« 






03464 




1 




01520 


0CF4 


DSC 
1 


1,1,, 


COMMON 




03465 




1 




01530 




DC 


5,18480 






03470 




5 








J8480 














01540 




DC 


3,031 






03473 




3 








-31 
















01550 




DC 


5,08600 






03478 




5 








-8600 














01560 




OSC 


It ' 






03479 




1 




01570 


COM2 


DSC 


2,22 






03480 




2 








22 
















01580 




OS A 


C0M22 






03486 




5 


X 1 














03486 




-3488 




01590 




DSC 


i, • 






03487 




I 




01600 


COM22 


DSC 


i,i 






03488 




1 
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01610 




DC 


5,18512 




03493 






J8512 






01620 




DC 


3,030 




03496 






-30 








01630 




DC 


5,10600 




03501 






JO 600 






01640 




DSC 


It* 




03502 


01650 


DDA5 


DSC 


2,22 




03503 






22 








01660 




DSA 


DCF5 




03509 












03509 


01670 




OSC 
• 


l.' 




03510 


01680 


DCF5 


DSC 


1,1,, 


SP LIST SUBROUTINES 


035U 


01690 




1 

OC 


5,18298 




0 3516 






J8298 






01700 




DC 


3,033 




03519 






-33 








01710 




DC 


5,02458 




03524 






-2458 






01720 




DSC 
t 


lt« 




03525 


01730 


DDA3 


DSC 


2,22 




03526 






22 








01740 




DSA 


DCF3 




03532 












0353? 


01750 




DSC 
• 


1,« 




03533 


01760 


DCF3 


DSC 


1,1,, 


DREPL 


03534 


01770 




1 

DC 


5,18400 




03539 






J8400 






01780 




DC 


3,028 




03542 






-2 8 








01790 




DC 


5,05800 




03547 






-5800 






01800 




DSC 


1,« 




03548 


01810 


DDAP6 


DSC 


2,22 




03549 






22 








01820 




DSA 


DCFP6 




03555 












03555 


01830 




DSC 


I , * 




03556 


01840 


DCFP6 


OSC 


1,1 




03557 


01850 




I 

DC 


5,18247 




03562 






J8247 
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DC 


3,013 




03565 






-13 








01870 




DC 
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01910 
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1 
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DC 


5,18278 
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5 








J8278 










01940 




DC 
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03588 




3 




01950 
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DC 


5,08600 


03593 




5 








-8600 










01960 




OSC 


!»• 


03594 




1 




01970 


CONTCD 


TFM 


CARDI0+2 , 0* 10 


03596 
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06397 


000-0 


01980 




TO 
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03608 


25 


06397 


00426 


01990 




CF 
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03620 


33 


06397 


00000 


02000 




AM 


CARDIO+2,5,10 


03632 


11 


06397 


000—5 


02010 




CM 


CARDIO+2,06,10 


03644 


14 


06397 


000-6 


02020 




BNE 


• ♦60 


03656 


47 


03 716 


01200 


02030 




RCTY 




03668 


34 


00000 


00102 


02040 




TFM 


I0RT,»+23 


03680 


16 


00565 


— 3703 


02050 




B 


I0PT,ENTMES-4,7 


03692 


49 


00532 


— 6236 


02060 




RCTY 




03704 


34 


00000 


00 102 


02070 




TFM 


I0RT,»+23 


03716 


16 


00565 


-3739 


02080 
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I0GT,CARDI0-4,7 


03728 


49 


00566 


— 6391 


02090 




CM 


CARDIO+2,06,10 










02100 




BNE 


•+24 


03752 


47 


03 776 


0 1200 


02110 




BC4 


CONTCD+72 


03764 


46 - 


03668 


00400 


02120 




TFM 


•♦23, INPUT+159 


03776 


16 


03799 


J 3772 


02130 


BOTEST 


80 


•♦32, INPUT 


03788 


43 


03820 


13613 


02140 




SM 


•-1,2,10 


03800 


12 


03799 


000-2 


02150 




B 


• -24 


03812 


49 


03788 


00000 


02160 




DORG 


»-3 


03820 








02170 




AM 


BDTEST+11,3,10 


03820 


1 1 


03799 


000-3 


02 180 




CM 


BDTEST+ll, INPUT+10 


03832 


14 


03 799 


J3623 


02190 




BH 


• + 32 


03844 


46 


03876 


01100 


02200 




TOM 


INPUT+12,,, 


03856 


15 


13625 


00000 


02210 




DSC 


It't* 
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1 




02220 
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03868 


49 


03888 


00000 


02230 




DORG 
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03876 








02240 
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03876 


15 
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00000 






DSC 
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0 3887 
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02260 




CM 
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03888 


14 


06397 


000-6 
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BE 
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03900 


46 


03972 


01200 


02280 




TFM 


CARDIO+2.06, 10 


03912 


16 


06397 


000-6 


02290 




RCTY 




03924 


34 


00000 


00102 
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TFM 
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16 
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49 
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02320 


RCTY 




0 3960 


34 


00000 


00102 


02330 


CM 


BDTEST+ll, INPUT+10 


03972 


14 


03799 


J3623 


02340 


BH 


• ♦32 


03984 


46 


04016 


01100 


02350 


TDM 


INPUT+12,0 


03996 


15 


13625 


00000 


02360 


B 


• ♦20 


04008 


49 


04028 


00000 


02370 


DORG 


• -3 


04016 








02380 


TDM 


BDTEST+ll, 0,6 


04016 


15 


0379R 


00000 


02390 


TDM 


MCS+23,0,10 


04028 


15 


17801 


000-0 


02400 


SF 


INPUT-1 


04040 


32 


13612 


00000 


02410 


C 


INPUT+10, WRAO 


04052 


24 


13623 


05989 


02420 


BNE 


• ♦56 


04064 


47 


04120 


01200 


02430 


TR 


D0A,D0AP1 


04076 


31 


02434 


05990 


02440 


TR 


DCF.DCFPl 


04088 


31 


02442 


05998 


02450 


TFM 


SELEC+30, 02502 


04100 


16 


02432 


-2502 


02460 


B 


SELEC 


04112 


49 


02402 


00000 


02470 


DORG 


• -3 


04120 








02480 


C 


INPUT+10, ALTR 


04120 


24 


1362 3 


06024 


02490 


BNE 


• ♦56 


04132 


47 


04188 


01200 


02500 


TR 


DDA , DDAP2 


04144 


31 


02434 


06025 


02510 


TR 


DCF , DCFP2 


04156 


31 


02442 


06033 


02520 


TFM 


SELEC+30, 3000 


04168 


16 


02432 


-3000 


02530 


B 


SELEC 


04180 


49 


02402 


00000 


02540 


DORG 


• -3 


04188 








02550 


C 


INPUT+10, DUMP 


0418B 


24 


13623 


06059 


02560 


BE 


DMP+12 


04200 


46 


03390 


01200 


02570 


C 


INPUT+10, LOAD 


04212 


24 


13623 


06071 


02580 


BE 


CALLO 


04224 


46 


03118 


01200 


02590 


C 


INPUT+10, REPL 


04236 


24 


13623 


06083 


02600 


BE 


CALRPL+68 


04248 


46 


03314 


01200 


02610 


C 


INPUT+10, COPY 


04260 


24 


13623 


06095 


02620 


BNE 


• ♦56 


04272 


47 


04328 


01200 


02630 


TR 


0DA,D0AP5 


04284 


31 


02434 


06096 


02640 


TR 


DCF, DCFP5 


04296 


31 


02442 


06104 


02650 


TFM 


SELEC+30, 02700 


04308 


16 


02432 


-2700 


02660 


B 


SELEC 


04320 


49 


02402 


00000 


02670 


DORG 


• -3 


04328 








02680 


C 


INPUT+10, DELET 


04328 


24 


13623 


06130 


02690 


BNE 


• ♦92 


04340 


47 


04432 


01200 


02700 


TFM 


!0RT,*+23 


04352 


16 


00565 


-4375 


02710 


B 


I0GT,DDAP6,7 


04364 


49 


00566 


-3549 


02720 


TFM 


I0RT,»+23 


04376 


16 


00565 


-4399 


02730 


B 


IOGT, EQUDDA, 7 


04388 


49 


00566 


-3572 


02740 


TFM 


I0RT,*+23 


04400 


16 


00565 


-4423 


02750 


B 


IOGT, COM2, 7 


04412 


49 


00566 


-3480 


02760 


B 


CALCOM+48 


04424 


49 


03202 


00000 


02770 


DORG 


• -3 


04432 








02780 


C 


INPUT+10, FINE 


04432 


24 


13623 


06142 


02790 


BNE 


• ♦56 


04444 


47 


04500 


01200 


02800 


TR 


DDA,DDAP7 


04456 


31. 


02434 


06143 


02810 


TR 


DCF,0CFP7 


04468 


31 


02442 


06151 


02820 


TFM 


SELEC+30, 05000 


04480 


16 


02432 


-5000 


02830 


B 


SELEC 


04492 


49 


02402 


00000 


02840 


DORG 


»-3 


04500 








02850 


C 


INPUT+10, LABL 


04500 


24 


13623 


06177 


02860 


BNE 


• ♦56 


04512 


47 


04568 


01200 


02870 


TR 


DDA ,DDAP8 


04524 


31 


02434 


06178 
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02880 




TR 


DCF.DCFP8 


04536 


31 


02442 


06186 


02890 




TFM 


SELEC+30, 02502 


0 4548 


16 


02432 


-2502 


02900 




B 


SELEC 


04560 


49 


02402 


00000 


02910 




DORG 


»-3 


04568 








02920 




C 


INPUT+10,FLIB 


04568 


24 


13623 


06212 


02930 




BNE 


• ♦56 


04580 


47 


04636 


01200 


02940 




TR 


DDA , DDAP9 


04592 


31 


02434 


06213 


02950 




TR 


DCF.DCFP9 


04604 


31 


02442 


06221 


02960 




TFM 


SELEC+30, 03040 


04616 


16 


02432 


-3040 


02970 




B 


SELEC 


04628 


49 


02402 


00000 


02980 




DORG 


• -3 


04636 








G2990 




RCTY 




04636 


34 


00000 


00102 


03000 




TFM 


IORT,»*23 


04648 


16 


00565 


-4671 


03010 




B 


I0PT,ERC0-4,7 


04660 


49 


00532 


-6286 


03020 




H 




04672 


48 


00000 


00000 


03030 




B 


MONCAL 


04684 


49 


00796 


00000 


03040 




DORG 


#-3 


04692 








03050 


NOCOMP 


CM 


HOLD2,5,lO 


04692 


14 


05907 


000-5 


0 3060 




BNE 


NOCOMP-56 


04704 


47 


04636 


01200 


03070 


RTURNL 


BNF 


MONCAL,428,, 


CHANGE TO ERROR MESS. LATER 04716 


44 


00796 


00428 


0 4080 




TD 


UP1+14,REPLAC 


04728 


25 


05840 


02200 


03090 




TFM 


!ORT,*+23,, 


GET TWO SECTORS RD , WR 04740 


16 


00565 


-4763 


03100 




B 


IOGT, SEC2,7 


04752 


49 


00566 


-5082 


03110 




TD 


REPLAC.UPl+14 


04764 


25 


02200 


058 40 


03120 




TFM 


HOLD2,0,10 


04776 


16 


05907 


000-0 


03130 




TD 


H0LD2,MCS*88 


04788 


25 


05907 


1 7866 


03140 




MM 


H0LD2,5, 10 


04800 


13 


05907 


000-5 


03150 




BD 


•♦20,99 


04812 


43 


04832 


00099 


03160 




3 


• + 20 


04824 


49 


04844 


00000 


03170 




DORG 


»-3 


04832 








03180 




SM 


MCS+88, 1, 10 


04832 


12 


17866 


000-1 


03190 




TF 


H0LD5,434, , 


COMPUTE SECTOR COUNT 04844 


26 


05897 


00434 


03200 




S 


H0LD5, MCS+88 


04856 


22 


05897 


17866 


03210 




BD 


•♦32,HOLD5 


04868 


43 . 


04900 


05897 


03220 




BD 


•♦20,HOLD5-1 


04880 


43 


04900 


05896 


03230 




B 


• ♦20 


04892 


49 


04912 


00000 


03240 




DORG 


*-3 


04900 








03250 




AM 


H0L05-2,l,10 


04900 


11 


05895 


ooo-i 


03260 




TF 


WR2*8,H0LD5-2 


04912 


26 


02265 


05895 


03270 




CM 


MCS+88, 02302 


04924 


14 


17866 


-2 302 


03280 




BNL 


• ♦56 


04936 
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05897 


SEL 


06868 


CONTCD 


03596 


C0M22 


03488 


DDA5 


03503 


H0LD6 


06349 


SL1 


022 72 


CORSIZ 


12483 


C0N2 


03480 


DDA6 


05955 


INPUT 


13613 


SL2 


02280 


DDREAD 


06356 


COPY 


06095 


DDAP1 


05990 


IOCAL 


00716 


TREC 


05514 


DIMERR 


06319 


C0R1 


02348 


DDAP2 


06025 


IOGT 


00566 


UP1 


05826 


DIMMER 


05346 


C0R2 


02356 


DDAP5 


06096 


IOPT 


00532 


WR2 


02257 


DMREAD 


063 64 


COR 


02300 


DDAP6 


03549 


IORT 


00565 


WRAD 


05989 


ENTMES 


06240 


CT 


02626 


DDAP7 


06143 


LABL 


06177 


WR 


02249 


EQUDCF 


03580 


DCF1 


05916 


DDAP8 


06178 


LIS 


02566 


ZER06 


06355 


EQUDDA 


03572 


DCF2 


03442 


D0AP9 


062 1 3 


LISTl 


06422 


SELECT 


02458 


ERREPL 


05766 


DCF3 


03534 


DDA 


02434 


LOAO 


06071 


SELERR 


03358 


MAPODA 


05898 


DCF4 


03465 


OELET 


06130 


HAP 


05935 


SOLDON 


05106 


MONCAL 


00796 


DCF5 


03511 


DIM1 


06399 


NCS 


17778 


SPLPKO 


12645 


NEWDIM 


05934 


DCF6 


05963 


DIM2 


06407 


NEXT 


02706 


SPLPK1 


12668 


NOCOMP 


04692 


DCFP1 


05998 


DIM4 


17980 


R01 


05059 


SPLPK2 


12691 


READIN 


06468 


DCFP2 


06033 


DMP 


03378 


R02 


05067 


SPLPK3 


12714 


REPLAC 


02200 


DCFP5 


06104 


DN 


02774 


RD 


05746 


SPLSUB 


06443 


RTURNL 


04716 


0CFP6 


03557 


OUNP 


06059 


RDWR 


02205 


SUBSPL 


06451 


ALTR 


06024 


0CFP7 


06151 


ENTER 


06245 


READ 


09778 


SYSCAL 


004 75 


BFLG 


02638 


DCFP8 


06186 


EQUIV 


05538 


REPL 


06083 


THROWS 


12737 


BNR 


05670 


DCFP9 


06221 


ERCD 


06290 


SEC22 


05090 


ZER012 


06390 



END OF ONE ASSEMBLY. 
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00020 

00030 *•# SU8R0UTI NES-DI MMER»GETR, GETL * INSERT , REMOVE »F I NO 

00040 

00050 *** 



00060 




DORG 


2458 






02458 








00070 


IOPT 


OS 


, 532 






00532 




o 




00080 


I OGT 


OS 


t566 






00566 




o 




00090 


IORT 


OS 


,565 






00565 




0 




00100 


K ING 


DSC 


2,02,, 


nnA rn fi ip rnuF- 

UUA IU rLlr vUM- 


UHFM MOVING PROGRAMS 
until nu, i«o ri\utfi\«nj 


02458 




2 








02 
















00 1 10 




OS A 


QUEEN 






02464 




5 


X 1 














02464 




-2466 




00120 




DC 
t 


!»• 






02465 




I 




00130 


QUEEN 


DSC 


1,1 






02466 




1 




00140 




1 

OC 


5,02000 






02471 




5 








-2000 














00150 




DC 


3,140 






02474 




3 








J40 
















00160 




DC 


6,05800' 






02480 




6 








-5800* 














00170 


CORSIZ 


DC 


3,080,, 


THE CURRENT SIZE 


OF THE SPL 


02483 




3 








-80 
















00180 


DIMERR 


OAC 


14,DUP»ERR0R 00 • 




02485 




14 


X 2 






DUP* ERROR 00 














00190 




TFM 


DIMERR+22,0071,8 




02512 


16 


02507 


0-071 


00200 


ERRD 


RCTY 








02524 


34 


00000 


00102 


00210 




WAT Y 


DIMERR 






02536 


39 


02485 


00100 






H 








02548 


48 


00000 


00000 


00230 




8 


MONCAL 






02560 


49 


00796 


00000 


00240 




DORG 


• -3 






02568 








002 50 


DMDOA 


DSC 


2,22, ,DDA USED BY DIMMER 


TO READ IN ONE SECTOR 


02568 




2 








22 
















00260 




OS A 


DMREAD 






02574 




5 


X 1 














02574 




-2576 




00270 




OSC 


It 1 






02575 




I 




00280 


OMREAD 


DSC 


1,0 






02576 




1 




00290 




0 

OC 


5,0 






02581 




5 








-0000 














00300 




DC 


3,1 






02584 




3 








-01 
















00310 




DC 


5,19900 






02589 




5 








J9900 














00320 




OSC 


I * 1 






02590 




I 




00 330 


R0MDDA 


DSC 


2,22,,DDA USED BY THE MOVER TO MOVE PROGRAMS 


02 591 




2 








22 
















00340 




OS A 


RDMOVE 






02597 




5 


X I 














02597 




-2599 
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00350 DSC I,' 

i 

00360 RDMOVE DSC 1,0 
0 

00370 DC 5,0 

-0000 

00380 DC 3,140 

J40 

00390 DC 5,05800 

-5800 



00400 



DSC 



00410 WRMDDA DSC 2,22, , 
22 

00420 DSA WRMOVE 



DDA USED BY THE MOVER TO TRANSFER PROGRAMS 



00430 


DSC I , 
« 




00440 


WRMOVE DSC I, 


0 




0 




00450 


OC 5, 


0 




-0000 




00460 


DC 3, 


140 




J40 




00470 


DC 5, 


05800 




-5800 




00480 


DSC 1, 





00490 PKODDA DSC 2,22,, 
22 

00500 DSA SPLPKO 



DDA FOR HANDLING THE SPL ON MODULE ZERO 



00510 


DSC 
t 


It* 


00520^ SPLPKO 


DSC 


1,1 


00530 


1 

DC 


5,19801 




J9801 


00540 


DC 


3,080 




-80 




00550 


DC 


5,05800 




-5800 


00560 


DSC 
« 


l,« 


00570 PK1D0A 


DSC 


2,22,, 




22 




00580 


DSA 


SPLPKl 


00590 


DSC 


i,» 


00600 SPLPKl 


DSC 


1,3 




3 




00610 


DC 


5,39801 




L9801 



02598 

02599 

02604 

02607 

02612 

02613 

02614 

02620 

02620 
02621 

02622 

C2627 

02630 

02635 

02636 

02637 

02643 

02643 
02644 

02645 

02650 

02653 

02658 

02659 

02660 

02666 

02666 
02667 

02668 

02673 



PAGE 

1 
I 

5 
3 
5 
1 
2 

5 X 



-2622 
1 



1 

5 
3 
5 
1 
2 

5 X 



-2645 
1 



1 

5 
3 
5 
1 
2 

5 X 



-2668 
I 
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00620 




OC 


3 


080 


02676 


3 








-80 












00630 




DC 


5 


05800 


02681 


5 








-5800 










00640 




DSC 


I 




02682 


1 




00650 


PK2DDA 


DSC 


2 


22,, DDA FOR HANDLING THE SPL ON MODULE TWO 


02683 


2 








22 












00660 




DSA 


SPLPK2 


02689 


5 


X 












02689 


-2691 




00670 




DSC 


t 




02690 


1 




00680 


SPLPK2 


DSC 


I 


5 


02691 


I 




00690 




5 

DC 


5 


59801 


02696 


5 








N9801 










00700 




DC 


3 


,080 


02699 


3 








-80 












00710 




DC 


5 


,05800 


02704 


5 








-5800 










00720 




DSC 


1 




02705 


1 




00730 


PK30DA 


DSC 


2 


22,, DDA FOR HANDLING THE SPL ON MODULE THREE 


02706 


2 








22 












00740 




DSA 


SPLPK3 


02712 


5 


X 












02712 


-2714 




00750 




DSC 
■ 


1 




02713 


1 




00760 


SPLPK3 


DSC 
7 


I 


7 


02714 


1 




00770 




DC 


5 


79801 


02719 


5 








P9801 










00780 




DC 


3 


080 


02722 


3 




00790 




-80 
DC 


5 


05800 


02727 


5 








-5800 










00800 




DSC 


L 




02728 


1 




008 10 


THRODA 


DSC 


2 


,22,, ODA TO EXCHANGE CORE WHEN USING THE SPL 


02729 


2 








22 












00820 




DSA 


THROWS 


02735 


5 


X 












02735 


-2737 




00830 




DSC 
■ 


1 




02736 


1 




00840 


THROWS 


DSC 


I 


,1 


02737 


1 




00850 




1 

DC 


5 


19881 


02742 


5 








J9881 










00860 




OC 


3 


080 


02745 


3 








-8 0 












00870 




OC 


5 


05800 


02750 


5 








-5800 










00880 




DSC 


1 




02751 


1 
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00890 


8AVAIL 


OC 3,0,, ACCUMULATES AVAILABLE BLANK SECTORS FOUND IN MOVE 


02754 






-00 




00900 


CALC2 


DC 5,0 


02759 






-0000 




00910 


GOLDEN 


DC l,0,,LlSTER-4 


02760 


00920 


LISTER 


DC 4,0,,H0L0S PRESENT SPL POSITION 


02764 






-000 




00930 


N48000 


DC 6,048000, .FIRST SECTOR OF DIM MAP 


02770 






-48000 




00940 




DC 1,0,, PACK CONTINUED 


02771 


00950 


PACK 


DC i,0,,PACK NUM FOR SPLIST 


0277? 


00960 




DC I , * 


02773 


00970 


CALC3 


DC 6 , 0 


02779 






-00000 




00980 


CALC4 


DC 4,0,, CALCULATION AREA 


02 783 






-000 




00990 




DC 1,0,, SET UP THE OVERRIDE CODE FOR COMPARISION 


02784 


01000 


LI STES 


DC 6,0,,DESIRE0 SECTOR ADDRESS FIND 


02790 






-00000 




01010 


LISTET 


DC 4,0, .NUMBER TO BE INSERTED SPL INSERT 


02794 






-000 




01020 


HEX 


DSC 1,0 


02795 


01030 


C0NST1 


0 

DC 6,0, .WORK AREAS 


02801 






-00000 




01040 


C0NST2 


DC 6.0,. 


02807 






-00000 




01050 


QCARRY 


DC 6.0,, WHERE TO LOAD NEXT MOVED SECTORS 


02813 






-00000 




01060 


QHOLD 


DC 6,0 


02819 






-00000 




01070 


C0NST5 


DC 6,0 


02825 






-00000 




01080 


C0NST6 


DC 6,0 


02831 






-00000 




01090 


C0NST7 


DC 6,0 


02837 






-00000 




01100 


RACKET 


DC 4,0 


02841 






-000 




01110 


STEAL 


DC 4,0 


02845 






-000 




01120 


CALC7 


DC 3,0 


02848 






-00 




01130 


FAKSEV 


OC 4,0,, HAS SEVEN FROM LISTER 


02852 






-000 




01140 


COMMON 


DC 1,0 


02853 


01150 


NOMMON 


DC 2,0 


02855 


01160 


NOSECA 


-0 

DC 1,0 


02856 
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01170 


MOVES A DC 


6,0,, FOR SECTOR ADDRESS 




02862 




6 






-00000 












01180 


MOVESC OC 


3,0,, FOR SECTOR COUNT 




02865 




3 




01190 


-00 
C0NST8 DC 


5,0 




02870 




5 






-0000 












01200 


• ••.' 














01210 


SUBROUT INE-GETR 












01220 


• •* SUBROUTINE FOR SHIFTING ONE TO RIGHT IN THE SPL 










01230 


• •• 














01240 


GETR TOM 


NOMMON.l,, INITIALIZE TO SAVE CORE FOR 


EXCHANGE OF SPL 


02872 


15 


02855 


00001 


01250 


CLIPPP TF 


94, PACK 




02884 


26 


00094 


02 772 


01260 


TFM 


I0RT,»*23 




02896 


16 


00565 


—2919 


01270 


B 


IDPT, THRDDA,7 




02908 


49 


00532 


-2729 


01280 


B 


REDSPL 




02920 


49 


04702 


00000 


01290 


DORG 


• -3 




02928 








01300 


GETRTR TF 


CALC2, SPLCOR,, LEFT PRESENT SPL C.A. 




02928 


26 


02759 


03 15 1 


01310 


AM 


SPLCOR, 04, 10, LEFT END NEW ENTRY 




02940 


11 






01320 


SF 


SPLCOR, ,6, NEW FLAG 




02952 


32 


03 1 5 J 


OOUUO 


01330 


NEWDIM OC 


4, 0,#, DESIRED DIM ENTRY 




02963 




4 






-000 














01340 


AM 


CALC2,07,IO.RIGHT END OF NEW ENTRY 




02964 


1 1 


02759 


000—7 


01350 


TF 


LISTER, CALC2, 11 




02976 


26 


02764 


0275R 


01360 


B 


WHYNOT 




02988 


49 


03388 


00000 


01370 


DORG 


•-3 




02996 








01380 
















01390 


»•• SUBROUT I NE-GETL 












01400 


»»• SUBROUTINE FOR SHIFTING ONE TO LEFT IN SPL 












01410 


*»* 














01420 


GETL TDM 


N0MM0N,2, 




02996 


15 


02855 


00002 


014 30 


B 


CLIPPP 




0 3008 


49 


02884 


00000 


01440 


DORG 


• -3 




03016 








01450 


GETLTR TF 


CALC2, SPLCOR 




03016 


26 


02 759 


031 51 


01460 


SM 


SPLCOR, 04, 10, LEFT END OF NEW ENTRY 




03028 


12 


03 1-5 1 


000-4 


01470 


SF 


SPLCOR, ,6, 




03040 


32 


03 1 5 J 


00000 


01480 


SM 


CALC2 f 0l,i0, RIGHT END NEW ENTRY 




03052 


12 


02 759 


000-1 


01490 


TF 


LISTER, CALC2.ll 




03064 


26 


02 764 


0275R 


01500 


B 


WHYNOT 




03076 


49 


03388 


00000 


01510 


DORG 


»-3 




03084 








01520 


• •• 














01530 


#*• SUBROUTINE-REMOVE 












01540 


*»» REMOVES THE PRESENT ENTRY IN LISTER AND CLOSES 


THE LIST 










01550 
















01560 


REMOVE TDM 


N0MM0N.3,, 




03084 


15 


02855 


00003 


01570 


B 


CLIPPP 




03096 


49 


02 884 


00000 


01580 


DORG 


»-3 




03104 








01590 


REMOTR TF 


CALC2, SPLCOR 




03104 


26 


02759 


0315 1 


01600 


AM 


CALC2.04, 10, 




03116 


11 


02759 


000-4 


01610 


TR 


SPLCOR, CALC2, 611, CLOSES HOLE 




03128 


31 


0315J 


0275R 


01620 


SF 


SPLCOR, ,6 




03140 


32 


0315J 


00000 


01630 


SPLCOR DC 


5,0,*,DIM ADDRESS SPL 




03151 




5 






-0000 












01640 


SM 


CALC2,0l,10 




03152 


12 


02759 


000-1 


01650 


TF 


LISTER, CALC2UI 




03164 


26 


02764 


0275R 


01660 


CF 


SPLCOR, ,6 




03176 


33 


0315J 


00000 


01670 


SPLCVL DC 


5,0,*, CYLINDER SPL 




03187 




5 






-0000 
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PAGE 


01680 


STOMP CM 


PACK, 00,1011, PACK ZERO 




03188 


14 


02 772 


000 — 


0 1690 


BE 


WRTSPO 




03200 


46 


03268 


01200 


0 I 700 


CM 


PACK, 01, 1011, PACK ONE 




03212 


14 


02772 


000-J 


01710 


BE 


WRTSP1 




03224 


46 


03300 


01200 




CM 


PACK, 02,1011, PACK TWO 




03236 


14 


02772 


000-K 


0 I 730 


BE 


WRTSP2 




0 3248 


46 


03332 


01200 


^ 1 


B 


WRTSP3, , , PACK THREE 




03260 


49 


03364 


00000 


0 1750 


DORG 


*-3 




03268 








01760 


** ROUTINE FOR RETURNING APPRO I ATE SPL TO DISK 












01770 


WRTSPO TFM 


I0RT,**23 




03268 


16 


00565 


-3291 


01780 


B 


IOPT.PKOODA, 7 




03280 


49 


00532 


-2637 


01 790 


B 


WHYNOT 




0 3292 


49 


03388 


00000 


01800 


DORG 


»-3 




03300 








01810 


WRTSP1 TFM 


lORT,*+23 




03300 


16 


00565 


-3323 


ni Q 20 


B 


I0PT,PK1DDA,7 




03312 


49 


00532 


-2660 


01830 


B 


WHYNOT 




03324 


49 


03388 


00000 


0 1840 


DORG 


•-3 




03332 








01850 


WRTSP2 TFM 


I0RT,»*23 




03332 


16 


00565 


-3355 


01860 


B 


I OPT . PK2DDA. 7 




03344 


49 


00532 


-2683 


01870 


B 


WHYNOT 




03356 


49 


03388 


00000 




DORG 


•-3 




03364 








ni flqn 
01890 


WRTSP3 TFM 


I0RT,**23 




0 3364 


16 


00565 


-3387 


01 900 


B 


I OPT * PK3DDA. 7 




03376 


49 


00532 


-2706 




WHYNOT TFM 


I0RT,**23, .RESTORES CORE BEFORE RETURNING TO MAINLINE 


03388 


16 


00565 


-3411 


















01930 


*•• SUBROUTINE-INSERT 












?\ !!° 


•** INSERTS TO THE LEFT OF THE PRESENT ENTRYAND OPENS LIST 










01950 


B 


IOGT, THRDDA.7 




03400 


49 


00566 


-2729 


01960 


BB 






03412 


42 


00000 


00000 


01970 


DORG 


• -9 




03414 










INSERT TDM 


NOMM0N.4, , 




03414 


15 


02855 


00004 


ni aon 


B 


CLIPPP 




03426 


49 


02884 


00000 




DORG 


• -3 




03434 








noni n 


INSETR SF 


SPLCOR,, 6 




03434 


32 


0315J 


00000 


n?n?n 


FOUNO DC 


5,0,»,FIND SECTOR TOTAL 




0 3445 




5 






-0000 














ROUTINE TO SEE IF LIST IS ALREADY FULL 














TFM 


•♦35,05800,7 




03446 


16 


03481 


-5800 


02050 


AM 


•♦23,04,10 




03458 


11 


03481 


000-4 


02060 


TIPSY BNR 


•-12, 99999,, FINDS RECORD MARK AT END OF 


LIST 


03470 


45 


03458 


99999 




TF 


C0NST2.TIPSY+11 




03482 


26 


02807 


03481 


02080 


AM 


C0NST2 , 04, 10 




03494 


11 


02807 


000-4 




TF 


CNST3 .C0NST2 




03506 


26 


03578 


02807 


02100 


SM 


CNST3.05800.7 




03518 


12 


03578 


-5800 




C 


CNST3-2.C0RS I Z,, COMPARES PRESENT SIZE TO OEFINED LIMIT 


03530 


24 


03576 


02483 


n?i ?n 


BL 


NERR 




03542 


47 


03580 


01300 


n?i in 


TFM 


DIMERR*22,7178,8 




03554 


16 


02507 


0P178 


02140 


B 


ERRD 




03566 


49 


02524 


00000 


02150 


DORG 


•-3 












02160 


CNST3 DC 


5,0 




03578 




5 






-0000 












02170 


NERR TF 


C0NST2. TIPSY* 11 .612. .OPENS THE LIST 




03580 


26 


0280P 


0348J 


02180 


TF 


CALC2, SPLCOR 




03592 


26 


02759 


03151 


02190 


AM 


CALC2.03.10 




03604 


n 


02759 


000-3 


02200 


TF 


CALC2.LISTET.6, INSERTS THE ENTRY FROM 


LISTET 


03616 


26 


0275R 


02 794 


02210 


CF 


SPLCOR, ,6. 




03628 


33 


0315J 


00000 
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02220 


ORESTR 


DC 


5, 19880, 


03639 




5 








J9880 










02230 




AM 


SPLC0R,4,10 t 


03640 


11 


03151 


000-4 


02240 




CF 


SPLCOR, ,6 


03652 


33 


03 15 J 


00000 


02250 




B 


STOMP, «# 


03664 


49 


03188 


00000 


02260 




DORG 


• -3 


03672 








02270 


• •* 














02280 


• •♦ 


THE DIMMER SUBROUTINE FOR BRINGING IN A DIM ENTRY 










02290 


• »• 


SPECIFIED IN -NEWDIM- TO BEGIN AT CORE POSITION 19880 










02300 
















02310 


DIMMER 




NEWDI M, MAXDI M 


03672 


24 


02963 


03849 


02320 




BNH 


•+32 


03684 


47 


03716 


01100 


02330 




TFM 


DIMERR+22,0076,8 


03696 


16 


02507 


0-0 76 


02340 




B7 


ERRD 


03708 


49 


02524 




02350 




TF 


CALC2, NEWDIM 


03716 


26 


02759 


02963 


02360 




A 


CALC2,CALC2 


03728 


21 


02759 


02759 


02370 




TF 


CALC3,N48000 


03740 


26 


02779 


02770 


02380 




A 


CALC3,CALC2, ,NEW DIM SECTOR ADDRESS 


03752 


21 


02779 


02759 


02390 




TF 


DMREAD+13,DRESTR 


03764 


26 


02589 


03639 


02400 




TO 


•♦23,CALC3 


03776 


25 


03799 


02779 


02410 




SM 


DMREAD+12,0, 10, ADJUST DIM READER S A 


03788 


12 


02588 


000-0 


02420 




TF 


DMREAD+5,CALC3-1 


03800 


26 


02581 


02778 


02430 




TFM 


IORT, »+23 


03812 


16 


00565 


-3835 


02440 




B 


I OGT , DMDDA , 7 


03824 


49 


00566 


-2568 


02450 




BB 




03836 


42 


00000 


00000 


02460 




DORG 


• -9 


03838 








02470 


• •* 














02480 


• »« 


THE FIND SUBROUTINE FOR LOCATING A POINT ON A PARTICULAR 










02490 


• »• 


SPL FROM AN ADDRESS GIVEN IN -LISTES- 










02500 


• 














02510 


FINO 


SF 


LISTES-5,,8 


03838 


32 


02785 


0-000 


02520 




CF 


L ISTES-4 


03850 


33 


02786 


00000 


02530 




TF 


19885, LISTES, .ACCEPTS SECTOR ARGUMENT 


03862 


26 


19885 


02790 


02540 




BT 


SPLIST, SPLIST-l, ,FINDSTART OF CYLINDER 


03874 


27 


04 330 


04329 


02550 




TDM 


N0MM0N,5 


03886 


15 


02855 


00005 


02560 




B 


CLIPPP 


03898 


49 


02884 


00000 


02570 




DORG 


• -3 


03906 








025B0 


F INOTR 


TF 


CALC2-L, NEWDIM 


03906 


26 


02758 


02963 


02590 




TDM 


CALC2-4,,il,FLAG ZERO 


03918 


15 


02755 


0000- 


02600 




MM 


CALC2-l,O2,10,FIND SECTOR 


03930 


13 


02758 


000-2 


02610 




TFM 


ADRSPL,,7, ZERO THE FIELD 


0 3942 


16 


04520 


-0000 


02620 




SF 


97, ,, PICK UP COUNT 


03954 


32 


00097 


00000 


02630 




TF 


ADRSPL-2,99,, MOVE SECTOR CYL AOORESS 


03966 


26 


04518 


00099 


02640 




TD 


ADRSPL-4,LISTES-4 


03978 


25 


04516 


02786 


02650 




SF 


ADRSPL-4 


03990 


32 


04516 


00000 


02660 


TRYAGN 


TF 


CALC2, SPLCOR,, LEFT PRESENT SPL C.A. 


04002 


26 


02759 


03151 


02670 




AM 


SPLCOR, 04, 10, LEFT END NEW ENTRY 


04014 


11 


03151 


000-4 


02680 




SF 


SPLCOR, ,6, NEW FLAG 


04026 


32 


0315J 


00000 


02690 




AM 


CALC2,07, 10, RIGHT ENO OF NEW ENTRY 


04038 


11 


02759 


000-7 


02700 




TF 


LISTER, CALC2, 11 


04050 


26 


02764 


0275R 


02710 




TD 


CALC4, SPLCOR, 11, 


04062 


25 


02 783 


0315J 


02720 




CM 


CALC4.09, 1011, BLANK SECTORS 


04074 


14 


02783 


000-R 


02730 




BE 


ADDBLK 


04086 


46 


04286 


01200 


02740 




TF 


NEWDIM, LISTER 


04098 


26 


02963 


02764 


02750 




BT 


DIMMER, OIMMER-l 


04110 


27 


03672 


03671 


02760 




C 


19885, ADRSPL,, DOES THIS PROGRAM BEGIN ON THIS CYLINDER 


04122 


24 


19885 


04520 
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02770 




BNL 


•+48 


04134 


46 


04182 


01300 


02780 




S 


19885, ADRSPL 


04146 


22 


19885 


04520 


02790 




SF 


19883 


04158 


32 


19883 


00000 


02800 




A 


19888,19885 


04170 


21 


19888 


19885 


02810 




A 


ADRSPL, 19888,, ADD SECTOR TOT AL , AD JUSTED IF NECESSARY 


04182 


21 


04520 


1988R 


02820 


PLUSSR 


SF 


LlSTES-4 


04194 


32 


02786 


00000 


02830 




C 


ADRSPL, LISTES, , HAS THE CORRECT ENTRY BEEN REACHED 


04206 


24 


04520 


02790 


02840 




CF 


LISTES-4 


04218 


33 


02786 


00000 


02850 




BNH 


TRYAGN 


04230 


47 


04002 


01100 


02860 




TF 


FOUND, ADRSPL 


04242 


26 


03445 


04520 


02870 


RLGQNE 


TFM 


IORT,»+23 


04254 


16 


00565 


-4277 


02880 




B 


I OGT, THRDDA, 7 


04266 


49 


00566 


-2729 


02890 




B 


•,,2, EXIT TO BE FILLED 


04278 


49 


-4278 


00000 


02900 




DORG 


• -3 


04286 








02910 


ADDBLK 


SF 


LISTER-2 


04286 


32 


02 762 


00000 


0 2920 




A 


ADRSPL, LISTER,, ADD IN THE COUNT FOR BLANK SECTORS 


04298 


21 


04520 


02764 


02930 




CF 


LISTER-2 


04310 


33 


02762 


00000 


02940 




B 


PLUSSR 


04322 


49 


04194 


00000 


02950 




00 RG 


• - 3 


04330 








02960 


NEVER 


DC 
-0 


2,0,ADDBLK+ll 


04297 




2 




02970 


CLEVER 


DC 


1 ,0 , ADDBLK + 35 


04321 




1 




02980 


*»» ROUTINE FOR BRINGING IN THE PROPER LIST AND 










02990 




SCANN 


ING TO THE CORRECT CYLINDER ENTRY 










03000 


SPLIST 


TFM 


I0RT,*+23 


04330 


16 


00565 


-4353 


03010 




B 


IOPT, THRDDA, 7 


04342 


49 


00532 


-2729 


03020 




TDM 


19880,, 11, FLAG ZERO 


04354 


15 


19880 


0000- 


03030 




MM 


19885,05,10 


04366 


13 


19885 


000-5 


03040 




CF 


COMMON 


04378 


33 


02853 


00000 


03050 




SF 


94,,, DESIRED CYLINDER 


04390 


32 


00094 


00000 


03060 




SF 


93 


04402 


32 


00093 


00000 


03070 




TD 


STARDT+10,95,, SET-UP SEARCH FOR THE CORRECT CYLINOER 


04414 


25 


05032 


00095 


03080 




TD 


STARDT+11,96 


04426 


25 


05033 


00096 


03090 




MM 


LISTES-5,50000,7,USE OVERRIDE CODE TO DETERMINE MODULE 


04438 


13 


02785 


NOOOO 


03100 




SF 


94 


04450 


32 


00094 


00000 


03110 




B 


RDSPL 


04462 


49 


04594 


00000 


03120 




DORG 


•-3 


04470 








03130 


SPLINI 


BNF 


•♦20, COMMON 


04470 


44 


04490 


02853 


03140 




B 


GETBAK 


04482 


49 


05170 


00000 


03150 




DORG 


• -3 


04490 








03160 




TDM 


CALC4-1, 0,11, SET-UP CALC4 


04490 


15 


02782 


0000- 


03170 




TFM 


ADRSPL, 05800 


04502 


16 


04520 


-5800 


03180 


LPSRDA 


NOP 


,,, HOLDS COUNT POSITION FOR SPL LIST 


04514 


41 


00000 


00000 


03190 




TO 


CALC4, ADRSPL ,11, PREPARE TO COMPARE 


04526 


25 


02783 


0452- 


03200 




CF 


CALC4 


04538 


33 


02783 


00000 


0 3210 




CM 


CALC4,7,10 


04550 


14 


02783 


000-7 


03220 




BE 


COMCYL 


04562 


46 


04986 


01200 


03230 


SPLADO 


AM 


ADRSPL ,04, 10,, NEXT ENTRY 


04574 


11 


04520 


000-4 


03240 




B 


ADRSPL+6 


04586 


49 


04526 


00000 


03250 




DORG 


• -3 


04594 








03260 


ROSPL 


TF 


KEVE,94 


04594 


26 


05009 


00094 


03270 




TF 


NEVER, LISTES-4, .CORRECT TENTHOUSANDS POSITION 


04606 


26 


04297 


02786 


03280 




TDM 


NEVER-1 , , I 1 


04618 


15 


04296 


0000- 


03290 




MM 


NEVER, 05, 10 


04630 


13 


04297 


000-5 


03300 




BD 


•♦24,99 


04642 


43 


04666 


00099 
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03310 




AM 


NEVER, I, 10 


04654 


11 


04297 


000-1 


03320 




TO 


CLEVER, NEVER 


04666 


25 


04321 


04297 


03330 




SF 


CLEVER 


04678 


32 


04321 


00000 


03340 


»•* ROUTINE TO READ IN CORRECT SPL 










03350 








04690 


26 


00094 


05009 


03360 




TM 


n< n im | . OATK 7FRD 
tH»U| 1U11, rAl»IV ttl\U 


04702 


14 


00094 


000 — 


03370 




TF 


P ACK » 94 » , SA VE PACK NUM 


04714 


26 


02772 


00094 


03380 








04726 


46 


04810 


01200 


03390 




CM 


7*t,l,lull, rni.iv uiic 


0473B 


14 


00094 


000-J 


03400 




BE 




04750 


46 


04854 


01200 


03410 




CM 


qj. i ini i DArtf run 
fttct lull, rALIs 1 WU 


04762 


14 


00094 


000-K 


03420 








04774 


46 


04898 


01200 


03430 




r« 


Oi.l mil PACK THRFF 


04786 


14 


00094 


000-L 


03440 




ac 




04798 


46 


04942 


01200 


03450 


REDSPO 


rn 


3>r*L rMI* 1 , tL C V C K 


04810 


25 


02646 


04321 


03460 




TCM 




04822 


16 


00565 


-4845 


03470 




a 


i nr;T - pKnnnA.7 

1 l i Ky 1 , r*IVUl/Urt, / 


04834 


49 


00566 


-2637 


03480 




u 


SPL I N I 


04846 


49 


04470 


00000 


03490 




nnar 




04854 








03500 


REDSP1 




CDI OVIil Ci CUCD 


048 54 


25 


02669 


04321 


03510 




TCM 


f no x » j. o x 

1 UK 1 , *♦ C i 


04866 


16 


00565 


-4889 


03520 








04878 


49 


00566 


-2660 


03530 




9 


SPL I N I 


04890 


49 


04470 


00000 


03540 








04898 








03550 


REDSP2 


TO 


SPLPK2+1, CLEVER 


04898 


25 


02692 


04321 


03560 




TFM 


IDRT . »+?3 


04910 


16 


00565 


-4933 


03570 




g 


I OGT , PK2DDA, 7 


04922 


49 


00566 


-2683 


03580 






SPL IN I 


04934 


49 


04470 


00000 


01590 




nnnr 




04942 








03600 


REDSP3 


■rn ' 


<PI PK^+l .rt FVFR 


04942 


25 


02715 


04321 


03610 




TCM 




04954 


16 


00565 


-4977 


03620 






i nnr . pk inn*. . 7 


04966 


49 


00566 


-2706 


03630 






SPL IN I 


04978 


49 


04470 


00000 


03640 




00 RG 




04986 








03650 


C OMC YL 


Tp 


SPLCYL » ADRSPL ,,CYLC0RE POSITION 


04986 


26 


03187 


04520 


03660 






A no ^ P 1 A 


04998 


32 


0452- 


00000 


03670 








05009 




0 




03680 




AM 


(pi r vi n 1 - 1 n 


05010 


11 


03187 


000-3 


03690 


S TARD 1 


TM 


<;pi rvi 7nnn.A«.i<; twt<» thf right fYl INDFR 


05022 


14 


0318P 


0P0OO 


03700 




RP 




05034 


46 


05066 


01200 


03710 




rc 


a no c p ■ f. 


05046 


33 


0452- 


00000 


03720 






SPL ADD 


05058 


49 


04574 


00000 


0 37 30 




DORG 


• -3 


05066 








03740 


SPLEXT 


TF 


SPLCOR, SPLCYL, ,FIN0 DIM NUM LOCATION 


05066 


26 


03151 


03187 


03750 




SM 


SPLCYL, 03, 10, BACK TO HIGH ORDER POSITION 


05078 


12 


03187 


000-3 


03 760 




SF 


SPLCYL, ,6 


05090 


32 


0318P 


00000 


03770 




TF 


NEWDIM, SPLCOR, ll.CYLINOER DESIRED 


05102 


26 


0296 3 


0315J 


03780 




TF 


LISTER, SPLCOR, 11, 


05114 


26 


02 764 


0315J 


03790 




TF 


SPLCOR, SPLCYL 


05126 


26 


03151 


03187 


03800 




TF 


SPLCYL , AORSPL 


05138 


26 


03187 


04520 


03810 




SF 


COMMON 


05150 


32 


02853 


00000 


03820 




8 


WHYNOT 


05162 


49 


03388 


00000 


03830 




DORG 


*-3 


05170 








03840 




LINKAGE TO RETURN TO PROPER SUBROUTINE AFTER SAVING CORE 










03850 


CETBAK 

* 


CM 


NOMMON, 01 ,10 


05170 


14 


02855 


000-1 


03860 




BE 


GETRTR 


05182 


46 


02928 


01200 
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03870 




CM 


NOMMON, 02, 10 


05194 


14 


02855 


000-2 


03880 




BE 


GETLTR 


05206 


46 


03016 


01200 


03890 




CM 


NOMMON, 03, 10 


05218 


14 


02 855 


000- 3 


03900 




BE 


REMOTR 


05230 


4b 


03104 


01200 


03910 




CM 


NOMMON, 04, 10 


05242 


14 


02855 


000-4 


03920 




BE 


INSETR 


05254 


46 


03434 


01200 


03930 




B 


FINDTR 


0 5266 


49 


03906 


00000 


03940 




DORG 


»-3 


05274 








03950 


AORSPL 


DS 


•LPSRDA+6 


04520 




0 




03960 


*»* PORTION OF THE MOVER SUBROUTINE WHICH MOVES THE DATA 










03970 


COMPFR 


TFM 


IORT,*+23 


0 52 74 


16 


00565 


-5297 


03980 




B 


I0PT,KING,7,SAVE THE INFORMATION IN CORE 


05286 


49 


00532 


-2458 


03990 




CM 


CALC7, 140, 9, REGULAR READ 


05298 


14 


02848 


00J40 


04000 




BL 


SPCRED 


05310 


47 


05462 


01300 


04010 




SM 


RDMOVE+5, 140,9 


05322 


12 


02604 


00J40 


04020 




SM 


WRM0VE+5, 140,9 


05334 


12 


02627 


00 J40 


04030 


WHIPIT 


TFM 


IORT,»*23 


05346 


16 


00565 


-5369 


04040 




B 


I OGT , RD'MDDA , 7 


05358 


49 


00566 


-2591 


04050 




TFM 


IORT,#r23 


05370 


16 


00565 


-5393 


04060 




B 


I0PT,WRMD0A,7 


05382 


49 


00532 


-2614 


04070 




SM 


CALC7, 140,9 


05394 


12 


02848 


00J40 


04080 




CM 


CALC7,140,9 


05406 


14 


02848 


00J40 


04090 




BNH 


SPCRED 


05418 


47 


05462 


01100 


04100 




SM 


WRM0VE*5, 140, 9, ADJUST COUNT AND DOA AFTER TRANSFERING 140 SE 


05430 


12 


02627 


00 J40 


04110 




SM 


RDM0VE+5, 140,9 


05442 


12 


02604 


00J40 


04120 




B 


WHIP! T 


05454 


49 


05346 


00000 


04130 




DORG 


• -3 


05462 








04140 


SPCREO 


TF 


RDM0VE+8.CALC7, , TRANSFER LAST PORTION OF PROGRAM 


05462 


26 


02607 


02848 


04150 




TF 


WRM0VE+8,CALC7 


05474 


26 


02630 


02848 


04160 




S 


WRM0VE+5,CALC7 


05486 


22 


02627 


02848 


04170 




S 


RDM0VE+5,CALC7 


05498 


22 


02604 


02848 


04180 




TFM 


I0RT,«+23 


05510 


16 


00565 


-5533 


04190 




B 


I OGT , RDMDOA, 7 


05522 


49 


00566 


-2591 


04200 




TFM 


I0RT,»+23 


05534 


16 


00565 


-5557 


04210 




B 


IOPT, WRMDDA, 7 


0 5546 


49 


00532 


-2614 


04220 




TFM 


WRM0VE+8, 140,9, RESTORE CONSTANTS TO 140 


05558 


16 


02630 


00J40 


04230 




TFM 


RDMOVE+8, 140,9 


05570 


16 


02607 


00J40 


04240 




TF 


MPT , 19885, , SAVE ADORESS OF LAST PROGRAMS ORIGINAL SECTOR A 


05582 


26 


08636 


19885 


04250 




TF 


19885, WRMOVE+5, .CORRECT SECTOR ADDRESS IN DIM ENTRY 


05594 


26 


19885 


02627 


04260 




TFM 


I0RT,»+23 


05606 


16 


00565 


-5629 


04270 




B 


I0PT,DMDDA,7 


05618 


49 


00532 


-2568 


04280 




TFM 


IORT,*+23 


05630 


16 


00565 


-5653 


04290 




B 


I OGT, KING, 7 


05642 


49 


00566 


-2458 


04300 




B 


MARVEL 


05654 


49 


10884 


00000 


04310 




DORG 


• -3 


05662 








04320 


ERR 


BNF 


•♦68, FORT,, CHECK FOR ERROR 60 IN DLOAD 


05662 


44 


05730 


13114 


04330 




TFM 


DIMERR+22.7670,8 


05674 


16 


02507 


0P670 


04340 




RCTY 




05686 


34 


00000 


00102 


04341 


NINESC 


DC 


4,9000,»-5 


05692 












ROOO 












04350 




WATY 


DIMERR 


05698 


39 


02485 


00100 


04360 




BNF 


ERRD+24.DUMP 


05710 


44 


02548 


13426 


04370 




B 


PATCH3 


05722 


49 


14936 


00000 


04380 




DORG 


• -3 


05730 








04390 




TFM 


DIMERR+22,0078,8 


05730 


16 


02507 


0-078 


04400 




B 


ERRD 


05742 


49 


02524 


00000 
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04410 




00 RG 


• -3 


05750 








04430 


CONST 3 


DC 


6,0 


05755 




6 








-00000 










04440 


SPLFL 


TFM 


I0RT,«*23,, LINKAGE FOR THROWING SACRED SIX TO DISK WHEN LOA 


05756 


16 


00565 


-5779 


04450 




B 


I0PT,SPLR2,7 


05768 


49 


00532 


-5819 


04460 




TRA 




05780 


36 


00000 


00500 










05792 


49 


00000 


00000 


04470 


SPLR1 


DSC 


1,1 


05804 




1 




04480 




I 

oc 


5,18298 


05809 




5 








J8298 










04490 




DC 


3,033 


05812 




3 








-33 












04500 




DC 


5,02458 


05817 




5 








-2458 










045 10 




DSC 


It" 


05818 




I 




04520 


SPLR2 


OSC 


2,22 


05819 




2 








22 












0*530 




OS A 


SPLRl 


05825 




5 


X I 










05825 




-5804 




04540 




DSC 
t 


l,» 


05826 




i 




04550 




TCO 


SPLFL 


05756 












OORG 


8500 










04570 


MOVFL 


TFM 


IORT,*+23,, LINKAGE FOR THROWING MOVER TO DISK WHEN LOADING 


08500 


16 


00565 


-8523 


04580 




B 


IOPT,MOVFL1,7 


08512 


49 


00532 


-8548 






TRA 




08 524 


36 


uuuuu 












08536 


49 


00000 


00000 




MQVFLl 


DSC 


2,22 


08548 




2 








22 












04610 




DSA 


MOVFL 2 


08554 




5 


X I 










08554 




-8556 




04620 




DSC 


It" 


08555 




1 




04630 


M0VFL2 


DSC 


1.1 


08556 




1 




04640 




1 

DC 


5,18331 


08561 




5 








J8331 










04650 




DC 


3,038 


08564 




3 








-38 












04660 




DC 


5,08600 


08569 




5 








-8600 










04670 




DSC 


I, • 


08570 




I 




04680 
















04690 


* »« 














04700 


»«• 


THE *OVER SUBROUTINE FOR PREPARING A PLACE TO PUT A PROGRAM GIVE 










04710 




A STARTING SECTOR ADDRESS -MOVESA- AND A SECTOR COUNT -MOVESC- 










04720 
















04730 
















04740 




OORG 


8600 


08600 








04 750 


SFSUCE 


SF 


SUCESS 


08600 


32 


13118 


00000 
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04760 TF MOVESCSFSUCE+U,, RESTORE MOVE SECTOR COUNT. 

04770 CXITMR B •,,,T0 BE TFM BY CALLING PROGRAM 



04790 


MPT 


DC 


5 


.0 










-0000 








04800 


PRE J 


TFM 


IORT, »+23 






04810 




B 


I0GT,N0MA,7 


, LINKAGE 


FOR B* 


04820 




B 


PRE 7A 






04830 




DORG 




-3 






04840 


NOMA 


DSC 


2 












22 










04850 




DSA 


N0M8 






04860 




DC 


I 


» ' 






04870 


NOMB 


DSC 


I 


, I 






04880 




1 

DC 


5 


,17106 










J7106 








04890 




DC 


3 


,022 










-22 










04900 




DC 


6 


09000' 










-9000* 








04910 


TRWCAR 


DSC 


2 


22,, DDA 


FOR MOVING 


DATA 






22 










04920 




OSA 


MOVCAR 






04930 




OC 


1 








04940 


MOVCAR 


DSC 


1. 


0 










0 










04950 




DC 


5, 


0 










-0000 








04960 




DC 


3, 


060 










-60 










04970 




DC 


5, 


13776 










J3776 








04980 




DC 


I, 


t 






04990 


TRWBUS 


OSC 


2. 


22,, ODA 


FOR MOVING 


DATA 






22 











DSA MOVBUS 



05010 


DC 1 




05020 


MOVBUS DSC 1 


,0 




0 




05030 


DC 5 


,0 




-0000 




05040 


DC 3 


,060 




-60 




05050 


DC 5 


,13776 




J3776 





PAGE 

08612 26 02865 08611 

08624 49 08624 00000 
08632 

08636 5 

08638 16 00565 -8661 

08650 49 00566 -8670 

08662 49 09000 00000 
08670 

08670 2 

08676 5 X 1 



08676 
08677 

08678 

08683 

08686 

08692 

08693 

08699 

08699 
08700 

08701 

08706 

08 709 

08714 

08715 

08716 

08722 

08722 
08723 

08724 

08729 

08732 

08737 



-8678 
1 



1 

5 
3 
6 

2 

5 X 



-8701 
1 



1 

5 
3 
5 
I 
2 

5 X 



-8724 
1 

1 

5 

3 

5 
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05060 




DC 
« 


l»* 


08738 




I 




05070 


TRWA 


DSC 


2,22,,. DDA FOR MOV INGDAT A 


08739 




2 




05080 




22 




08745 




5 


X 1 










08745 




-8747 




05090 




DC 
• 




08746 




1 




05 100 


LOPEZA 


DSC 


1,0 


08747 




1 




05110 




0 

DC 


5,0 


08752 




5 








-0000 










05120 




DC 


3,060 


08755 




3 








-60 












05130 




DC 


5,13776 


08760 




5 








J3 776 










05140 




DC 


It" 


08761 




1 




05150 


TRWB 


DSC 


2,22,, DDA FOR MOVING DATA 


08762 




2 




05160 




22 
DSA 


LOPEZB 


08768 




5 


X 1 










08768 




-8770 




051 70 




DC 


t.» 


08769 








05180 


LOPEZB 


DSC 


1,0 


08770 




1 




05190 




0 

DC 


5,0 


08775 




5 








-0000 










05200 




DC 


3,060 


08778 




3 








-60 












052 10 




DC 


5,13776 


08783 




5 








J3776 














DC 
• 


l.» 


08784 




i 






ynhl 1 TO 

nun l i K 


DS 


,796 


00796 




o 




05240 


KEY5 


DSC 


1,0 


08785 




I 




05250 


C 


0 
DC 


5,0 


08790 




5 








-0000 










05260 


CALC5 


DC 


6,0 


08796 




6 








-00000 










05270 


ZEROES 


DC 


10,0 


08806 




10 








-000000000 












U U K H C IN 


DC 


3,0 


08809 




3 








-00 












05290 


LIMIT 


DC 


3,099 


088 12 




3 








-99 












05300 


KEY1 


DSC 


1.0 


08813 




I 






U l BnL U 


0 

DC 


9,0 


08822 




9 








-00000000 










05320 


L) I MENT 


DS 


,19880, CONTROL FIELD FOR NOWDIM 


19880 




0 




05330 


MOVER 


SF 


MOVESA-5 


08824 


32 


02857 


00000 


05340 




CF 


MOVESA-4 


08836 


33 


02858 


00000 






1620 MONITOR I DUP ROUTINE »0L0AD, »DREPL, •DELE! MOD. LEVEL 4 








P AGE 


05350 




TF 


SFSUCE+ll.MOVESC, , STORE MOVE SECTOR COUNT. 




26 




02865 


05360 




TF 


LISTES,MOVESA,, FIND POINT IN LIST WHERE PROGRAM IS TO BEG I 


08 860 


\ ^ 


02 790 


02862 


05370 




TF M 


RLG0NE+30,*+20 




16 


0428 4 


-8892 


05380 




B 


FIND 




49 


03838 


UUUUU 


05390 




DORG 


•-3 










05400 




CM 


LISTER-3, 09, 1011, LOOK FOR BLANK ENTRY 










05410 




BE 


MIDNI T 


n«onf 
08904 




no 17? 


i - rin 
01200 


05420 




TF 


NEWDIM, LISTER,, MOVESA IS IN THE MIDDLE OF A PROGRAM 


08916 


26 


02963 


02 764 


05430 




BT 


DIMMER, DIMMER-l 


08928 


27 


03672 


036 7 1 


05440 




SF 


MOVESA-4 


08940 


32 


02858 


00000 


05450 




TF 


C0NST5, 19885 


08952 


26 


02825 


19885 


05460 




S 


C0NST5, MOVESA 


08964 


22 


02825 


02862 






CF 


MOVESA-4 


08976 


33 


02 858 


00000 


05480 




SF 


C0NST5-2 




32 


02823 


00000 


05490 




TF 


BAVAI L »C0NST5, , ADJUST BLANK AVAIL TO MINUS TO ALLOW FOR OIM 


09000 


f a 




02 82 5 


05500 




BNF 


FILTST, 19899,, IS THE PROGRAM FILE PROTECTED 


09012 


44 


10204 


i 9899 


05510 


MSTAKE 


CF 


SUCESS, ,, ERROR EXIT 




3 3 


13118 


00000 


05520 




TF 


MOVESC,SFSUCE+li, , RESTORE MOVE SECTOR COUNT. 


09036 


26 


02865 


08611 


05530 




B 


EXITMR 


09048 


49 


08624 


UUOOU 


05540 




DORG 


• -3 


09056 








05550 


DSEVEN 


SF 


LISTES-4 




1 




00000 


05560 




S 


FOUND, LISTES 


09068 




n*Ift 




05570 




SF 


FOUND-2 


09080 


Z~ 


n*22* 


00000 


05580 




TF 


C0NST2, FOUND 




26 


02807 




05590 


ACTAJ 


C 


C0NST2,MOVFSC, , ENOUGH SECTORS AVAILABLE 


09104 


24 


02807 


02865 


05600 




BNL 


ACTAG 


091 16 




09260 




05610 


ACTAH 


BT 


GETR ,GE TR- 1 , , LOOK FOR MORE ROOM 




77 






05620 




CM 


LISTER-3, 7, 1011 


no if n 






nnn i 


05630 




BE 


ACTAH 




46 


0Q1 ?R 


ni ?rin 


05640 




CM 


LISTER-3, 9,1011 






. -if, 


nnn 


05650 




BNE 


ACTAK 




zl 




01200 


05660 




SF 


LISTER-2 


no inn 






UUUUU 


05670 




A 


C0NST2, LISTER 


novnn 




no l nl 




05680 




B 


ACTAJ 


no?i 9 


f Q 




nnnnn 

UUUUU 


05690 




DORG 


»-3 


09220 








05700 


ACTAK 


TF 


LISTES, MOVESA,, REPOSITION LISTER TO MOVESA 


09220 


26 


02 790 




05710 




TFM 


RLGONE+30,*+20 




iq 




9252 


05720 




B 


FINO 


09244 




03838 


UUUUU 


05730 




DORG 


• -3 


09252 








05740 




B 


BLANKT, , , PROGRAMS MUST BE MOVEO 


09252 




10348 


nnnnn 

UUUUU 


05750 




DORG 


• -3 


09260 








05760 


AC TAG 


TF 


LISTES, MOVESA,, REPOSITION FIND TO MOVESA 


nao !! 


_ 


02790 




05770 




TFM 


RLG0NE*30,»+20 




1 




9292 


05780 




B 


FINO 






03838 


UUUUU 


05790 




DORG 


• -3 










05800 




BT 


GETR, GETR-1 




zL 






05810 




SF 


LISTER-2 


no-anf 






UUUUU 


05820 




MM 


LISTER, 200, 9 


09316 


13 


02 764 


OOKOO 


05830 




TF 


C0NSTl,99 


09328 


26 


02801 


00099 


05840 




BT 


GETL,GETL-l 


09340 


27 


02996 


02995 


05850 




SF 


LISTER-2 


09352 


32 


02762 


00000 


05860 




B 


ACTAA 


09364 


49 


09552 


00000 


05870 




DORG 


• -3 


09372 






05880 


MIDNIT 


SF 


MOVESA-4,,, MOVESA IS AT AN AREA COVERED BY BLANK SECTORS 


09372 


32 


02858 


00000 


05890 




SF 


LISTER-2 


09384 


32 


02762 


00000 


05900 




BT 


GETR, GETR-1 


09396 


27 


02872 


02871 
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05910 




CM 


LlSTER-3,7,1011 


09408 


14 


02761 


000-P 


05920 




BE 


DSEVEN 


09420 


46 


09056 


01200 


05930 




TF 


NEWDIM, LISTER,, POSITION END OF BLANKS FROM THIS DIMS SECTOR 


09432 


26 


02963 


02764 


05940 




BT 


DIMMER, DIMMER-l 


09444 


27 


03672 


03671 


05950 




TF 


C0NST1, 19885 


09456 


26 


02801 


19885 


05960 


ZSEVEN 


TF 


C0NST6, MOVESA 


09468 


26 


02831 


02862 


05970 




TF 


C0NST3, CONST! 


09480 


26 


05755 


02801 


05980 




BT 


GETL , GE TL-l 


09492 


27 


02996 


02995 


05990 




SF 


LISTER-2 


09504 


32 


02762 


00000 


06000 




A 


C0NST6, MOVESC 


095L6 


21 


02831 


02865 


06010 




C 


C0NST6, CONSTl IS THERE ENOUGH ROOM TO LOAD THE MOVESC 


09528 


24 


02831 


02801 


06020 




BH 


BLANKT 


09540 


46 


10348 


01100 


06030 


ACTAA 


S 


CONSTl, LISTER,, ENOUGH ROOM HAS BEEN FOUND WITHOUT MOVING PRO 


09552 


22 


02801 


02764 


06040 




TF 


C0NST2, MOVESA 


09564 


26 


02807 


02862 


06050 




S 


C0NST2, CONSTl 


09576 


22 


02807 


02801 


06060 




SF 


C0NST2-2 


09588 


32 


02805 


00000 


06070 




TF 


•♦35,C0NST2, , PREPARE THE TRAILING NINES ENTRY 


09600 


26 


09635 


02807 


06080 




CF 


• ♦21 


09612 


33 


09633 


00000 


06090 




TFM 


LISTET, 9000, 8 


09624 


16 


02 794 


OROOO 


06100 




CM 


LISTET.9000, 8 


09636 


14 


02794 


OROOO 


06110 




BE 


• ♦24 


09648 


46 


09672 


01200 


06120 




BT 


INSERT, INSERT-l 


09660 


27 


03414 


03413 


06130 


NONAME 


BT 


REMOVE, REMOVE- I 


09672 


27 


03084 


03083 


06140 




CM 


LISTER-3,7, 1011 


09684 


14 


02761 


000-P 


06150 




BNE 


ACTAD 


09696 


47 


09896 


01200 


06160 




SF 


LISTER-2 


09708 


32 


02762 


00000 


06170 




MM 


LISTER, 200, 9 


09720 


13 


02764 


OOKOO 


06180 




TFM 


95,99,10, TO COMPENSATE FOR PACK ADDRESSING 


09732 


16 


00095 


O0OR9 


06190 




TF 


CONST 3 , 99 


09744 


26 


05755 


00099 


06200 




S 


99, MOVESA 


09756 


22 


00099 


02862 


06210 




SF 


97 


09768 


32 


00097 


00000 


06220 




C 


99, MOVESC 


09780 


24 


00099 


02865 


06230 




BNL 


ACT AC 


09 792 


46 


09968 


01300 


06240 




A 


MOVESA, 99 


09804 


21 


02862 


00099 


06250 




S 


MOVESC, 99 


09816 


22 


02865 


00099 


06260 




TF 


•+35,99,, PREPARE EIGHTS ENTRY OF MOVESC 


09828 


26 


09863 


00099 


06270 




CF 


• ♦21 


09840 


33 


09861 


00000 


06280 




TFM 


LISTET, 8999,8 


09852 


16 


02794 


00999 


06290 




BT 


INSERT, INSERT-1 


09864 


27 


03414 


03413 


06300 




BT 


GETR , GE TR-1 


09876 


27 


02872 


02871 


06310 




B 


NONAME 


09888 


49 


09672 


00000 


06320 




DO RG 


• -3 


09896 








06330 


ACTAD 


TF 


NEWDIM, LISTER, .USE DIM ENTRY TO FIND SECTOR ADRESS 


09896 


26 


02963 


02764 


06340 




BT 


DIMMER, DIMMER-l 


09908 


27 


03672 


036 71 


06350 




TF 


CONST 3 , 19885 


09920 


26 


05755 


L9885 


06360 




ro 


C0NST3-5, 19880 


09932 


25 


05750 


19880 


06370 




CF 


C0NST3-4 


09944 


33 


05751 


00000 


063B0 




SF 


CONST3-5 


09956 


32 


05750 


00000 


06390 


ACT AC 


TF 


•♦35, MOVESC, .PREPARE AN EIGHTS ENTRY OF MOVESC 


09968 


26 


10003 


02865 


06400 




CF 


• ♦21 


09980 


33 


10001 


00000 


06410 




TFM 


LISTET, 8000 , R 


09992 


16 


02794 


OQOOO 


06420 




BT 


INSERT, INSERI-1 


10004 


27 


03414 


03413 


06430 




TF 


C0NST2 , MOVE SA 


10016 


26 


02807 


02862 


06440 




A 


C0NST2, MOVESC 


10028 


21 


02 807 


02865 


06450 




S 


C0NST3,C0NST2 


10040 


22 


05755 


02807 


06460 




SF 


CONST 3-2 


1 0052 


32 




00000 
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PAGE 


06470 




TF 


•♦35, C0NST3,, PREPARE THE LEADING NINES ENTRY 


10064 


26 


10099 


05 755 


06480 




CF 


♦ + 21 


10076 


33 


10097 


00000 


06490 




TFM 


LISTET, 9000,8 


10088 


16 


02794 


OROOO 


06500 




CM 


LISTET, 9000,8 


10100 


14 


02 794 


OROOO 


06510 




BE 


♦ ♦24 


10112 


46 


10136 


01200 


06520 




BT 


INSERT, INSERT-i 


10124 


27 


03414 


0341 3 


06530 


REMSIL 


CF 


MOVE S A-4 , , , PUS I T I ON LISTFR FOR EXIT 


10136 


33 


02858 


00000 


(J6540 




BT 


GETL.GETL-l 


10148 


27 


02996 


02995 


06550 




CM 


LISTER-3,08, 1011 


10160 


14 


02761 


000-Q 


06560 




BNE 


♦ -24 


10172 


47 


10148 


01200 


06570 




BT 


GETR, GE TR-1 


10184 


27 


02872 


02871 


06580 




B 


SFSUCE 


10196 


49 


08600 


00000 


06590 




DO RG 


♦-3 


10204 






06600 


FILTST 


BNG 


GORT , 19899, , CHECK FOR FILE PROTECTION 


10204 


55 


10224 


19899 


06610 




B 


MSTAKE 


10216 


49 


09024 


00000 


06620 




DORG 


♦ -3 


10224 






06630 


GORT 


BT 


GETR, GETR-1, , SEARCH FOR MORE BLANK SECTORS 


10224 


27 


02872 


02871 


06640 




CM 


LlSTER-3,07, 101 1, CYL REPRESENTED 


10236 


14 


02761 


000-P 


06650 




BE 


GORT 


10248 


46 


10224 


01200 


06660 




CM 


LISTER- 3, 09, 1011, BLANKS 


10260 


14 


02 761 


000-R 


06670 




BE 


BAVADD 


10272 


46 


10464 


01200 


06680 




TF 


NEWDIM, LISTER 


10284 


26 


02963 


02764 


06690 




BT 


DIMMER, 01 MM ER- I 


10296 


27 


03672 


03671 


06700 




BNG 


•+20,19899,, FILE PROTECTED PROGRAM 


10308 


55 


10328 


19899 


06710 




B 


FILTST+12 


10320 


49 


10216 


00000 


06720 




DORG 


• -3 


10328 






06730 




BNF 


GORT, 19899,, IMMOVABLE PROGRAM 


10328 


44 


10224 


19899 


06740 




B 


MSTAKE 


10340 


49 


09024 


00000 


06750 




DORG 


• -3 


10348 






06760 


BLANKT 


SF 


LISTES-3 


10348 


32 


02787 


00000 


06770 




TF 


C0NST5, FOUND 


10360 


26 


02825 


03445 


06780 




S 


FOUND, LISTES 


10372 


22 


03445 


02790 


06790 




CF 


LISTES-3 


10384 


33 


02787 


00000 


06800 




SF 


FOUND-2 


10396 


32 


03443 


00000 


06810 




TF 


BAVAIL, FOUND 


10408 


26 


02754 


03445 


06820 


BAVCOM 


CF 


FOUND-2 


10420 


33 


03443 


00000 


06830 


C 


MOVESC, BAVAIL,, IS HOLE BIG ENOUGH 


10432 


24 


02865 


02754 


06840 




BNH 


MOVNOW 


10444 


47 


10496 


01100 


06850 




B 


GORT 


10456 


49 


10224 


00000 


06860 




DORG 


• -3 


10464 




06870 


RAVAOD 


SF 


LISTER-2,,, ADD IN COUNT OF BLANK SECTORS FOUND 


10464 


32 


02762 


00000 


06880 




A 


BAVAIL, LISTER 


10476 


21 


02754 


02764 


06890 




8 


BAVCOM 


10488 


49 


10432 


00000 


06900 




DORG 


• -3 


10496 




06910 


MO.VNOH 


S 


BAVAIL, MOVESC,, ADJUST LAST NINES ENTRY FOR FINAL OUTPUT 


10496 


22 


02754 


02865 


06920 




CM 


BAVAIL, 000,9, 


10508 


14 


02754 


00-00 


06930 




BE 


REMBLK 


10520 


46 


10628 


01200 


06940 




SF 


LISTER-2 


10532 


32 


02762 


00000 






TF 


•♦35, BAVAIL 


10544 


26 


10579 


02754 


06960 




CF 


• ♦21 


10556 


33 


10577 


00000 


06970 




TFM 


LISTET, 9000,8 


10568 


16 


02794 


OROOO 


06980 




BT 


INSERT, INSERT-1 


10580 


27 


03414 


0341 3 


06990 




TFM 


WRM0VE+5,,,ZER0 FIELD 


10592 


16 


02627 


-0000 


07000 




S 


WRMOVE+5, BAVAIL 


10604 


22 


02627 


02754 


07010 




TDM 


HEX,, .RECORD MARK 


10616 


15 


02795 


00000 


07020 




DC 


l.»t* 


10627 




1 
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07030 


KEMBLK 


BT 


REMOVE, REMOVE-1 » »REMOVE LAST NINES ENTRY IF IT IS A PERFECT 


10628 


27 


03 084 


03083 






CM 


1 I ^TFR — ^ . 07. 1 f) 1 1 


10640 


14 


02761 


000-P 


07050 




BE 


KSEVEN 


10652 


46 


10708 


01200 


07060 




TF 


NEWDI M» LI STER, » SET MOVER DDA FROM DIM ENTRY 


10664 


26 


02963 


02764 








n T MM PR . m MMFR- l 


10676 


27 


03672 


03671 






a* 


WRM0VE+5t 19885 


10688 


21 


02627 


19885 






B 


TOPPRO 


10700 


49 


10812 


00000 


. . . ftn 








10708 








H7i i n 


KSEVEN 


SF 


1 1 CTFR— 1 ... T Mnuco nnA FROM PYLINDER FNTRY 


10708 


32 


02763 


00000 


n7l ?n 




MM 


i i ^tpr . ?nn. q 


10720 


13 


02764 


OOKOO 








UDunMC iK no 


10732 


21 


02627 


00099 


07140 




SF 


WRMOVE 


10744 


32 


02622 


00000 


0 71 50 






WRMDVF+l . IMF VP R 


10756 


22 


02623 


04297 








uRMnuF* l fti.in 

Wf\nUf t*i f wl 1 1U 


10768 


U 


02623 


000-1 






CF 


WRMOVE 


10780 


33 


02622 


00000 


71 _ 






TOPPRO 


10792 


49 


10812 


00000 


07190 




n r 




10800 








07200 


RSEVEN 


RT 




10800 


27 


03084 


03083 




TOPPRO 


RNR 


• ♦24 * HE X 


10812 


45 


10836 


02795 


n7??n 




BT 


CFTI T,FTI -1 . AH III^T THF 1 I <iTFR FDR Nfl FX AfT FIT 


1 0824 


27 


02996 


02995 


07230 




TF 




10836 


26 


02825 


02862 


07240 






C0NST5t MOVESC 


10848 


21 


02825 


02865 






SF 


C0NST5-4f t »SFCT0R ADORES OF LAST SECTOR TO BE MOVED TOWARD 


10860 


32 


02821 


00000 


07260 




TF M 


NEWD I M» 9999 t 8 


10872 


16 


02963 


0R999 




M ARl/FI 


BT 


ftFTi fiP Ti — l 


10884 


27 


02996 


02995 


n7?«n 






WRMOVE* 5 , C0NST5 t ■ HAS THE LAST PROGRAM JUST BEEN MOVED 


10896 


24 


02627 


02825 


07290 




BNH 


PRE 7 


10908 


47 


08638 


01100 


07300 




CM 


LISTER-3f 6i 1011 tFLAGGED ABOVE SIX 


10920 


14 


02761 


000-0 


073 10 




BH 


•♦32, », BOTH NUMBERS ARE MINUS 


10932 


46 


10964 


01100 


07320 


WASH 


BT 


REMOVE t REMOVE-1 


10944 


27 


03084 


03083 






g 


MARVEL 


10956 


49 


10884 


00000 


07 340 




DO RG 


»-3 


10964 








07350 






L ISTERtNEWDI M 


10964 


24 


02764 


02963 


07360 




BE 


WASH 


10976 


46 


10944 


01200 


07370 




TF 


NEWDI M, L I STER, , BEGI N-MOVE PROGRAMS DOWN 


10988 


26 


02963 


02764 






BT 


fl I MMPR . ni MMFR— 1 


1 1000 


27 


03672 


0367 1 


0 7390 




TF 


CALC7 » 19888 ,, SECTOR COUNT 


11012 


26 


02848 


19888 


07400 




TF 


CALC3,19885 t • INIT READ AND WRITE 


11024 


26 


02779 


19885 


07410 




TO 


ROMOVE, 19880 


11036 


25 


02 599 


19880 


0 7420 






CALC3 1 CALC7 


1 1048 


21 


02779 


02848 


0 7430 




TF 


RDM0VE+5.CALC3 


1 1060 


26 


02604 


02779 






TO 


WRMOVE, RDMOVE 


11072 


25 


02622 


02599 






B 


COMPFR 


1 1084 


49 


05274 


00000 


07460 




DORG 


• -3 


1 1092 








07470 




TCO 


MOVFL 


08 500 








07480 




DORG 


09000 


09000 










**# 


ROUTINE TO COMPLETE THE REMOVAL OF NON-PROGRAM ENTRIES 










07500 


PKE7A 


BT 


GETR.GETR-l 


09000 


27 


02872 


02871 


07510 




TF 


CONST 5, LISTER 


09012 


26 


02825 


02764 


07520 


LOOPSY 


BT 


GE TL t GETL- I » , SEARCH TOWARO THE LEFT FOR NEW DIM NUMBER 


09024 


27 


02996 


02995 


07530 




CM 


LISTER-3, 7, 1011 


09036 


14 


02761 


000-P 


07540 




BE 


SEVENT 


09048 


46 


09108 


01200 


07550 




CM 


LISTER-3, 9,1011 


09060 


14 


02761 


000-R 


07560 




BE 


NINENT 


09072 


46 


09132 


01200 


07570 




C 


LISTER, C0NST5 


09084 


24 


02764 


02825 
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07580 




BNE 


CHOICE 


09096 


47 


09196 


01200 


07590 


SE VENT 


CM 


LISTER, 7000,8, CHECK FOR SPECIAL CASE OF CYLINDER ZERO 


09108 


14 


02 764 


OPOOO 


07600 




BE 


SPECAS 


09120 


46 


09 152 


0 1200 


07610 


NINENT 


BT 


REMOVE , REMOVE- I 










07620 




B 


LOOPSY 


09 144 


4S> 




nnnnn 
wuuuu 


0 7630 




DORG 


*-3 


09 152 








07640 


SPECAS 


TF M 


19885,, , 


09 152 


1 6 


1 QftAS 


-nnnn 


07650 




BT 


REMOVE , REMOVE- I 




27 


03084 


ninu * 


07660 




TF M 


MAMY+1,41, 10, NOP THE GETR IN THIS SPECIAL CASE 


091 76 


16 


0949 7 


OOOMl 


07670 




B 


MEAT 




49 


09292 




07680 




DORG 


• -3 


09196 








07690 


CHOICE 


TF 


NEWOIM, LISTER 


_ . _ 




_ 


02 f 64 


07700 




BT 


DIMMER, DIMMER-i 




27 


03672 


036 7 1 


07710 




CM 


LISTER, 0001,8, CHECK FOR WORK REPRESENTED BY CYLINDER COUNT 










07720 




BNE 


• ♦48 


09232 


47 


09280 


CH200 


07730 




MM 


19888,200,9 


09244 


13 


19888 


OOKOO 


07740 




SF 


95 




32 




n n n n n 


07750 




A 


19885,99 


09268 


21 


19885 


00099 


07760 




A 


19885,19888 


09280 


21 


19885 


19A88 


07770 


**• SET-UP FAKSEV AND RACKET 










07780 


MEAT 


MM 


MOVESA-4,05, 10 








000 


07790 




TDM 


MOVESA-4, 1,11 


09304 


is 




0000 J 


07800 




BD 


•♦24,99 


09 3 16 


43 


09340 


00099 


07810 




TDM 


MOVESA-4, 0,11 


09328 


15 


02858 




07820 




TD 


19881, MOVESA-4 


09340 


25 


1988 1 


02858 


07830 




TFM 


FAKSEV, 7000,8 


09352 


16 


02852 


OPOOO 


07840 




SF 


19883 


09364 


32 


19883 


nnnnn 

U U V LIU 


07850 


DELTA 


DC 


5,00200, ♦ 


09375 




5 








-0200 










07860 




TFM 


RACKET,, 8 


09376 


1 6 


02 841 


0-000 


07870 




TF 


RACKET, 19885, tESTABLISH THE NUMBER OF SECTORS USED ON THIS C 


09388 


26 


02841 


19885 


07880 




CF 


19883 


09400 


33 


1988 3 




07890 




TDM 


RACKET-2,1 


094 12 


1 5 


02 83 9 


0000 1 


07900 




MM 


19883,05,10 


09424 


13 


19883 


000-5 


07910 




BD 


•♦24,99 


09436 


43 


09460 


00099 


07920 




TDM 


RACKET-2,0 


09448 


15 


02839 


00000 


07930 




TD 


FAKSEV, 98 


09460 


25 


02 852 


00098 


07940 




TD 


FAKSEV-1,97 


09472 


25 


0285 1 


00097 


07950 




S 


DELTA, RACKET,, INIT TO 200 MINUS RACKET 


09484 


22 


09375 


02841 


07960 


MAMY 


BT 


GETR.GETR-l, , SHIFT OFF OF ANCHOR PROGRAM 


09496 


27 


02872 


02871 


07970 




TF 


C0NST5,M0VESA 


09508 


26 


02825 




07980 




S 


C0NST5, 19885 


09520 


22 


02825 


19885 


07990 




CM 


RACKET, 0000, 8 


09532 


14 


02841 


0-000 


08000 




BNE 


CONCUD 


09544 


47 


09952 


01200 


08010 




TF 


LISTET, FAKSEV, , REPLACE THE CYLINDER MARKER 


09556 


26 


02 794 


02852 


08020 




BT 


INSERT, INSERT-I 


09568 


27 


03414 


0341 3 


08030 




CM 


C0NST5, ,7, 


09580 


14 


02825 


-0000 


08040 




BE 


EIGHTS 


09592 


46 


09984 


01200 


08050 


DELNT5 


C 


DELTA, C0NST5,, IS THERE ENOUGH ROOM FOR REMAINING NINES ENT 


09604 


24 


09375 


02825 


08060 




BL 


TAC 


09616 


47 


09812 


01300 


08070 




BH 


TIC 


09628 


46 


09744 


01100 


08080 




SF 


C0NST5-2,,, A PERFECT FIT, INSERT THE NINES ENTRY 


09640 


32 


02823 


00000 


08090 




TF 


•♦35.C0NST5 


09652 


26 


09687 


02825 


08100 




CF 


• ♦21 


09664 


33 


09685 


00000 


08110 




TFM 


LISTET, 9000. 8 


09676 


16 


02794 


OROOO 


08120 




BT 


INSERT, INSERT-i 


09688 


27 


03414 


03413 
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08130 




AM 


FAKSEV, 01,10 


09700 


11 


02852 


000-1 


08140 




TF 


LISTET, FAKSEV,, 


RESTORE THE CYLINDER MARKER 09712 


26 


02794 


02852 


08150 




BT 


INSERT, INSERT-l 


09724 


27 


03414 


03413 


08160 




B 


EIGHTS 


09736 


49 


09984 


00000 


08170 




DORG 


• -3 


09744 








08180 


TIC 


SF 


C0NST5-2,,, INSERT THE NINES ENTRY 09744 


32 


02823 


00000 


08190 




TF 


•♦35,C0NST5 


09756 


26 


09791 


02825 


08200 




CF 


• ♦21 


09768 


33 


09789 


00000 


08210 




TF M 


LISTET, 9000,8 


09780 


16 


02794 


OROOO 


08220 




BT 


INSERT, INSERT-1 


09792 


27 


03414 


03413 


08230 




B 


EIGHTS 


09804 


49 


09984 


00000 


08240 




DORG 


•-3 


09812 








08250 


T AC 


SF 


DELTA-2 , , FILL 


THE REST OF THE CYLINDER WITH NINES ENTRY 09812 


32 


09373 


00000 


08260 




TF 


•♦35, DELTA 


09824 


26 


09859 


09375 


08270 




CF 


• ♦21 


09836 


33 


09857 


00000 


08280 




TFM 


LISTET, 9000, 8 


09848 


16 


02794 


OROOO 


08290 




CF 


DELTA-2 


09860 


33 


09373 


00000 


08300 




BT 


INSERT, INSERT-l 


09872 


27 


03414 


03413 


08310 




S 


C0NST5, DELTA 


09884 


22 


02825 


09375 


08320 




AM 


FAKSEV, 01 , 10 


09896 


11 


02852 


000-1 


08330 




TF 


LISTET, FAKSEV, , 


RESTORE THE CYLINDER MARKER 09908 


26 


02794 


02852 


08340 




BT 


INSERT, INSERT-l 


09920 


27 


03414 


03413 


08350 




TFM 


DELTA,00200, 7, 


09932 


16 


09375 


-0200 


08360 




B 


DELNT5 


09944 


49 


09604 


00000 


08370 




00 RG 


»-3 


09952 








08380 


CONCUD 


CM 


C0NST5,00000,7, 


SECTOR ADORES FITS ON END OF PREVIOUS PROGR 09952 


14 


02825 


-0000 


08390 




BE 


E IGHTS 


09964 


46 


09984 


01200 


08400 




B 


DELNT5 


09976 


49 


09604 


00000 


08410 




DORG 


»-3 


09984 








08420 


t IGHTS 


TF 


•♦35,M0VESC, , I 


NSERT AN EIGHTS ENTRY FOR MOVESC 09984 


26 


10019 


02865 


08430 




CF 


• ♦21 


09996 


3 3 


10017 


00000 


08440 




TFM 


LISTET, 8000,8 


10008 


16 


02794 


OQOOO 


08450 




BT 


INSERT, INSERT -1 


10020 


27 


03414 


0 3413 


08460 




BT 


GETL, GETL-l 


10032 


27 


02996 


02995 


08470 




SF 


MOVESA-3 


10044 


32 


02 859 


00000 


08480 




TF 


RACKET, MOVESA 


10056 


26 


02841 


02862 


08490 




CF 


MOVESA-3 


10068 


33 


02859 


00000 


08500 




SM 


RACKET, 200, 9 


10080 


12 


02 841 


OOKOO 


08510 




BNF 


•-12, RACKET 


10092 


44 


10080 


02841 


08520 




AM 


RACKET, 200, 9 


10104 


U 


02841 


OOKOO 


08530 




BT 


GETL t GETL-l 


10116 


27 


02996 


02995 


08540 


• •• 


ROUTINE 10 RESTORE THE 


SPL TO ITS PROPER FORM 








08550 


ALLRIT 


BT 


GETR, GFTR-l, , SHIFT TO PICK UP NEXT ENTRY TO ANALYZE 10128 


27 


02 872 


02871 


08560 




CM 


LISTER-3,7, 10L1 


10140 


14 


02761 


000-P 


OR570 




BE 


BEAUTY 


10152 


46 


10592 


01200 


08580 




CM 


LISTER-3, 9,1011 


10164 


14 


02761 


000-R 


08590 




BE 


ADDRAC 


10176 


46 


10656 


01200 


08600 




CM 


LISTER-3, 8,1011 


10188 


14 


02761 


000-Q 


08610 




BE 


ADDRAC 


10200 


46 


10656 


01200 


08620 




TF 


NEWDIM, LISTER, » 


BRING IN NEW DIM ENTRY TO FIND LENGTH 10212 


26 


02963 


02764 


08630 




BT 


DIMMER, DIMMER-l 


10224 


27 


03672 


03671 


08640 




SF 


FAKSEV-1 


10236 


32 


02851 


00000 


08650 




MM 


FAKSEV, 200, 9 


10248 


13 


02852 


OOKOO 


OR660 




SF 


94 


10260 


32 


00094 


00000 


08670 




S 


95, NEVER 


10272 


22 


00095 


04297 


08680 




AM 


95,01 , 10 


10284 


il 


00095 


000-1 
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08690 




CF 


FAKSEV-l 


10296 


33 


02 851 


00000 


08700 




C 


19885,99, , DOES THIS PROGRAM START ON A CYLINDER PREVIOUS TO 


10308 


24 


19885 


00099 


08710 




BNL 


• ♦48 


10 320 


46 


10368 


01300 


08720 




S 


19885,99 


10332 


22 


19885 


00099 


08730 




SF 


19883 


10344 


32 


19883 


00000 


08740 




A 


19888,1988b 


10356 


21 


19888 


19885 


08750 




A 


RACKET, 19888 


10368 


21 


02841 


19888 


0R760 


NOISY 


CM 


RACKET, 200, 9, HAVE 200 SECTORS BEEN ACCOUNTED FOR THIS CYLI 


10380 


14 


02841 


OOKOO 


08770 




BE 


EZEST 


10392 


46 


10700 


01200 


08780 




BNH 


ALLRIT 


10404 


47 


10128 


01100 


08790 




CM 


LISTER-3, 8, 1011 


10416 


14 


02761 


000-C 


08800 




BNH 


TELAST 


10428 


47 


10756 


01100 


08810 




TF 


STEAL, LISTER 


10440 


26 


02845 


02764 


08820 




BT 


GETR.GETR-l 


10452 


27 


02872 


02871 


08830 




AM 


FAKSEV, I, 10 


10464 


11 


02852 


000-1 


08840 




TF 


LISTET, FAKSEV,, RESTORE SEVENS MARKER 


10476 


26 


02794 


02852 


08850 




BT 


INSERT, INSERT-1 


10488 


27 


03414 


03413 


C8860 




TF 


LISTET, STEAL, , REPEAT THE DIM NUMBER 


10500 


26 


02794 


02845 


08870 




BT 


INSERT, INSERT-l 


10512 


27 


03414 


03413 


08880 


RAKES 


SM 


RACKET, 200, 9, 


10524 


12 


02 841 


OOKOO 


08890 




C . 


LISTER, FAKSEV 


10536 


24 


02 764 


02852 


08900 




BE 


• ♦32 


10548 


46 


10580 


01200 


08910 




BT 


GETL, GETL-l 


10560 


27 


02996 


02995 


08920 




B 


NOISY 


10572 


49 


10380 


00000 


08930 




DORG 


• -3 


10580 








08940 




BT 


REMOVE, REMOVE-l 


10580 


27 


03084 


03083 


08950 


BEAUTY 


BT 


GETL, GETL-l, , POSITION LISTER FOR EXIT 


10592 


27 


02996 


02995 


08960 




CM 


LISTER-3, 08, 101 1 


10604 


14 


02 761 


000-Q 


08970 




BE 


• ♦20 


10616 


46 


10636 


01200 


08980 




B 


BEAUTY 


10628 


49 


10592 


00000 


08990 




DORG 


• -3 


10636 








09000 




BT 


GETR, GETR- I 


10636 


27 


02 872 


02871 


09010 




B 


SFSUCE 


10648 


49 


08600 


00000 


09020 




DORG 


• -3 


10656 








09030 


ADDRAC 


SF 


LISTER-2,,, ADO THE BLANK OR EIGHTS SECTOR COUNT TO TOTAL 


10656 


32 


02762 


00000 


09040 




A 


RACKET, LISTER 


10668 


21 


02841 


02764 


09050 




CF 


LISTER-2 


10680 


33 


02762 


00000 


09060 




B 


NOISY 


10692 


49 


10380 


00000 


09070 




DORG 


• -3 


10700 








09080 


EZEST 


AM 


FAKSEV, 1, 10, INSERT CYL MARKER FOR A PERFECT FIT 


10700 


11 


02852 


000-1 


09090 




TF 


LISTET, FAKSEV 


10712 


26 


02794 


02852 


09100 




BT 


GETR,GETR-l 


10724 


27 


02872 


02871 


09110 




BT 


INSERT, INSERT-l 


10736 


27 


03414 


03413 


09120 




B 


RAKES 


10748 


49 


10524 


00000 


09130 




DORG 


•-3 


10756 








09140 


TELAST 


SF 


LISTER-2 


10756 


32 


02 762 


00000 


09150 




S 


RACKET, LISTER, » PREPARE THE SIZE OF THE EIGHTS ENTRY 


10768 


22 


02841 


02764 


09160 




CF 


LISTER-2 


10780 


33 


02762 


00000 


09170 




TFM 


C0NST8,200,8 


10792 


16 


02870 


0-200 


09180 




S 


C0NST8, RACKET 


10804 


22 


02870 


02841 


09190 




SF 


C0NST8-2 


10816 


32 


02868 


00000 


09200 




S 


LISTER, C0NST8 


10828 


22 


02 764 


02870 


09210 




TF 


STEAL, LISTER 


10840 


26 


02845 


02764 


09220 




TF 


•♦35,C0NST8 


10852 


26 


10887 


02870 


09230 




CF 


• ♦21 


10864 


33 


10885 


00000 


09240 




TFM 


LISTET, 8000, 8, INSERT THE EIGHTS ENTRY 


10876 


16 


02794 


00000 
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09250 




BT 


REMOVE » REMOVE- 


1 » » 


REMOVE 


THE INDICATOR FROM THE LIST 


10888 


27 


03084 


03083 


09260 




BT 


INSERTt INSERT- 








10900 


27 


03414 


03413 


09270 




AM 


FAKSEV, It 10 








10912 


11 


02852 


000-1 


09280 




TF 


LI STET, FAKSEV 








10924 


26 


02794 


02852 


09290 




BT 


INSERT, INSERT- 


It t 


INSERT 


THE SEVENS MARKER 


10936 


27 


03414 


03413 


09300 




TF 


L I STETt STEAL 






10948 


26 


02794 


02845 


09310 




BT 


INSERT, INSERT- 


1 , , 


REPLACE 


THE REDUCED INDICATOR 


10960 


27 


03414 


03413 


09320 




BT 


GETL tGETL-1 








10972 


27 


02996 


02995 


09330 




TF 


RACKET, LISTET 








10984 


26 


02841 


02794 


09340 




TOM 


RACKET-3,0,11 








10.996 


15 


02838 


0000- 


09350 




B 


NOISY 








11008 


49 


10380 


00000 


09360 




DORG 


• -3 








1 1016 








09370 


• •• 


LINKAGE FOR PLACING 


THIS 


LAST PORTION OF MOVER ON DISK 










09380 


NOMC 


TFM 


I0RT,*+23 








11016 


16 


00565 


J1039 






B 


I0PT,N0MD,7 








1 1028 


49 


00532 


J1064 


09400 




TRA 










11040 


36 


00000 


00500 
















11052 


49 


00000 


00000 


09410 


NOMO 


DSC 


2,22 








11064 




2 




09420 




22 
OS A 


NOME 








11070 




5 


X I 
















11070 




J 107 2 




09430 




DC 
i 


l.« 








11071 




1 




09440 


NOME 


DSC 


1,1 








11072 




1 




09450 




1 

oc 


5,17106 








11077 




5 








J7 106 
















09460 




DC 


3,022 








11080 




3 








-22 


















09470 




DC 


6,09000 • 








11086 




6 








-9000* 
















09480 




TCD 


NOMC 








11016 








09490 




DORG 


5600 








05600 








09500 


DELFL 


TFM 


I0RT,«+23 








05600 


16 


00565 


-5623 


09510 




B 


I0PT,DELl,7 








05612 


49 


00532 


-5648 


09520 




TRA 










05624 


36 


00000 


00500 
















05636 


49 


00000 


00000 


09530 


DELI 


DSC 


2,22 








05648 




2 








22 


















09540 




DSA 


DEL2 








05654 




5 


X 1 
















05654 




-5656 








DSC 


lt« 








05655 




I 




09560 


DEL2 


DSC 


i.l 








05656 




1 




09570 




1 

DC 


5,18247 








05661 




5 








J8247 
















09580 




DC 


3,013 








05664 




3 








-13 


















09590 




DC 


5,05800 








05669 




5 








-5800 
















09600 




DSC 


It 1 








05670 




1 





09610 
09620 
09630 
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DELETE PROGRAM ROUTINE 



09640 




DORG 


5800 


05800 








09650 


DEL E T 


SF 


DELETE 


05800 


32 


13134 


00000 


09660 


• •• 




DETERMINE MAX • NO. OF DIM ENTRIES 










09670 




TFM 


MAXDIM.9999,8 


05812 


16 


03849 


0R999 


09680 




TFM 


NEWDIM,3,8 


05824 


16 


02963 


0-003 


09690 




BT 


DIMMER, DIMMER-l 


05836 


27 


03672 


03671 


09700 




BNR 


•♦20, MAP 


05848 


45 


05868 


19880 


09710 




B 


MONCAL 


05860 


49 


00796 


00000 


09720 




DORG 


• -3 


05868 








09730 




MM 


MAP+8,5,10 


05868 


13 


19888 


000-5 


09740 




SF 


96 


05880 


32 


00096 


00000 


09750 




SM 


99,1,10 


05892 


12 


00099 


000-1 


09760 




TF 


MAXDI M, 99 


05904 


26 


03849 


00099 


09770 




SF 


INPUT+il 


05916 


32 


13624 


00000 


09780 




TF 


PNAME.INPUT+22 


05928 


26 


13229 


13635 


09790 




TD 


DIMNUM, INPUT+30 


05940 


25 


13190 


13643 


09800 




TD 


DIMNUM-l.INPUT+28 


05952 


25 


13189 


13641 


09810 




TD 


DIMNUM-2, INPUT+26 


05964 


25 


13188 


13639 


09820 




TD 


DIMNUM-3, INPUT+24 


05976 


25 


13187 


13637 


09830 




SF 


DIMNUM-3 


05988 


32 


13187 


00000 


09840 




CM 


DIMNUM, 0,8 


06000 


14 


13190 


0-000 


09850 




BE 


0KDEL-24 


06012 


46 


06124 


01200 


09860 


*•• 




IS DIM NO. IN RANGE 










09870 




C 


DIMNUM, MAXDIM 


06024 


24 


13190 


03849 


09880 




BNH 


• ♦32 


06036 


47 


06068 


01100 


09890 




TFM 


DIMERR+22,0076,8 


06048 


16 


02507 


0-076 


09900 




B 


ERRD 


06060 


49 


02524 


00000 


09910 




DORG 


• -3 


06068 








09920 


• •• 




IS DIM NO. IN USE 










09930 




TF 


NEWDIM, DIMNUM 


06068 


26 


02963 


13190 


09940 




BT 


DIMMER, DIMMER-l 


06080 


27 


03672 


03671 


09950 




BNR 


OKDEL, MAP 


06092 


45 


06148 


19880 


09960 




TFM 


DIMERR+22, 7271,8 


06104 


16 


02507 


0P271 


09970 




B 


ERRD 


06116 


49 


02524 


00000 


09980 




DORG 


• -3 


06124 








09990 




C 


PNAME.ZER012 


06124 


24 


13229 


13167 


1 0000 




BE 


ERRD-12 


06136 


46 


02512 


01200 


10010 


OKDEL 


BTM 


EQUIV,»*12 


06148 


17 


08606 


-6160 


10020 




CM 


DIMNUM, 0,8 


06160 


14 


13190 


0-000 


10030 




BNE 


• ♦32 


06172 


47 


06204 


01200 


10040 




TFM 


OIMERR+22,7270,8 


06184 


16 


02507 


0P270 


10050 




B 


ERRD 


06196 


49 


02524 


00000 


10060 




DORG 


• -3 


06204 








10061 




TF 


NEWDIM, DIMNUM 


06204 


26 


02963 


13190 


10062 




BT 


OIMMER, DIMMER-l 


06216 


27 


03672 


03671 


10063 




BNR 


•♦20, MAP 


06228 


45 


06248 


19880 


10064 




B7 


EXIT3 


06240 


49 


06936 




10070 


• 


DELETE ENTRY FROM SP LIST 










10080 




BTM 


SPLDEL,»+12 


06248 


17 


12090 


-626C 


10090 




TF 


NEWDIM, DIMNUM 


06260 


26 


02963 


13190 


10100 




BT 


DIMMER, DIMMER-l 


06272 


27 


03672 


03671 


10110 




TF 


FWRIT^5,MAP^5 


06284 


26 


13272 


19885 


10120 




TD 


FWRIT.MAP 


06296 


25 


13267 


19880 
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10130 




TF 


H0LD3.MAP+8 








06308 


26 


13193 


19888 


10140 




TF 


LOAOSC, MAP+8 








06320 


26 


13180 


19888 


10150 




TF M 


FLAG* lit TRACK2 








06332 


16 


06523 


J7778 


10160 




TF 


L0ADSA,MAP+5 








06344 


26 


13102 


19885 


10170 




TO 


L0ADSA-5.MAP 








06356 


25 


13097 


19880 


10180 




SF 


MAP*4 








06368 


32 


19884 


00000 


10190 




SM 


MAP+5,20,10 








06380 


12 


19885 


OOOKO 


10200 




BH 


• -12 








06392 


46 


06380 


01100 


10210 




BZ 


• +48 








06404 


46 


06452 


01200 


10220 




AM 


MAP+5,20,10 








06416 


11 


19885 


OOOKO 


10230 




MM 


MAP+5, 105,9 








06428 


13 


19885 


00J05 


10240 




A 


FLAG* 11, 99 








06440 


21 


06523 


00099 


10250 




TF 


CLFP+6, FLAG* 1 1 








06452 


26 


06702 


06523 


10260 




TFM 


FWRIT+8,20,9 








06464 


16 


13275 


00-20 


10270 




TFM 


FWRIT+13.TRACK2 








06476 


16 


13280 


J7778 


10280 




TFM 


IORT,*+23 








06488 


16 


00565 


-6511 


10290 




B 


I0GT,FPDDA,7 








06500 


49 


00566 


J3451 


10300 


FLAG 


BNF 


•+20.TRACK2, , • 


SEARCH 


FOR 


FILE PROTECTION 


06512 


44 


06532 


17778 


10310 




B 


CLEAR 








06524 


49 


06624 


00000 


10320 




00 RG 


• -3 








06532 








10330 




SM 


H0LD3.1. 10 








06532 


12 


13193 


000-1 


10340 




BZ 


FPOK 








06544 


46 


06864 


01200 


10350 




AM 


FLAG+U, 105,9 








06556 


11 


06523 


00J05 


10360 




CM 


FLAG*11,TRACK2+2100 








06568 


14 


06523 


J9878 


10370 




8L 


FLAG 








06580 


47 


06512 


01300 


10380 




TFM 


FLAG* 11, TRACK2 








06592 


16 


06523 


J7778 


10390 




AM 


FWRIT+5,20,10 








06604 


11 


13272 


OOOKO 


10400 




B 


FLAG-24 








06616 


49 


06488 


00000 


10410 




DORG 


• -3 








06624 








10420 


CLEAR 


TF 


FWR I T+5 » LOAOSA 








06624 


26 


13272 


13102 


10430 




TO 


FWRIT.L0ADSA-5 








06636 


25 


13267 


13097 


10440 




SF 


BUTTON 








06648 


32 


00455 


00000 


10450 




BTM 


KYMESS,**12 








06660 


17 


11998 


-6672 


10460 




TFM 


I0RT,»*23 








06672 


16 


00565 


-6695 


10470 




B 


I0GT.FPD0A.7 








06684 


49 


00566 


J3451 


10480 


CLFP 


CF 


TRACK2 , , , 


CLEAR 


FILE 


PROTECTION 


06696 


33 


17778 


00000 


10490 




SM 


LOAOSC, 1,10 








06708 


12 


13180 


000-1 


10500 




BZ 


WROK 








06720 


46 


06768 


01200 


10510 




AM 


CLFP*6, 105,9 








06732 


11 


06702 


OOJ05 


10520 




CM 


CLFP*6,TRACK2*2100 








06 744 


14 


06702 


J9878 


10530 




BL 


CLFP 








06756 


47 


06696 


01300 


10540 


WROK 


TFM 


IORT,*+23 








06768 


16 


00565 


-6791 


10550 




B 


I0PT,FPDDA,7 








06780 


49 


00532 


J3451 


10560 




AM 


FWRIT+5,20, 10 








06792 


11 


13272 


OOOKO 


10570 




TFM 


CLFP*6 , TRACK2 








06804 


16 


06702 . 


J7778 


10580 




CM 


LOAOSC, 0,9 








06816 


14 


13180 


00-00 


10590 




BNE 


CLFP-24 








06828 


47 


06672 


01200 


10600 




CF 


BUTTON 








06840 


33 


00455 


00000 


10610 




BTM 


KYMESS,»+12 








06852 


17 


11998 


-6864 


10620 


FPOK 


TF 


NEWDI M, DI MNUM 








06864 


26 


02963 


13190 


10630 




BT 


01MMER, DIMMER-1 








06876 


27 


03672 


03671 


10640 




TOM 


MAP, , , 


REMOVE 


DIM 


ENTRY 


06888 


15 


19880 


00000 


10650 




OSC 










06899 




1 




10660 




TF 


MAP*19,ZER019 








06900 


26 


19899 


13174 


10670 




TFM 


IQRT,»+23 








06912 


16 


00565 


-6935 
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10680 B I0PT,DMDDA,7 

10690 EXIT3 TDM SYSCAL.3 

10700 B MONCAL 

10710 DORG »-3 

10720 TCD OELFL 



10730 **•» 
10740 *#»• 
10750 
10760 

10770 LOAOFL TFM 
L0780 
10790 



•DLOAD 



INDEPENDENT ROUTINES 



DORG 4400 

I0RT,»+23 
B I0PT,L0AD2,7 
TRA 



10800 L0AD1 

10810 

10820 

10830 

10840 

10850 L0AD2 
10860 

10870 



1,1 

5,18369 



DSC 
1 

DC 
J8 369 

DC 3,027 
-2 7 

OC 5,05800 

-5800 

DSC l,« 



DSC 

22 

DSA 



2,22 
LOADl 



10880 
10890 
10900 
10910 
10920 
10930 

10940 
10950 
10960 
10970 
10980 
10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
111 10 



DLOAD 

TD 
SF 
SM 

MXNOSA DC 
L99 



DSC I,' 
* 

DORG 5800 
BTM SCRAD,»+12 

MXN0SA-2.MCS+49 
MXNOSA-2, 399,9 
MXNOSA, 100, 9 
3,399,DL0AD*35 



HOL 02,0,10 
H0L02 , SYSCAL 
S CALL FROM CONTROL CARO 
CM H0LD2,4,10 
SPS 

ATN*11,INPUT*32 
I CONVERT CONTROL CARD TO NUMERIC 



TFM 
TD 



BNE 
TFM 



BTM 


ATNR,**12 


SF 


HOLOCD+IO 


SF 


HOLOCD+17 


SF 


HOLOCO+22 


SF 


HOLDCO+27 


BD 


•♦68, NTEST 


CM 


HOLOCD+26,0,7 


BNE 


•♦24 


TFM 


HOLOCO+26,02402,7 


TF 


MAPMA,H0LDCD+26 


B7 


• ♦44 



06924 


49 


00532 


-2568 


06936 


15 


00475 


00003 


06948 


49 


00796 


00000 


06956 








05600 








04400 








04400 


16 


00565 


-4423 


04412 


49 


00532 


-4463 


04424 


36 


00000 


00500 


04436 


49 


00000 


00000 


04448 




1 




04453 




5 




04456 




3 




04461 




5 




04462 




1 




04463 




2 




04469 




5 


X 1 


04469 




-4448 




04470 








05800 








05800 


17 


09298 


-5812 


05812 


25 


05833 


17827 


05824 


32 


05833 


00L99 


05836 


12 


05835 


OOJOO 


05835 




3 




05848 


16 


13104 


000-0 


05860 


25 


13104 


00475 


05872 


14 


13104 


000-4 


05884 


47 


07484 


01200 


05896 


16 


09053 


J3645 


05908 


17 


08606 


-5920 


05920 


32 


13056 


00000 


05932 


32 


13063 


00000 


05944 


32 


13068 


00000 


05956 


32 


13073 


00000 


05968 


43 


06036 


13132 


05980 


14 


13072 


-0000 


05992 


47 


06016 


01200 


06004 


16 


13072 


-2402 


06016 


26 


13150 


13072 


06028 


49 


06072 
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. J . _ 






uni nrnin n 7 


06036 


14 


13072 


-0000 


1 1 1 Tin 




RMP 




06048 


47 


06016 


01200 


1 1 140 




TP III 


ytpHi. QQQoq. 7 


06060 


16 


13150 


R9999 


111 50 






MAPPA.wni rn~n*-n 


06072 


26 


13155 


13077 








UloMltrnl , t 


IF NOT ON DISK GOTO N0DISK 06084 


43 


06340 


13130 


111 70 




SF 


f MpiiTxaq 
1 rir U 1 ▼ 3 


06096 


32 


13652 


00000 






Q 




06108 


24 


13663 


13167 


ii ion 








06120 


46 


02512 


01200 


i i inn 




TP 

T 


uni nA uni nrn*in 


06132 


26 


13215 


13061 


i 19 in 






uni uni r\r r\±Q 
nUL Uo t nUL Ul» U+ *» 


06144 


22 


13215 


13055 


i i 9?n 




Ml 




06156 


46 


061 86 


01300 


1 1 jin 




TPM 


ntMFQD4?7 7177 A 


06168 


16 


02507 


0P177 








ERR0 


06180 


49 


02524 


00000 


i if An 








06188 














uni nrriia cm i 


06188 


24 


13055 


13203 


i i i7n 




Rl 




06200 


47 


12854 


01 300 


l i jan 




r 


una nr n+m.^f B? 


06212 


24 


13061 


13209 


l l jqn 




RU 




06224 


46 


12854 


01 100 


l l inn 




TP 


LUAUg w , nULULU" 1. v , f 


COMPUTE SECTOR COUNT 06236 


26 


13180 


1306 1 








LUMUoLf nUL L/t LI ™ 7 


06248 


22 


13180 


13055 






AM 


i PAn^r . i . i n 


06260 


11 


13180 


000- 1 


11330 




TF 


^rRirH.nni nrn+Q 


06272 


26 


13186 


13055 


1 1 340 




SF 


i riAncr— 7 

LUMUJb C 


06284 


32 


13 178 


00000 


1 1 350 




SF 


STR ACH-4 


06296 


32 


13182 


00000 






CF 


erg »f u_ « 


06308 


33 


13181 


00000 


11370 




BO 


M0DDK1»RTEST 


06320 


43 


10682 


13131 


11380 




B 


MAINB1 


06332 


49 


06364 


00000 






DORG 


•— 3 


06340 








11400 


D I SKN 


BD 




06340 


43 


10482 


13131 


11410 




BT M 


Nnn i ck . •+ i ? 


06352 


17 


09866 


-6364 




MAI NB 1 




• 432 ? PTEST 


06364 


43 


06396 


13133 


11430 




TOM 


MAPRM , » « 


NO FILE PROTECTION 06376 


15 


13115 


00000 


1 1440 




DSC 
* 


1 » • ,* 


06387 




1 




i 1 450 






* + 20 


06388 


49 


06408 


00000 


11460 




DORG 


• -3 


06396 








1 1470 




TD 


MAPRM tGPMARKt » 


FILE PROTECTION 06396 


25 


13115 


13116 


11 lan 






I NPI IT* a 
1 r>ir u l to 3 


06408 


32 


13676 


00000 








T NPI IT +7 U /PSnt 7 


06420 


24 


13687 


13167 


11 500 




BE 




06432 


46 


1 0886 


01200 


11510 




SF 


MAPRM hi 


IMMOVABLE PROGRAM 06444 


32 


13115 


00000 


1 1520 




tp 


L0ADSA,H0LDCD+21 


06456 


26 


13102 


1 3067 


\ i sin 








06468 


25 


13097 


13062 






TP 




06480 


33 


13098 


00000 


11 KKn 




SF 


i nArv^ A— s 


06492 


32 


13097 


00000 










06504 


24 


13102 


1 3209 


1 1570 








06516 


46 


06588 


01 100 


1 1 580 




yp 


H0LD6 » LOADS A 


06528 


26 


13215 


13102 


11590 




A 


H0LD6 f L0ADSC 


06540 


21 


13215 


13180 


11600 




SM 


H0LD6,1,10 


06552 


12 


13215 


000-1 


11610 




C 


H0LD6 v SCR 1 


06564 


24 


13215 


1320 3 


11620 




BNL 


SCERR 


06576 


46 


12854 


01300 


11630 


SCROK 


SF 


INPUT+11 


06588 


32 


13624 


00000 


11640 




SF 


LOADSA-4 


06600 


32 


13098 


00000 


11650 




CF 


L0ADSA-5 


06612 


33 


13097 


00000 


11660 




TF 


PNAME.INPUT+22 


06624 


26 


13229 


13635 
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11670 




CM 


HOLDCD+3,0,8 




06636 


14 


13049 


0-000 


11680 




BE 


FINDON 




06648 


46 


06740 


01200 


11690 




TF 


NEWDIM,H0LDCD+3 




06660 


26 


0296 3 


13049 


11700 




BT 


DIMMER, DIMMER-1 




06672 


27 


03672 


03671 


11710 




BNR 


•+20, MAP 




06684 


45 


06704 


19880 


11720 




B 


CALLMV 




06696 


49 


07036 


00000 


11730 




DORG 


*-3 




06704 








11740 




RCTY 






06704 


34 


00000 


00102 


11750 




TFM 


DIMERR+22, 7572, 8 




06716 


16 


02507 


0P572 


11760 




WATY 


DIMERR 




06728 


39 


02485 


00100 


11770 


FINDON 


TFM 


NE WD IM, 131,8, 


FIND FIRST UNUSED DIM ENTRY 


06740 


16 


02963 


0-131 


11780 




TF 


H0L06,ZER06 




06752 


26 


13215 


13161 


11790 




TF 


H0LD6 , NEWDI M 




06764 


26 


13215 


02963 


1 1800 




A 


H0LD6 ,H0LD6 




06776 


21 


13215 


13215 


11810 




CF 


H0L06-3 




06788 


33 


13212 


00000 


11820 




AM 


H0LD6-1,4800,8 




06800 


11 


13214 


0M800 


11830 




TF 


D2READ+5,H0LD6-1 




06812 


26 


13504 


13214 


1 1840 




TFM 


I0RT,*+23 




06824 


16 


00565 


-6847 


11850 




B 


I OGT , D1READ, 7 




06836 


49 


00566 


J3491 


1 1860 




TFM 


TREC+11, TRACK 




06848 


16 


06895 


J3776 


11870 




TD 


•+23,H0LD6 




06860 


25 


0688 3 


13215 


11880 




AM 


TREC+10,0,10 




06872 


11 


06894 


000-0 


11890 


TREC 


BNR 


•♦20, TRACK 




06884 


45 


06904 


13776 


11900 




B 


CALLMV 




06896 


49 


07036 


ooooo 


11910 




DORG 


• -3 




06904 








11920 




AM 


NEWDIM,1,10 




06904 


11 


02963 


000-1 


11930 




C 


NEWD IM, MAXDI M 




06916 


2<t 


02963 


03849 


11940 




8H 


EXITFL 




06928 


46 


06984 


01100 


11950 




AM 


TREC+11,20,10 




06940 


11 


06895 


OOOKO 


11960 




CM 


TREC+11, TRACK+2100 




06952 


14 


06895 


J5876 


11970 




BL 


TREC 




06964 


47 


06884 


01300 


11980 




B 


FINDON+12 




06976 


49 


06752 


00000 


11990 




DORG 


• -3 




06984 








12000 


EXITFL 


BNF 


•+32, FORT 




06984 


44 


07016 


13114 


12010 




TFM 


DIMERR+22, 7671, 8 




06996 


16 


02507 


0P671 


12020 




B 


ERR+24 




07008 


49 


05686 


00000 


12030 




DORG 


• -3 




07016 








12040 




TFM 


DIMERR+22, 0079, 8 




07016 


16 


02507 


0-079 


12050 




B 


ERRD 




07028 


49 


02524 


00000 


12060 




DORG 


• -3 




07036 








12070 


CALLMV 


TF 


OIMNUM, NEWDI M 




07036 


26 


13190 


02963 


12080 




TF 


MOVESCLOADSC 




07048 


26 


02865 


13180 


12090 




TF 


MOVES A, LOADS A 




07060 


26 


02862 


13102 


12100 




TD 


MOVES A- 5, LOADS A- 5 




07072 


25 


02857 


13097 


12110 




TFM 


IORT,*+23 




07084 


16 


00565 


-7107 


12120 




B 


I0GT,M0VDDA,7 




07096 


49 


00566 


J3244 


12130 




TFM 


EXITMR+6,»+20 




07108 


16 


08630 


-7128 


12140 




B 


MOVER 




07120 


49 


08824 


00000 


12150 




DORG 


•-3 




07128 








12160 




BNF 


ERR.SUCESS 




07128 


44 


05662 


13118 


12170 




TFM 


I0RT,*+23 




07140 


16 


00565 


-7163 


12180 




B 


!OGT,EQUDDA,7 




07152 


49 


00566 


J3312 


12190 




TFM 


I0RT,«+23 




07164 


16 


00565 


-7187 


12200 




B 


I OGT, COM2, 7 




07176 


49 


00566 


J3335 


12210 




TF 


NEWDIM, DIMNUM 




07188 


26 


02963 


13190 


12220 




BT 


DIMMER, DIMMER- I 




07200 


27 


03672 


03671 
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12230 




BTM 


SETMAP,*+12 




07212 


17 


10738 


-7224 


12240 




BTN 


WRLAST,»*12 




07224 


17 


11842 


-7236 


12250 




BNF 


MONCALt DUMP 




07236 


44 


00796 


13426 


12260 




TD 


NCS*23,DUMP 




07248 


25 


17801 


13426 


12270 




TFM 


I0RT,»*23 




07260 


16 


00565 


-7283 


12280 




B 


I0GT.DMPDIM.7 




07272 


49 


00566 


J 340 3 


12290 


WR2 


DS 


• 2257 




02257 




0 




12300 


LOADRE 


TFM 


ATN-flifINPUT + 32 




07284 


16 


09053 


J3645 


12310 




SF 


LOADRE 




07296 


32 


07284 


00000 


12320 




BTM 


ATNR,»+12 




07308 


17 


08606 


-7320 


12330 




TFM 


INPUT+49,7070,8 




07320 


16 


13662 


OP070 


12340 




A 


WR2+3.425 




07332 


21 


02260 


00425 


12350 




TD 


WR2,422 




07344 


25 


02257 


00422 


12360 




SF 


WR2 




07356 


32 


02257 
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12370 




CF 


WR2 + 1 




07368 


33 


02258 
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12380 




TF 


H0LDCD+9.WR2+5 
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26 


13055 


02262 


12390 




TF 


H0L0CD*l5,WR2+5 




07392 


26 


13061 


02262 


12400 




A 


H0LDCD+15,WR2>8 




07404 


21 


13061 


02265 


12410 




SM 


HOLDCD+15, I, 10 




07416 
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13061 
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12420 
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H0L0CD*26,WR2*13 
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13072 


02270 


12430 




TF 


MAPMA.WR2+13 
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13150 


02270 


12440 
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44 
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07508 


47 


07284 


01200 


12510 




TOM 


FREDDA.O 
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13086 


13161 


12650 
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RELD 
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TF 


MAPEA t HOLDCD+35 
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26 
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BO 
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06104 


43 


11634 
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B7 


PATCH2 
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49 
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PAT2 
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NDISK.PHI 
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43 
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0-000 


13520 
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24 
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13560 
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46 
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C 
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24 
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13209 


13580 




BH 


SCERR 
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46 


12854 


01100 
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C 


HOLDCD+ 13, SCR1 
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24 


13059 
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BL 
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47 
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13620 
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S 
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22 
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11 
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13690 
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TF 
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26 
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44 
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FREAD+l 3 , TRACK 
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14000 
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19888 


19888 
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06712 


49 


00532 


J 3459 


14060 




CM 


MAP+8, 0,9 
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BE 
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13190 


0710L 


1.4540 




TFM 


f no T »a 7 1 




0 7 184 


1 6 


00565 


-7207 


14550 




B 


f nf* t muo 7 










J 3 3 3 5 


1 lei! 










07208 


\ 7 


10606 


-7220 


14570 




CM 
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Nu5>KAC+ll» rtULUCU* J 




0 7220 


14 


07103 


J3049 


14580 




BE 






07232 


46 


05662 


01200 


14590 




CM 


HUL UL L)+ J|U|H 








13049 


0—000 


1 4600 




BE 


ERR 




07256 


46 






i iiin 










0 7268 


16 


07103 


J3049 






TCM 






07280 


16 


00565 


-7303 






a 


infT nnunriA.7 




07292 


49 


00566 


J3244 


i 2a1h 

i 2ttn 






NOSPAC 




07 304 


49 


07092 


00000 


14650 




DORG 






07312 










UPDl M 


TFM 


I nD T m^Ol 

t UK I , •+ C J 




07312 


16 


00565 


-7 335 


146 70 




B 


I U(j I t twUUUAt 1 




07 324 


49 


00566 


J3312 


}2aqa 




TFM 


1 UK 1 t •*<£ 3 




0 7336 


16 


00565 


-7359 


14690 




B 


inrr f~nu^ "7 




07348 


49 


00566 
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1 4700 
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14710 


SEARFP 


TF 


NEW0I M f H0LDCD+7, 7 




07360 


26 


02963 


J3053 


14720 




BT 


niuyrn nTUUCD.I 

D I MMlrK » UIMMfcR— 1 




07372 


27 


03672 


03671 


14730 




TF 


FWRIT+5»MAP*5 








132 72 




1 4 740 




TD 


C Li D IT U A D 

r WK 1 T f M Ar 




07396 


25 


13267 


1 9880 


14750 




TF 


H0LD3 t M AP + 8 












14760 




TF M 


rfc5»irP + ll»IK ACK 




0 7420 


16 


07587 


J3776 


14770 




TF 


H0LD5 f M AP+5 












1 4780 




SF 


H0LD5-1 






32 


13138 


uuuuu 


14790 




SM 


HOL D5 » <i U » 10 






12 


13139 


0OOK0 


14800 




BH 


•—12 




0 7468 




07456 


0 1 100 


148 10 




BZ 






0 7480 


46 


0752 8 


0 1200 


14820 




AM 


H0LD5 t 20 f 10 




07492 


11 


13139 


000K0 


14830 




MM 


HOL05, 105,9 




07504 


13 


13139 


OOJ05 


14840 




A 


TESTFP+1 1,99 




07516 


21 


07587 


00099 


14850 




TFM 


FWRIT+8, 020,9 




07528 


16 


13275 


00-20 


14860 




TFM 


FWRIT+13, TRACK 




07540 


16 


13280 


J3776 


14870 




TFM 


I0RT,*+23 




07552 


16 


00565 


-7575 


14880 




B 


I 0GT , FP0DA , 7 




07564 


49 


00566 


J3451 


14890 


TESTFP 


BNF 


•+20, TRACK 




07576 


44 


07596 


13776 


14900 




B 


CI.RFP 




07588 


49 


07688 


00000 
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14910 




DORG 


*-3 


07596 








14920 




SM 


H0L03,1,10 


07596 


12 


13193 


OOC-l 


14930 




BZ 


NOFLGS 


07608 


46 


07748 


01200 


L 4940 




AM 


TESTFP+ll, 105,9 


07620 


11 


07587 


00J05 


14950 




CM 


TESTFP+ll, TRACK+2100 


07632 


14 


07587 


J5876 


14960 




BL 


TESTFP 


07644 


47 


07576 


01300 


14970 




AM 


FWRIT+5,20, 10 


07656 


11 


13272 


000K0 


14980 




TFM 


TESTFP+ll, TRACK 


07668 


16 


07587 


J37 76 


14990 




B 


TESTFP-24 


07680 


49 


07552 


00000 


15000 




DORG 


• -3 


07688 








15010 


CLRFP 


TF 


H0LD3,MAP+8 


07688 


26 


13193 


19888 


15020 




TF 


F WR I T +5 , MAP + 5 


07 700 


26 


13272 


19885 


15030 




TD 


FWR I T , MAP 


07712 


25 


13267 


19880 


15040 




TFM 


FPSF+1, 33,10 


07724 


16 


11643 


000L3 


15050 




BT M 


FP,»+12 


07736 


11 


11462 


-7748 


15060 


N0FLGS 


CM 


SEARFP+U,H0LDCD+3 


07748 


14 


07371 


J3049 


15070 




BE 


ALLCLR 


07760 


46 


07816 


01200 


15080 




CM 


HOLDCD+3,0,8 


07772 


14 


13049 


0-000 


15090 




BE 


ALLCLR 


07784 


46 


07816 


01200 


15100 




TFM 


SEARFP+li,H0LDCD+3 


07796 


16 


07371 


J 3 049 


15110 




B 


SEARFP 


07808 


49 


07360 


00000 


15120 




00 RG 


• -3 


07816 








15130 






REMOVE NAMES 










15140 


ALLCLR 


C 


H0LDCD+3,H0LDCD+7 


07816 


24 


13049 


13053 


15150 




BE 


• + 108 


07828 


46 


07936 


01200 


15160 




CM 


HOL DC 0+3, 0,8 


07840 


14 


13049 


0-000 


15170 




BE 


•+48 


07852 


46 


07900 


01200 


15180 




SF 


DELETE 


07864 


32 


13134 


00000 


15190 




TF 


0IMNUM,H0LDCD+3 


07876 


26 


13190 


13049 


15200 




BTM 


EQUIV,»+12 


07888 


17 


08606 


-7900 


15210 




SF 


OELETE 


07900 


32 


13134 


00000 


15220 




TF 


01MNUM.H0LDCD+7 


07912 


26 


13190 


13053 


15230 




BTM 


E0UIV,»+12 


07924 


17 


08606 


-7936 


15240 




TF 


NEWD I M, HQLDCD+ 7 


07936 


26 


02963 


13053 


15250 




BT 


DIMMER, 0IMMER-1 


07948 


2 7 


03672 


03671 


15260 




BTM 


SETMAP,*+12 


07960 


17 


10738 


-7972 


15270 




C 


H0LDCD+3,H0LDCD+7 


07972 


24 


13049 


13053 


15280 




BE 


VOILA 


07984 


46 


08112 


01200 


15290 




CM 


HOLDCD+3,0,8 


07996 


14 


13049 


0-000 


15300 




BE 


VOILA 


08008 


46 


08112 


01200 


15310 


• 


DELETE FROM DIM REFERENCES 










15320 




TF 


NEW0IM.H0LDCD+3 


08020 


26 


02963 


13049 


15330 




BT 


DIMMER, DIMMER-1 


08032 


27 


03672 


03671 


15340 




BNR 


•+20, MAP 


08044 


45 


08064 


19880 


15350 




B 


MONCAL 


08056 


49 


00796 


00000 


15360 




DORG 


•-3 


08064 








L5370 




TDM 


MAP,,, 


08064 


15 


19880 


00000 


15380 




DSC 
• 


l.V 


08075 




I 




15390 




TF 


MAP+19,2ER019 


08076 


26 


19899 


13174 


15400 




TFM 


I0RT,«*23 


08088 


16 


00565 


-8111 


15410 




B 


I0PT,DM0DA,7 


08100 


49 


00532 


-2568 


15420 


VOILA 


BTM 


WRLAST, »+12 


08112 


17 


11842 


-8124 


1 5430 




BNF 


MONCAL, DUMP 


08124 


44 


00796 


13426 


15440 




TD 


MCS+23,DUMP 


08136 


25 


17801 


13426 


15450 




TFM 


I0RT,«+23 


08148 


16 


00565 


-8171 
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15460 




B 


I OCT f OMPDIMt 7 


08 160 


49 


00566 


J3403 


15470 


RELO 


TFM 


PHI, 0,10 


08172 


16 


13130 


000-0 


15480 




CM 


H0LD2,6, 10 


08184 


14 


13104 


000-6 


15490 




BNE 


LOADER 


08196 


47 


11310 


01200 


15500 




SF 


FORT 


08208 


32 


13114 


00000 


15510 




TO 


DUMP, MCS+23 


08220 


25 


1 3426 


17801 


15520 




TF 


PNAME,MCS*35 


08232 


26 


13229 


1 78 1 3 


15530 




TF 


H0LDCD+7,MCS*39 


08244 


26 


13053 


17817 


15540 




TFM 


SCRACH,0,7 


08256 


16 


13186 


-0000 


15550 




TDM 


FREDDA, 0 


08268 


15 


13467 


00000 


15560 




BO 


•♦20,MCS+22 


08280 


43 


08300 


17800 


15570 




B 


M0DDK1 


08292 


49 


10682 


00000 


15580 




00 RG 


»-3 


08300 








15590 


N0RE2 


TF 


M0LDCD+30,MCS*12 


08300 


26 


13076 


17790 


15600 




TF 


H0LDCD*35,MCS*17 


08312 


26 


13081 


17795 


15610 




TFM 


LOAOSC.0,9 


08 324 


16 


13180 


00-00 


15620 




TFM 


DCFSCR+8,3,9 


08336 


16 


13381 


00-03 


15630 




TFM 


DCFSCR+5,0,7 


08348 


16 


13378 


-0000 


15640 


INIT2 


TFM 


LOOP, 4, 10 


08360 


16 


13120 


000-4 


15650 




TFM 


SCAN2+6,READIN 


08372 


16 


08414 


J7778 


15660 




TFM 


IORT, »+23 


08384 


16 


00565 


-8407 


15670 




B 


I0GT,DDASCR,7 


08396 


49 


00566 


J3483 


15680 


SCAN2 


NOP 


READIN,0 


08408 


41 


I 7778 


00000 


15690 




TF 


BNR*ll»SCAN2+6 


08420 


26 


09661 


08414 


15700 




TFM 


N00ISK-l,RELD2 


08432 


16 


09865 


-8532 


15710 




BTM 


LCTEST, *4-l2 


08444 


17 


09614 


-8456 


15720 




SM 


LOOP, 1,10 


08456 


12 


13120 


000- 1 


15730 




BO 


UPSCAN, LOOP 


08468 


43 


08512 


13120 


15740 




AM 


L0ADSC3, 10 


08480 
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13180 


000-3 


15750 




AM 


DCFSCR+5,3, 10 


08492 


11 


13378 


000-3 


15760 




B 
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08504 


49 
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00000 


15770 




DORG 
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08512 








15780 


UPSCAN 


AM 
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08414 
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15790 
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SCAN2 


08524 


49 
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00000 
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08532 
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REL02 


TF 


H0LDCD+13,TH0U 


08532 


26 


13059 


13096 


15820 




TF 


H0L0CD+19,TH0U 


08 544 


26 
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13096 


15830 
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00532 
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15950 
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1,1 
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DSC 
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22 




16020 




OS A 


COMMl 


16030 




DSC 
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16040 




DORG 


8100 


16050 


EQUFL 


TFM 


I0RT,**23 


16060 
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I0PT.E0U1.7 


16070 
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EQU1 


DSC 


2,22 
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16090 
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E0U2 


16100 




OSC 


1.' 
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E0U2 


OSC 


1,1 


16120 
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OC 


5,18278 






J8278 


16130 




DC 


3,020 






-20 




16140 




DC 


5,08600 
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16150 




OSC 


ltV 


16160 




DORG 


8600 


16170 
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EQUIVALENCE TABLE SI 


16190 
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5,0 






-0000 


16200 


EQUIV 


TFM 


NEWDIM,0002,8 


16210 




BT 


DIMMER, DIMMER- I 


16220 




BNF 


SKNAME, DELETE 


16230 




CM 


DIMNUM, 0,8, 


16240 




BE 


ANAME 


16250 


LIMITS 


CM 


DIMNUM, SUBLO, 8 


16260 




BL 


B2READ 


16270 




CM 


0IMNUM,SUBHI,8 


162 80 




BH 


B2READ 


16290 




TFM 


CNINE+6, DIMNUM 


16300 




TFM 


CNINE+ll,TRACK*l5 


16310 


W I TH I N 


TFM 


HOL 04,0,10 


16320 




TF 


01SKF+5.EQUDIM+5,, 


16330 




TO 


DISKF,EOUDIM 


16340 




TFM 


I0RT,*+23 


16350 




B 


I0GT,DDAKF,7 



START DELETE OPERATION 



WITHIN SUBROUTINE DIM LIMITS 
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1 




07263 




2 




07269 
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07269 




-7248 




07270 




1 




08100 








08100 


16 
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-8123 


08112 


49 


00532 


-8148 


08124 
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00000 


00500 


08136 
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00000 


00000 


08148 




2 
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X 1 
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08618 
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03671 


08630 


44 


09690 


13134 


08642 
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13190 


0-000 
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46 


10466 


01200 
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14 


13190 


0-010 
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47 


09054 


01300 


08690 


14 


13190 


0-039 


08702 


46 


09054 


01100 


08714 


16 


08816 


J3190 


08726 


16 
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J3791 
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16 
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000-0 


08750 


26 
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25 
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08810 


24 
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BE 


TFLG 




08822 


46 


08878 


01200 


16390 




CM 
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08834 


14 


13197 


OOONO 


16400 




BM 


WRT2 




08846 


46 


08946 


01100 


16410 




AM 
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08858 


11 


08821 


000 J 6 


16420 




B 


CNINE-12 




08870 


49 


08798 


00000 


16430 




DORG 


•-3 




08878 








16440 


TFLG 


BNF 


NOF, DELETE 




08878 


44 


08986 


13134 


16450 




TFM 


CNINE+11,9999,6 




08890 


16 


0882J 


09999 


16460 




SM 


CNINE + U ,4, 10 




08902 


12 


08821 


000-4 


16470 




TF 


CNINE+lltNINEl2»6 




08914 


26 


0882J 


13243 


16480 




AM 


CNlNE+11,20, 10 




08926 


11 


08821 


OOOKO 


16490 




B 


CNINE-12 




08938 


49 


08798 


00000 


16500 




00 RG 


• -3 




08946 








16510 


WRT2 


BNF 


•♦20, DELETE 




08946 


44 


08966 


13134 


16520 




B 


WRT 




08958 


49 


09022 


00000 


16530 




00 RG 


»-3 




08966 








16540 




TFM 


DIMERR+22,7574, 8 




08966 


16 


02507 


0P574 


16550 




B 


MULT2 




08978 


49 


09974 


00000 


16560 




DORG 


•-3 




08986 








16570 


NOF 


TF 


CNINE+ll, PNAME * 6 




08986 


26 


0882J 


13229 


16580 




AM 


CNINE+11,4, 10 




08998 


11 


08821 


000-4 


16590 




TF 


CNINE*ll*DIMNUM t 6 




09010 


26 


0882J 


13190 


16600 


WRT 


TFM 


IORT, **23 




09022 


16 


00565 


-9045 


16610 




B 


I0PT,DDAKF,7 




09034 


49 


00532 


J3443 


16620 




B 


EXIT 




09046 


49 


10530 


00000 


16630 




00 RG 


• -3 




09054 








16640 


B2REA0 


TF 


DISKF+5,EQUDIM*5, , 


NOT WITHIN LIMITS 


09054 


26 


13393 


19885 


16650 




AM 


OISKF+5,8,10 




09066 


11 


13393 


000-8 


16660 




TO 


0 1 SKF T EQUDI M 




09078 


25 


13388 


19880 


16670 


INITSC 


TFM 


RECD+il i TRACK 




09090 


16 


09185 


J3 7 76 


16680 




TFM 


CMPAR+1 1 , TRACK* 15 




09102 


16 


09205 


J3791 


16690 




TFM 


CLOSR+8,20,9 




09114 


16 


13366 


00-20 


16700 




TFM 


CLOSW+8 , 20,9 




09126 


16 


13305 


00-20 


16710 




TFM 


IORT, *+23 




09138 


16 


00 565 


-9161 


16720 




B 


IOGT, DDAKF, 7 




09150 


49 


00566 


J 344 3 


16730 




AM 


•♦23,11, 10 




09162 


11 


09185 


OOOJl 


16740 


RECD 


BNR 


•♦20, , , 


TEST FOR LAST ENTRY 


09174 


45 


09194 


00000 


16750 




B 


EXIT 




09186 


49 


10530 


00000 


16760 




00 RG 


• -3 




09194 








16770 


CMP AR 


C 


DIMNUM, , , 


LOOK FOR DIM NUMBER 


09194 


24 


13190 


00000 


16780 




BE 


CLOSE 




09206 


46 


09294 


01200 


16790 




CM 


CMPAR*1 I , TRACK+1999, , 


TEST FOR END OF 20 SECTORS 


09218 


14 


09205 


J5775 


16800 




BE 


INCRD 




09230 


46 


09274 


01200 


16810 




AM 


RECD+ll , 16, 10 




09242 


11 


09185 


000J6 


16820 




AM 


CMPAR+11,16,10 




09254 


11 


09205 


000J6 


16830 




B 


RECD 




09266 


49 


09174 


00000 






DORG 


• -3 












16850 


INCRD 


AM 


DISKF+5,20,9 




09274 


11 


13393 


00-20 


16860 




B 


INITSC 




09286 


49 


09090 


00000 


16870 




DORG 


»-3 




09294 








16880 


CLOSE 


TDM 


CLOSUP+2000, ,, 


ROUTINE TO CLOSE IN LIST 


09294 


15 


15776 


00000 


16890 




DSC 






09305 




1 
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TF 


TRREC+6,CMPAR+ll 




09306 


26 


09420 


09205 
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16910 




SM 


TRREC+6,15,10 




09318 


12 


09420 


O00J5 


16920 




TF 


TRREC+ll.CMPAR+ll 




09330 


26 


09425 


09205 


16930 




AM 


TRREC+11,1, 10 




09342 


IL 


09425 


000-1 


16940 




TFM 


CL0SW+13,CL0SUP 




09 354 


16 


13310 


J3776 


16950 




TFM 


CL0SR+13,C10SUP+1984 




09366 


16 


13371 


J 5 760 


16960 




TF 


CL0SW^5,DISKF+5 




09378 


26 


13302 


13393 


16970 




TF 


CL0SR+5,DISKF+5 




09 390 


26 


13363 


13393 


16980 




AM 


CLOSR+5,20,10 




09402 


IL 


13363 


OOOKO 


16990 


TRREC 


TR 


0,0,, 


DELETE ENTRY 


09414 


31 


00000 


00000 


17000 




BNR 


D0NE,CL0SUP+1984, , 


TEST FOR END OF TABLE 


09426 


45 


09542 


15760 


17010 




TFM 


I0RT,*+23 






16 






17020 




B 


I0GT,CL0DDA,7 




09450 


49 


00566 


J3427 


17030 




TFM 


IORT, *+23 




09462 


16 


00565 


-9485 


17040 




B 


I OPT , CLWDDA, 7 




09474 


49 


00532 


J3435 


17050 




TDM 


CLOSUP+3984,,, 




09486 


15 


17760 


00000 


17060 




OSC 


1,«.» 




09497 




1 




17070 




TR 


CL0SUP,CLOSUP^200O 




09498 


31 


13776 


15776 


17080 




AM 


CLOSR+5,20,10 




09510 


11 


13363 


OOOKO 


17090 




AM 


CL0SW^5,20,10 




09522 


11 


13302 


OOOKO 


17100 




B 


TRREC+12 




09534 


49 


09426 


00000 


17110 




DORG 


• -3 




09542 








17120 


DONE 


TF 


H0L05,CL0SW*5,, 


RECORD MARK IS IN LAST TRACK 


09542 


26 


13139 


13302 


17130 




S 


HOL 05 , EQUD IM+5 




09554 


22 


13139 


19885 


17140 




SF 


H0L05-2 




09566 


32 


13137 


00000 


17150 




C 


H0L05,EQUDIM+8 




09578 


24 


13139 


19888 


17160 




BH 


NOTOK 




09590 


46 


09634 


01100 


17170 




TFM 


I0RT,»+23 




09602 


16 


00565 


-9625 


17180 




B 


I0PT,CLW0DA,7 




09614 


49 


00532 


J3435 


17190 




B 


INITSC 




09626 


49 


09090 


00000 


17200 




DORG 


• -3 




09634 








17210 


NOTOK 


SM 


H0LD5,20,10, 


DO NOT WRITE A FULL TRACK 


09634 


12 


13139 


OOOKO 


17220 




TF 


HOL03.EQUDIM+8 




09646 


26 


13193 


19888 


17230 




S 


H0L03,H0L05 




09658 


22 


13193 


13139 


17240 




TF 


CL0SW^8,H0LD3 




09670 


26 


13305 


13193 


172 50 




8 


NOTOK-32 




09682 


49 


09602 


00000 


17260 




DORG 


• -3 




09690 








17270 


SKNAME 


CM 


DIMNUM, 0,8, 


NOT A DELETE OPERATION 


09690 


14 


13190 


0-000 


17280 




BE 


EXIT 




09702 


46 


10530 


01200 


17290 




TF 


0ISKF^5,E0UDIM+5 




09714 


26 


13393 


19885 


17300 




TO 


D I SKF , EQUDI M 




09726 


25 


13388 


19880 


17310 




TFM 


DISKF+8,20,9 




09738 


16 


13396 


00-20 


17320 




TFM 


DISKF+13, TRACK 




09750 


16 


13401 


J3776 


17330 


SCANN 


TFM 


CNAMES^ll,TRACK+ll 




09762 


16 


09829 


J3787 


17340 




TFM 


I0RT,»+23 




09774 


16 


00565 


-9797 


17350 




B 


IOGT, DDAKF, 7 




09786 


49 


00566 


J3443 


17360 




BNR 


•♦20,CNAMES+ll,ll, 


TEST FOR END OF TABLE 


09798 


45 


09818 


0982R 


17370 




B 


NOMULT 




09810 


49 


10030 


00000 


17380 




DORG 


• -3 




09818 








17390 


CNAMES 


C 


PNAME, ,7, 


LOOK FOR MULTIPLE NAME 


09818 


24 


13229 


-0000 


1 7400 




BE 


MULT 




09830 


46 


09906 


01200 


17410 




CM 


CNAMES+ll,TRACK+l995,7 




09842 


14 


09829 


J5771 


17420 




BE 


•♦32 




09854 


46 


09886 


01200 


17430 




AM 


CNAMESUi, 16,10 




09866 


11 


09829 


000J6 


17440 




B 


CNAMES-20 




09878 


49 


09798 


00000 


17450 




DORG 


•-3 




09886 
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17460 




AM 






09886 


11 


13393 


OOOKO 


17470 




B 


SCANN 




09898 


49 


09762 


00000 


17480 




□ORG 


•-3 




09906 








17490 


MULT 


BNF 


•♦20»DELETEt ? 


IF MULTIPLE NAME 


09906 


44 


09926 


13134 


17500 




B 


HOLDIM 




09918 


49 


10498 


00000 


17510 




00 RG 


•-3 




09926 








17520 




AM 


CNAMES+11,4, 10 




09926 


11 


09829 


000-4 


17530 




c 


OIMNUM»CNAMES+li» li 




09938 


24 


13190 


098 2 R 


1 7540 




BE 


EXIT 




09950 


46 


10530 


01200 


17550 




TFM 


DIMERR+ 22,7571, 8 




09962 


16 


02507 


OP 57 1 


17560 


MULT2 


RCTY 






09974 


34 


00000 


00102 


17570 




WATY 


DI MERR 




09986 


39 


02485 


00100 


17580 




WATY 


PNAME-10 




09998 


39 


13219 


00100 


17590 




TF 


PNAMEf ZER012 




10010 


26 


13229 


13167 


17600 




B 


EXIT 




10022 


49 


10530 


00000 


17610 




DORG 


•-3 




10030 








17620 


NOMULT 


BNF 


•+20, DELETE 




10030 


44 


10050 


13134 


17630 




B 


EXIT 




10042 


49 


10530 


00000 


17640 




00 RG 


• -3 




10050 








17650 




CM 


0 1 MNUM, SUBLO » 8, 


TEST DIM NUMBER LIMITS 


10050 


14 


13190 


0-010 


17660 




BL 


OLIMIT 




10062 


47 


10130 


01300 


17670 




CM 


DIMNUMt SUBHI » 8 




10074 


14 


13190 


0-039 


17680 




BH 


OLIMIT 




10086 


46 


10130 


01100 


17690 




TFM 


CNINE+6.NINE12 




10098 


16 


08816 


J3243 


17700 




TFM 


CNINE+llt TRACK* 1 1 




10110 


16 


08821 


J3787 


17710 




B 


WITHIN 




10122 


49 


08738 


00000 


17720 




DORG 


• -3 




10130 








17730 


OLI MI T 


TFM 


CNT.0,10, WILL ENTRY EXCEED MAX SC 


10130 


16 


13142 


000-0 


17740 




TFM 


•+23,TRACK+95 




10142 


16 


10165 


J3871 


17750 




CM 


CNAMES+ll,TRACK+95 




10154 


14 


09829 


J3871 


17760 




BE 


SECT 




10166 


46 


10234 


01200 


L7770 




AM 


•-13, 100,9 




10178 


11 


10165 


OOJOO 


17780 




AM 


CNT,1,10 




10190 


11 


13142 


000-1 


17790 




CM 


CNT,20,10 




10202 


14 


13142 


OOOKO 


17800 




BNE 


•-60 




10214 


47 


10154 


01200 


17810 




B 


ENTOK 




10226 


49 


10362 


• 00000 


17820 




DORG 


• -3 




10234 








17830 


SECT 


TF 


H0LD5 , DI SKF+5 




10234 


26 


13 139 


1 3393 


17840 




A 


H0L05 ,CNF 




10246 


21 


13139 


13142 


1 7850 




s 


HOL05.EOUDIM+5 




10258 


22 


13139 


19885 


1 7860 




SF 


H0L05-2 




10270 


32 


13137 


00000 


1 7870 




c 


H0LD5,EQUDIM+B 




10282 


24 


131 39 


19888 


17880 




BL 


• ♦32 




10294 


47 


10326 


01300 


17890 




TFM 


DIMERR+22, 7573.8 




10306 


16 


02507 


0P573 


17900 




B 


MULT2 




10318 


49 


09974 


00000 


17910 




DORG 


• -3 




10326 








17920 




CM 


CNAMES+ll.TRACK+1995 




10326 


14 


09829 


J577 1 


17930 




BNE 


ENTOK 




10338 


47 


10362 


01200 


17940 




AM 


DISKF+8,1,10 




10350 


11 


13396 


000-1 


17950 


ENTOK 


TF 


CNAMES+ll.PNAME, 6, 


AOD A NEW ENTRY 


10362 


26 


0982R 


13229 


17960 




AM 


CNAMES+11,4, 10 




10374 


11 


09829 


000-4 


I 7970 




TF 


CNAMES+ll.DIMNUM, 6 




10386 


26 


0982R 


I 3190 


17980 




AM 


CNAMES+11,12,10 




10398 


11 


09829 


O00J2 


17990 




TF 


CNAMES+ll,ZER0l2,6 




10410 


26 


0982R 


13167 


18000 




TDM 


CNAMES+11,,6 




10422 


15 


0982R 


00000 


18010 




OSC 
• 


lt»t» 




10433 




1 
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PAGE 


18020 




TFM 


I0RT,»+23 




10434 


16 


00565 


J0457 


18030 




B 


I0PT,DDAKF,7 




10446 


49 


00532 


J3443 


18040 




B 


EXIT 




10458 


49 


10530 


00000 


18050 




DORG 


• -3 




10466 








18060 


ANAME 


C 


PNAME,ZER012,, 


FINO DIM NUMBER TO BE DELETED 


10466 


24 


1322 9 


1316 7 


18070 




BE 


EXIT 




10478 


46 


10530 


01200 


18080 




B 


SKNAME+24 




10490 


49 


09714 


00000 


18090 




DORG 


• -3 












18100 


HOLDIM 


AM 


CNAMES+11,4, 10 




10498 


11 


09829 


000-4 


18110 




TF 


DIMNUM,CNAMES+ll,il 




10510 


26 


13190 


0982R 


18120 




B 


LIMITS 






49 


08666 




18130 




DORG 


• -3 




10530 








18140 


EXIT 


CF 


DELETE 




105 30 


33 


13134 


OflflflO 
uuuuu 


18150 




B 


EQUIV-1,,6 




10542 


49 


0860N 


UuUUU 


18160 




DORG 


• -3 




10550 








18170 




TCD 


EQUFL 




08 100 








18180 


*•** 




COMMONl 












18190 




DORG 


8600 




08600 








18200 




DC 


5,0 




08604 




5 








-0000 












18210 


ATNR 


CF 


FORT 




08606 


33 


13 1 14 


00000 


18220 




SF 


INPUT+95 




08618 


32 


13708 


00000 


18230 




CM 


lNPUT+96,43, 10, 


DETERMINE INPUT DEVICE 


08630 


14 


13 709 


OOOM 3 


18240 




BNE 


• ♦32 




08642 


47 


08674 


01200 


18250 




TFM 


PHI ,05,10 




08654 


16 


13130 


000-5 


18260 




B 


R 




08666 


49 


08754 


00000 


18270 




DORG 


• -3 




08674 








18280 




CM 


INPUT+96,57,10 




08674 


14 


13709 


000N7 


18290 




BNE 


• ♦32 




08686 


47 


08718 


01200 


18300 




TFM 


PHI, 03, 10 




08698 


16 


13130 


000- 3 


18310 




B 


R 




087 10 


49 


08 754 


00000 


18320 




DORG 


• -3 




08718 








18330 




CM 


INPUT+96,44,10 




08718 


14 


13709 


000M4 


18340 




BNE 


ERRD-12 




08730 


47 


02 512 


01200 


18350 




TFM 


PHI, 0,10 




08742 


16 


13130 


000-0 


18360 


R 


SF 


INPUT+97 




08754 


32 


13710 


00000 


18370 




SF 


INPUT+117,,, TEST FOR 


SUBROUTINES 


08766 


32 


13730 


00000 


18380 




CM 


lNPUT+118,00,10 




08778 


14 


1373 1 




18390 




BE 


• ♦24 




08790 


46 


08814 


01200 


18400 




SF 


STFLAG 




08802 


32 


13537 


00000 


18410 




CM 


INPUT+98,54,10, 


TEST FOR RELOCATION 


08814 


14 


13711 


00ON4 


18420 




BNE 


• ♦32 




08826 


47 


08858 


01200 


18430 




TDM 


RTEST , I , , 


BRANCH ON DIGIT TO RELOCATE 


08838 


15 


13131 




18440 




B 


R2 




08850 


49 


08950 


00000 


18450 




DORG 


•-3 




08858 








18460 




TDM 


RTEST, 0 




08858 


15 


13131 


00000 


18470 




CM 


INPUT+98, 62,10 




08870 


14 


13711 


00002 


18480 




BNE 


• ♦32 




08882 


47 


08914 


01200 


18490 




TDM 


NTEST , 1 




08894 


15 


13132 


00001 


18500 




B 


R2 




08906 


49 


08950 


00000 


18510 




DORG 


•-3 




08914 








18520 




TOM 


NTEST, 0 




08914 


15 


13132 


00000 


18530 




CM 


INPUT+98, 49, 10 




08926 


14 


13711 


00OM9 


18540 




BNE 


ERRD-12 




08938 


47 


02512 


01200 


18550 


R2 


SF 


INPUT+99 




08950 


32 


13712 


00000 
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PAGE 



18560 




CM 


INPUT+IOO, 57,10, 


TEST FOR FILE PROTECTION 


08962 


14 


13713 


000N7 


18570 




BNE 


•+32 




08974 


47 


09006 


01200 


18580 




TDM 


PTEST,!,, 


BRANCH ON DIGIT TO PROTECT 


08986 


15 


13133 


00001 


18590 




B 


• ♦20 




08998 


49 


09018 


00000 


18600 




DORG 


•-3 




09006 








18610 




TDM 


PTEST, 0 




09006 


15 


13133 


00000 


18620 




TFM 


• ♦47, INPUT+U2,, 


CARO FROM 


09018 


16 


09065 


J3725 


18630 




TFM 


ATN+6 ,HOLDCD 




09030 


16 


09048 


J3046 


18640 


ATN 


TD 


H0LDCD,0,7, 


ALPHA Tp NUMERIC 


09042 


25 


13046 


-0000 


18650 




CM 


• -1,0 




09054 


14 


09053 


-0000 


18660 




BE 


EXIT2 




09066 


46 


09110 


01200 


L8670 




AM 


ATN+6,01,10 




09078 


11 


09048 


000-1 


18680 




AM 


ATN+11,02,10 




09090 


11 


09053 


000-2 


18690 




B 


ATN 




09102 


49 


09042 


00000 


18700 




DORG 


• -3 




09110 








18710 


EXIT2 


TFM 


SETFLG+6, INPUT+31 




09110 


16 


09128 


J3644 


18720 


SETFLG 


SF 


INPUT+31,,, 


TEST FOR ALPHA CHARACTERS 


09122 


32 


13644 


00000 


18730 




AM 


SETFLG+6,1,10 




09134 


11 


09128 


000-1 


18740 




CM 


SETFLG+6,70,610 




09146 


14 


09120 


OOOPO 


18750 




BNL 


• ♦36 




09158 


46 


09194 


01300 


18760 




CM 


SETFLG+6, 00, 610 




09170 


14 


0912Q 


000-0 


18770 




BNE 


ERRD-12 




09182 


47 


02512 


01200 


18780 




SM 


SETFLG+6,1,10 




09194 


12 


09128 


000-1 


18790 




CF 


SETFLG+6,,6 




09206 


33 


0912Q 


00000 


18800 




CM 


SETFLG+6, INPUT+93 




09218 


14 


09128 


J3706 


18810 




BE 


• ♦32 




09230 


46 


09262 


01200 


18820 




AM 


SETFLG+6, 2, 10 




09242 


11 


09128 


000-2 


18830 




B 


SETFLG 




09254 


49 


09122 


00000 


18840 




DORG 


• -3 




09262 








18850 




SF 


HOLDCD, , , 


DEFINE CONTROL CARO FIELDS 


09262 


32 


13046 


00000 


18860 




SF 


H0LDCD+4 




09274 


32 


13050 


00000 


18870 




B 


ATNR-1, ,6 




09286 


49 


0860N 


00000 


18880 


*• 




DETERMINE 


MAX. NO. OF DIM ENTRIES 










18890 


SCRAO 


TFM 


MAXDIM,9999,8 




09298 


16 


03849 


0R999 


18900 




TFM 


NEWDIM,3,8 




09310 


16 


02963 


0-003 


18910 




BT 


DIMMER, DI MM ER-i 




09322 


27 


03672 


03671 


18920 




BNR 


•♦20, MAP 




09334 


45 


09354 


19880 


18930 




B 


MONCAL 




09346 


49 


00796 


00000 


18940 




DORG 


• -3 




09354 








18950 




MM 


MAP+8,5, 10 




09354 


13 


19888 


000-5 


18960 




SF 


96 




09366 


32 


00096 


00000 


18970 




SM 


99, 1, 10 




09378 


12 


00099 


000-1 


18980 




TF 


MAXDIM,99 




09390 


26 


03849 


00099 


18990 




TFM 


NEWDIM, 1,8 




09402 


16 


02963 


0-001 


19000 




BT 


D I MMER, D I MMER- L 




09414 


27 


03672 


03671 


19010 




BNR 


•+20, MAP 




09426 


45 


09446 


19880 


19020 




B 


MONCAL 




09438 


49 


00796 


00000 


19030 




DORG 


• -3 




09446 








19040 




CM 


MAP+13, 88888,7 




09446 


14 


19 893 


08888 


19050 




BNE 


MONCAL 




09458 


47 


00796 


01200 


19060 




TF 


SCR1,MAP*5 




09470 


26 


13203 


19885 


19070 




TD 


SCR1-5, MAP 




09482 


25 


13198 


19880 


19080 




MM 


MAP+8,200,9 




09494 


13 


19888 


OOKOO 


19090 




SF 


95 




09506 


32 


00095 


00000 


19100 




A 


MAP+5,99 




09518 


21 


19885 


00099 


19110 




TF 


SCR2»MAP*5 




09530 


26 


13209 


19885 
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19120 




TD 


SCR2-5,MAP 




09542 


25 


13204 


19880 


19130 


DCi 


SF 


SCR1-5 




09554 


32 


13198 


00000 


19140 




SF 


SCR2-5 




09566 


\l 


13204 


00000 


19150 




CF 


SCR1-4 




09578 


33 


13199 


00000 


19160 




CF 


SCR2-4 




09590 


33 


13205 


00000 


19170 




B 


SCRAD-1,,6 




09602 


4S* 


0929P 


00000 


19180 


LCTEST 


TFM 


COUNT, 0, 10, 


LAST RECORD TEST 


09614 


16 


13145 


000-0 


19190 




BV 


• ♦12 




09626 


46 


09638 


01400 


19200 




BNF 


NOALF, BNR + U, 11 




09638 


44 


09854 


0966J 


19210 


BNR 


BNR 


•♦20,0 




09650 


45 


09670 


00000 


19220 




B 


NOALF 




09662 


49 


09854 


00000 


19230 




DORG 


• -3 




09670 








19240 




AM 


COUNT, 1,10 




09670 


11 


13145 


000-1 


19250 




CM 


COUNT, 5, 10 




09682 


14 


13145 


000-5 


19260 




BE 


• + 32 




09694 


46 


09726 


01200 


19270 




AM 


BNR+11, 1, 10 




09706 


11 


09661 


000-1 


19280 




B 


BNR 




09718 


49 


09650 


00000 


19290 




DORG 


•-3 




09726 








19300 




CM 


BNR + U, 99999, 67 




09726 


14 


0966J 


R9999 


19310 




BV 


NOALF 




09738 


46 


09854 


01400 


19320 




BNE 


NOALF 




09750 


47 


09854 


01200 


19330 




AM 


BNR+11, I, 10 




09762 


11 


09661 


000-1 


L9340 




BNR 


NOALF, BNR+ll, 11 




09774 


45 


09854 


0966J 


19350 




AM 


BNR + U, 1,10 




09786 


11 


09661 


000-1 


19360 




BD 


NOALF, BNR+ll, 11 




09798 


43 


09854 


0966J 
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00566 


J3514 
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21820 




TF 


MCS*39 t DIMNUM 






10918 


26 


17817 


13190 


21830 




TFM 


I0RT,*+23 






10930 


16 


00565 


J0953 


21840 




B 


I0PT,MCSl,7 






10942 


49 


00532 


J3514 


21850 




INSERT DI MNUM IN SPLIST 














21860 




BT M 


SPLINS, »+12 






10954 


17 


10606 


J0966 


21870 




C 


PNAME,ZER012,, 


MAS 


PROGRAM NAME GIVEN 


10966 


24 


13229 


13167 


21880 




BE 


NONAM 






10978 


46 


11002 


01200 


21890 




BTM 


E0UIV,*+12,, 


PUT 


NAME IN EQUIVALENCE TABLE 


10990 


17 


08606 


J1002 


21900 


NONAM 


TF 


FREAD+5 , SCRACH, , 


LOAD 


PROGRAM TO DISK 


11002 


26 


13287 


13186 


21910 




TD 


FRE AD , SCR ACH-5 






11014 


25 


13282 


13181 


21920 




SF 


FREAD+1 






11026 


32 


13283 


00000 


21930 




CF 


FRE AO 






11038 


33 


13282 


00000 


21940 




TF 


FWRIT+5,L0ADSA 






11050 


26 


13272 


13102 


21950 




TD 


FWRIT,L0ADSA-5 






11062 


25 


13267 


13097 


21960 




TFM 


FREAD*13,FAREA 






11074 


16 


13295 


J3776 


21970 




TFM 


FWRIT+13,FAREA 






11086 


16 


13280 


J3776 


21980 




C 


MAXSCLOADSC 






11098 


24 


13107 


13180 


21990 




BL 


ALTER 






1 1110 


47 


11282 


01300 


22000 




TF 


FRE AD ♦8 , LOADSC 






11122 


26 


13290 


13180 


22010 




TF 


FWRIT«-8,L0ADSC 






11134 


26 


13275 


13180 


22020 


LSK 


TFM 


I0RT,»*23 






11146 


16 


00565 


J1169 


22030 




B 


I OGT, FREDDA, 7 






11158 


49 


00566 


J3467 


22040 




TFM 


I0RT,»*23 






11170 


16 


00565 


J1193 


22050 




B 


I0PT,FWRDDA,7 






11182 


49 


00532 


J3459 


22060 




BO 


•♦20 , PTEST 






11194 


43 


11214 


13133 


22070 


ENDWRT 


B 


SETMAP-1,,6 






11206 


49 


1073P 


00000 


22080 




DORG 


• -3 






11214 








22090 




TFM 


FPSF+1,32,10 






11214 


16 


11643 


000L2 


22100 




TF 


HOL03, LOADSC 






11226 


26 


13193 


13180 


22110 




TF 


FWRIT+5,L0ADSA 






11238 


26 


13272 


13102 


22120 




TO 


FWRIT,L0ADSA-5 






11250 


25 


13267 


13097 


22130 




BTM 


FP,»*12 






11262 


17 


11462 


J1274 


22140 




B 


ENDWRT 






11274 


49 


11206 


00000 


22150 




DORG 


• -3 






11282 








22160 


ALTER 


TF 


H0LD3, LOADSC 






11282 


26 


13193 


13180 


22170 




S 


H0LD3, MAXSC 






11294 


22 


13193 


13107 


22180 




TF 


FREAD+8 , MAXSC 






11306 


26 


13290 


13107 


22190 




TF 


FWRIT+8, MAXSC 






11318 


26 


13275 


13107 


22200 




TFM 


I0RT,*+23 






11330 


16 


00565 


J1353 


22210 




B 


IOGT, FREDDA, 7 






11342 


49 


00566 


J3467 


22220 




TFM 


I0RT,«*23 






11354 


16 


00565 


J1377 


22230 




B 


I0PT,FWRDDA,7 






11366 


49 


00532 


J3459 


22240 




A 


FREAD+5, MAXSC 






11378 


21 


13287 


13107 


22250 




A 


FWRIT+5, MAXSC 






11390 


21 


13272 


13107 


22260 




C 


MAXSC, H0LD3 






11402 


24 


13107 


13193 


22270 




BL 


ALTER+12 






11414 


47 


11294 


01300 


22280 




TF 


FREAD+8, H0LD3 






11426 


26 


13290 


13193 


22290 




TF 


FWRIT+8,H0LD3 






11438 


26 


13275 


13193 


22300 




B 


LSK 






11450 


49 


11146 


00000 


22310 


FP 


SF 


BUTTON, * , 


FILE 


PROTECT AND LOAD PROGRAM 


11462 


32 


00455 


00000 


22320 




BTM 


KYMESS,»*12 






11474 


17 


1 1 998 


J 1486 


22330 




TF 


H0L05,FWRIT*5 






11486 


26 


13139 


13272 


22340 




SF 


H0LD5-1 






11498 


32 


13138 


00000 


22350 




TFM 


FPSF*6,TRACK2 






11510 


16 


11648 


J7778 


22360 




SM 


HOLD5,20,10 






11522 


12 


13139 


OOOKO 


22370 




BH 


• -12 






11534 


46 


11522 


01100 
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22380 




BZ 


• +48 


11546 


46 


11594 


01200 


22390 




AM 


HOL05,20,10 


11558 


11 


13139 


OOOKO 


22400 




MM 


H0LD5, 105,9 


11570 


13 


13139 


00J05 


22410 




A 


FPSF+6,99 


11582 


21 


11648 


00099 


22420 




TFM 


FWRIT+8,20,9 


11594 


16 


13275 


00-20 


22430 




TFM 


FWRIT+13.TRACK2 


11606 


16 


13280 


J7778 


22440 




TFM 


I0RT»**23 


11618 


16 


00565 


J1641 


22450 




B 


I0GT,FPDDA,7 


11630 


49 


00566 


J3451 


22460 


FPSF 


SF 


TRACK2 


11642 


32 


17778 


00000 


22470 




SM 


H0LD3.1.10 


11654 


12 


13193 


000-1 


22480 




CM 


HOL03.0,9 


1 1666 


14 


13193 


00-00 


22490 




BE 


DONESF 


11678 


46 


11782 


01200 


22500 




AM 


FPSF+6, 105,9 


11690 


11 


11648 


00J05 


22510 




CM 


FPSF+6,TRACK2+2100 


11702 


14 


11648 


J9878 


22520 




BNE 


FPSF 


11714 


47 


11642 


01200 


22530 




TFM 


I0RT,**23 


11726 


16 


00565 


J1749 


22540 




B 


I0PT,FP00A,7 


11738 


49 


00532 


J3451 


22550 




AM 


FWRIT+5,20,10 


11750 


11 


13272 


OOOKO 


22560 




TFM 


FPSF+6, TRACK2 


11762 


16 


11648 


J7778 


22570 




B 


FPSF-36 


11774 


49 


11606 


00000 


22580 




□ORG 


• -3 


11782 








22590 


OONESF 


TFM 


lORT,*+23 


11782 


16 


00565 


J1805 


22600 




B 


I0PT,FP0DA,7 


11794 


49 


00532 


J3451 


22610 




CF 


BUTTON 


11806 


33 


00455 


00000 


22620 




BTM 


KYMESS, »+!2 


11818 


17 


11998 


J 1830 


22630 




B 


FP-l, ,6 


11830 


49 


1146J 


00000 


22640 


WRLAST 


TF 


FINAL M+- 30, PNAME,, WRITE FINAL MESSAGE 


11842 


26 


12905 


13229 


22650 




TF 


NEWOIM.DIMNUM 


11854 


26 


02963 


13190 


22660 




BT 


DIMMER, OIMMER-l 


11866 


27 


03672 


03671 


22670 




RCTY 




11878 


34 


00000 


00102 


22680 




WATY 


FINALM 


11890 


39 


12875 


• 00100 


22690 




TO 


19999, MAP+19 


11902 


25 


19999 


19899 


22700 




TF 


19998, DIMNUM 


11914 


26 


19998 


13190 


22710 




WNTY 


19995 


11926 


38 


19995 


00100 


22720 




SPTY 




11938 


34 


00000 


00101 


22730 




WNTY 


MAP 


11950 


38 


19880 


00100 


22740 




DNTY 


19999 


11962 


35 


19999 


00100 


22750 




TDM 


SYSCAL,3 


11974 


15 


00475 


00003 


22760 




B 


WRLAST-1,,6 


11986 


49 


11 84 J 


00000 


22770 


* 


AODRESS KEY MESSAGE SUBROUTINE 










22780 


KYMESS 


BNF 


•♦32, BUTTON 


11998 


44 


12030 


00455 


22790 




TFM 


KEYMES+24,5500,8 


12010 


16 


12991 


ON500 


22800 




B 


• ♦20 


12022 


49 


12042 


00000 


22810 




OORG 


• -3 


12030 








22820 




TFM 


KEYMES+24,4646,8 


12030 


16 


12991 


0M646 


22830 




RCTY 




12042 


34 


00000 


00102 


22840 




WATY 


KEYMES 


12054 


39 


12967 


00100 


22850 




H 




12066 


48 


00000 


00000 


22860 




8 


KYMESS-1,,6 


12078 


49 


1199P 


00000 


22870 


**• 




DELETE DIM NO, FROM S-P. LIST 










22880 


SPLDEL 


TF 


NEWDIM, DIMNUM 


12090 


26 


02963 


13190 


22890 




BT 


DIMMER, DIMMER-l 


12102 


27 


03672 


03671 


22900 




TF 


LISTES.MAP+5 


12114 


26 


02790 


19885 


22910 




TD 


LISTES-5,MAP 


12126 


25 


02785 


19880 


22920 




TF 


NINESC.MAP+8 


12138 


26 


05692 


19888 


22930 




TF 


HOLD5,MAP+5 


12150 


26 


13139 


19885 
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22940 




CF 


NINESC-2 


12162 


33 


05690 


00000 


22950 




TFM 


RLGONE+ 10 , »+20 


12174 


16 


04284 


J2194 


22960 




B 


FIND 


12186 


49 


03838 


00000 


22970 




DORG 


• -3 


12194 








22980 


REMDEL 


C 


LISTER, DIMNUM 


12194 


24 


02 764 


13190 


22990 




BNE 


SPLDEL-1 , ,6 


12206 


47 


1208R 


01200 


23000 




BT 


REMOVE , REMOVE- I 


12218 


27 


03084 


03083 


23010 




CM 


LISTER-3,7, 1011 


12230 


14 


02761 


OOO-P 


23020 




BE 


CYLDEL 


12242 


46 


12462 


01200 


23030 




CM 


LISTER-3,9, 1011 


12254 


14 


02761 


000-R 


2 3040 




BE 


COMPRS 


12266 


46 


12406 


01200 


23050 


I MS DEL 


TF 


LISTET.NINESC 


1227R 


26 


02794 


05692 


23060 




BT 


INSERT, INSERT-l 


12290 


27 


03414 


03413 


23070 




BT 


GETL.GETL-l 


12 302 


2 7 


02996 


02995 


23080 




BT 


GETL , GETL- I 


12314 


27 


02996 


02995 


23090 




CM 


LISTER-3,9, 1011 


12326 


14 


02 761 


000-R 


23100 




BNE 


SPLDEL-1, ,6 


12338 


47 


1208R 


01200 


23110 




SF 


LISTER-2 


12350 


32 


02762 


00000 


23120 




A 


NINESC, LISTER 


12362 


21 


05692 


02764 


23130 




CF 


LISTER-2 


12374 


33 


02762 


00000 


23140 




BT 


REMOVE, RE MOVE-l 


12386 


27 


03084 


0308 3 


23150 




B 


COMPRS+36 


12398 


49 


12442 


00000 


23160 




OORG 


• -3 


12406 








23170 


COMPRS 


SF 


LISTER-2 


12406 


32 


02 762 


00000 


23180 




A 


NINESC, LISTER 


12418 


21 


05692 


02764 


23190 




CF 


LISTER-2 


12430 


33 


02762 


00000 


23200 




BT 


REMOVE, RE MOVE-l 


12442 


27 


03084 


03083 


23210 




B 


INSOEL 


12454 


49 


12278 


00000 


23220 




DORG 


• -3 


12462 








23230 


CYLDEL 


BT 


GETL, GETL-l 


12462 


27 


02996 


02995 


23240 




CM 


LISTER-3,7, 1011 


12474 


14 


02 761 


OOO-P 


23250 




BNE 


N0200 


12486 


47 


12566 


01200 


23260 




BT 


GETR, GE TR- 1 


12498 


27 


02872 


02871 


23270 




TFM 


LISTET.9200,8 


12510 


16 


02 794 


0R200 


23280 




SM 


NINESC, 200,9 


12522 


12 


05692 


OOKOO 


23290 




BT 


INSERT, INSERT-l 


12534 


27 


03414 


03413 


23300 




BT 


GETR,GETR-1 


12546 


27 


02872 


02871 


23310 




B 


REMOEL 


12558 


49 


12194 


00000 


23320 




DORG 


• -3 


12566 








23330 


N0200 


CM 


LISTER-3, 9,1011 


12566 


14 


02761 


000-R 


23340 




BE 


YES9 


12578 


46 


12730 


01200 


23350 




SF 


HOLD5-2 


12590 


32 


13137 


00000 


23360 




SM 


H0LD5,200,9 


12602 


12 


13139 


OOKOO 


23370 




BNF 


•-12,H0LD5 


12614 


44 


12602 


13139 


23380 




A 


NINESC, H0LD5 


12626 


21 


05692 


13139 


23390 




TDM 


HOLD5-3,9, 11 


12638 


15 


13136 


OOOOR 


23400 




CF 


H0LD5 


12650 


33 


13139 


00000 


23410 




CF 


HOL05-2 


12662 


33 


13137 


00000 


23420 




TF 


L ISTET, H0LD5 


12674 


26 ■ 


02794 


I J139 


23430 




BT 


GETR, GETR- I 


12686 


27 


02872 


02871 


23440 




BT 


INSERT, INSERT-l 


12698 


27 


03414 


03413 


23450 




BT 


GETR,GETR-1 


12710 


27 


02872 


02871 


23460 




B 


REMDEL 


12722 


49 


12194 


00000 


23470 




DORG 


• -3 


12730 








23480 


YES9 


SF 


LISTER-2 


12730 


32 


02 762 


00000 


23490 




A 


NINESC, LISTER 


12742 


21 


05692 


02764 
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23500 






nULUj |L 1 J 1 tK 


12754 


22 


13139 


02764 


235 10 




CF 


LISTER-2 


12766 


33 


02762 


ooooo 


23520 




BT 


REMOVE » REMOVE- I 


12778 


27 


03084 


03083 


23530 






CYLOEL 


12790 


49 


12462 


OOOOO 


23540 




DORG 




12798 








23550 


PATCH1 


TP 


MAPEA,MAP«-18 


12798 


26 


13 155 


19898 


23560 




CM 


MOLDCD+30,0, 7 


12810 


14 


13076 


-0000 


23570 




BNE 


• ♦24 


12822 


47 


12846 


01200 


23580 




TF 


MAPMA,MAP+13 


12834 


26 


13150 


19893 


23590 




B7 


MAINB2 


12846 


49 


06884 






SCERR 


TFM 


DIMERR+22, 0075,8 










236 10 




B 


ERRD 


1 2866 


49 


02524 


OOOOO 


23620 




DORG 


•-3 ' 


12874 








23630 


F I NALM 


DAC 


18, DK LOADED • 


12875 




1 8 


X 2 






DK LOADED • 










236*0 


RMARK 


DAC 


1.0 


12911 




1 


X 2 


23650 


ERRSEQ 


0 

DAC 


2 7,DUP»ERROR55 CARD SEQUENCE • 


12913 




27 


X 2 






DUP#ERR0R55 CARD SEQUENCE • 










23660 


KEYMES 


DAC 


39,DUP» TURN OFF WRITE ADDRESS KEY, START • 


12967 




39 


X 2 






DUP» 


TURN OFF WRITE ADDRESS KEY, START • 










23670 




DAC 


1,0 


1 3045 






X 2 


2 3680 


CLOSUP 


0 

DSS 


4000, 13776 


1 3776 




4000 




2 3690 


INPUT 


DAS 


81,13613 


1361 3 




81 


X 2 


23700 


READIN 


DS 


,17778 


17778 




o 








DC 


45,0 


13090 




45 








-00000000000000000000000000000000000000000000 










23720 


HOLDCD 


DS 


,CARD-44 


13046 




0 




23710 


MCS 


DS 


,17778 


17778 




o 




23740 


THOU 


DC 


6, 100000 


1 3096 












JOOOOO 










23750 


LOADSA 


DC 


6,0 


13102 




6 








-00000 










23760 


H0LD2 


DC 


2,0 


13104 




2 




23770 


MAXDIM 


-0 
DS 


0,FIND+ll 


03849 




0 




23780 


MAXSC 


DC 


3,050 


13107 




3 








-5 0 












23790 


MCAS 


DC 


6,0 


13113 




6 








-00000 










23*00 


FORT 


DSC 


1.0 


13114 




1 




23810 


MAPRM 


0 

DSC 


1,0 


13115 




1 






r DM AO a 


0 

DGM 




13116 










p r tun i m 


DSC 


1,0 


13117 








23840 


AOK 


0 

DSC 


1,0 


13118 




1 




23850 


LOOP 


0 

DC 

-0 


2,0 


13120 




2 




23860 


SGREM 


DC 


3,0 


13123 




3 








-00 












23870 


SEQ 


DC 


5,0 


13128 




5 








-OOCO 











23880 


BUTTON 


DS ,455 


00455 


0 


23890 


PHI 


DC 2,0 


13130 


2 


23900 


RTEST 


-0 

DSC 1,0 


13131 


1 


23910 


NTEST 


0 

DSC 1,0 


13132 


1 


23920 


P TEST 


0 

DSC 1,0 


13133 


1 


23930 


DELETE 


0 

DSC 1,0 


13134 


1 


23940 


H0LD5 


0 

OC 5,0 


13139 


5 






-0000 






23950 


CNT 


DC 3,0 


13142 


3 






-0 0 






23960 


COUNT 


DC 3,0 


13145 


3 






-00 






23970 


MAPMA 


DC 5,0 


13150 


5 






-0000 






23980 


MAPEA 


DC 5,0 


13155 


5 






-0000 






23990 


ZER019 


DC 19,0 


13174 


19 






-000000000000000000 






24000 


ZER06 


DC 6,0,ZER019-13 


13161 


6 






-OOOOO 






24010 


LOADSC 


DC 6,0 


13180 


6 






-OOOOO 






24020 


SCRACH 


DC 6,0 


13186 


6 






-OOOOO 






24030 


DIMNUM 


DC 4,0 


13190 


4 






-000 






24040 


H0L03 


DC 3,0 


13193 


3 






-00 






24050 


H0LD4 


DC 4,0 


13197 


4 






-000 






24060 


SCR1 


DC 6,0 


13203 


6 






-OOOOO 






24070 


SCR 2 


DC 6,0 


13209 


6 






-OOOOO 






24080 


H0LD6 


DC 6,0 


13215 


6 






-OOOOO 






24090 




DAC 1,0 


13217 


1 


24100 


PNAME 


0 

DC 12,0 


13229 


12 






-00000000000 






241L0 




DAC !•• 


13231 


1 


24120 


ZERO 12 


DC !2,0,ZER019-7 


13167 


12 






-00000000000 






24130 


NINE12 


OC 12,999999999999 


13243 


12 






R9 99 99999999 






24140 


MOVDDA 


DSC 2,22 


13244 


2 






22 






24150 




OSA MOVOCF 


13250 


5 



13250 J3252 



24160 
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24170 MOVDCF DSC i.l 
I 

24180 DC 5,18331 

J8331 

24L90 DC 3,038 

-3 8 

24200 DC 5,08600 

-8600 

24210 DSC 1,« 

24220 FWRIT DSC 1,1 
I 

24230 DC 5,0 

-0000 

24240 DC 3,0 

-00 

24250 DC 5,0 

-000 0 

24260 DSC l,« 



24270 FREAO 



1,1 
5,0 



DSC 
1 

24280 DC 

-0000 

24290 DC 3,0 

-00 

24300 DC 5,0 

-0000 

24310 DSC 1,' 

24320 CLOSW DSC 1,1 
1 

24330 DC 5,0 

-0000 

24340 DC 3,0 

-00 

24350 DC 5,0 

-0000 

24360 DSC l, 1 

24370 EQUDDA DSC 2,22 
22 

24380 OS A EQUDCF 



24390 



DSC 



24400 EQUDCF DSC 1,1 
1 

24410 DC 5,18278 

J8278 

24420 DC 3,020 

-2 0 

24430 DC 5,08600 

-8600 



13251 

13252 

13257 

13260 

13265 

13266 

13267 

13272 

132 75 

13280 

13281 
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13287 

13290 
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13297 

13302 
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24440 


DSC 


l,' 


13334 


I 




24450 COM2 


DSC 


2,22 


13335 


2 






22 










24460 


OS A 


C0M22 


13341 


5 


X 








13341 


J3343 




24470 


DSC 


It* 


13342 


1 




24480 C0M22 


DSC 
I 


1,1 


13343 


1 




24490 


DC 


5,18512 


13348 


5 






J8512 








24500 


DC 


3,020 


13351 


3 






-20 










24510 


DC 


5,10600 


13356 


5 






J0600 








24520 


DSC 
• 


It" 


13357 


1 




24530 CLOSR 


DSC 


1,1 


13358 


1 




24540 


I 

DC 


5,0 
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-0000 








24550 


DC 
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13366 


3 
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24560 


DC 
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13371 


5 
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DSC 


l.« 
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1,0 
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DC 
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DC 
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5 
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DC 
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5 
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• 
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DS 
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DC 


3,021 
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3 






-21 
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DSA 


TRACK 


13512 
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13512 


J3776 


25190 
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13513 


I 


25200 


MCS1 
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2,22 


13514 


2 






22 








25210 




DSA 


MCS2 
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J3522 


25220 
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13521 


1 


25230 
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13535 
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13535 
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i 
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13536 
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TRACK2 
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25300 




TCD 
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25320 




DORG 
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13800 








25330 


NOSA 


CF 
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33 


13115 
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SF 
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13812 


32 


13081 
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24 
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TF 
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MM 
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SF 
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32 
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TF 
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14004 


26 


02790 
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CF 
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TO 
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14028 


25 
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13081 
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A 
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14040 


21 


14075 
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AM 
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11 
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OOO-l 
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02785 
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B 
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49 
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TFM 


H0LD6-1 ,READIN+7l 
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J7849 
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TD 
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25 
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02785 
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AM 
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11 


13214 
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BD 
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02786 
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TFM 
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16 


14173 
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14160 


25 


02786 


1321M 


2 5640 




NOP 
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14172 


41 


02 790 


JOOOO 


25650 




TF 


NINESC, LOADSC,, 


DETERMINE NUMBER OF 


CYLINDERS 
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05692 


13180 


25660 




TFM 
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14196 


16 


13979 
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25670 




CF 


NINESC-2 






14208 


33 


05690 
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CM 


NINESC, 9200,8 






14220 


14 


05692 


0R200 


25690 




BNH 
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14232 


47 


14296 


01100 


25700 




SM 


NINESC.200,8 






14244 


12 


05692 


0-200 


25710 




AM 


CNTCYL, I, 10 






14256 


11 


13979 
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25720 




B 


• -48 






14268 


49 


14220 
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25730 




DORG 


• -3 






14276 








25740 


ERRCYL 


TFM 


DIMERR+22, 7274,8 






14276 


16 


02507 


0P2 74 
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B 


ERRD 






1428R 


49 


02524 
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DORG 
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14296 
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14788 
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LOADRE 


07284 


REDSP1 


DELNT5 


09604 


LOADS A 


13102 


REDSP2 


DIMENT 


198 80 


LOADSC 


13180 


REDSP3 


DIMERR 


02485 


LOOPSY 


09024 


RE OS PL 


DIMHLD 


08822 


LOPEZA 


08747 


REMBLK 


DIMMER 


03672 


LOPFZB 


08770 


REMDEL 


DIMNUM 


13190 


LPSRDA 


04514 


REMOTR 


DMPDIM 


13403 


MAINB1 


06364 


REMOVE 


DMREAD 


025 76 


MAINB2 


06884 


REMSIL 
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10884 


REPLFL 


04400 


DLOAO 


05 800 


03849 


RLGONE 


04254 


DMDDA 


02568 


09372 


RSEVEN 


10800 


OMPDM 


13411 


10682 


ACTAA 


09552 


DONE 


09542 


10482 


ACTAC 


09968 


DREPL 


05800 


00796 


ACTAD 


09896 


DUMP 


1 3426 


00796 


AC TAG 


09260 


ENTOK 


1036? 


06584 


ACTAH 


09128 


EOUl 


08148 


08724 


ACTA J 


0<H04 


F0U2 


08156 


08701 


ACTAK 


09220 


EOUFL 


08 100 


13252 


ALTER 


11282 


EOUI V 


08606 


13244 


ANAME 


10466 


ERRD 


02524 


02862 


AOK 


13118 


ERR 


05662 


02865 


ATNR 


08606 


EXIT2 


091 10 


08548 


ATN 


09042 


EXIT3 


069 36 


08556 


BNR 


09650 


EXIT 


10530 


10496 


CALC2 


02759 


EZEST 


10 700 


09024 


CALC3 


02779 


F ARE A 


13776 


05835 


CALC4 


02783 


FIND 


0 38 38 


02770 


CALC5 


08796 


FINDX 


10905 


0 7636 


CALC6 


08790 


FLAG 


06512 


02963 


CALC7 


02848 


FORT 


13114 


13243 


CARD 


13090 


FOUND 


0 3445 


09132 


CCD2 


10466 


FPDDA 


1 3451 


05692 


CCD 


10458 


FPOK 


C6864 


09866 


CHIL 


14672 


FP 


1L46? 


07748 


CLEAR 


06624 


FPSF 


11642 


02855 


CLFP 


06696 


FREAD 


13282 


10030 


CLOSE 


09294 


FWRI T 


13267 


09672 


CLOSR 


13358 


GETL 


02996 


02856 


CLOSW 


13297 


GETR 


02872 


07092 


CLRFP 


07688 


GORT 


10224 


10130 


CMPAR 


09194 


HERE 


LU94 


12798 


CNINE 


08810 


HEX 


02 795 


11582 


CNST3 


03578 


HILIM 


13823 


14936 


CNT 


13142 


H0LD2 


13104 


02637 


C0M22 


13343 


HOLD 3 


13193 


02660 


COM2 


13335 


H0LD4 


13197 


02683 


COMFL 


10100 


H0LD5 


13139 


02706 


C0MM1 


07248 


H0LD6 


13215 


04194 


C0MM2 


07263 


I NCR D 


09274 


02813 


COMP 


10106 


INCRE 


10246 


02841 


COUNT 


13145 


INI Tl 


07740 


02591 


DC1 


09554 


INIT2 


08 360 


02599 


DC22 


06096 


INPUT 


1361 3 


17778 


DC 2 


05920 


IOCAL 


00716 


04810 


ODAKF 


13443 


IOGT 


00566 


04854 


DELI 


05648 


IOPT 


005 32 


04898 


DEL2 


05656 


IORT 


00565 


04942 


DELET 


05800 


ISTO 


05956 


04702 


DELFL 


05600 


KEVE 


05009 


10628 


DELTA 


09375 


KEY! 


08813 


12194 


DISKF 


13388 


KEY5 


08785 


03104 


DISKN 


06340 


KING 


02458 


03084 


DLDCF 


10871 


LGE 


14788 


10136 


DLD 


10858 


LIMIT 


08812 
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LOAOl 


04446 


NOMD 


11064 


RTEST 


L0A02 


04463 


NOME 


11072 


SCAN1 


LOLIM 


139 55 


NONAM 


11002 


SCAN2 


LOOK 


10690 


N0RE1 


07600 


SCANN 


LOOP 


13120 


N0RE2 


08300 


SCERR 


LSK 


11146 


NOSAC 


10886 


SCOLD 


MAINB 


103 70 


NOSA 


13800 


SCR1 


MAMY 


09496 


NOTOK 


09634 


SCR2 


MAPEA 


131 55 


NTEST 


13132 


SCRAD 


MAPMA 


131 50 


NTZ 


06380 


SCREM 


MAPRM 


13115 


OKOEL 


06148 


SCRKO 


MAP 


198 80 


PACK 


02772 


SCROK 


MAXSC 


13107 


PAT2 


06136 


SECT 


MCAS 


131 13 


PHI 


13130 


SEQ 


MCS1 


135 14 


PNAME 


13229 


SF 


MC S2 


13522 


PRE7A 


09000 


SMALL 


MCS 


17778 


PRE7 


08638 


S0L2 


MEAT 


09292 


PTEST 


13133 


SOL 


MOVER 


08824 


QHOLD 


02819 


SPO 


MOVFL 


08500 


QUEEN 


02466 


SPLFL 


MPT 


086 36 


R2 


08950 


SPLR1 


MULT2 


09974 


RAKES 


10524 


SPLR2 


MULT 


09906 


RDSPL 


04594 


SPS 


NDI SK 


06848 


REAOC 


10022 


STEAL 


NERR 


03580 


READ 


13479 


STOMP 


NEVER 


04297 


RECD 


09174 


SU8HI 


N0200 


12566 


RELD2 


08532 


SUBLO 


NOALF 


098 54 


RELD 


08172 


TAC 


NOP 


08986 


REPL1 


04448 


TFLG 


NOISY 


10380 


REPL2 


04463 


THOU 


NOMA 


08670 


RGE 


14424 


TIC 


NOMB 


08678 


RMARK 


12911 


TIPSY 


NOMC 


11016 


R 


08754 


TRACK 



END OF ONE ASSEMBLY. 



13131 


TREC 


06884 


SPLPK1 


02668 


07788 


TRREC 


09414 


SPLPK2 


02691 


08408 


TRWA 


08739 


SPLPK3 


027 14 


09762 


TRWB 


08762 


STARDT 


05022 


12854 


UPDIM 


07312 


STFLAG 


1 3537 


13967 


UPSCA 


07892 


SUCESS 


131 18 


13203 


VOILA 


08112 


SYSCAL 


00475 


13209 


WASH 


10944 


TELAST 


10756 


09298 


WR2 


02257 


TESTFP 


07576 


13123 


WROK 


06768 


THRDDA 


02729 


11254 


WRT2 


08946 


THROWS 


02737 


06588 


WRT 


09022 


TOPPRO 


10812 


10234 


YES9 


12730 


TRACK2 


17778 


13128 


ZER06 


13161 


TRACK 3 


13776 


10094 


SCRACH 


13186 


TRWBUS 


087 1 6 


14296 


SEARFP 


07360 


TRWCAR 


08693 


10666 


SEQERR 


10378 


TRYAGN 


04002 


10658 


SETFLG 


09122 


UPSCAN 


08512 


10934 


SETMAP 


10738 


WHIPIT 


05346 


05756 


SEVENT 


09108 


WHYNOT 


03388 


05804 


SFSUCE 


08600 


WITHIN 


087 38 


05819 


SKNAME 


09690 


WRL AST 


1 1842 


07484 


SPCREO 


05462 


WRMDDA 


02614 


02845 


SPECAS 


09152 


WRMOVE 


02622 


03188 


SPLADD 


04574 


WRTSPO 


03268 


00039 


SPLCOR 




WRTSP 1 


03300 


00010 


SPLCYL 


03187 


WRTSP2 


03332 


09812 


SPLDEL 


12090 


WRTSP 3 


03364 


08878 


SPLEXT 


05066 


ZER012 


13167 


13096 


SPLINI 


044 70 


2ER019 


13174 


09744 


SPLINS 


10606 


ZEROES 


08806 


03470 


SPLIST 


04330 


ZSEVEN 


09468 


13776 


SPLPKO 


02645 
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00010 




DISK UTILITY PROGRAM FOR 


1620 *DL ABL 










00020 


• ••» 
















00030 


• •»# 
















00040 




OORG 


2502 




02502 








00050 


OLABL 


SF 


INPUT+21, , 10 




02502 


32 


13634 


000-0 


00060 




CM 


INPUT+22,0, 10 




02514 


14 


13635 


000-0 


00070 




BE 


ERR I 




02526 


46 


03906 


01200 


00080 




CM 


INPUT+22, 73, 10 




0253B 


14 


13635 


00 OP 3 


00090 




BH 


ERR 10 




02550 


46 


03926 


01 100 


00100 




CM 


INPUT+22, 70, 10 




02562 


14 


13635 


OOOPO 


00110 




8L 


ERR 10 




02574 


47 


03926 


01300 


00120 




SF 


INPUT+ll 




02586 


32 


13624 


00000 


00130 




C 


INPUT+20,ZERG10 




02598 


24 


13633 


04307 


00140 




BE 


ERR 1 




02610 


46 


03906 


01200 


00150 




TD 


PACK, INPUT+20 




02622 


25 


04312 


13633 


00160 




TD 


PACK-1, INPUT+18 




02634 


25 


0431 1 


13631 


001 70 




TO 


PACK-2, INPUT+16 




02646 


25 


04310 


13629 


00180 




TO 


PACK-3, INPUT+14 




02658 


25 


04309 


13627 


00190 




TO 


PACK-4, INPUT+12 




02670 


25 


04308 


13625 


00200 




SF 


PACK-4 




02682 


32 


04308 


00000 


00210 




CM 


PACK.O 




02694 


14 


04312 


-0000 


00220 




BE 


ERR 10 




02706 


46 


03926 


01200 


00230 




TFM 


SETFLG* 11, INPUT+ll 




02718 


16 


02 741 


J3624 


00240 


SETFLG 


SF 


•+l 1, INPUT+ll, 6 




02730 


32 


0274J 


13624 


00250 




AM 


SETFLG+11,1,10 




02742 


11 


02 741 


000-1 


00260 




CM 


SETFLG+11,70,610 




02754 


14 


0274J 


OOOPO 


00270 




8L 


ERR 10 




02766 


47 


03926 


01300 


00280 




AM 


SETFLG+11,1,10 




02778 


11 


02 741 


000-1 


00290 




CM 


SETFLG+ll , INPUT+21 




02790 


14 


02741 


J3634 


00300 




BL 


SETFLG 




02802 


47 


02730 


01300 


00310 




TD 


MOD, INPUT+22 




02814 


25 


02513 


13635 


00320 




TD 


•♦47, INPUT+22 




02826 


25 


02 873 


13635 


00330 




A 


•+35,*+35 




02838 


21 


02873 


02873 


00340 




AM 


•+23, I, 10 




02850 


11 


02873 


000-1 


00350 




TDM 


INPUT+22,0, 8 




02862 


15 


13635 


0-000 


00360 




TFM 


ADDRS,RDAREA+71,, 


DETERMINE ADDRESS 


02874 


16 


04362 


J3847 


00370 




TDM 


DDAL2+l,0,ll 




02886 


15 


04284 


oooo- 


00380 




TDM 


DDAL2 ,0 




02898 


15 


04283 


00000 


00390 




TFM 


I0RT,»+23 




02910 


16 


00565 


-29 33 


00400 




B 


I OGT , DDAL 1,7 




02922 


49 


00566 


-4275 


00400 




TF 


DDAL8+8 , RDAREA+88 




02934 


26 


04268 


13864 


00410 




TO 


•♦22, INPUT+22 




02946 


25 


02968 


13635 


00420 




AM 


ADDRS,0,9 




02958 


11 


04362 


00-00 


00430 




TD 


DDAL2+l,ADDRS,ll 




02970 


25 


04284 


0436K 


00440 




TD 


DDAL4+ I , ADDRS, 1 1 




02982 


25 


04215 


04 36K 


00450 




TD 


DDAL6+1 , ADDRS, 1 1 




02994 


25 


04238 


0436K 


00460 




TD 


D0AL8+1, ADDRS, 11 




03006 


25 


04261 


0436K 


00470 




TD 


0DAL2, INPUT+22 




03018 


25 


04 28 3 


13635 


00480 




SM 


DDAL2+5, 10000,7 




03030 


12 


04288 


JOOOO 


00490 




TFM 


IORT,»+23 




03042 


16 


00565 


-3065 


00500 




B 


I0GT,DDALl,7 




03054 


49 


00566 


-4275 


00510 




TFM 


TEST48+11 ,RDARE A+61 




03066 


16 


03101 


J3837 


00520 




BNF 


RSPT, RDAREA+61 




03078 


44 


03190 


13837 


00530 


TEST48 


BNR 


•+20, RDAREA+61 




03090 


45 


03110 


13837 


00 540 




B 


RSPT 




03102 


49 


03190 


00000 


00550 




OORG 


•-3 




03110 
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00560 




AM 


TEST48+ll,l,10 


03110 


11 


03101 


000-1 


00570 




CM 


TEST48+ll,RDAREA+65,7 


03122 


14 


03101 


J3841 


00580 




BH 


• ♦32 


03134 


46 


03166 


01100 


00590 




BNF 


TEST48,TEST48+ll,ll 


03146 


44 


03090 


0310J 


00600 




B 


RSPT 


03158 


49 


03190 


00000 


00610 




00 RG 


»-3 


03166 








00620 




CM 


RDAREA+65,04800,7 


03166 


14 


13841 


-4800 


00630 




BE 


LAB 


03178 


46 


03634 


01200 


00640 
















00650 


* 


REINITIALIZE SEQUENTIAL PROGRAM TABLE 










00660 


»•*«• 














00670 


RSPT 


TO 


DDAL8 f INPUT+22 


03190 


25 


04260 


13635 


00680 




TFM 


SEV-H l> 7000 t 8 


03202 


16 


03261 


OPOOO 


00690 




TF 


SEV+23. *~1 


03214 


26 


03273 


03213 


00700 




TFM 


IORT, *+23 


03226 


16 


00565 


-3249 


00710 




B 


I0GT,00AL7,7 


03238 


49 


00566 


-4252 


00720 


SEV 


TFM 


RDAREA-1997 t 7000 1 8 


03250 


16 


11779 


OPOOO 


00730 




CM 


SEV+11,7000,8 


03262 


14 


03261 


OPOOO 


00740 




BE 


• ♦48 


03274 


46 


03322 


01200 


00750 




SM 


SEV*6 t 3 » 10 


03286 


12 


03256 


000-3 


00760 




CF 


SEV+6, t 6 


03298 


33 


03250 


00000 


00770 




AM 


SEV+6, 3, 10 


03310 


11 


03256 


000-3 


00780 




AM 


SEV+6 t 4t 10 


03322 


11 


03256 


000-4 


00790 




TFM 


SEV*6,9200,68 


03334 


16 


03250 


0R2OO 


00800 




SM 


SEV*6,3 1 10 


03346 


12 


03256 


000-3 


00810 




CF 


SEV*6,,6 


03358 


33 


03250 


00000 


00820 




AM 


SEV*6»7» 10 


03370 


11 


03256 


000-7 


00830 




AM 


SEV+l Li I , 10 


03382 


11 


03261 


000-1 


00840 




CM 


SEV*l 1 f 7099t 8 


03394 


14 


03261 


0PO99 


00850 




BL 


SEV 


03406 


47 


03250 


01300 


00860 




AM 


SEV*6 f 24, 10 


03418 


11 


03256 


0OOK4 


00870 




TF 


SEV*6,LSTENT*3,6 


03430 


26 


03250 


04341 


00880 




SM 


SEV+6, 4, 10 


03442 


12 


03256 


000-4 


00890 




A 


SEV+6 »M0D»6 


03454 


21 


03250 


02513 


00900 




SM 


SEV+6 ,4, 10 


03466 


12 


03256 


000-4 


00910 




A 


SEV+6»MQD,6 


03478 


21 


03250 


02513 


00920 




SM 


SEV+6, 8, 10 


03490 


12 


03256 


000-8 


00930 




A 


SEV+6, MOD, 6 


03502 


21 


03250 


02513 


00940 




SM 


SEV+6, 4, 10 


03514 


12 


03256 


000-4 


00950 




A 


SEV+6, MOD, 6 


03526 


21 


03250 


02513 


00960 




SM 


SEV+6, 7, 10 


03538 


12 


03256 


000-7 


00970 




CF 


SEV+6, ,6 


03550 


33 


03250 


00000 


00971 




TFM 


RDAREA-1179, 00, 21011 


03562 


16 


J2597 


000— 


00972 




AM 


•-6,2,10 


03574 


11 


03568 


000-2 


00973 




CM 


•-18,RDAREA+6000 


03586 


14 


03568 


J9776 


00974 




BL 


•-36 


03598 


47 


03562 


01300 


009R0 




TFM 


I0RT,*+23 


03610 


16 


00565 


-3633 


00990 




8 


I0PT,D0AL7,7 


03622 


49 


00532 


-4252 


01000 


• ••• 














01010 






LABEL DISK PACK 










01020 


»»»# 














01030 


LAB 


TD 


DDAL4 , DDAL2 


03634 


25 


04214 


04283 


01040 




SF 


BUTTON 


03646 


32 


00455 


00000 


01050 




BTM 


KYMESS, *+12 


03658 


17 


03998 


-3670 


01060 




TFM 


10RT, »+23 


03670 


16 


00565 


-3693 


01070 




B 


IOGT,DDAL3,7 


03682 


49 


00566 


-4206 
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01080 




SF 


RDAREA 


01090 




TF 


RDAREA* 9 , PACK 


01091 




TFM 


RDAREA+99,79, 10, MANTISSA LENGTH POSITION 


01092 




TFM 


RDAREA* 104, 19663, 7, IN COM. SECTOR 


01100 




TFM 


I0RT,*+23 


01 110 




B 


I0PT,0DAL3,7 


01120 




TD 


0DAL6 , DDAL2 


01130 




TFM 


I0RT,*+23 


01140 




B 


IOGT,DDAL5,7 


01150 




TFM 


RDAREA* 1999,00199,7 


01160 




CF 


RDAREA* 1995 


01170 




TF 


RDAREA*2034,PACK 


01 180 




TFM 


l0RT,*+23 


01 190 




B 


I0PT,DDAL5,7 


01200 




CF 


BUTTON 


01210 




BTM 


KYMESS, »+!2 


01220 




TDM 


SYSCAL , 3 


01230 




B 


MONCAL 


01240 




DORG 


• -3 


01250 


ERR1 


TFM 


DIMERR*22,0071,8 


01260 




B 


ERR10+12 


01270 




00 RG 


• -3 


012R0 


ERR 10 


TFM 


DIMERR+22,7170,8 


01290 




RCTY 




01300 




TFM 


I0RT,»*23 


01310 




B 


I0PT,ERRMES-4,7 


01320 




H 




01330 




B 


ERR1-20 


01360 


KYMESS 


BNF 


•*32, BUTTON 


01370 




TFM 


KEYMES+24,5500,8 


01380 




B 


• ♦20 


01390 




00 RG 


• -3 


01400 




TFM 


KEYMES+24,4646,8 


01410 




RCTY 




01420 




TFM 


I0RT,*+23 


01430 




B 


I0PT,MESS-4,7 


01440 




H 




01450 




B 


KYMESS-l, ,6 


01460 


RDAREA 


OSS 


2100, 13776 


0U70 


KEYMES 


OAC 


39, DUP* TURN OFF WRITE AOORESS KEY, START* 






DUP» 


TURN OFF WRITE ADDRESS KEY, START 1 


01480 


DIMERR 


OAC 


13,0UP»ERR0R 00' 






DUP* ERROR 00' 


01490 


DDAL3 


DSC 


2,26 






26 




01500 




OS A 


0DAL4 


01510 




DSC 


i.« 


01520 


DDAL4 


DSC 


ItO 


01530 




0 
DC 


5,19800 






J9800 


01540 




DC 


3,020 






-20 





03694 


32 


13776 


00000 


03706 


26 


13785 


04312 


03718 


16 


13875 


000P9 


03730 


16 


13880 


J9663 


03742 


16 


00565 


-3765 


03754 


49 


00532 


-4206 


03766 


25 


04237 


04283 


03778 


16 


00565 


-3801 


03790 


49 


00566 


-4229 


03802 


16 


15775 


-0199 


03814 


33 


15771 


00000 


03826 


26 


15810 


04312 


03838 


16 


00565 


-3861 


03850 


49 


00532 


-4229 


03862 


33 


00455 


00000 


03874 


17 


03998 


-3886 


03886 


15 


00475 


00003 


03898 


4 9 


00796 


00000 


03906 








0 3906 


16 


04203 


0-071 


03918 


49 


03938 


00000 


03926 








03926 


16 


04203 


OP 170 


03938 


34 


00000 


00102 


03950 


16 


00565 


-3973 


0 3962 


49 


00532 


-4342 


03974 


48 


00000 


00000 


03986 


49 


03886 


00000 


03998 


44 


04030 


00455 


04010 


16 


04127 


0N50O 


04022 


49 


04042 


00000 


04030 








04030 


16 


04127 


0M646 


04042 


34 


00000 


00102 


04054 


16 


00565 


-4077 


04066 


49 


00532 


-4350 


04078 


48 


00000 


00000 


04090 


49 


0399P 


00000 


13776 




2100 




04103 




39 


X 2 


04181 




13 


X 2 


04206 




2 




04212 




5 


X 1 


04212 




-4214 




04213 




1 




04214 




1 




04219 




5 




04222 




3 
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01550 




DS A 


RDAREA 


04227 


5 










04227 


J3776 


0 1 560 




OSC 


1 » ' 


04228 


1 


0 1 570 


00AL5 


DSC 


2*26 


04229 


2 






26 








0 1580 




DS A 


DDAL6 


04235 


5 










04235 


-4237 


01590 




DSC 
• 


I.' 


04236 


1 


01600 


00AL6 


DSC 


1*0 


04237 


1 






0 








01610 




DC 


5,19980 


04242 


5 






J9980 






01620 




OC 


3,020 


04245 


3 






-20 








01630 




DS A 


RDAREA 


04250 


5 










04250 


J3776 


01640 




DSC 


It' 


04251 


1 


01650 


00AL7 


OSC 


2,22 


04252 








22 






.; ■ 


0 1 660 




DS A 


DDAL8 


04258 


5 










04258 


-4260 


01670 




DSC 
i 


It* 


04259 


1 


01680 


0DAL8 


DSC 


1,0 


04260 


. 1 


0 1690 




0 
OC 


5,19801 


04265 


5 






J9 801 






01700 




DC 


3,010 


04268 


3 






-10 








01710 




DS A 


RDARE A-2000 


04273 


5 










04273 


J1776 


01720 




DSC 
• 


1,' 


04274 


1 


01730 


DDAL 1 


DSC 


2,22 


04275 


2 






22 








0 1 740 




DS A 


DDAL2 


04281 


5 










04281 


4283 


01750 




DSC 
t 


1» ' 


04282 


1 


01760 


0DAL2 


DSC 


1,0 


04283 


1 


01770 




0 
DC 


5,04800 


04288 


5 






-4800 






01780 




DC 


3,002 


04291 


3 






-02 








01790 




DS A 


RDAREA 


04296 


5 
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04296 




J3776 




01800 




DSC 
• 


l,« 


04297 




1 




01810 


IORT 


DS 


,565 


00565 




0 




01820 


IOGT 


DS 


,566 


00566 




0 




01830 


INPUT 


DAS 


81,13613 


13613 




81 


X 2 


01840 


ZER010 


DC 


10,0 


04 307 




10 








-000000000 










01850 


PACK 


DC 


5,0 


04312 




5 








-0000 










01860 


MONPK 


DSC 


1,0 


04313 




I 




01870 


MONCAL 


0 

DS 


, 796 


00796 




0 




01880 


RUTTON 


DSC 


1,0,455 


00455 








01890 


IOPT 


0 

DS 


,532 


00532 




0 




01900 


L STENT 


DC 


25,709901580004909901660162' 


04338 




2b 








P09901 580004 90990 1660 162* 










01910 




DSC 


3,000 


04339 




i 








000 












01920 


EHRMES 


OS A 


DIMERR 


04346 






X 1 










04346 




-4181 




01930 




DC 


3,06* 


04 349 




3 




01940 


MESS 


-6 • 

DS A 


KEVMES 


04354 




5 


X 1 










04354 




-4103 




01950 




DC 


3,06* 


04357 




3 




01960 


AODRS 


-6 • 

DS A 


RDAREA* 7 1 


04362 




5 


X 1 










04362 




J3847 




01970 


MOD 


DS 


, DL ABL+ 1 1 


02513 




0 




01980 


SYSCAL 


DS 


• 475 


00475 




0 




01990 


LABL 


TFM 


I0RT,**23 


04364 


16 


00565 


-4387 


02000 




8 


IOPT, LABLl, 7 


04376 


49 


00532 


-4412 


02010 




TRA 




04388 


36 


00000 


00500 










04400 


49 


00000 


00000 


02020 


LABLl 


DSC 


2,22 


04412 




2 








22 












02030 




DS A 


LABL2 


04418 




5 


X 1 










04418 




-4420 




02040 




DC 
t 


it* 


04419 




1 




02050 


LABL 2 


DSC 


1,1 


04420 




I 




02060 




1 

DC 


5,18200 


04425 




5 








J8200 










02070 




DC 


3,020 


04428 




3 








-20 












02080 




DC 


5,02502 


04433 




5 








-2 502 










02090 




DC 


It* 


04434 




1 
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OENO 02502 





1620 M0N1 


1T0R 1 DUP 


ROUTINE »DLABL 


MOD. LEVEL 4 






PAGE 


7 


BUTTON 


004 55 


ADORS 


04362 


D0AL8 


04260 


LABL 1 


04412 


RSPT 


03190 


DIMERR 


04181 


0DAL1 


042 75 


OLABL 


02502 


LABL2 


04420 


SEV 


03250 


ERRMES 


04346 


0DAL2 


04283 


ERR10 


03926 


LABL 


04364 


SETFLG 


02730 


KEYMES 


04103 


DDAL3 


04206 


ERRi 


03906 


LAB 


03634 


SYSCAL 


00475 


KYMESS 


03998 


DDAL4 


042 L4 


INPUT 


13613 


MESS 


04354 


TEST48 


03090 


LSTENT 


04338 


DDAL5 


04229 


IOGT 


00566 


MOO 


0 2513 


ZER010 


043O7 


MONCAL 


00796 


0DAL6 


04237 


I OPT 


00532 


MONPK 


04313 






RDAREA 


13776 


DDAL7 


042 52 


IORT 


00565 


PACK 


04312 







END OF ONE ASSEMBLY. 




40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 (Code 914) 



rnational Business Machines Corporation 



MEMORANDUM TO: 



Users of IBM 1620 Data Processing Systems 



SUBJECT: 



IBM 1620-1311 Monitor I 
Program #1620~PR-025 (Card) 
Modification No. 5. 



This letter transmits Modification No. 5 of the subject program . The 
material enclosed with this modification consists of the following: 

1 . Change Cards (44) . 

2 . Program Listing (1) . 

Any discrepancies between the material you receive and the items listed 
should be reported to the Manager of DP Programming Information Department, 
IBM Corporation, 112 East Post Road, White Plains, New York. 

This program has been registered by system type and is listed under the 
name and address shown on your order. Program modifications as and when 
made by IBM will be sent to this same address. Should there be a change 
in your system type or in your address, or should you no longer need 
maintenance of this particular program, we would appreciate your notifying 
your IBM branch office. 

An Authorized Program Analysis Report (APAR) should be submitted through 
your local IBM Systems Engineer to report any difficulties encountered 
in the use of this system. The APAR should be addressed to APAR Processing, 
Programming Systems, IBM Corporation, Monterey and Cottle Roads, San 
Jose 14, California, 95114. 



cc: Branch Offices without enclosures 
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SPS II-D Subroutine Supervisor, Deck #4 

1 . Error : MAR CHECK STOP occurs during execution of a Main Line SPS 
Program using Subroutine Set 00. Invalid addresses have been specified 
for record marks. 

Correction : Change Page 5 of the SPS II-D Subroutine Supervisor Listing: 

FROM: 02080 TFM CAPCK-2 ,CAPCK+36 04010 16 05932 "05970 

TO: 02080 TFM CAPCK-2 .SOFT 04010 16 05932 07068 

In addition, the following instructions must be inserted on Page 10 
of the listing between Source Statement Numbers 04537 and 04550 , 
replacing 04540. 

ADD: 04538 SOFT TFM SUBVEC-10 ,00000 07068 16 02205 £0000 

04539 TFM SUBVEC-15 ,00000 07080 16 02200 00000 

04540 B7 DISKCK-48 07092 49 05970 00000 
04549 DORG FOREQ 07280 

Two (2) new cards are provided; these cards are numbered 20022 and 20063. 
Please remove the correspondingly numbered cards from Deck #4 and 
insert the new ones provided. 

SPS II-D Subroutines , Deck #5 

1. Error : A Stop with an invalid operation code occurs when executing 
a divide macro instruction using Subroutine Set 00. 

NOTE: This condition occurs after the program has been updated to 
the level of Modification No. 4. 

Correction : No change in the Listing is required. 

Threje (3) new cards are provided; these cards are numbered 22508, 22509 
and 22510. Please remove the correspondingly numbered cards from 
Deck #5 and insert the new ones provided. 
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FORTRAN II-D Processor, Deck #8 

1 • Error : The output buffer is not cleared before the first output from 
phase 2 is sent to the buffer. 



Correction : The following changes are necessary to correct the problem: 
Page 2 of the listing (Phase 2) should be changed: 



FROM: 


00510 




TDM 


SKIPSW, 0 


02568 15 09661 00000 




00520 




TF 


DOMAX, DOBASE 


02580 26 09587 03810 




00530 




TDM 


DOSW,0 


02592 15 09333 00000 




00540 




TF 


DOREF, DOBASE 


02604 26 03750 03810 




00550 




TFM 


SCNT,0 


02616 16 09673 00000 




00560 




TFM 


GLNO,0,8 


02628 16 09390 00000 


TO: 


00510 




TF 


DOMAX, DOBASE 


02568 26 09587 03810 




00520 




TF 


*+18,PREBUF 


02580 26 02598 08765 




00530 




TR 


BUFl,INPUT-f26 


02592 31 08460 09704 




00540 




AM 


*-6, 75/10 


02604 11 02598 00075 




00550 




CM 


*-18,BUF4-t75 


02616 14 02598 08760 




00560 




BL 


*-36 


02628 47 02592 01300 


Page 3C 


I - same listing: 








FROM: 


11120 


SCNT 


DS 


5 




TO: 


11120 


SCNT 


DC 


5,0 





2. Error : Subtraction within a subscript expression causes an improperly 
relocated adjusted base address of an array if that array is at or near 
the beginning of the data area or if it is at or near the lowest COMMON 
address. 

Correction : Block 5 of Phase 2 has been reassembled to allow the 
correction necessary to be included. The enclosed listing of Block 5 
should be used in place of that found on Pages 43-48 of the Phase 2 
listing. (Listing is included as "Attachment A", Pages 1-4.) 

Twenty -^nine (29) new cards are provided; they are cards numbered 
51536, 51537, 51631 and those numbered 51690 thru 51715. Please 
remove the corre spondingly numbered cards from Deck #8 and insert the 
new ones provided . 
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FORTRAN II-D Loader, Deck #9 

1. Error : COMMON is incorrectly restored if the amount of COMMON used 
is in multiples of 100. 

Correction : The following changes are necessary to corredt the program: 
Page 4 of the listing (Block 2) should be changed: 

FROM: 01770 y TFM DICH35, ENT, 67 04702 16 0085T 05404 

TO: 01770 NOP 04702 41 00000 00000 

Page 7 of the same listing should be changed: 

FROM: 03110 SVE DSC 2,00 05923 2 

TO: 03110 SVE DSC 2,02 05923 2 

2. Error : When loading a series of core image subprograms, the first sub- 
program loaded will overlay the mainline program. 



Correction : The following changes are necessary to correct the program: 
Page 2 of the listing (Block 3) should be changed: 



FROM: 


01000 


TDM 


DIMDDA+6 , , 1 1 


03922 


15 


07096 00000 




01020 


TD 


SECCT, COMP+1 1,11 


03934 


25 


07156 03765 


TO: 


01000 


TD 


SECCT, DIMDDA+6 


03922 


25 


07156 07096 




01020 


TDM 


DIMDDA+6, ,11 


03934 


15 


07096 00000 


And Page 3 of the same listing: 










FROM: 


01080 


CM 


SECCT, 5, 10 


04006 


14 


07156 00005 




01090 


BL 


*+24 


04018 


47 


04042 01300 




01100 


SM 


SECCT, 5, 10 


04030 


12 


07156 00005 




OHIO 


MM 


SECCT, 20, 9 


04042 


13 


07156 00020 




01120 


AM 


99,INRK 


04054 


11 


00099 07400 




01130 


TR 


DIMSVE,99,11 


04066 


31 


07126 00099 




01140 


TD 


DMEDDA, DIMSVE 


04078 


25 


06998 07126 




01150 


TF 


DMEDDA+5 , DIMSVE+5 


04090 


26 


07003 07131 




01160 


TR 


DDAR, DMEDDA 


04102 


31 


07280 06998 




01310 


TF 


DDAR+ 1 3 , ADDS VE 


04242 


26 


07293 02472 
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TO: 



01080 
01090 
01100 
OHIO 
01120 
01130 
01140 
01150 
01160 
01310 



NOP 

NOP 

NOP 

TD 

TR 

TD 

TF 

TR 

TFM 

A 



*422,SECCT 

DIMSVE , INRK 

DMEDDA, DIMSVE 

DMEDDA+5 , DIMSVE-+5 

DDAR, DMEDDA 

DDAR+13,1 

DDAR+ 1 3 , ADDCOW 



04006 41 00000 
04018 41 00000 
04030 41 00000 
04042 25 04064 
04054 31 07126 
04066 25 06998 
04078 26 07003 
04090 31 07280 
04102 16 07293 
04242 21 07293 



00000 
00000 
00000 
71560 
07400 
07126 
07131 
06998 
00001 
02450 



Seven (7) new cards are provided; they are numbered: 



63111 
63127 
63146 
63147 
63148 
63149 
63151 



Please remove the correspondingly numbered cards from Deck #9 and 
insert the new ones provided. 

Disk Utility Program, Deck #3 

1 . Error : The * DREPL function comes to a check stop when attempting to 
move a program. 

Correction : No change to the listing is required. 

Three (3) new cards are provided; these cards are numbered 12033, 12046 
and 12047. Please remove the correspondingly numbered cards from 
Deck #3 and insert the new ones provided. 
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14100 



14101 

x r x vy X 




00002 




141 02 


17 


054 16 


J4202 


14114 

X "T X X "T 


48 


0 00 00 


00 00 0 
\j \j \j \j \j 


14126 


16 


02359 


-9248 


14138 


17 


02324 


j 41 26 


14150 


16 


02 35 9 


-9272 


14162 


17 


02324 


J4150 


14174 


16 


02359 


-9296 


14186 


17 


02324 


J4174 


14202 




-9547 




14207 




-2372 




14208 


17 


05416 


J4224 


14224 




-9547 




14229 




-2384 




14230 


17 


05416 


J 4246 


1424 6 




-9547 




1 4? S 1 

X *T C J X 




- ? °> 84 




14252 


12 


09547 


000-1 


142 64 


17 


05446 


J4280 


14280 




-9 54 7 




1 L. 9 ft R 




— 9 ^77 




1 A 9 Q A 
X rr C O O 


l i 


V y 9 *t i 


U U \j 1 




1 9 


AQAAl 
U v O O 1 


o n n o i 

U U \J \J 1 


14310 


17 


03976 


J4326 


14326 




-2377 




1433 1 




-2377 

L > " 1 




14332 


25 


15577 


04151 


14344 


2 5 


04735 


04373 


14356 


17 


08846 


J4372 


14372 




-6987 




143 77 




-6992 




14378 


26 


03509 


06977 


14390 


11 


03509 


000J2 


14402 


15 


07477 


00001 


14414 


43 


14434 


04735 


14426 


49 


14446 


00000 


14434 


32 


03509 


00000 


14446 


14 


02 372 


0-1 50 


14458 


47 


14614 


01 300 


14470 


46 


14548 


01200 


14482 


11 


09547 


000-6 


14494 


26 


03514 


03800 


14506 


17 


08846 


J4522 


14522 




-7017 




14527 




-2384 




14528 


12 


09547 


000-6 


14540 


49 


14672 


00000 


14548 


11 


09547 


000-3 


14560 


26 


03514 


03790 


14572 


17 


08846 


J4588 


14588 




-7017 





PR-025 (Card) 

ATTACHMENT A 



15620 




DORG 


14100 




15630 




TERTIARY LINKAGE 


BLOCK 


15640 




DC 


2,5 




15650 


■SUBCDS 


BTM 


RMNS 


, CDSSP 


15 660 




H 






15670 


SUBCAB 


TFM 


FMON+35 


, BL K6 


15680 




BTM 


FMON 


, SUBCAB 


15690 


SUBC12 


TFM 


FMQN+35 


,BLK7 


1 0 1 UU 




BTM 


FMON 


c ii pi r i 9 


15710 


SUB12B 


TFM 


FMON+35 


t BLK8 


15720 




D T KA 

d 1 n 


C M n M 


f SUB12B 


15730 


CDSSP 


DSA 


I >SR 


• 


15740 




BTM 


RMNS 


, *+16 


15750 




DSA 


I t.SY 




15760 




BTM 


RMNS 


, *+16 


1 C77A 

1 9 ( ( U 




DSA 


I t SY 




15780 




SM 


I 


tl 


15790 




BTM 


GTNS 


, # + 16 


15800 




DSA 


I f SX 




15810 




AM 


I 


, 1 


15820 




TDM 


S K I P S W 


j 1 


15830 




BTM 


SRFCT 


f * + 1 6 


15840 




DSA 


SX,SX 




15841 




TD 


SPC0M 


f CQMSW 


15850 




TD 


RXFLAG 


? F XORF L 


15860 




BTM 


CANDS 


t * + 16 


15870 




DSA 


Dl, DI 




15880 




TF 


N40005 


, ADCOW 


15890 




AM 


m r\ rv r\ cz 
N4 UUU 9 


t 12 


15900 




TDM 


SS2 


t 1 


1 c:qi 0 

1 J7 iU 




BD 


* + 20 




159 20 




B7 


*+20 




15930 




SF 


N40005 




159 40 




CM 


SR 


, 150 


15950 




BL 


XXI 




15960 




BE 


XX2 




15970 


XX3 


AM 


I 


t 6 


15980 




TF 


N40006 


,SUB3 


15990 




BTM 


CANDS 


, *.+ 16 


16000 




DSA 


D4,SY 




16010 




SM 


I 


,6 


16020 




B7 


XX4 




16030 


XX2 


AM 


I 


t3 


16040 




TF 


N40006 


, SUB2 


16050 




BTM 


CANDS 


t*+16 


160 60 




DSA 


D4,SY 
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14593 




-2384 






14594 


12 


09547 


000-3 


16070 


14606 


49 


14672 


00000 


1 6080 


14614 


17 


08846 


J463C 


16090 


14630 




-7017 




16100 


14635 




-2384 






14636 


26 


035 14 


03780 


16110 


14648 


14 


06987 


-000 1 


16120 


14660 


46 


15394 


01200 


16130 


14672 


17 


07032 


J4688 


16140 


14688 




-6980 




16.150 


14693 




-3514 






14698 




-3509 






14700 


17 


08152 


J4716 


16160 


14716 




-2377 




16170 


14718 


17 


08236 


J4734 


16180 


14734 




-7017 




16190 


14736 


44 


14760 


09327 


16200 


14748 


32 


06987 


00000 


16210 


14760 


17 


08236 


J4776 


16220 


14776 




-6987 




16230 


14778 


17 


08152 


J4794 


16240 


14794 




-6992 




16250 


14796 


14 


02372 


0-150 


16260 


14808 


47 


14948 


01300 


16270 


14820 


46 


14890 


01200 


16280 


14832 


17 


08846 


J4848 


16300 


14 848 




-6997 




16310 


14853 




-7002 






14854 


17 


08236 


J4870 


16320 


14870 




-6997 




16330 


14872 


17 


08 152 


J4888 


16340 


14888 




-7002 




1 6350 


14890 


17 


08846 


J 49 06 


16360 


14906 




-7007 




16370 


14911 




-7012 






14912 


17 


08236 


J4928 


16380 


14928 




-7007 




16390 


14930 


17 


08152 


J4946 


16400 


14946 




-7012 




16410 


14948 


15 


02265 


00001 


16450 


14960 


17 


08356 


J4976 


16460 


14976 




J5497 




16470 


14978 


15 


09661 


00000 


16480 


14990 


44 


15044 


09327 


16490 


15002 


12 


09547 


000-1 


16500 


15014 


17 


05416 


J5030 


16510 


15030 




-9547 




16520 


15035 




-9543 






15036 


49 


11788 


00000 


16530 


15044 








16540 


15044 


17 


05446 


J5060 


16550 


15060 




-9547 




16560 





SM 


I 


,3 




B7 


XX4 




XXI 


BTM 


CANDS 


, * + 16 




DSA 


D4 t SY 






TF 


N40006 


t SUB1 




CM 


Dl 


» 1 




BE 


CDS1FP 




XX4 


BTM 


PUTX 


, *+16 




DSA 


BTM,N40006 ? 


N40005 




BTM 


PUTC 


,* + 16 




DSA 


SX 






BTM 


PUTD 


,*+16 




n ^ a 


U *T 






BlMF 


* + 24 


,101 




SF 


Dl 






BTM 


PUTD 


f * + 1 6 




DSA 


Dl 






BTM 


PUTC 


t*+16 




DSA 


Dl 






CM 


SR 


* 150 




BL 


CDSSS1 






BE 


XX5 




CDSSS3 


BTM 


CANDS 


, - + 16 




DSA 


D2 * D J 






BTM 


PUTD 


, *+ 16 




DSA 


D2 






BTM 


PUTC 


f * + 16 




DSA 


DJ 




XX5 


BTM 


CANDS 


t *+16 




DSA 


■P3V.DK 






O T kA 

BTM 


PUTD 


t * + 1 6 




DSA 


D3 






BTM 


PUTC 


9 * + 1 6 




DSA 


DK 




CDSSS1 


TDM 


UFSTR+2 


t 1 


CDS1V 


BTM 


PUT KM 


,*+16 




DSA 


ZRM 






TDM 


SKIPSW 


,0 




BNF 


QZP 


t 101 




SM 


I 


fl 




BTM 


RMNS 


r * + 1 6 




DSA 


I ,ST 






B 


CD14B 






DGRG 


*-3 




QZP 


BTM 


GTNS 


i *+ 16 




DSA 


I f ST 
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15 065 




-9543 






15066 


12 


09547 


000-1 


16570 


15078 


14 


09543 


0-133 


16580 


15090 


47 


15188 


01200 


16590 


15102 


25 


04725 


04735 


16600 


15114 


15 


09337 


0000J 


16610 


15126 


17 


07032 


J5142 


16620 


15142 




-9 34 5 




16630 


15147 




-3940 






15152 




-9369 






15154 


17 


05476 


J5170 


16640 


15170 




-9547 




16650 


15175 




-9531 






15176 


17 


05940 


-2948 


16660 


15188 


44 


15212 


09326 


16680 


15200 


17 


05940 


J5212 


16690 


15212 


43 


15244 


09332 


16700 


15224 


16 


04193 


000K7 


16710 


15236 


49 


15256 


00000 


16720 


15244 








16730 


15244 


16 


04193 


000J7 


16740 


15256 


17 


07032 


J5272 


16750 


15272 




-4193 




16760 


15277 




-3935 






15282 




-9369 






15284 


17 


05476 


J5300 


16770 


15300 




-9547 




16780 


15305 




-9531 






15306 


15 


09326 


0000J 


16790 


15318 


25 


04795 


04735 


16800 


15330 


43 


15350 


09332 


16801 


15342 


49 


02948 


00000 


16802 


15350 


17 


05940 


J5362 


16803 


15362 


12 


09637 


000-1 


16804 


153 74 


32 


0963P 


00000 


16805 


15386 


49 


02948 


00000 


16810 


15394 


15 


15448 


00000 


16820 


15406 


43 


15426 


04735 


16821 


15418 


49 


15450 


00000 


16822 


1542 6 


44 


15450 


09327 


16823 


15438 


15 


15448 


0000J 


16824 


15448 




00000 




168 30 


15450 


44 


15498 


02377 


16831 


15462 


43 


14672 


15448 


16832 


15474 


15 


09659 


0000J 


16833 


15486 


33 


02377 


00000 


16834 


15497 




00002 




16835 


15498 


43 


15530 


047 35 


16840 


15510 


26 


07025 


02298 


16850 


15522 


49 


15542 


00000 


16860 


15530 


26 


07025 


02252 


16880 


15542 


15 


07477 


00000 


16910 


15554 


23 


07017 


07025 


16920 





SM 


I 


,1 




CM 


ST 


, 133 




BNE 


CDS1T 






TD 


RFLAG 


, RXFLAG 




TDM 


RSW 


,1 




BTM 


PUTX 


, * + 16 




DSA 


TF , FACAD , IM 13092 




BTM 


RPNS 


, * + 16 




DSA 


I ,FAC 






BTM 


GNRP 


,EXIT 


CDS1T 


BNF 


* + 24 


, FSW 




BTM 


GNRP 


,*+12 




D U 


* + 32 


,CALLSW 




TFM 


OPX 


,27 




B 


* + 20 






DORG 


*-3 






TFM 


OPX 


, 17 




BTM 


PUTX 


,*+16 




DSA 


0PX,T0FAC,N13092 




BTM 


RPNS 


, *+16 




DSA 


I » FAC 






TDM 


FSW 


, 1 




TD 


FLAGSW 


, RXFLAG 




BD 


* + 20 


,CALLSW 




B7 


EXIT 






BTM 


GNRP 


,*+12 




SM 


GBASE 


,1 




SF 


GBASE 


, 




B7 


EXIT 




CDS1FP 


TDM 


FXIOSW, 0 






BD 


# + 20 , RXFL AG 






B7 


PATSB2 






BNF 


*+24, 101 






TDM 


FXIOSW, -1 




FXIOSW 


DS 


,*-l 




PATSB2 


BNF 


CDS1Z,SX 






BD 


XX4,FXI0SW 






TDM 


FPSW,-1 






CF 


SX 




ZRM 


DC 


2,3,* 




CDS1Z 


BD 


* + 32 


, RXFLAG 




TF 


L 


, FP2 




B7 


CDS1S 






TF 


L 


,K 


CDS1S 


TDM 


SS2 


,0 




M 


D4 


,L 



1620-1311 Monitor I, PR-025 (Card) 
Modification No. 5 



ATTACHMENT A 



PAGE 4 



i DO on 


3 ^ 


U U U 7 J 


U U U 0 u 


1 t)7 




o r 


q k 




X _J f f 




0 0 0 0 0 




16931 


SPC0M 


DS 


< * 

7 




X -> f U 


? 6 


07017 

U 1 U 1 1 


00099 


1 6940 




TF 


D4 


j 99 


X ~) ~J j \J 


43 


1 56?A 


096 59 


1 69 50 




BD 


^- + 36 ? FPSW 




1 SAO? 


2 1 


070 17 


02377 


1 6951 




A 


D4 f SX 




1 RATA 

1 JO 1 T 


? A 

zi o 


D ? ^ ft 4 

U 6. J o t 


070 1 7 


169 5? 




TF 


S Y y D4 




1 56?6 


44 


1 5650 


1 5448 


16953 




BNF 


* + 24 f FXI0SW' 




1 5638 


32 


07025 


OOOKl 


16960 




SF 


L f 21 j 10 




1 c; A/. Q 




uuuuu 




1 AQ7H 
x o y i \j 


np 1 


LJ O 






1 A 
1 


1 O 


D 74 7 A 


vj VJ vJ VJ X 


X 1 W X \J 




TDM 


SSI 


, 1 


15662 


17 


07032 


J 5678 


17.020 




BTM 


PUTX 


f ^-+16 


1 RA7ft 








17030 




DS A 


MM • D I t L 




i (T /L Q 1 




— A Q Q 9 

0/7L 














1 Dboo 




"lUiiJ 














1 J07U 


44 


1 J I oo 


IJVO J7 


1 I U D 1 




D IMr 






ID f (JZ 


1 o 


1 D 04 V 


UUUivl 


I [ \) D C. 




TCM 

i r n 


ri p i 

U r O 




15714 


43 


1 5 / 3o 


i c: c ~7 i 
LOO ( ( 


1 lUii 


7 D T 


D u 


w xO a QDrnM 




1572 6 


1 5 


0 (H ( ( 


UUUU 1 


1 lAQ/, 

1 f U 34 




t n m 


O O^l 9 1 




1 C ~7 *3 O 

15738 


1 "7 

17 


070 32 


J J / 34 


1 1 U j j 






rU 1 Af *tio 




1 c;7c;a 
1 D / 




1 R Q 

J J D*t T7 




1 7 0 ^ A 






HP 1 .Ml ^09? .SX 




15759 




-9 369 














1 5764 




o Q ~7 "7 

-2 3 ( ( 














i J (DO 


*T J 


IRQ?? 


HQ A SQ 

w ✓ O J J 


1 7037 

X 1 u J 1 < 




BD 


PP J A 


7 FPSW 


I. D I I O 


4 V 


X J OH A 


uuuuu 


1 I U j o 




R 7 


1 ARMHT 
sj M f\ IN LJ 1 




1 S7 ft A 
1 J t oo 


A A 
*"t *T 


1 R ft 1 0 

1 J U 1 w 


1 544ft 


1 70 39 


PATS BO 


BNF 


^ + ?4 # F X I OS W 




1 5798 


1 5 


07479 


0000 1 


1703A 




TDM 


SS4 t 1 




1 jo 1U 


A A 


1 CQA7 
X J O *T <L 


n ? "^ft 4 

U C. D O *T 


i 7 n r 

X 1 U jD 




RNF 


J ARNDT • S Y 




1 5ft?? 


1 6 


15 649 


000 J 1 


17040 




TFM 


GPJ 


» 1 1 


15834 


49 


15714 


00000 


17041 




B7 


ZPT 




1 5842 


44 


15898 


02384 


17044 


J ARNDT 


BNF 


ITUSCUSY 




15854 


22 


070 17 


02377 


1 7045 


D4LNEG 


s 


D4 t SX 




15866 


44 


15922 


15448 


17046 




BNF 


PPJA, FXI0SW 




15878 


33 


070 17 


00000 


1 704A 




CF 


D4 




1 5ft90 


49 


1 59?? 


00000 
\j \j \j \j \j 


17047 




B7 


PPJA 




1 5898 


43 


15922 


15511 


1 7048 


I TUS0 


BD 


*+24,SPC0M 




i col n 
1 J ? 1 u 


1 0 


H7A 7 7 
U IH 1 I 


noon i 


1 704Q 

1 | Ut 7 




TDM 

1 U PI 


SS2,1 




i rqo; 

L C.C. 


1 7 


(170 "3? 

v 1 U 


1 59 ^ft 

J J 7 JO 


1 70 50 


PP IA 


RTM 

Dill 


PUTX 


, *+16 


1 593ft 




-9 34 7 




17060 




DSA 


AM,N13092 j D4 




i o /. q 
1 -> V4 j 




— V J07 














1 J 7^ O 




— 7n i 7 

i U x i 














1 J7 JU 


1 7 


n 7 o ^? 

U 1 U Jc 


I 5 Q A A 

vl J7DO 


1 70 70 

X I VJ f Vj 




RTM 


PUTX 


, *+16 


I J700 




— Q ^4 1 

7 J^ 1 




T 7 0 H 0 

X 1 KJ D \J 




u J H 


SF,N13133, BLANK 


15971 




-9376 














15976 




-9356 














15978 


49 


14978 


00000 


17090 




B7 


CDS1V+18 




16002 








17120 




D0RG 


16002 




16002 




00014 




17130 


xoox 


DSC 


14 t 01780013602400 


16016 


34 


16002 


00701 


17140 


XYYX 


34 


X00X t 701 




16028 


38 


16002 


00702 


17150 




38 


X00X, 702 




16040 


36 


00000 


00500 


17200 




TRA 






16052 


49 


000 00 


00000 












16016 








17210 




TCD 


XYYX 





>rnal iotial /'/■' 



Machines Corporation 




40 Saw Mill River Road 
Hawthorne, New York 10532 
WEite Plains 9-1900 (Code 914) 



MEMORANDUM TO: Users of IBM 1620 Data Processing Systems 

SUBJECT: IBM 1620-1311 Monitor I 

Program #1620-PR-025 (Card) 
Modification No. 6 



This letter transmits Modification No. 6 of the subject program. 

The material enclosed with this modification consists of the following: 

Twenty (20) Change Cards 



Any discrepancies between the material you receive and the items listed 
should be reported to the Manager of DP Programming Information Department, 
IBM Corporation, 112 East Post Road, White Plains, New York. 

This program has been registered by type of system and is listed under the 
name and address shown on your order. Program modifications as and when 
made by IBM will be sent to this same address . Should there be a change 
in your type of system or in your address, or should you no longer require 
maintenance of this particular program , we would appreciate your notifying 
your IBM Branch Office. 

An Authorized Programming Analysis Report (APAR) should be submitted through 
your local IBM Systems Engineer to report any difficulties encountered in 
the use of this system. The APAR should be addressed to APAR Processing, 
Programming Systems Department, IBM Corporation, Monterey and Cottle Roads, 
San Jose 14, California, 95114. 



Program Information Department 
cc: Branch Offices without enclosures 
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Disk Utility Program, Deck #3 

1 . Error DUP*ERROR 5 occurs when replacing a program after the work area 
has been redefined. 

Correction The following changes are necessary to correct this problem: 

Page 29 of the Listing (*DLOAD , *DREPL, *DELET MOD. LEVEL 4) should 
be changed 



2. 



From 13600 BL SCERR 

To 13600 SCR16 BL SCERR 

Page 33 of the same listing 
From 15860 B ISTO 

To 15860 B PATCH6 

Page 54 of the same listing 
From Previously vacant area 
Add 



06300 47 12854 01300 
06300 47 12854 01300 

08592 49 05956 
08592 49 13538 



25281 PATCH6 
25282 



TFMSCR16+1,41,10 
B7 ISTO 



13538 16 06301 00041 
13550 49 05956 



Error DUP*ERROR 8 occurs when trying to load more than 800 sectors 
to the disk, when there actually is enough room available. 

Correction The following changes are necessary to correct this problem: 

Page 14 of the Listing (*DLOAD , *DREPL, *DELET MOD. LEVEL 4) should 
be changed 



From 


05480. 


SF 


CONST5-2 


08988 32 02823 00000 




05490 


TF 


BAVAIL, CONST5 


09000 26 02754 02825 




05570 • 


SF 


FOUND- 2 


09080 32 03443 00000 


To 


05480 


SF 


CONST5-3 


08988 32 02822 00000 




05490 


TF 


MSTAKE-25,CONST5 


09000 26 08999 02825 




05570 


SF 


FOUND- 3 


09080 32 03442 00000 
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Page 16 of the same listing 



Prom 0 6 ft 0 0 




SF 


FOUND- 2 


10396 


32 

\J Ct 


03443 


00000 

\J \J \J \J \J 


Ofift 1 0 




TF 


BAVAIL, FOUND 


10408 

1 U " u u 


26 

Ct \J 


02754 


03445 


U006U 




CF 


FOUND- 2 


10420 




03443 


00000 

v U y u u 


\J U O O \J 


RAVnOM 

LJt\ V V \y 1V1 


C 


MOVESC, BAVAIL 


10432 


24 

Ct x 


02865 


02754 

\J Ct 1 <J T 


06A40 




BNH MOVNOW 


10444 


47 


10496 

J- \J ~ >J \J 


01100 

v X X V \J 


068R0 




A 


BAVAIL, LISTER 


10476 


21 


02754 

\J Ct 1 \J x 


02 764 


U U v7 X U 


MOVNOW 


S 


BAVAIL, MOVESC 


10496 


2 2 

Ct Ct 


02754 

\J Ct 1 vj " 


02 86 5 

U60U J 


06920 

V SJ sJ Ct \J 




CM 


BAVAIL, 000, 9 


10508 


14 


02754 


00000 


06940 

\J \J J T \J 




SF 


LISTER- 2 


10532 


32 

\J C* 


02762 


00000 

V/ v v U U 


06960 

\J \J +s \J \J 




CF 


*+21 


10556 


33 


10577 


00000 

V/ \J \J \J \J 


07000 




S 


WRMOVE46 , BAVAIL 


10604 


22 


02627 


02754 


To 06800 




SF 


FOUND- 3 


10396 


32 


03442 


00000 


06810 




TF 


MSTAKE-25 , FOUND 


10408 


26 


08999 


03445 


06820 




CF 


FOUND- 3 


10420 


33 


03442 


00000 


06830 


BAVCOM 


C 


MSTAKE-25 , MOVESC 


10432 


24 


08999 


02865 

\J tmt \J \J \J 


06840 




BNL MOVNOW 


10444 


46 


10496 


01300 


06880 




A 


MSTAKE-25, LISTER 


10476 


21 


08999 


02764 


06910 


MOVNOW 


S 


MSTAKE-25 , MOVESC 


10496 


22 


08999 

v/ \J w %y w 


02865 

\J La KJ \J \J 


06920 




CM 


MSTAKE-25, 000 ,9 


10508 


14 


08999 


00000 

\J \s \J \J \J 


06940 




B.7 


PAT6A 


10532 

1 Vvv 6 


49 


1 1092 

X JL \J ZJ Ct 




06960 


PAT6R 


CF 


*+21 


10556 


33 


10577 


00000 


07000 




S 


WRMOVE« , MSTAKE- 
















25 


10604 


22 


02627 


08999 


Page 17 of the same listing 














From Previously vacant area 












Add 07461 


PAT6A 


SF 


LISTER- 2 


11092 


32 


02762 


00000 


07462 




SF 


MSTAKE-27 


11104 


32 


08997 


00000 


07463 




TF 


PAT6R-t2 3, MSTAKE- 
















25 


11116 


26 


10579 


08999 


07464 




CF 


MSTAKE-27, 


11128 


33 


08997 


00000 


07465 




B7 


PAT6R 


11140 


49 


10556 





Eight( 8 ) replacement cards are provided. They are cards numbered: 



10262 
10263 
10281 



10282 
10283 
10290 



10386 
10537 
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Please remove the correspondingly numbered cards from Deck #3 
and insert the new ones provided. 

FORTRAN II-D Processor, Deck #8 

1 . Error Incorrect dummy variables within an arithmetic statement function 
are not detected in some cases. 

Correction The following changes are necessary to correct the problem: 
Page 44 of the listing (Phase 1-B) should be changed 

From 21740 BD ASC26 < FNTSW 13522 43 13426 10080 

To 21740 BD ASC26,INSW 13522 43 13426 03279 

2 . Error The message EXECUTION IS INHIBITED is not typed when the compile 
detects type 2 errors in Phase 1 or some errors in Phase 2. 

Correction The following changes are necessary to correct the problem: 

Page 2 of the listing (Phase 1-A) should be changed 

From 00760 Nil BV *+12 02502 46 02514 01400 

To 00760 Nil B PATCH2 02502 49 05558 00000 

Page 8 of the same listing 

Add 03618 PATCH2 BV *+12 05558 46 05570 01400 



03619 
0361A 
0361B 



TDM 475,2 

SF 457 

B7 Nll+12 



05570 15 00475 00002 
05582 32 00457 00000 
05594 49 02514 



Page 4 of the listing (Phase 1-C) should be changed 



From 



01730 



BTM ERROR2,579,9 



03552 17 10882 00579 



To 



01730 



B 



XIH1 



03552 49 11588 00000 
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Page 8 of the same listing should be changed 
From 03780 BTM ERROR2,575,9 

To 03780 B XIH2 

Page 21 of the same listing should be changed 
Add 



10037 XIH1 
10038 
10039 

1003A XIH2 

1003B 

1003C 



TDM JAY, 4 
BTM ERROR2,579,9 
B7 STMNT2 
TDM JAY, 4 
BTM EPvROR2,575,9 
B7 E89010+192 



Page 77 of the listing (Phase 2) should be changed 
From 



To 



28110 
28130 

28110 
28130 



LH1 



BD *+24,ERSWT 
RCTY 

B IHPAT 
RCTY 



05552 17 10882 00575 
05552 49 11620 00000 



11588 15 02367 00004 
11600 17 10882 00579 
11612 49 03564 
11620 15 02367 00004 
11632 17 10882 00575 
11644 49 05564 



12532 43 12556 09663 
12556 34 00000 00102 

12532 49 13344 00000 
12556 34 00000 00102 



Page 79 of the same listing, add the following after card number 28892 



28893 IHPAT TD *+21,JAY 

28894 CM *+9,4,810 

28895 BE ARNDT 

28896 BD ARNDT, ERSWT 

28897 CF 457 

28898 B7 LH1-12 

28899 ARNDT TDM SYSCAL,2 



2889A 



B7 



LH1 



13344 25 13365 02367 
13356 14 13365 00004 
13368 46 13412 01200 
13380 43 13412 09663 
13392 33 00457 00000 
13404 49 12544 0 
13412 15 00475 00002 
13424 49 12556 0 



Eleven (11) replacement cards are provided. These cards are numbered: 



50124 
50165 
50166 
51112 



51415 
51416 
51442 
51523 



51889 
51900 
51901 



30 
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Please remove the correspondingly numbered cards from Deck #8 
and insert the new ones provided. 



FORTRAN II-D, Loader, Deck #9 

Error A LOCAL subprogram whose length is an even multiple of 100 places 
a group mark in core storage. This group mark remains in core and 
terminates the read from disk of any subsequent LOCAL'S which are 
longer. 

Correction The following change is necessary to correct this problem: 

Change Page 7 of the 1620 FORTRAN II-D Loader, Block 5 

From 03320 AM *+18 / l, 10 06180 11 06198 00001 

To 03320 AM *+18,2, 10 06180 11 06198 00002 

One (1) replacement card numbered 63226 is provided. Please remove 
the correspondingly numbered card from Deck #9 and insert the new one 
provided. 

After inserting all of the correction cards, only Decks #3, #8, and #9 
should be loaded on the Monitor I disk pack using deck #1 (system loader). 



Program Information Department 



i 



□ 
□ 




40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 (Code 914) 



matronal Business Machines Corporation 



September 8, 1964 



MEMORANDUM TO: 



Users of IBM 1620 Data Processing Systems 



SUBJECT: 



IBM 1620-1311 Monitor I 
Program No. 1620-PR-025 (Card) 
Modification No. 7 



This letter transmits Modification No. 7 of the subject program. The 
material enclosed with this modification consists of the following: 

Twenty- eight (28) Correction Cards 

Any discrepancies between the material you receive and the items listed 
should be reported to the Manager of DP Program Information Department, 
IBM Corporation, 112 East Post Road, White Plains, New York. 

This program has been registered by type of system and is listed under the 
name and address shown on your order. Program modifications as and 
when made by IBM will be sent to this same address. Should there be a 
change in your type of system or in your address, or should you no longer 
require maintenance of this particular program, we would appreciate your 
notifying DPD Program Information Department through your IBM Branch 
Office. 

An Authorized Programming Analysis Report (APAR) should be submitted 
through your local IBM Systems Engineer to report any difficulties encountered 
in the use of this system. The APAR should be addressed to APAR 
Processing, Programming Systems Department, IBM Corporation, Monterey 
and Cottle Roads, San Jose, California 95114. 



PROGRAM INFORMATION DEPARTMENT 



cc: Branch Offices without enclosures 



1620-1311 Monitor I 

Program No. 1620-PR-025 (Card) 

Modification No. 7 

Page 2 



Disk Utility Program, De ck #3 

Error If a *DLOAD control card specifies a sector address and that address 
is the first sector after the scratch area, an erroneous DUP * ERROR 5 
is given. 

Correction The following change is necessary to correct the problem: 
Page 25 of the listing (*DLOAD) should be changed 

From 11570 BH SCROK 06516 46 06588 01100 

To 11570 BNL SCROK 06516 46 06588 01300 

One (1) replacement card numbered 10317 is provided. Please remove 
the correspondingly numbered card from Deck #3 and insert the card 
provided. 

SPS II- D Subroutines, Deck #5 

1. Error The Cosine routine introduces a small error in the answer 
when the argument is in the range . 001 >X^.. 0001. 

Correctio n The following changes are necessary to correct the problem: 

Page 9 of the listing (SPS II- D Subroutine Set 01) should be changed 

From 16030 CM BETA, 03, 1011 00076 J 4 00098 000-L 

To 16030 CM BETA, 04, 1011 00076 J 4 00098 000-M 

One (1) replacement card numbered §2393 is provided. Please remove 
the correspondingly numbered card from Deck #5 and insert the 
card provided, 

FORTRAN II- D Processor , Deck #8 

1- Error Invalid DO statements not detected in some cases. 

Correction The following changes are necessary to correct the problem: 
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Page 47 of the listing (Phase 1-B) should be changed 



From 23630 SF 

23640 BTM 


OUTSW 
CSORN, *+12 


12342 
12354 


32 
17 


07020 
05690 


00000 
12366 


To 23630 BTM 
23640 BT 


CSORN, *+12 
PUT,SMADD-1 


12342 
12354 


17 
27 


05690 
09036 


12354 
07193 


Page 48 of the same listing 












From 24020 SF 

24030 BTM 


OUTSW 
CSORN, *+12 


12778 
12790 


32 
17 


07020 
05690 


00000 
12802 


TV, 9 AO 91 "RTM 

24030 BT 


PUT,SMADD-1 


12790 


1 7 
1 I 

27 


09036 


Lei 1 aU 

07193 


Page 49 of the same listing 












From 24280 BD 


*+20, FXORFL 


13042 


43 


13062 


06405 


To 24280 BD . 


. ADDCK, FXORFL 


13042 


43 


14648 


06405 


Page 51 of the same listing 












Add 25826 DORG 

25827 ADDCK CM 

25828 BE 

25829 B7 


SWSET+2 
SMCNT, 2219 
D0+24 
D0EE-24 


14648 
14648 
14660 
14672 


14 
46 
49 


07247 
12214 
13062 


02219 
01200 



2. Error A function name appearing as an invalid input/output list 
element not detected in some cases. 

Correcti on The following changes are necessary to correct the problem: 
Page 50 of the listing (Phase 1-B) should be changed 

From 25340 BTM CSORN, *+12 14076 17 05690 14088 



To 25340 



BTM CSORN, IOG+116 



14076 17 05690 1 4556 
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Page 51 of the same listing 
Add 



25821 
25822 



BNR 

B7 



IOD+72, SMCNT, 11 
IOLER 



14556 45 14088 07247 
14568 49 13800 



DORG ADDCK+32 
BNR DKD+72, SMCNT, 11 
DKER 



14144 17 05690 14156 
14144 1 7 0 5690 1 4680 



14680 

14680 45 14156 07247 
14692 49 13728 



Page 54 of the same listing 

From 27270 BTM OSORN,*+12 

To 27270 BTM CSORN, ADDCK+32 

Page 55 of the same listing 

Add 27311 
27812 

27813 B7 
Error Missing operator not detected after function subprogram calls. 
Correction The following change is necessary to correct the problem: 
Page 46 of the listing (Phase 1-B) should be changed 

From 22740 B ASC7 14514 49 12598 00000 

To 22740 B RTCALL-44 14514 49 13198 00000 

Error When a subscript expression in an implied DO Loop of an input- 
output statement involves a calculation of +105, +125, +134 such as 
A (I + 125), the compiler will loop in some cases and not complete 
the compilation. 

Cor rection The following changes are necessary to correct the problem: 
Page 66 of the listing (Phase 2) should be changed 

From 24080 BNE *+32 11938 47 11970 01200 

To 24080 BNE KM125 11938 47 13530 01200 
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Page 71 of the same listing 



25883 KM125 


CM 


SL, 148, 9 


13530 14 02399 00H8 


25884 


BL 


CD14NA+78 


13542 47 11970 01300 


25885 


CM 


SL, 151, 9 


13554 14 02399 00151 


25886 


BH 


CD14NA+78 


13566 46 11970 01100 


25887 


SM 


SL, 146, 9 
SL, 3, 10 


13578 12 02399 00146 


25888 


MM 


13590 13 02399 00003 


25889 


SF 


96 


13602 32 00096 00000 


2588A 


A 


I, 99 


13614 21 09547 00099 


2588B 


B7 


CD14NA+12 


13626 49 11904 



Twenty-One (21) correction cards are provided. They are numbered 



51125 
51162 
51163 
51168 



51169 
51172 
51186 
51192 



51193 
51194 
51362 
51363 



51368 
51369 
51372 
51387 



51393 
51394 
51826 
51848 
51849 



Please remove the correspondingly numbered cards from Deck #8 and 
insert the cards provided. 

FORTRAN n-D Loader, Deck #9 

1. E rror When a CALL LINK operation is performed, COMMON must 
be saved in order to protect the data which may be used by the link 
being called. 

if the program calling this link uses LOCAL subprograms and the 
LOCAL'S terminating group mark is in core storage in the area reserved 
by the COMMON statement of the link being called it will be saved, 
in working storage, as a part of the links COMMON. Since COMMON 
is restored using a read with wrong length record check command, 
the read will be terminated by the LOCAL'S terminating group mark 
resulting in the incomplete restoration of COMMON. 



Correction The following changes are necessary to correct the problem: 



i 
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Page 2 of the listing (FORTRAN E-D Loader, Block 6) should be changed 
From 00650 ARITH TFM DIO+35, ENT, 67 02522 16 00851 03670 

To 00650 ARITH B PATCHl 02522 49 03670 00000 



Page 4 of the same listing 



From 01666 ENT 
01670 
01680 
01690 



BI *+12, 3700 

BNI ERRET, 1900 

TDM INDS+10, 6 

B ERROR 



03670 4 6 03682 03700 
03682 47 00602 01900 
03694 1 5 00620 0000 6 
03706 49 00624 00000 



To 



01611 
01666 
01670 
01680 
01690 



CORSZE DC 
PATCHl TD 
AM 
S 
B 



5, 0, *-5 

CORSZE-4, COMSEC+76 
CORSZE-3, 10, 10 
CORSZE, COMADD 
PATCH2 



03468 5 
03670 25 03464 07376 
03682 11 03465 00010 
03694 22 03468 02231 
03706 49 03914 



And on Page 5 of the same listing 



From 01770 SVE 
01890 



DSC 2, 00 
DORG 7280 



03838 
07280 



01770 


SVE DSC 


2, 02 


03838 2 


01883 


PATCH2 CM 


CORSZE, 2099 


03914 14 03468 02099 


01884 


BH 


ARITH+12 


03926 46 02534 01100 


01835 


BD 


AJUST, CORSZE- 1 


03938 43 03982 03467 


01886 


BD 


AJUST, CORSZE 


03950 43 03982 03468 


01887 


TF 


SVEDDA+8, CORSZE- 2 


03962 2 6 02498 03466 


01888 


B7 


ARITH+12 


03974 49 02534 0 


01389 


AJUST AM 


CORSZE-2, 1, 10 


03982 11 03466 00001 


01990 


B7 


*-32 


03994 49 03962 0 


01991 


DORG 


7280 


07280 



Five (5) replacement cards are provided; they are numbered 

63241 63258 63260 

63256 B3259 
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Please remove the correspondingly numbered cards from Deck #9 
and insert the cards provided. 

After inserting all of the correction cards, only Decks #3, #5, #8 and 
#9 should be loaded onto the Monitor I disk pack using Deck #1 (System 
Loader). 
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40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 (Code 914) 



Uernational Business Machines Corporation 



October 7,1964 



MEMORANDUM TO: 



Users of IBM 1620 Data Processing Systems 



SUBJECT: 



IBM 1620-1311 Monitor I 
Program No. 1620-PR-025 (Card) 
Modification No. 8 



This letter transmits Modification No. 8 of the subject program. The 
material enclosed with this modification consists of the following: 

One (1) Program deck (System Table Editor) numbered 99001-99082, Deck #14. 
One (1) Listing for System Table Editor 

Any discrepancies between the material you receive and the items listed 
should be reported to the Manager of DP Program Information Department, 
IBM Corporation, 112 East Post Road, White Plains, New York. 

This program has been registered by type of system and is listed under the 
name and address shown on your order. Program modifications as and 
when made by IBM will be sent to this same address. Should there be a 
change in your type of system or in your address, or should you no longer 
require maintenance of this particular program, we would appreciate your 
notifying DPD Program Information Department through your IBM Branch 
Office. 

An Authorized Programming Analysis Report (APAR) should be submitted 
through your local IBM Systems Engineer to report any difficulties encountered 
in the use of this system. The APAR should be addressed to APAR 
Processing, Programming Systems Department, IBM Corporation, Monterey 
and Cottle Roads, San Jose, California 95114. 



PROGRAM INFORMATION DEPARTMENT 



Distribution: SE Managers, CE Managers 
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Note : Those users who received Modification No. 4 for the 1620-1311 
Monitor I System received an Execute Program. (Execute Program No. 2) 
The System Table Editor (Deck #14) will replace that Execute Program 
which may be discarded. 

System Table Editor (Deck #14) 

This deck is not to be loaded with the system but should be used as described: 

The Disk Identification Map (DIM) and the Sequential Program List (S. P. List) 
are changed whenever a user adds or deletes a program in his system. All 
installed systems will contain different entries in these tables. The maintenance 
of such a system is not possible in every users installation by loading change cards 
over the original tables- -instead correction procedures must consider the vari- 
ability of the tables. The program described here was designed to correct and 
reconstruct these tables if they should be altered incorrectly for any reason. 

Purpose : 

This maintenance program will examine the users DIM entries for correct format. 
After typing any incorrect entry along with the entry number and an error message, 
the incorrect entry is deleted. A new Sequential Program List is created using 
the DIM entries. If this new list is different from the former list, the user can 
print the old list before the new list is substituted. 

When the new list is created, it is possible that two different DIM entries specify 
the same area on disk. This error is handled by deleting any DIM entry that 
conflicts with any previously examined entry. The first of the entries encountered, 
under these conditions, will be the one that is retained. 

After the new list has, been constructed, a list of DIM entry numbers may be 
printed. This list will contain the entry numbers of any DIMs deleted because 
they specified disk sectors already specified by other DIM entries. Thus the user 
may wish to dump the DIMs using a *DDUMP control record before running this 
modification program. 

Operation: 

Place the deck supplied in the input unit as a normal monitor job. Retain the 
program for use in the event that any new problems arise. 
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Results: 

Sequential Program List Creation 

If the new Sequential Program List, which is built up from the DIM 
entries, compares equally with the one on the disk, the message, 
"S. P. LIST IS CORRECT" is typed. If the Lists do not compare 
equally, the message, "S. P. LIST IS INCORRECT" is typed and the 
program halts. Turning Console Switch One (1) on and pressing Start 
will dump the incorrect list (the one that was on the disk) onto the 
typewriter. In either case, the new list will be written on the disk 
when the Start Key is depressed. 

Any DIM numbers which are typed, after the S. P. List message 
has been typed, have been deleted from the DIM Table and replaced 
by eights (8's) in the Equivalence Table. These eights will not affect 
system operations. 
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D 
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DC 
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TF 
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14 
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46 
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A O A O A 


48 


UOUUU 


A A AAA 

UUUUU 


02438 


16 


03551 


OO AA 

-3oUU 


02450 


16 


00565 


-2473 


02462 


49 


00566 
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39 
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38 


03800 
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34 
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02674 


11 
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16 
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OA A 

uuu — 
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11 
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uuu— £. 
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14 
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IQQQQ 
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47 
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O 1 ^OO 


027 34 


16 
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«J £.\J\J\J 
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16 
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49 
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ARE THERE ANY TO BE DROPPED 




02770 


14 


03376 
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02782 


46 
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16 


02841 
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INIT. FOR EQUIV, TABLE READ 
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16 
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16 
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26 
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34 


00000 
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38 
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bT 
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GET DIM ENTRY 
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B7 
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49 
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C 
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00001 






01190 


MAP 20 


DSC 


20 ,0 














03559 


00020 






01200 


DMNXT 


DSC 


20,0 














03579 


00020 






01210 


DIM1 


DSC 


2,22 














03599 


00002 






01220 




DSA 


DIM2 














03605 


00005 


-3607 


01230 




DSC 


it a 














03606 


00001 






01240 


DIM2 


DSC 


1,1,, 








CONTROL FIELD 


TO 


READ DIMS 


























03607 


00001 






01250 




DC 


5,04800 














03612 


00005 






01260 




DC 


3,050 














03615 


00003 






01270 




DSA 


DIMS 














03620 


00005 


J1800 


01280 




DSC 


ltd 














03621 


00001 






01290 




DORG 


3700 














03700 








01300** 


EDIT THE DIM 


TABLES 


FOR 


FLAGS OR 


RECORD MARKS 








01310 


SAVE 


MM 


DIMS+68, 


5, 


10, 




MAXIMUM NUMBER 


OF 


DIMS 




























03700 


13 11868 


000-5 


01320 




SF 


96 














03712 


32 00096 


00000 


01330 




TF 


MAXDIM,99 












03724 


26 02632 


00099 


01340 




TFM 


DIMNUM, 1 


,8 


t 




START 


DIM COUNTER 


03736 


16 02636 


0-001 


01350 




TFM 


MAP,DIMS+20, , 




IN IT. 


TO DIM POSITION 1 




























03748 


16 05373 


J1820 


01360 




TR 


EQU2,DIMS+40 










03760 


31 03498 


11840 


01370 




TFM 


DR0PDM,LlSTCM+3 










03772 


16 03376 


-3703 


01380 




TDM 


START+25 


tl 


1 1 




NOP BRANCH TO 


SAVE 




























03784 


15 03829 


0000 1 


01390 




fa7 


START+48 


, , 






RETURN 


TO MAIN 


DIM EXIT 


























03796 


49 03852 


00000 


01400 


START 


TFM 


I0RT,*+23 












03804 


16 00565 


-3827 
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0 14 10 




b 


10'GTt DI Ml,7 y 


READ DIMS 


03816 


49 


00566 


-3599 


0 1420 






SAV F • • • 


CHANGE TO NOP AFTER FIRST TIME 














03828 




■J D 1 uu 


ooooo 

U VJ V_> Vy VJ 


0 1430 




TFM 


MAP , DI MS » t 


IN IT. IX) POSITION 


ZERO 
03840 




OS 111 

\JD DID 


1 1 ft on 


0 1440 




TFM 


CNT 2 .0 # 10 • 


MAP+CNT2 IS POINT 


03852 


1 f\ 
L O 


KJHc. I «J 


000-0 


0 1450 


TEST 


bNR 


INUSE t MAP til? 


IS DIM IN USE 


03864 


45 


041 04 


0537L 


0 1460 




AM 


MAP • 1 • 10 • 


NO 


03876 


i i 
1 1 


U3 DID 


000-1 


0 1470 




AM 


CNT2 • 1 • 10 • 


TEST FIRST POSITION 


















03888 


11 


\J*r£. 1 \J 


000-1 


0 1480 




b7 


T E S T 1 




03900 


49 


mtQ o 
yJD^Dc. 


OOOOO 


0 1490 


TESTR 


AM 


MAP • 1 • 10 

n m r fxy lw 




03908 


11 


UD DID 




0 1500 




AM 


V* • t. t Ay 




03920 


11 


U*t-A i U 


000— 1 
uuu x 


01510 




BNF 


*+20 t MAP, lit 


TEST REST OF DIM 


03932 


44 






01520 




B7 


DIMFOR,,, 


FOR UNFLAGGED ZEROS 


















03944 


49 


U4^04 


VwUV/U 


01530 


TEST1 


BD 


DIMFOR, MAP, 11 




03952 


43 




OS "*7I 


01540 




CM 


CNT2, 19, 10 v 


HAS LAST ONE BEEN 


TESTED 
















03964 


1 a 


U*f C. i u 


000 J9 


01550 




BL 


TESTR 




03976 


A.7 




01 300 


01560** INCREMENT TO NEXT DIM ENTRY 














NF X T 


AM 


n t mki iim. i . in . 

ly i niN u c\ , i , i \j , 


NEXT DIM NUMBER 


03988 


1 1 
X 1 


r\ i a o. a 


000-1 






r 
V# 


H T MM IIM. Miy DIM - 


END OF DIM TABLE 


04000 


0 A 


f\ OA 1 A 
U AO DO 


w» £ O D C 


0 1590 




RF 


PUTCYL 




04012 


L. A 

•to 


f\j. too 


O 1 ?Ofi 


01600 




AM 


MAP tit 10 




04024 


11 


UjJ 1 D 


000— 1 


01610 




CM 


MAP ,DI MS+5000 , , 


END OF 50 SECTORS 


04036 


14 


UD DID 


1 Aft OO 


01620 




BL 


TEST-12 




04048 


47 


U 3o !><: 




01630 




TFM 


IORT,*+23 




04060 


16 




-408 3 


01640 




B 


I0PT,DIM1,7, 


WRITE DIM TABLE 


04072 


49 


W J D C 


D J * * 


01650 




AM 


DIM2+5,50, 10, 


YES 


04084 


11 


03612 


OOONO 


01660 




B7 


START,, t 


GO READ NEXT 50 


04096 


49 


03804 


00000 


01670 


INUSE 


TFM 


CA, CF I ELD , , 


DIM IS IN USE 


04104 


16 


04294 


-4534 


01680 




TF 


LP+11,MAP 




04116 


26 


04139 


05373 


01690 


LP 


BNR 


*+20,MAP, , 


CHECK FOR VALID DIM 


















04128 


45 


H41 Aft 

V/"T X "TO 


05373 


01700 




B7 


DIMFOR,,, 


ACCORDING TO CFIELD 


















04140 


49 


04264 


00000 


01710 




BD 


ADD1 , CA, 11 




04148 


43 


f|A 1 ft A 
U*f 1 o*t 


0429M 


01720 




BNF 


NF ,CA,11 




04160 


44 






01730 




BNF 


DIMFOR, LP+llt 11 




04172 


44 




041 3R 


01740 


ADD1 


AM 


CA/lt 10 




04184 


11 


04294 


OOO— 1 
\J\J\J x 


01750 




AM 


LP+llt It 10 




04196 


11 


04139 


OOO— 1 


01760 




BNR 


LP t CA t 1 1 




04208 


45 


04128 


0429M 


01770 




BNR 


DI MFOR t LP+ 1 1 1 1 1 




04220 


45 


04264 


0413R 


01780 




AM 


MAP, 19, 10 




042 32 


11 


05373 


000 J9 


01790 




B7 


NEXT 




04244 


49 


03988 


00000 


01800 


NF 


BNF 


ADDlt LP+llt 11 




04252 


44 


04184 


0413R 


01810 


DIMFOR 


RCTY 


♦ , , 


DIM ENTRY IS IN ERROR 


















04264 


34 


00000 


00102 


01820 


CNT2 


DC 


2,0,*-5 




04270 


00002 




01830 




WATY 


FORMD 




04276 


39 


04501 


00100 


01840 




RCTY 






04288 


34 


00000 


00102 


01850 


CA 


DC 


5,0,*-5 




04294 


00005 
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A I lit A 

U 1 ooU 




UM T V 
WIN 1 T 


n I MM 1 1 M— 'X 

U i niN Un j t t | 


TYPP HTM MlMh(-D aa^ nn 


38 


02633 


nn i nn 


UiO f u 




tDTV 
1 T 






34 


00000 


00 1 0 1 

\J\J iUi 


U looU 


AD I 

Ud 1 


1 \C 

ut 


O 9 iUUUU it* H 




00006 




n i Hon 




c 
o 


MAP . r mt ? 




22 


05373 


04270 


r\ 1 AAA 




1 rn 


ni imd i QQnn 

UUrlr y 1770U 


AA7 "iA 


16 


\j j J * \ 


J9980 


A 1 Q 1 A 


1 UUUnr 


t n 
1 U 


HI IMD MAD All 
UUnr f rlAr « Oil 




25 


ak lop 

Sjj 37r 


\MD D • L 


U i7CU 




AM 

An 


MAP. 1. in 


04360 


11 


\J J D f D 


000-1 


0 1930 




An 


UUnr t i y IU 


04372 


11 


U-? D** 


nnn— 1 


0 1940 




OU 


1 uuunr t UUnr— i 


04384 


43 


04348 


ACaQA 
vl D j~0 


A 1 QC A 

U 1 VDU 




UIM 1 Y 


i oo ft n 

1770U 


04396 


35 


19980 


00 100 


0 1960 




5M 


MAD i in 
nAr t 1 9 1U 


04408 


12 


05373 


nnn— 1 


0 1970 




TC 

Tr 


y AO 7 CD fl 1 Q A. 

nAr y £ tKU iV 9 0 9 


DELETE INVALID DIM ENTRY 














AAA in 


26 


0537L 


vr D 


01980 




SM 


MAP 9 19 9 10 




12 


05373 


nnn iq 

UUU J" 


0 1990 




TDM 


nAr 9 » 6 


OAAAA 


15 


0537L 


nnnnn 


UtUUU 










00001 




n on in 




AM 

An 


MAP . 1 Q . in 
nAr 9 1 v 9 iu 




11 


05373 


000 J 9 






TF 


DROP DM . DI MNUM . 6 


04468 


26 


03370 


02636 






AM 

An 


DROP DM • 4.10 


04480 


11 


03376 


000-4 


02040 




u "7 
O f 


KIP Y T 
IMC A 1 


U*t*f7£ 


49 


03988 


00000 


02050 


F0RM0 


DAC 


1 "7 hi U C DO MAT COD OD 2) 

1# t Uln rUKWA 1 cKKUKa) 




00034 




02060 


C F I E L D 


use 


1 »o 




0000 1 




02070 




DC 


5 9O 


nz. c; iq 


00005 




02080 




DC 


3t0 


04542 


00003 




02090 




DC 




04547 


00005 




02100 




DC 


5 9 1 


04552 


00005 




021 10 




DSC 


1 9 3 


04553 


00001 




02120 


SAVE 1 


TR 




04554 


31 


03538 


11880 


02 130 




1 r 




04566 


26 


04845 


1 1828 


02140 




TF 




04578 


26 


03211 


1 1825 


02150 




TD 




04590 


25 


03206 


11820 


02160 




TDM 


oni t c t a f» . l 
KUL 1 i> 1 1 


04602 


15 


04835 


0000 1 


02170 




87 


TDUAD 

1 K nAr 


04614 


49 


04846 


OOOOO 


02180** MAKE A 


1 ict u ? tu njui v r vi Thinpp 


ENTRIES IN IT 








02190 


PUTCYL 


TFM 


1 t 7nnn 


04622 


16 


J2003 


OP 000 


02200 




CF 


Li ST 9 t 2 


04634 


33 


J2000 




02210 




AM 


PUTCYL+69 49 ID 


04646 


11 


04628 


AAA.A 


02220 




AM 


DllTTVl xl 1 1 in 

rUI IT L+ii» if iU 


04658 


11 


04633 


000—1 


02230 




AM 


PUTCYL+18 f 4, 10 


04670 


11 


04640 


000-4 


02240 




80 


a . -pn D 1 it r v 1 - . 

*t^U frUI L « LTv 9 9 


TEST FOR LAST ENTRY DONE 














04682 


43 


04702 


04631 


02250 




87 


PUTCYL 


04694 


49 


04622 


00000 


02260 




TDM 


D HTf V 1 x 1 Q A 

rUILTL+io» f Of 


ADD FINAL RECORD MARK 

04702 


15 


0464- 


00000 

V# \J \J V/ \J 


02270 




DSC 


1 9 #t * 


04713 


00001 




02280 




SF 


| T C T 

L i O 1 t t t 


FLAG START OF LIST 

047 14 


32 


12000 


00000 

\J KJ KJ \J KJ 


02290 




AM 


DIITTVI Al fl A lA 

PUILt L+lo»H» IU 


04726 


11 


04640 


000-4 


02 300 




TFM 


PUTCYL+ 18 90*68 


047 38 


16 


0464- 


0-000 


02310 




SM 


PUTCYL+I8,3f 10 


04750 


12 


04640 


000-3 


02320 




CF 


PUTCYL+189t6 


04762 


33 


0464- 


00000 


02330 




AM 


PUTCYL+18,39 10 


04774 


11 


04640 


000-3 


02340 




TFM 


DIMNUM f 000298 9 


START WITH DIM ENTRY TWO 
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02350 




TFM 


TRMAP+ll,DIMS+40 


02360 


RDLIST 


TFM 


IORT,*+23,, 


02370 




6 


I0GT,MAP1,7 


02380 




b 


SAVE1 


02390 


SCRSC 


DC 


3,0,* 


02400 


TRMAP 


TR 


MAP 20, DIMS 


02410 




BNR 


M0NPK-24,MAP20 


02420 


NXT 


AM 


DIMNUMf It 10, 


02430 




C 


DI MNUMf MAXDI M, » 


02440 




BNL 


FILLIN 


02450 




AM 


TRMAP+11,20,10, 


02460 




6D 


TRMAPt DIMNUM 


02470 




AM 


MAP2+5,2, 10, 


02480 




TFM 


TRMAP+11,DIMS 


02490 




B7 


RDLIST 


02500** DIM REFERS TO MONITOR PACK 


02510 




CM 


MAP 20, 1, 10 


02 i>20 




BH 


NXT 


CK2!>3U 


LA OKI O 1/ 


yy 
MM 


y in <5A i C C 1 A 

MAP 20 + 5, 5, 10. t 






Tn 
1 u 


f VI Q A 


Vtt 5DU 




1 U 




UtDOU 




T CM 


LK + 11 f LI o l+it » 


02570 


LK 


c 


CYL,LlST+3,7, 


02580 




BE 


GETR 


02590 




AM 


LK+11,4, 10, 


02600 




B7 


LK 


02610 


GETR 


AM 


LK+11,1,10, 


02620 




BNR 


*+32,LK+ll,ll 


02630 




AM 


LK+11,3, 10 


02640 




B7 


INS,,, 


02650 




AM 


LK+11,3,10 


02660 




C 


SEV,LK+11, 11 


02670 




BL 


INS,,, 


02680 




TF 


DMBT+6,LK+11 


02690 




SM 


DMBT+6,3, 10 


02700 


DMBT 


SF 


LIST,,, 


02710 


CYL 


DC 


4,7000,* 


02720 




BT 


DIMMER, LK+11, 11 


02730 




CF 


DMBT+6, , 6 


02740. 


SEV 


DC 


4,6999,* 


02750 




TF 


HOLD5,MAP20+5 


02760 




S 


H0LD5 , DMNXT+5 


02770 




BZ 


ERR 



047 86 


16 


02636 


0-002 


04798 


16 


048 57 


J1840 


READ TWO SECTORS OF DIMS 






04810 


16 


00565 


-4833 


048 22 


49 


00566 


-3396 


04834 


49 


04554 


00000 


04845 


00003 






31 


03559 


11800 


04858 


45 


04962 


03559 


NEXT DIM ENTRY 04870 


11 


02636 


000-1 


LAST DIM TEST 04882 


24 


02636 




04894 


46 


05438 


01300 


NEXT ENTRY 04906 


11 


048 57 


000K0 


04918 


43 


04846 


02636 


READ NEXT TWO SECTORS 








04930 


11 


03409 


000-2 


04942 


16 


048 57 


J1800 


04954 


49 


04810 


00000 


04962 


14 


03559 


000-1 


04974 


46 


04870 


01100 


CALCULATE CYLINDER OF PROGRAM 




04986 


13 


03564 


000-5 


04998 


25 


05193 


00096 


05010 


25 


05192 


00095 


INIT. CYL. SEARCH TO FIRST 


ENTRY 




05022 


16 


05045 


J2003 


COMPARE FOR CYLINDER OF 


PROGRAM 




05034 


24 


05193 


J2003 


05046 


46 


05078 


01200 


NEXT ENTRY 05058 


11 


05045 


000-4 


05070 


49 


05034 


00000 


GET RIGHT HAND ENTRY H.O. 






05078 


11 


05045 


000-1 


05090 


45 


05122 


0504N 


05102 


11 


05045 


000-3 


IF RECORD MARK, INSERT DIM 






05114 


49 


05266 


00000 


05122 


11 


05045 


000-3 


05134 


24 


05217 


0504N 


IF CYLINDER, INSERT DIM 








05146 


47 


05 266 


01300 


05158 


26 


05188 


05045 


05170 


12 


05188 


000-3 


IT MUST BE A DIM NUMBER 








05182 


32 


12000 


00000 


05193 


00004 




05194 


27 


03216 


0504N 


05206 


33 


0518Q 


00000 


05217 


00004 




05218 


26 


05313 


03564 


05230 


22 


05313 


03584 


05242 


46 


05406 


01200 
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02780 


bP 


GETR 


05254 


46 


05078 


01100 


0^ /^0«* 


iNSfcKT 


DIM NUMBEk INTO LIST 










O^ouO iNi> 


Tr 


Tr jirt+lltPUTCYL+18 


05266 


26 


05325 


04640 


02olO 


aM 


PuTuYL+18 , 4, 10 , 


CONTAINS ADDRS. OF RECORD MARK 










05278 


11 


04640 


000-4 


02820 


SM 


LK+.llt 3t 10 


05290 


12 


05045 


000-3 


02830 


SF 


LK + 1 1 , v 6 


05302 


32 


0504N 


00000 


02840 H0LD5 DC 


5,0,* 


05313 


00005 




02850 TFDIM TF 


PUTCYL+18, LlST+4,6, 


OPEN FOR DIM NUMBER 














05314 


26 


0464- 


12004 


02860 


AM 


LK+11,3,10 


05326 


11 


05045 


000-3 


02870 


TF 


LK+11,DIMNUM,6, 


PUT IN DIM NUMBER 05338 


26 


0504N 


02636 


02880 


SM 


LK+11,3,10 


05350 


12 


05045 


000-3 


02890 


CF 


LK+11,,6, 


CLEAR FLAG OVER DIM 














05362 


33 


0504N 


00000 


02900 MAP 


DC 


5,0,* 


05373 


00005 




02910 


AM 


LK+11,4, 10 


05374 


11 


05045 


000-4 


02920 


CF 


LK+11,,6 


05386 


33 


0504N 


00000 


02930 DUMP 


DC 


5,0,* 


05397 


00005 




02940 


B7 


NXT 


05398 


49 


04870 


00000 


02950** 


TWO PROGRAMS START AT THE SAME SECTOR ADDRESS 








02960 ERR 


TF 


DROPDM , DI MNUM , 6, 


05406 


26 


03370 


02636 


02970 


AM 


DR0PDM,4, 10 


05418 


11 


03376 


000-4 


02980 


67 


NXT 


05430 


49 


04870 


00000 


02990** 


FILL IN LIST WITH 9-ENTR IES 


AND DUPLICATE DIMS 








03000 FILL IN TFM 


SA,0,7, 


INIT. TO START OF LIST 














05438 


16 


03371 


-0000 


03010 


TFM 


POINT, LI ST**- 3 


05450 


16 


03366 


J 200 3 


03020 


TFM 


SC,200,9, 


INIT. SC TO 200 05462 


16 


05661 


OOKOO 


03030 NX 


AM 


POINT, It 10, 


NEXT ENTRY TO RIGHT H.O. 












05474 


11 


03366 


000-1 


03040 


BNR 


*+32, POINT, 11 


05486 


45 


05518 


03360 


03050 


AM 


POINT, 3, 10, 


REACHED END OF LIST 














05498 


11 


03366 


000-3 


03060 


87 


LST 


05510 


49 


06806 


00000 


03070 


AM 


POINT, 3, 10 


05518 


11 


03366 


000-3 


03080 


C 


SEV, POINT, 11, 


IS IT A CYLINDER ENTRY 














05530 


24 


05217 


03360 


03090 


BNL 


NOCYL 


05542 


46 


05766 


01300 


03100 


CM 


SCO, 9, 


IS SC DOWN TO ZERO 














05554 


14 


05661 


00-00 


03110 


BE 


NX-12 


05566 


46 


05462 


01200 


03120 


TF 


PT9+11,END,, 


YES 05578 


26 


05637 


04640 


03130 


AM 


END, 4, 10 


05590 


11 


04640 


000-4 


03140 


SM 


POINT, 3, 10 


05602 


12 


03366 


000-3 


03150 


SF 


POINT, ,6 


05614 


32 


03360 


00000 


03160 PT9 


TF 


END, LIST, 6, 


MOVE LIST TO THE RIGHT 














05626 


26 


0464- 


12000 


03170 


TF 


NINESCSC 


056 38 


26 


05709 


05661 


03180 


CF 


NINESC-2 


05650 


33 


05707 


Ouooo 


03190 SC 


DC 


3,0,* 


05661 


00003 




03200 


AM 


POINT, 3, 10 


05662 


11 


03366 


000-3 


03210 


TF 


P0INT,NINESC,6, 


INSERT 9 ENTRY 05674 


26 


03360 


05709 
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03220 




SM 


POINT, 3, 10 


03230 




CF 


POINT, v .6 t 


03240 


NINESC 


DC 


4,9000,* 


03250 




AM 


POINT, 4, 10 


03260 




CF 


POINT, ,6, 


032 70 




A 


SA,SC, , 


03280 




AM 


POINT, 3t 10 , 


03290 




b7 


NX-12 


03300 


NOCYL 


TF 


NOCYL+ 30, POINT, , 


03310 




SM 


NOCYL+30 , 3, 10 


03320 




SF 


LIST, ,2 


03330 




BT 


DIMMER, POINT, 11, 


03340 




CF 


NOCYL+30 , , 6 


03350 




S 


DMNXT+5, SA 


03360 




BN 


ERR 1 , , , 


03370 




BZ 


FITS,,, 


03380 




SF 


OMNXT+3, ,t 


03390 




TF 


NINESC, DMNXT+5 


03400 




CF 


NINESC-2, , , 


03410 




TF 


0P+11,END 


03420 




AM 


€ND,4, 10 


03430 




SM 


POINT, 3, 10 


03440 




SF 


POINT, ,6 


03450 


OP 


TF 


END, LIST, 6, 


03460 




AM 


POINT, 3, 10 


03470 




TF 


POINT, NINESC, 6, 


03480 




SM 


POINT, 3, 10 


03490 




CF 


POINT, ,6, 


03500 




AM 


POINT, 4, 10 


03510 




CF 


POINT , ,6, 


03520 




A 


SA, DMNXT+5, , 


03530 




S 


SC t DMNXT + 5 , , 


03540 




AM 


POINT, 3, 10 , 


03550 


FITS 


A 


SA,DMNXT+8 , , 


03560 




S 


SCDMNXT+8, , 


03570 




BZ 


NX,,, 


03580 




BP 


NX,,, 


03590 




AM 


POINT, 1, 10, 


03600 




BNR 


*+32, POINT, 11, 



05686 


12 


03366 


000-3 


CLEAR FLAG OVER 9 05698 


33 


03360 


00000 


057 09 


00004 




05710 


11 


03366 


000-4 


CLEAR FLAG SET FOR MOVE 








05722 


33 


03360 


00000 


UPDATE SECTOR ADDRS. 








05734 


21 


03371 


05661 


POINT TO ENTRY ON RIGHT 


OF 


9XXX 




05746 


11 


03366 


000-3 


05758 


49 


05462 


00000 


MUST BE A DIM NUMBER 








05766 


26 


05796 


03366 


05778 


12 


05796 


000-3 


05790 


32 


J 2000 


00000 


GET DIM ENTRY 05802 


27 


03216 


03360 


05814 


33 


05790 


00000 


05826 


22 


03584 


03371 


THERE IS AN OVERLAP 








05838 


47 


06382 


01300 


NO 9XXX NEEDED 05850 


46 


06066 


01200 


PUT A 9 ENTRY IN FRONT OF DIM 




05862 


32 


03582 


00000 


05874 


26 


05709 


03584 


PREPARE TO INSERT REMAINDER 




05886 


33 


05707 


00000 


05898 


26 


05957 


04640 


05910 


11 


04640 


000-4 


05922 


12 


03366 


000-3 


05934 


32 


03360 


00000 


MOVE LIST TO MAKE ROOM FOR 


9XXX 




05946 


26 


0464- 


12000 


05958 


11 


03366 


000-3 


INSERT REMAINDER 05970 


26 


03360 


05709 


05982 


12 


03366 


000-3 


CLEAR FLAG OVER 9 05994 


33 


03360 


00000 


06006 


11 


03366 


000-4 


CLEAR FLAG SET FOR MOVE 








06018 


33 


03360 


00000 


UPDATE SECTOR ADDRS. 








06030 


21 


03371 


03584 


SUBTRACT REMAINDER 9 FROM : 


S.C. 




06042 


22 


05661 


03584 


MOVE POINTER TO DIM 








06054 


11 


03366 


000-3 


UPDATE WITH S,C. OF DIM 








06066 


21 


03371 


03587 


DOES DIM OVERLAP CYLINDER 






0607B 


22 


05661 


03587 


JUST FITS 06090 


46 


05474 


01200 


ROOM FOR MORE 06102 


46 


05474 


01100 


OVERLAPS CYLINDER 06114 


11 


03366 


000-1 



IS NEXT POSITION A 
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06126 


45 


06158 


03360 


03610 


AM 


POINT, 3, 10 , 






CYLINDER ENTRY 06138 


11 


03366 


000-3 


03620 


b7 


LST 






06150 


49 


06806 


00000 


03630 


AM 


POINT, 3, 10 






06158 


11 


03366 


000-3 


03 640 


C 


SEV, POINT, 11 






06170 


24 


05217 


03360 


03650 


BNL 


ERR 2 






06182 


46 


06554 


01300 


03 660 


AM 


POINT, It 10 , 






YES 06194 


11 


03366 


000-1 


03670 


SF 


POINT, ,6 






06206 


32 


03360 


00000 


03680 


TF 


*+35,END 






06218 


26 


06253 


04640 


03690 


AM 


END, 4, 10 






06230 


11 


04640 


000-4 


03700 


TF 


END,LIST,6, 






OPEN LIST TO RIGHT OF CYLINOER 














06242 


26 


0464- 


12000 


03710 


AM 


POINT, 3, 10 






06254 


11 


03366 


000-3 


03720 


TF 


POINT, DIMMER- 


It 


6, 


INSERT DIM NUMBER 06266 


26 


03360 


03215 


03730 


SM 


POINTS, 10 






06278 


12 


03366 


000-3 


03 740 


CF 


POINT, ,6, 






CLEAR FLAG OVER DIM 

06290 


33 


03360 


00000 


03750 


AM 


POINT, 4, 10 






06302 


11 


03366 


000-4 


03760 


CF 


POINT, ,6, 






CLEAR FLAG FROM MOVE 

06314 


33 


03360 


00000 


03770 


SM 


POINT, 1,10 






06326 


12 


03366 


000-1 


03780 


AM 


SC200 ,9, 






ADD 200 FOR NEXT CYLINDER 
















06338 


11 


05661 


OOKOO 


03790 


BZ 


NX 






06350 


46 


05474 


01200 


03800 


BNF 


NX,SC 






06362 


44 


05474 


05661 


03810 


B7 


FITS+48, , , 






STILL NEGATIVE 06374 


49 


06114 


00000 


03820** 


PROGRAMS OVERLAP 














03830 ERR 1 


TF 


DROPDM, DIMMER 


^1 


.6 


06382 


26 


03370 


03215 


03840 


AM 


DROPDM, 4, 10 






06394 


11 


03376 


000-4 


03850 


AM 


POINT, 1, 10 






06406 


11 


03366 


000-1 


03 860 


TR 


NOCYL+30 , POINT, 


611, 


DROP DIM FROM LIST 


















06418 


31 


05790 


03360 


03870 


SF 


POINT, ,6 






06430 


32 


03360 


00000 


03880 


TF 


ERR 1+42, POINT 






06442 


26 


06424 


03366 


03890 


BNR 


* + 20 , POINT, 11 






06454 


45 


06474 


03360 


03900 


B7 


*+44 






06466 


49 


06510 


00000 


03910 


AM 


POINT, 3, 10 






06474 


11 


03366 


000-3 


03920 


C 


POINT, DIMMER- 


It 


6 


06486 


24 


03360 


03215 


03930 


BE 


ERR1+24 






06498 


46 


06406 


01200 


03940 


CF 


ERR1+42, ,6 






06510 


33 


0642M 


ooooo 


03950 


TF 


POINT, NOCYL + 30 




06522 


26 


03366 


05796 


03960 


SM 


POINT, 1, 10 






06534 


12 


03366 


000-1 


03970 


B7 


NX 






06546 


49 


05474 


OOOOO 


03980** 


PROGRAM OVERLAPS CYLINDER* 


BUT NEXT ENTRY IS NOT CYLINOER 






03990 ERR2 


SM 


POINT, 3, 10 






06554 


12 


03366 


000-3 


04000 


BNR 


* + 20, POINT, 11 


t 




IS IT END OF LIST 06566 


45 


06586 


03360 


040 10 


B7 


LST 






06578 


49 


06806 


OOOOO 


04020 


SF 


POINT, ,6 






06586 


32 


03360 


OOOOO 


04030 


TF 


ERR2+43tP0INT 


» f 




SAVE POINT IN LIST 

06598 


26 


06597 


03366 


04040 


AM 


POINT, 3, 10 






06610 


11 


03366 


000-3 


04050 


TF 


SAVDM, POINT, 11 




06622 


26 


06725 


03360 


04060 


TF 


DROPDM, SAVDM, 


6, 




PUT DIM NUMBER IN DROP LIST 
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066 34 


26 


03370 


06725 


04070 




AM 


DR0PDM,4, 10 






06646 


11 


03376 


000-4 


04080 




AM 


POINT, 1, 10 








11 


03366 


nnn— i 


0409 0 


TR ? 


TR 


ERR2+43, POINT, 611, 


nRflPD TM MIIMRf-P 
U l>U r U 1 I" IMUnDCrx 




, LIST 
















UOO i u 


31 


0659P 


U d5ou 


UH1UU 




cm 


pr, iwt l> in 






UOOO ^ 


12 


03366 


nnn — a 


041 1 0 




HMR 

D»Nf\ 


* + ?0 .POINT. 1 1 

^ ~ C\J f r LI 1 IN 1 , A *> 






UOO 7*r 


45 


06714 


LI J jDU 


04120 




H7 


r 1 1 o ~ Ovl 






06 706 


49 


06126 


L*LI LI LI LI 


04130 




SF 


PO TKl T . . A 






UO I it 


32 


03360 


nnnnn 


04140 


SAVDM 


DC 


4 -0 • * 






06725 


00004 




04150 




TF 


TR ?+b . PO I NT 

1 i\ C ' v , r vJ X IN 1 






06726 


26 


06676 


\J D D DO 


04160 




AM 


PQ INT . 10 

r U 4 «N | f J f XL* 






06738 


11 


03366 


nnn_a 


04170 




C 


POINT. SAVDM. 6 






06750 


24 


03360 


06725 


04180 




BE 


TR2-1 2 






06762 


46 


06658 


01200 


04190 




SM 


POIN T, 3 v 10 






06774 


12 


03366 


000-3 


04200 




CF 


POINT t • 6 

■ * ' ^ 1 y y w 






06786 


33 


03360 


00000 


04210 




67 


F I TS + 60 






06798 


49 


06126 


00000 


04220** RECORD 


MARK MARK*; FMH 


nc THF 
ur 1 r i c 


S.P. LIST 










042 30 


LST 


CM 


^CR SA-5 • 1 • 10 • 




IS SCRATCH ON MONITOR PACK 


















06806 


14 


03206 


000-1 


04240 




BH 


NOSCR 






06818 


46 


07022 


0 1 100 


04250 




MM 


ere ca.r. i o • 




WHAT IS THE STARTING CYLINDER 
















068 30 


13 


03211 


nnn— 


04260 




TD 


fYl .96 

L» » Li , ~ O 






06842 


25 


05193 


00096 


04270 




TD 


CYL-1 ,95 






06854 


25 


05192 


00095 


04280 




TFM 


PI IT ^ PR 4- 1 1 - 1 ? QT- 


l 
1 




06866 


16 


06901 


i 1 999 


04290 




AM 


p i it^ re 4. i l - in 






06878 


11 


06901 


000—4 


04300 


PUT SCR 


C 


ti L.f LI j 1 tjf 1 , 




FIND FIRST CYLINDER 




















06890 


24 


05193 


J2003 


04310 




BNE 








06902 


47 


06878 


01200 


04320 




AM 


PUTSf R+ 1 1 • 4« 10 






06914 


11 


06901 


000-4 


04330 




C 


NTNF?*PHT<nPR + 11 

rN * f N t C. , r LI 1 J.t^Tll 


• 11. 


IS THERF A 9200 


06926 


24 


06985 


0690 J 


04340 




BNE 


FRR 3 

L. r\r\ j 






069 38 


47 


03350 


01200 


04350 




TFM 


PUTSCR+1 1 tOOO 1 , 


68 , 


REPLACE IT WITH 


DIM 0001 


















06950 


16 


0690J 


0-001 


04360 




SM 


PUTSCR+ 1 1 • 3 * 10 






06962 


12 


06901 


000-3 


04370 




CF 


PUTSCR+11* »6 






06974 


33 


0690J 


00000 

\J V/ VJ KM Vr 


04380 


NINE2 


DC 


4,9 200 , * 






0698 5 


00004 




04390 




AM 


PUTSCR + llt lit 10 






06986 


11 


06901 


000 Jl 


04400 




SM 


SCRSC,1,10, 




KEEP TRACK OF NUMBER OF 


CYLINDER 


s 














06998 


12 


04845 


000-1 


04410 




BNZ 


PUTSCR+36 






07010 


47 


06926 


01200 


04420 


NOSCR 


CM 


SCO ,9 






07022 


14 


05661 


00-00 


04430 




BE 


WT 






07034 


46 


02402 


01200 


04440 




TFM 


N0CYL-2,WT,, 




YES 


07 046 


16 


05764 


-2402 


04450 




B7 


PT9-48 






07058 


49 


05578 


00000 


04460 


PATCH 


OSS 


100 






07065 


00100 




04470 


LIST 


DS 


» 12000 






12000 


00000 




04480 


DIMS 


US 


,11800 






118 00 


00000 




04490 


LISTDK 


DS 


,3800 






03800 


00000 




04500 


LISTCM 


DS 


,3700 






03700 


00000 




04510 


END 


DS 


,PUTCYL+18 






04640 


00000 




04520 




UEND 


START 






038 04 









nr 




40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 (Code 914) 



ternatiorml Business Machines Corporation 



MEMORANDUM TO: 



December 8/1964 
Users of IBM 1620 Data Processing Systems 



SUBJECT: 



IBM 1620-1311 Monitor I 
Program No. 1620-PR-025 (Card) 
Modification No. 9 



This letter transmits Modification No. 9 of the subject program. The 
material enclosed with this modification consists of the following: 

Twelve (12) Correction Cards 

Any discrepancies between the material you receive and the items listed 
should be reported to the Manager of DP Program Information Department, 
IBM Corporation, 112 East Post Road, White Plains, New York. 

This program has been registered by type of system and is listed under the 
name and address shown on your order. Program modifications as and 
when made by IBM will be sent to this same address. Should there be a 
change in your type of system or in your address, or should you no longer 
require maintenance of this particular program, we would appreciate your 
notifying DPD Program Information Department through your IBM Branch 
Office. 

An Authorized Programming Analysis Report (APAR) should be submitted 
through your local IBM Systems Engineer to report any difficulties encountered 
in the use of this system. The APAR should be addressed to APAR 
Processing, Programming Systems Department, IBM Corporation, Monterey 
and Cottle Roads, San Jose, California 95114. 



PROGRAM INFORMATION DEPARTMENT 



Distribution: SE Managers, CE Managers 
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SPS II-D Subroutines, Deck #5 

1. Error The Arctangent routine hangs up upon execution. 

Correction The following changes are necessary to correct the problem: 
Page 12 of the listing (Set 1) should be changed 

From 00030 FATN1 TFM PCK+5, *+20, 1 00000 16 02370 00020 

To 00030 FATN1 TFM PCK+5, *+20, 17 00000 16 02370 00020 

One (1) replacement card numbered 22409 is provided. Please 

remove the correspondingly card from Deck #5 and insert the card provided. 

SPS II-D Processor, Deck #6 

1. Error The macro -operations SAVE and RSTR do not assemble correctly 
in a relocatable assembly. 



Correction The following changes are necessary to correct the problem: 
Page 32 of the listing (SPS II-D, Phase B) should be changed. 



From 15780 CF 


ZEPO+7 


10526 


33 


02307 


00000 


15940 CF 


ADDRS-4 


10696 


33 


03490 


00000 


To 15780 B 


PATCH1 


10526 


49 


14378 


00000 


15940 B 


PATCH2 


10696 


49 


14410 


00000 


Page 40 of the same listing should be changed 










From PreviousfyVacant Area 












To 19621 PATCH1BNF 


*+24, RLOCSW 


14378 


44 


14402 


07992 


19622 SF 


ZEP0+1 


14390 


32 


02301 


00000 


19623 B7 


RSTRF+204 


14402 


49 


10538 


00000 


19624 PATCH2BNF 


*+24, RLOCSW 


14410 


44 


14434 


07992 


19625 SF 


ZEP0+12 


14422 


32 


02312 


00000 


19626 B7 


SAVEF+120 


14434 


49 


10708 


00000 
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Four (4) replacement cards numbered 23642, 23644, 23693 and §3694 
are provided. Please remove the correspondingly numbered cards 
from Deck #6 and insert the cards provided. 

Supervisor, Deck #7 

1. Error Erroneous error message LD3 is typed when loading a 
relocatable program stored on the disk such that a three sector 
boundary coincides with a cylinder boundary. 

Correction The following changes are necessary to correct the problem: 
Page 3 of the listing (Monitor I Relocating Loader) should be changed 



From 01200 BI 
To 01200 BNI 
Page 10 of the same listing 

Add 04151 PATCH BNI 

04152 BD 

04153 B7 



*+12, 1700 
PATCH, 1700 



ERR- 12, 3600 
ERR, CNTL+4 
DIS 



01006 46 01018 .01700 
01006 46 02264 01700 



02264 47 01018 03600 
02276 43 01030 00924 
02288 49 00934 



Two (2) replacement cards numbered 80007 and 80032 are provided. 
Please remove the correspondingly numbered cards from Deck #7 
and insert the cards provided. 

FORTRAN H-D Processor, Deck #8 

1. Error Erroneous trailer records are produced when a source 

program calls 26 or 93 different subprograms. These records prevent 
the loading of the FORTRAN object program. 

Correction The following changes are necessary to correct the problem: 
Page 16 of the listing (Phase 1-C) should be changed 

From 07730 TDM CADD, 6, 6 09298 15 10855 00006 



To 07730 



B SJ0492 



09298 49 11652 00000 
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Page 21 of the same listing 

Add 1003D ST0492 C CADD, CEND 11652 24 10855 10860 



1003E BNE *+36 11664 47 11700 01200 

1003F BTM OUTADD, 00000 11676 17 10270 00000 

1003G SM CADD, 3, 10 11688 12 10855 00003 

1003H TDM CADD, 6, 6 11700 15 10855 00006 

10031 B7 HU+34 11712 49 09310 



2. Error NEXT COMMON not correctly calculated when COMMON area 
extended by array equivalence. 

Correction The following changes are necessary to correct the problem: 



Page 8 of the listing (FORTRAN n-D, Phase 1-C) should be changed 



From 03720 
To 03720 



BNF *+48, TELSW 
BNF EXTCOM, TELSW 



05480 44 05528 07104 
05480 44 11720 07104 



Page 21 of the same listing 



Add 1003 J EXTCOM TF *+3 5, TEMP3 

1003K S *+23,WDLN 

1003L CM COMADD, *-* 

1003M BNE E89010+156 

1003N TF COMADD,*- 13 

1003O B7 E89010+156 



11720 26 11755 03422 
11732 22 11755 02962 
11744 14 02262 00000 
11756 47 05528 01100 
11768 2 6 02262 11755 
11780 49 05528 



Five (5) replacement cards numbered 51441, 51492, 51523, 51524 and 
51525 are provided. Please remove the correspondingly numbered 
cards from Deck #8 and insert the cards provided. 

After Decks #5, #6, #7, and #8 have been corrected, only these decks 
should be loaded to the Monitor I disk pack using Deck #1 (System Loader). 
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ternational Business Machines Corporation 



March 5, 1 965 



MEMORANDUM TO: Users of IBM 1620 Data Processing Systems 

SUBJECT: IBM 1620-1311 Monitor I 

Program No, 1620-PR-025 (Card) 
Modification No. 10 



This letter transmits Modification No. 10 of the subject program. The 
material enclosed with this modification consists of the following: 

Thirty-Nine (39) Correction Cards 

Any discrepancies between the material you receive and the items listed 
should be reported to the Manager of DP Program Information Department, 
IBM Corporation, 112 East Post Road, White Plains, New York. 

This program has been registered by type of system and is listed under the 
name and address shown on your order. Program modifications as and 
when made by IBM will be sent to this same address. Should there be a 
change in your type of system or in your address, or should you no longer 
require maintenance of this particular program, we would appreciate your 
notifying DPD Program Information Department through your IBM Branch 
Office. 

An Authorized Programming Analysis Report (APAR) should be submitted 
through your local IBM Systems Engineer to report any difficulties encountered 
in the use of this system. The APAR should be addressed to APAR 
Processing, Programming Systems Department, IBM Corporation, Monterey 
and Cottle Roads, San Jose, California 95114. 



PROGRAM INFORMATION DEPARTMENT 
Distribution: SE Managers, CE Managers 
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Disk Utility Program (PUP), Deck #3 

1. Error When an SPS program which uses subroutines is stored 
Core Image, any constants which are to be stored above 22302 
are lost if the program exceeds 20, 000 core positions. 

Correction The following changes are necessary to correct the problem: 

Page 8 of the listing (1620 Monitor I DUP Routine *SELECTION 
Routine Mod. Level 4) should be changed 



From 03360 SF WR2+13 

To 03360 SF WR2+14 

Page 9 of the same listing should be changed 
From 03580 B IO GT, DDA1, 7 

To 03580 B FTAPAR, DDA1, 7 

Page 16 of the same listing should be changed 
From Not used at this point in execution 

To 05791 DORG 06468 

05792 FTAPAR BNF *+24, WR2+14 

05793 SF WR2+13 

05794 B7 IOGT 



05016 32 02270 00000 
05016 32 02271 00000 

05130 49 00566 05908 
05130 49 06468 05908 



06468 

06468 44 06492 02271 
06480 32 02270 00000 
06492 49 00566 



Error The file protecting ability of the DCOPY routine did not function 
in some cases and the completion message did not indicate this. 

Correction The DCOPY routine has been modified to perform the 
file protecting function as specified. The changes are combined with 
those under error 3. 



3. Error An erroneous error message printed, indicating that insufficient 
availabel storage for the copy was found by the DCOPY routine. 
This occurred in cases when the starting sector address for the copy 
was located after a program on a cylinder. 
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Correction The DCOP Y routine was modified to perform the check 
of available disk area in the specified manner. 



Change the DCOPY listing (DUP) as follows: 



Page 6 of the listing should be 


changed 






From 02600 


BTM 


BAK, WKA 


04740 


17 03268 06227 


To 02600 


B 


NXTDIM 


04740 


49 06250 00000 


Page 7 of the listing should be 


changed 






From 03130 


BD 


SETFPR, CHGP+7 


05276 


43 06036 0 5155 


To 03130 


NOP 




05276 


41 00000 00000 


Page 8 of the listing should be 


changed 






From 03420 


BNF 


*+36, STCHG+1 


05488 


44 05524 02861 


03430 


WNTY 


SAVRO+5 


05500 


38 05743 00100 


03440 


B 


*+24 


05512 


49 05536 00000 


To 03420 


B 


*+36 


05488 


49 05524 00000 


03430 FILDEF 


DSC 


2, 26 


05500 


00002 


03432 


DSA 


RDDIM 


05506 


00005 02700 


03435 


DC 




05507 


00001 


03438 


DSC 


4 ,0 


05508 


00004 


03440 


NOP 




05512 


41 00000 00000 


From 03620 


TDM 


DEFIN+1, 6 


05762 


15 05380 00006 


03630 


TDM 


DEFOUT+1, 6 


05774 


15 05388 00006 


03640 


TDM 


CHGP+7, 1 


05786 


15 05155 00001 


03650 


TF 


CFINS+11, DUM1+11 


05798 


26 05347 05913 


03660 


TF 


CFINS+18, DUM+6 


05810 


26 0 5354 0 5900 


03670 


TR 


RDDIM, SAVWR 


05822 


31 02700 03756 


03680 


TR 


RDDIM+20, SAVWR 


05834 


31 02720 03756 


03690 


TFM 


RDDIM+8, 20, 9 


05846 


16 02708 00020 


03700 


TFM 


RDDIM+28, 20,9 


05858 


16 02728 00020 


03710 


TF 


SAVRO+10, SAVRD+5 


05870 


26 05748 04813 


03720 


TD 


SAVRO+5, SAVRD 


05882 


25 05743 04808 


03730 DUM 


B7 


RDWR, , 0 


05894 


49 05252 
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From (Cont'd) 



03740 


DUM1 


BD 


ENDMES, SETX+10, 0 


05902 43 05992 06210 


03750 


* 






03820 


* 








03830 


* SELECT AND FILE PROTECT THE SECTORS COPIED 


03840 


SETFPR 


TFM 


SFFL+11, INEQU, 7 


06036 16 06083 10000 


03850 




AM 


SFFL+11 4 


06048 11 06083 00004 


03860 


CFH 


TFM 


FLAG+1, 41, 10 


06060 16 06145 00041 


03870 


SFFL 


C 


SAVWR+5, INEQU, 7 


06072 2 4 03761 10000 


03880 




BH 


FLAG- 12 


06084 46 06132 01100 


03890 


PNT 


DS 


, SFFL+11 


06083 0 


03900 




C 


WKHICP, PNT, 11 


06096 2 4 0 6223 06083 


03910 




BL 


SETX 


06108 47 06200 01300 


03920 




TFM 


FLAG+1, 32, 10 


06120 16 06145 00032 


03930 




SM 


PNT, 4 


06132 12 06083 00004 


03940 


FLAG 


SF 


PNT, , 6 


06144 32 06083 00000 


03950 




AM 


PNT, 105 


06156 11 06083 00105 


03960 




CM 


PNT,105*20+INEQU 


06168 14 0 6083 12100 


03970 




BNH 


SETFPR+12 


06180 47 06048 01100 


03980 




B7 


WRDSKF 


06192 49 05288 


03990 


* 








04000 


SETX 


TDM 


SETX+10, 9 


06200 15 06210 00009 


04010 




B7 


WRDSKF 


06212 49 0 5288 


03635 




TR 


RDDIM, SAVWR 


05762 31 02700 03756 


03640 




TFM 


RDDIM+8, 20, 9 


05774 16 02708 00020 


03650 


SH 


SF 


SAVCNT-4 


05786 32 04308 00000 


03660 


FPADR 


DS 


, SH+11 


05797 00000 


03670 




TF 


CNTDWN, SAVCNT 


05798 26 06103 04312 


03680 




TFM 


RDDIM+13, 10000 


05810 16 02713 10000 


03690 




SF 


BUTTON 


05822 32 00455 00000 


03700 


BUTTON DS 


,00455 


00455 00000 


03710 


BREP 


TFM 


IORT,*+23 


05834 16 00565 05857 


03720 




B 


IOGT, FILDEF, 7 


05846 49 00566 05500 


03730 




TFM 


FPADR, 10004 


05858 16 05797 10004 


03740 


SOMMOR C 


SAVWR+5, FPADR, 11 


05870 24 03761 05797 


03750 


* 


NUMBER OF SECTORS TO PROTECT 


03755 




BNH 


SFPFLG 


05882 47 06080 01100 


03758 




B7 


CONUE 


05894 49 06036 00000 
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To (Cont'd) 



03840 CONUE 


AM 


FPADR, 105 


06036 


11 05797 


00105 


03845 


CM 


FPADR, 12000 


06048 


14 05797 


12000 


03850 


BH 


WRFPR 


06060 


46 06152 


01100 


03860 


B7 


SOMMOR 


06072 


49 05870 


00000 


03870 SFPFLG 


SM 


FPADR, 4, 10 


06080 


12 05797 


00004 


03880 


SF 


FPADR, , 6 


06092 


32 05797 


00000 


03890 


AM 


FPADR, 4, 10 


06104 


11 05797 


00004 


03900 


SM 


CNTDWN, 1 


06116 


12 06103 


00001 


03910 


BNZ 


CONUE 


06128 


47 06036 


01200 


03920 


TDM 


SFPFLG+7, 1 


06140 


15 06087 


00001 


03930 WRFPR 


TFM 


IORT, *+23 


06152 


16 00565 


06175 


03940 


B 


IOPT, FILDEF, 7 


06164 


49 00532 


05500 


03950 


CF 


BUTTON 


06176 


33 00455 


00000 


03960 


BD 


ENDMES, SFPFLG+ 7 


06188 


43 05992 


06087 


03970 


AM 


RDDIM+5, 20, 10 


06200 


11 02705 


00020 


03980 


B7 


BREP 


06212 


49 05834 


00000 


03990 CNTDWN 


DS 


, SFPFLG+23 


06103 


00000 




04000 


DORG 


6250 


06250 






04005 NXTDIM 


TFM 


DDADIM+8 ,DCOPY-200 


06250 


16 03665 


02500 


04010 


TFM 


RMCK+11 ,DCOPY-200 


06262 


16 03419 


02500 


04015 


BTM 


BAK ,WKA 


06274 


17 03268 


06227 


04018 


B7 


DIMENT+24 


06286 


49 04752 


00000 



4. Error When deleting an entry from the Equivalence Table and 
the end of the table is between sectors 05068 and 05079, eight (8) 
sectors following the area reserved for the Table are destroyed 
(05080-05087). 

Correction The following change is necessary to correct the problem: 

Page 36 of 1620 Monitor I DUP Routine *DLOAD, *DREPL, *DELET, 
Modification Level No. 4 

From 17120 DONE TF HOLD5, CLOSW+5 09542 26 13139 13302 

To 17120 DONE TF HOLD5, CLOSR+5 09542 26 13139 13363 

Twenty- eight (28) replacement cards are provided. These cards 
are numbered 11109 thru 11132, 10199, 10589, 10590 and 10608. 
Please remove the correspondingly numbered cards from Deck #3 
and insert the cards provided. 
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Supervisor, Deck #7 

ERRATA 

Modification No. 9 stated that Page 3 of the Listing (Monitor I Relocating 
Loader) should be changed 

To 01200 BNI PATCH, 1700 01006 46 02264 01700 

This should have stated 

To 01200 BNI PATCH, 1700 01006 47 02264 01700 

1. Error The correction to the Relocating Loader in Modification No. 9 
does not function properly when a cylinder overflow occurs on the 
first three sector group read into core. 

Correction The following changes are necessary to correct the problem: 



Page 3 of the listing (Monitor I Relocating Loader) should be changed 



From 01200 




BNI 


PATCH, 1700 


01006 


47 


02264 


01700 


01210 




BI 


CIN, 3800, 6 


01018 


46 


01083 


03800 


To 01200 




BI 


CIN, 3800, 6 


01006 


46 


01083 


03800 


01210 




BNI 


PATCH, 1700 


01018 


47 


02264 


01700 


Page 10 of the 


same listing should be changed 










From 04151 


PATCH 


BNI 


ERR- 12, 3600 


02264 


47 


01018 


03600 


To 04151 


PATCH 


BNI 


ERR, 3600 


02264 


47 


01030 


03600 



Three (3) replacement cards numbered 80007, 80008, and 80032 
are provided. Please remove the correspondingly numbered cards 
from Deck #7 and insert the cards provided. 
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FORTRAN n-D Loader, Deck #9 

1. Error An object FORTRAN subprogram cannot be loaded from 
paper tape. 

Correction The following changes are necessary to correct the problem: 
Page 4 of the listing (FORTRAN II-D Loader, Block 3) should be changed 
From 01740 CM RMCHK+11, INRK+80 04646 14 04625 07480 

To 01740 CM RMCHK+11, INRK+75 04646 14 04625 07475 

Page 7 of the same listing should be changed 

From 03690 TF COMSEC+98, INRK+79 06458 26 07398 07479 

To 03690 TR COMSEC+94, INRK+75 06458 31 07394 07475 

Page 4 of the listing (FORTRAN n-D Loader, Block 5) should be changed 
From 02030 CM RMCHK+11, INRK+80 04900 14 04879 07480 

To 02030 CM RMCHK+11, INRK+75 04900 14 04879 07475 

Page 6 of the same listing should be changed 

From 02630 TF COMSEC+98, INRK+79 0 5500 2 6 07398 07479 

To 02630 TR COMSEC+94, INRK+75 05500 31 07394 07475 

Four (4) replacement cards numbered 63156, 63180, 63209 and 63217 
are provided. Please remove the correspondingly numbered cards 
from Deck #9 and insert the cards provided. 

FORTRAN Subroutines with Auto Divide, Deck #10 

1. Error I/O subroutines give erroneous error F7 message when 
reading leading zeros in some fixed point cases. 

Correction The following changes are necessary to correct the problem: 
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Page 26 of the listing (Set 1) should be changed 

From 12560 BNH IRDIG 04778 47 

To 12560 BL IRDIG 04778 47 

Page 17 of the listing (Set 2) should be changed 

From 08290 BNH IRDIG 09874 47 

To 08290 BL IRDIG 09874 47 

Two (2) replacement cards numbered 52101 and 53134 are provided. 
Please remove the correspondingly numbered cards from Deck #10 
and insert the cards provided. 

FORTRAN Subroutines with Auto Floating Point, Deck #11 

1. Error I/O subroutines give erroneous error F7 message when 
reading loading zeros in some fixed point cases. 

Correction The following changes are necessary to correct the problem: 

Page 19 of the listing (Set 3) should be changed 

From 08680 BNH IRDIG 04778 47 04882 01100 

To 08680 BL IRDIG 04778 47 04882 01300 

Page 17 of the listing (Set 4) should be changed 

From 08280 BNH IRDIG 09826 47 09930 01100 

To 08280 BL IRDIG 09826 47 09930 01300 

Two (2) replacement cards numbered 65057 and 66134 are provided. 
Please remove the correspondingly numbered cards from Deck #11 
and insert the cards provided. 



04882 01100 
04882 01300 

09978 01100 
09978 01300 
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After Decks #3, #7, #9 and #10 or #11 (Deck #10 for users with 
Auto Divide; Deck #11 for users with Auto Floating Point) have 
been corrected, only these decks should be loaded to the Monitor I 
disk pack using Deck #1 (System Loader). Note : When Deck #7 
is loaded, the system communication sector is reinitialized. 
Any user changes to this area must be made again after loading 
this deck. 
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40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 (Code 914) 



SEBRUARY 23, ±9&6 



MEMORANDUM TO: Users of IBM 1620 Data Processing Systems 

SUBJECT: IBM 1620-1311 Monitor I 

Program No. 1620-PR-025 (Card) 
Modification No. 11 

This letter transmits Modification No. 11 of the subject program. The conditions 
corrected and the changes incorporated in this modification level are: 

Correction Correction or Change Made 

Deck *5 1 . Subroutine Set 00 will sometimes (Fixed Product 

Area Position dependent) calculate erroneous results 
for divisors that have at least 2 low order digits 
smaller than the corresponding number of high order 
digits of the dividend. 

Deck ^6 1 . A DAC or DSAC with a long comments field may 

cause erroneous output and/or unpredictable behavior. 

2. There was a typographical error on Modification 
Letter number 7, error 2. 

Deck #8 1 . When the last instruction generated falls at the 

very end of memory, a check stop occurs when trying 
to load the program. 

2. Must be able to classify a FORTRAN statement before 
reading the first continuation card. 

3. The correction in Modification No. 9 concerning 
COMMON extended by array equivalence calculates 
an incorrect value for NEXT COMMON in some cases 
of non-COMMON array equivalence. 

Deck #9 1 . If local subprograms are to be loaded from both card 

or paper tape and the disk, they will not be loaded 
properly. 

2. If a local subprogram is called from a local subprogram 
and there are no in-core subprograms used, the error is 
indicated improperly. 
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Deck # 9 (Continued) 



3. An incorrect check is made for 7 character local names. 



A list of materials distributed with this letter follows: 



Item No. 



Description 



2 
3 



25 Change Cards 

Attachment 1 - Listing of Change Cards 
Attachment 2 - Listing of Symbolic Changes 



Initial requests for this system which are filled after the date of this letter will not include 
the cards mentioned above, as these cards will be included in the object deck 0 

Any discrepancies between the material you receive and the items listed should be reported 
to the Manager of DP Program Information Department, IBM Corporation, 40 Sawmill River 
Road, Hawthorne, New York 10532 o 

This program has been registered by type of system and is listed under the name and address 
shown on your order. Program modifications as and when made by IBM will be sent to this 
same address. Should there be a change in your type of system or in your address, or should 
you no longer require maintenance of this particular program, we would appreciate your 
notifying DPD Program Information Department through your IBM Branch Office. 



PROGRAM INFORMATION DEPARTMENT 



Distribution: SE Managers, FE Managers 
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LISTING OF CHANGE CARDS (DECK 5) 



3100699550053100495460060l+013003300l+9500000i0000000'0592l603'2005 3l00000lg00752516 



THE ONE (1) REPLACEMENT CARD LISTED ABOVE IS TO BE 
INSERTED INTO D^CK 5 REPLACING THE CORRESPONDINGLY 
NUMBERED CARD. 

LISTING OF CHANGE CARDS (DECK 6) 

OH+913601+0170567611700260238703295260257 1023872 10257 1025711503056000022 603 0532 83 
l+202329!*91233201503036000001612095 0000* 170567615 861*26023870329511+023 87(5005 153 2 84 
000* 111201900051 31029041 20191+10301+20 232925 0301+002387 25030390238645 123 32 1209532 89 
060606g0606060606B0606060606B0606060606606060606060000000000* 260301+20232949233-3 8 
11801+007023600000005 0049000000000001880005 1+105 2800161 0570105 76251057502329253 339 

THE FIVE (5) REPLACEMENT CARDS LISTED ABOVE ARE TO BE 
INSERTED INTO D^CK 6 REPLACING THE CORRESPONDINGLY 
NUMBERED CARDS. 
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L I ST I NO OF CHANGE CARDS (DECK 8) 

l*800500l*30988 8100782 610093 100771*30273002 1*2U5 159830000 1 3115 13815 83 8l*90291805000t* 

001J»038370003i»it70402601200l»310«t4002l»2l>itJ»1016210093i»910ltlt00160l»228(i465 23315 150023 

1*0000003315 142000002U151l+310019tt60955lf01200l»30i+22202It2l»lHt 10091*100932 l»0l»65 2150021* 

000000000000003210093000003215 11*00000032 15 H*2OO000170i*83 600O5OI*10383700052l*50103 

9038020170l*836000Q0i*9101*l*005 55 55663005 91*562631602 359(59771 1702321*10200160 23550101* 

03369000l0i*9037t* 1*01*5 11788033 651*90371* 1*01* !*118O8O336?5U301*1800336§l* 1*0571*0033593511*21 

1*72303365029623200095 000002200099029622103l*2700099t*311720039672i*03l*0603i*27l*5ll*l*l 

2 22211755029621«*0226200000i*70552801100260226211755l*905 52801503967000011*9039515 25 

68015 03967000001*905 81* 1*0(511*01*5 118761191* 1*170903605101*1607 21*7522 191*901*79503211515 26 

131*32000001602359591761702321*101*10595 l*7595671705t*16l0i*605951*752399H*09567055l861 

0000l»9125I*l*015001*7500002i*91 25 5601208l*56000551208l*5l00055U911961»707032l3i» 78551901 

THE ELEVEN (11) REPLACEMENT CARDS LISTED ABOVE ARE TO BE 
INSERTED INTO DECK 8 REPLACING THE CORRESPOND I NGLY 
NUMBERED CARDS. 

LISTING OF CHANGE CARDS (DECK 9) 

000591*608 801*0110015 10261*0000033021*1*00000031021*26021*283110509105111*91 301*603153018 

0005559595659005300000*51*1* 11*95 50*001010250765 5073831*30761*1*076551*913011*01*1*0853071* 

61*1*021*261*908 63200000000000000000000000000000000000000000000000000000000000053 075 

5 1110365 1000l31*90723203l*00500001023907099001003902l*31001001706656638763203653 195 

5l00000110383U0005ll5025210000017066205392i*fc9038080260691302i*5 526071*1*80256663196 

63 110591*30005116059635253355 0595200000490616801*505996000001706692071701105963223 

1*90 593201105 91*300055 110596300055210591*302«*722606135059632606130059l*?16000006322 5 

5 7 188 *0ll966350l57300*2252l*7l**5722l56*0ll»41* 1*1631*10* 110675 8000301*90361*0000006321*0 

THE EIGHT (8) REPLACEMENT CARDS LISTED ABOVE ARE TO BE 
INSERTED INTO DECK 9 REPLACING TME CORRESPONDINGLY 
NUMBERED CARDS. 
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LISTING OF SYMBOLIC 


CHANGES 


(DECK 


5) 








07070 




CF 


BFLG-25,,6 




00580 


L3 


0049 00000 CHANRE 








LISTING OF SYMBOLIC 


CHANGES 


(DECK 


6) 








15250 




TF 


INPUT2+6,ZEP0*29 




11748 


26 


03042 

v# j \j "t *. 


02329 

\J C J 4~ TJ 


THAMfiF 


15330 




BTM 


EVALAD,DAC5,4 




11792 


17 


05 076 


1586*+ 


CHANGE 


15690 


DACR 


NOP 


INPUT2+6,ZEPO+29 




12156 


41 


\J J U *t £. 


\J C. J C J 


phamgf 


19570 


DAC5 


TF 


INPUT2+6,ZEPO+29 




15864 


26 


0301+2 


02329 


CHANGF 


19580 




B7 


DAC+36 




15876 


49 


11802* 




CHANGE 


25340 




BTM 


CSORN, IOG+136 




14076 


17 


05690 


JI+556 


CHANGE 








LISTING OF SYMBOLIC 


CHANGES 


(DECK 


8) 








00860 




TF 


SUBSW+l,ZER13+2 




02674 


26 


x U \J j J 


10077 


w n n H ' i l 


02150 


E87420 


BNR 


COMSET,MODAD, 11 




03948 


45 


11788 


0336R 


CHANGE 


02171 


COMSW 


DS 


/*-l 




03967 




o 




ADD 


02180 




BNF 


NONCOM, MODAD, 11 




03968 


44 


11808 


0336R 


CHANGE 


02430 




BNF 


DOCCTU,SUBSW+l 




04118 


44 


10162 


10093 


CHANGE 


02520 




BNF 


EQ0NCC,SUBSW+1 




04210 


44 


10094 


10093 


CHANGE 


03720 




BD 


EXTCOM,COMSW 




05480 


43 


11720 


03967 


CHANGE 


09321 


EQONCC 


SF 


SUBSW+1 




10094 


32 


10093 


00000 


ADD 


09322 




SF 


CHI+1 




10106 


32 


15140 


00000 


ADD 


09323 




SF 


CHI+3 




10118 


32 


15142 


00000 


ADD 


09324 




BTM 


CKCNTU,0,10 




10130 


17 


04836 


000-0 


ADD 


09325 




NOP 


DECODE+35,2,10 




10142 


41 


03837 


000-2 


ADD 


09326 




B7 


DECODE 




10154 


49 


03802 




ADD 


09327 


DOCCTU 


BTM 


CKCNTU,0,10 




10162 


17 


04836 


000-0 


ADD 


09328 




B7 


ASCAN 




10174 


49 


10440 




ADD 


1003P 


COMSET 


TDM 


COMSW, 1 




11788 


15 


03967 


00001 


ADD 


1003Q 




B7 


E87420+20 




11800 


49 


03968 




ADD 


1003R 


NONCOM 


TDM 


COMSW, 0 




11808 


15 


03967 


00000 


ADD 


1003S 




B7 


E89820 




11820 


49 


05844 




ADD 


26300 




B 


EOPAT 




10398 


49 


13432 


00000 


CHANGE 


28891 


EOPAT 


SM 


NEXT, 5,10 




13432 


12 


08456 


000-5 


ADD 


28892 




SM 


LNGAD,5,610 




13444 


12 


0845J 


000-5 


ADD 


28893 




B7 


EOJP 




13456 


49 


11964 




ADD 
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LISTING OF 


SYMBOLIC CHANGES 


(DECK 


9) 








00930 




B 


PATCH1 




03820 


1*9 


07232 


00000 


CHANGE 


01030 




TDM 


NODATA, 0 




03900 


15 


02521 


00000 


CHANGE 


01050 




B 


INC13 




03921* 


1*9 


03808 


00000 


CHANGE 


01660 




B 


END1 




0881*0 


1*9 


1301*6 


00000 


CHANGE 


03060 


COMPRE 


BNR 


COMPAR 




05932 


1*5 


0595 2 


00000 


CHANGE 


03090 


COMPAR 


BNR 


SERCH 




05952 


1*5 


05996 


00000 


CHANGE 


03180 




B 


COMPRE 




06056 


1*9 


05932 


00000 


CHANGE 


03891 


END1 


BNF 


RCMKCK+12, 


NUMBUF-15 


1301*6 


1*1* 


0861*1* 


021*26 


ADD 


03892 




B7 


RCMKCK 




13058 


1*9 


08632 




ADD 


01*681 


PATCH1 


AM 


LNKPTR, 30/ 


10 


07232 


11 


06758 


000L0 


CHANGE 


01*682 




B 


ENDTST 




0721*1* 


1*9 


0361*0 


00000 


CHANGE 



L_] 




40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 (Code 914) 



ernadonal Business Machines Corporation 



October, 1966 



MEMORANDUM TO: Users of IBM 1620-Data Processing Systems 

SUBJECT: IBM 1620-1311 Monitor I 

Program No. 1620-PR-025 (Card) 
Modification No. 12 



This letter transmits Modification No. 12 of the subject program. The 
conditions corrected and the changes incorporated in this modification 
level are: 

Correction Correction or Change Made 

Deck #3 1. The terminal djp in the Sequential Program 

List is not detected properly when attempting 
to load a program when the monitor pack has 
insufficient room. 

2. The flagged zeros after the 4? in the 
S. P. List cometimes interfere with finding 
thes(s . 

Deck #7 1. FORTRAN subroutines assume the arith- 

metic overflow to be unchanged after return 
from an IORT call. 

2. #XEQ or #XEQS operations are not 
performed after ^^DUP *DLOAD and spurious 
message "ERROR IN FIELD" at col. 27 is 
listed. 
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A list of materials distributed with this letter follows: 
Item No . Description 

1 13 Change Cards 

2 Attachment 1 - Listing of Change Cards 

3 Attachment 2 - Listing of Symbolic Changes 

Initial requests for this system which are filled after the date of this letter 
will not include the cards mentioned above, as these cards will be included 
in the object deck. 

Any discrepancies between the material you receive and the items listed 
should be reported to the Manager of DP Program Information Department, 
IBM Corporation, 40 Sawmill River Road, Hawthorne, New York 10532. 

This program has been registered by type of system and is listed under 
the name and address shown on your order. Program Modifications as and 
when made by IBM will be sent to this same address. Should there be a 
change in your type of system or in your address, or should you no longer 
require maintenance of this particular program, we would appreciate your 
notifying DPD Program Information Department through your IBM Branch 
Office. 
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LISTING OF CHANGE CARDS (DECK 3) 

5T02759320315T600001202759000S1 2602764027593303 15T00000 1402772000001 60333 10T0222 

263746033080 1 200 1 4O2772OOO0T 1 60333 10266046033080 1 200 140277200002 1 60333 10268TO223 

3460330801200160333102706160056503331490053202637490338801 1028070000 13 10280T0224 

70348T260275903 1514903604027061 6005650341 149005660272942 1502855000044902884T0225 

28070348T490334003 1511 1O2759OOO0326O2759O279433O3 1 5TT988O 1 103 1 51000043303 1 5T0228 

4000002 602 77200094 1 60490552 63 72 5026460432 1 46048820 1 200 1 40009400007 1 60490 502T0243 

66025026690432 1460488201 200 14OOO94OOO0Z16O49O5(5268325O2692O432 146048820 1200T0244 

160490502706250271 504321 160056504905490056600000490447002604949031 51 1104949T0245 

OOO0533O49450OOOO1 104949000013304945000004904470047002603 187O452O32O4520OOOTO246 

0000 1 1 5029090000 1 1 602926049 1 4 1 604284T4424490383802402 7 640569246 1 47880 1 300 1 4T0 546 

THE TEN (10) REPLACEMENT CARDS LISTED ABOVE ARE TO BE 
INSERTED INTO DECK 3 REPLACING THE CORRESPONDINGLY 
NUMBERED CARDS. 

LISTING OF CHANGE CARDS (DECK 7) 

44O7O22O285449O955OO16O958607O45491 12460781343O7418O973O44O7O78O973O49O94828O141 

43 1 1 226002553200285000003 100000 1 1 24649000000 1 500428000004909 1 380026 1 1 60 1 9 1 780 1 97 

1OO635OOO0211OO642OOO0214OO6350O62O47OO624O1 100250 1028004404400 740OO45549O080200 

THE THREE (3) REPLACEMENT CARDS LISTED ABOVE ARE TO BE 
INSERTED INTO DECK 7 REPLACING THE CORRESPONDINGLY 
NUMBERED CARDS. 
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LISTING OF SYMBOLIC CHANGES (DECK 3) 
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